Greet On Join

PisangGoreng · Post by **PisangGoreng** » Tue Dec 11, 2007 9:07 am

Can Help me on that..
if ppl come to my channel eggdrop notice that ppl...

YooHoo · Post by **YooHoo** » Tue Dec 11, 2007 9:57 am

you are asking that coders reinvent the wheel. There are dozens of scripts that already do this in the TCL Archives. Use the keyword greet

rosc2112 · Post by **rosc2112** » Tue Dec 11, 2007 10:17 am

I happen to like the flag-on-join script, it's pretty good.

iamdeath · Post by **iamdeath** » Tue Dec 11, 2007 10:34 am

PisangGoreng wrote:Can Help me on that..
if ppl come to my channel eggdrop notice that ppl...

Code: Select all

bind join - "#channel *!*@*" auto-messenge
proc auto-messenge {nick uhost handle chan} {
  putquick "NOTICE $nick :Welcome to $chan, I notice you ;-P "
}
putlog "TCL Auto-Messenge.tcl Loaded!"

PisangGoreng · Post by **PisangGoreng** » Tue Dec 11, 2007 11:01 am

YooHoo wrote:you are asking that coders reinvent the wheel. There are dozens of scripts that already do this in the TCL Archives. Use the keyword greet

ya so many but i dont know how to use it..
i wan tiny tcl..
oke tengs iamdeath..
for ur kind

PisangGoreng · Post by **PisangGoreng** » Tue Dec 11, 2007 11:05 am

if that ppl leave chan i wan msg him too ...
how ?

Alchera · Post by **Alchera** » Tue Dec 11, 2007 4:42 pm

PisangGoreng wrote:if that ppl leave chan i wan msg him too ...
how ?

That comes under the heading of exceedingly annoying.

PisangGoreng · Post by **PisangGoreng** » Tue Dec 11, 2007 6:58 pm

YooHoo · Post by **YooHoo** » Tue Dec 11, 2007 8:56 pm

because it just is. do the same thing as was done for join, like this:

Code: Select all

bind part - "#channel *!*@*" partmsg
proc partmsg {n u h c} {
  putquick "PRIVMSG $n :I don't blame you for running away"
}

PisangGoreng · Post by **PisangGoreng** » Tue Dec 11, 2007 9:58 pm

thx YooHoo...
and all help me..

do I right

Code: Select all

bind part - "#pgshells *!*@*" partmsg

proc partmsg {nick uhost handle chan} {
  putquick "PRIVMSG $nick :Please email hafifizainal@yahoo.com for more information about our services - http://pgshells.it.cx"
}

but it said
[20:11] Tcl error [partmsg]: wrong # args: should be "partmsg nick uhost handle chan"

Code: Select all

YooHoo · Post by **YooHoo** » Wed Dec 12, 2007 12:19 am

sorry, I screwed up with the number of arguments...try this

Code: Select all

bind part - "#pgshells *!*@*" partmsg

proc partmsg {nick uhost handle chan text} {
  putquick "PRIVMSG $nick :Please email hafifizainal@yahoo.com for more information about our services - http://pgshells.it.cx"
}

PisangGoreng · Post by **PisangGoreng** » Wed Dec 12, 2007 6:42 am

okey..
thx to all..

egghelp/eggheads community

Greet On Join

Greet On Join

Re: Greet On Join