on text !nreg script help

[S]

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

Code: Select all

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

[demond]

Code: Select all

bind pub - !nreg nreg
proc 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"]
  }
}

[S]

closed