egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-04-25T19:59:51-04:00 https://forum.eggheads.org/app.php/feed/topic/9477 2005-04-25T19:59:51-04:00 2005-04-25T19:59:51-04:00 https://forum.eggheads.org/viewtopic.php?p=48550#p48550 <![CDATA[Can anyone convert this into TCL please?]]> Statistics: Posted by stevegarbz — Mon Apr 25, 2005 7:59 pm

]]> 2005-04-25T15:38:03-04:00 2005-04-25T15:38:03-04:00 https://forum.eggheads.org/viewtopic.php?p=48542#p48542 <![CDATA[Can anyone convert this into TCL please?]]>
Well I was just trying todo as that script does exactly. Check if nick is not opped and nick is not botnick is basic. By the way, the trigger is not "#scrim #*", its just "*#*" if you see clearly. The script should only work on the channel #scrim. :)
It is "#scrim #*". If you don't belive me, check tcl-commands.doc:
(6) PUBM (stackable)
bind pubm <flags> <mask> <proc>
procname <nick> <user@host> <handle> <channel> <text>

Description: just like MSGM, except it's triggered by things said
on a channel instead of things /msg'd to the bot. The mask is
matched against the channel name followed by the text and can
contain wildcards. Also, if a line triggers a PUB bind, it will not
trigger a PUBM bind.
And if you want pubm to work on all channels, mask should look like this "% #*" :P

Statistics: Posted by ]Kami[ — Mon Apr 25, 2005 3:38 pm

]]> 2005-04-25T13:30:08-04:00 2005-04-25T13:30:08-04:00 https://forum.eggheads.org/viewtopic.php?p=48541#p48541 <![CDATA[Can anyone convert this into TCL please?]]>

Statistics: Posted by awyeah — Mon Apr 25, 2005 1:30 pm

]]> 2005-04-25T08:59:32-04:00 2005-04-25T08:59:32-04:00 https://forum.eggheads.org/viewtopic.php?p=48536#p48536 <![CDATA[Can anyone convert this into TCL please?]]>
bind pubm - "*" check:advertise
...
if {![isbotnick $nick] && [string match "*#*" $text] && [string equal -nocase "#scrim" $chan] && ![isop $nick $chan]} {
...
I would suggest using this bind:
bind pubm - "#scrim *#*?" check:advertise
a) you save code b) you don't ban trailing # hit by accident. c) you wil probably spare some resources ^-^

and clean the if to ![isop $nick $chan].

![isbotnick $nick] is redudant, IRC doesnt echo your own PRIVMSGs!

Statistics: Posted by De Kus — Mon Apr 25, 2005 8:59 am

]]> 2005-04-24T23:19:00-04:00 2005-04-24T23:19:00-04:00 https://forum.eggheads.org/viewtopic.php?p=48526#p48526 <![CDATA[Can anyone convert this into TCL please?]]>

Code: 

bind pubm - "*" check:advertiseproc check:advertise {nick uhost hand chan text} { if {![isbotnick $nick] && [string match "*#*" $text] && [string equal -nocase "#scrim" $chan] && ![isop $nick $chan]} {  putquick "PRIVMSG chanserv :$chan tb $nick 1h Do not advertise."  }}

Statistics: Posted by awyeah — Sun Apr 24, 2005 11:19 pm

]]> 2005-04-24T22:16:55-04:00 2005-04-24T22:16:55-04:00 https://forum.eggheads.org/viewtopic.php?p=48525#p48525 <![CDATA[Can anyone convert this into TCL please?]]> Statistics: Posted by stevegarbz — Sun Apr 24, 2005 10:16 pm

]]>