egghelp/eggheads community

Re: Script

2005-06-12T11:32:43-04:00

Would anyone mind converting this into .tcl

If you're interrested in using these punishment methods to other types of floods as well, Try using allfloodprotection3.7b.tcl. You can choose different types of punishments like warn first then kick or kickban...etc and it can be done with several types of floods.

Statistics: Posted by Sir_Fz — Sun Jun 12, 2005 11:32 am

Script

2005-06-12T09:57:58-04:00

and [lindex $text 0] should be [lindex [split $text] 0] ^-^.

Statistics: Posted by De Kus — Sun Jun 12, 2005 9:57 am

Script

2005-06-12T05:05:41-04:00

Rough code indeed

Code:

   } esle {

But nice piece of code ;b

Statistics: Posted by -W0kk3L- — Sun Jun 12, 2005 5:05 am

Script

2005-06-12T03:32:49-04:00

Some what a rough translation of this mIRC code, into TCL:

Code:

bind pubm - "*" my:procproc my:proc {nick uhost hand chan text} { global adv_nick  if {[isop $nick $chan] || [isvoice $nick $chan] || [isbotnick $chan] || [string equal -nocase "#energex" [lindex $text 0]]} { return 0 }  if {[string match "*#*" $text] && [string equal -nocase "#energex" $chan]} {   if {![info exists adv_nick($nick)]} {    set adv_nick($nick) 1    putserv "NOTICE $nick :Please do not advertise in $chan! You have been warned."   } elseif {$adv_nick($nick) == 1} {       incr adv_nick($nick)       putserv "PRIVMSG chanserv :tb #energex $nick 30m Do Not Advertise in $chan! This is your second warning. 30 minute timeban. Please refer to the GameSurge AUP: www.gamesurge.net/aup \[Rule 3\]"   } esle {       putserv "PRIVMSG chanserv :addban #energex $nick Do Not Advertise in $chan! That was your last warning. You have been banned. Please refer to the GameSurge AUP: www.gamesurge.net/aup \[Rule 3\]"       unset adv_nick($nick)     }  }}

Statistics: Posted by awyeah — Sun Jun 12, 2005 3:32 am

Script

2005-06-11T22:05:25-04:00

Would anyone mind converting this into .tcl:

Code:

on *:TEXT:*#*:#energex:{  if (($nick isop $chan) || ($nick isvoice $chan)) || ($1 == #energex) { halt }  else {    if (!%adv. [ $+ [ $nick ] ]) { set %adv. $+ $nick 1 | .notice $nick Please do not advertise in $chan $+ ! You have been warned. }    elseif (%adv. [ $+ [ $nick ] ] == 1) { inc %adv. $+ $nick | /msg chanserv tb #energex $nick 30m Do Not Advertise in $chan $+ ! This is your second warning. 30 minute timeban. Please refer to the GameSurge AUP: www.gamesurge.net $+ / $+ aup [Rule 3] }    else {      /msg chanserv addban #energex $nick Do Not Advertise in $chan $+ ! That was your last warning. You have been banned. Please refer to the GameSurge AUP: www.gamesurge.net $+ / $+ aup [Rule 3]      unset %adv. $+ $nick     }  }}

Statistics: Posted by stevegarbz — Sat Jun 11, 2005 10:05 pm