recode this plz

[loser]

bind pub - .hi start_hi
proc start_hi {nick chan text} {
set list [split $text " "]
set cmd1 [lrange $list 0 0]
set cmd2 [lrange $list 0 1]
set cmd3 [lrange $list 0 2]
set cmd4 [lrange $list 0 3]
set cmd5 [lrange $list 0 4]
putserv "privmsg $nick : $cmd1"
putserv "privmsg $nick : $cmd2"
putserv "privmsg $nick : $cmd3"
putserv "privmsg $nick : $cmd4"
putserv "privmsg $nick : $cmd5"
}

[rt]

bind pub - .hi start_hi
proc start_hi {nick chan text} {
set list [split $text " "]
set cmd1 [lrange $list 0 0]
set cmd2 [lrange $list 0 1]
set cmd3 [lrange $list 0 2]
set cmd4 [lrange $list 0 3]
set cmd5 [lrange $list 0 4]
putserv "privmsg $nick : $cmd1"
putserv "privmsg $nick : $cmd2"
putserv "privmsg $nick : $cmd3"
putserv "privmsg $nick : $cmd4"
putserv "privmsg $nick : $cmd5"
}

dunno what that script is ment to do but..

Code: Select all

bind pub - .hi h:hi:msg
proc h:hi:msg {nick host hand chan text} { 
        set cmd1 [lindex $text 0] ; set cmd2 [lindex $text 1] 
        set cmd3 [lindex $text 2] ; set cmd4 [lindex $text 3]
        set cmd5 [lindex $text 4]
        puthelp "PRIVMSG $nick :$cmd1"
        puthelp "PRIVMSG $nick :$cmd2  ....

    

and so on..

i don't know why it needed re-scripting but if you want flood protection or something just ask
[/code]

[Sir_Fz]

Read my post here.