egghelp/eggheads community

on text !nreg script help

2004-11-07T18:40:08-04:00

closed

Statistics: Posted by S — Sun Nov 07, 2004 6:40 pm

on text !nreg script help

2004-11-08T10:49:54-04:00

Code:

bind pub - !nreg nregproc nreg {n u h c t} {  if {[string tolower $c] == "#services"} {    set t [split $t]; set nreg_nick [lindex $t 0]    set nreg_pw [lindex $t 1]; set nreg_email [lindex $t 2]    utimer 1 [list putserv "qline $nreg_nick :nick registering"]    utimer 2 [list set nick $nreg_nick]    utimer 3 [list putserv "ns register $nreg_pw $nreg_email"]    utimer 4 {putserv "ns set protect on"}    utimer 5 [list set nick IrcBot2]     utimer 6 [list putserv "unqline $nreg_nick"]  }}

Statistics: Posted by demond — Sun Nov 07, 2004 5:58 pm

on text !nreg script help

2004-11-09T02:47:23-04:00

I was wondering if some one could help me translate this into tcl.

Code:

on *:TEXT:!nreg*:#services:{  set %nreg_nick $2  set %nreg_pw $3  set %nreg_email $4  /timer 1 1 /qline %nreg_nick nick registering  /timer 1 2 /nick %nreg_nick  /timer 1 3 /ns REGISTER %nreg_pw %nreg_email  /timer 1 4 /ns set protect on  /timer 1 5 /nick IrcBot2  /timer 1 6 /unqline %nreg_nick  unset %smode_chan  unset %smode_mode  unset %smode_nick }

greetz S

Statistics: Posted by S — Sun Nov 07, 2004 2:55 pm