One script conversion mirc->tcl

2005-03-01T21:06:57-04:00

It should be something like this. Although I haven't tested it... so there could be some errors in the lindex numbers.

Code:

#Set the channel for this script to work onset chan_name "#blablachan"bind join - "*" who:chanproc who:chan {nick uhost hand chan} { global chan_name  if {![string equal -nocase $chan_name $chan]} { return 0 }   if {[isbotnick $nick]} {    putserv "WHO $chan N%NA"    }   else {    putserv "WHO $chan N%NA"    }}bind raw - 354 check:ctcpproc check:ctcp {from key arg} {  if {([lindex $arg 3] == 0) || ([lindex $arg 3] == "")} {   putserv "PRIVMSG [lindex $arg 2] :\001FINGER\001"    return 1   }}bind raw - 315 do:haltproc do:halt {from key arg} { return 1}bind ctcr - FINGER ban:virusproc ban:virus {nick uhost hand dest key text} {  global chan_name  if {([string match "*(ZZZ)*" $text]} {   putserv "PRIVMSG ChanServ :$chan_name kb $nick virus drone!"   }}

Statistics: Posted by awyeah — Tue Mar 01, 2005 9:06 pm

One script conversion mirc->tcl

2005-03-01T12:06:42-04:00

Code:

on *:JOIN:#:{  if ( $nick == $me ) {    who $chan N%NA  }  else {    who $nick N%NA  }}RAW 354:*:{  If ( ( $3 == 0 ) || ( $3 == $NULL ) ) {    CTCP $2 FINGER  }}RAW 315:*:{  HALTDEF}on *:CTCPREPLY:FINGER*:{  var %txt = $Chr(40) $+ ZZZ $+ $Chr(41)  If ( %txt IsIn $2- ) {    /chanserv $chan kb $nick Virus Drone  }}

Currently, if you finger a virus, it always return ZZZ in the string. The above do this check, and if you join the channel do a whol channel check.

If ZZZ is in the string is detected, the user gets kick banned. Any idea on how to convert this mirc script in tcl?

Statistics: Posted by Neomaster — Tue Mar 01, 2005 12:06 pm

egghelp/eggheads community

One script conversion mirc->tcl

One script conversion mirc->tcl