egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-07-26T05:58:24-04:00 https://forum.eggheads.org/app.php/feed/topic/10142 2005-07-26T05:58:24-04:00 2005-07-26T05:58:24-04:00 https://forum.eggheads.org/viewtopic.php?p=53307#p53307 <![CDATA[recode this plz]]> here.

Statistics: Posted by Sir_Fz — Tue Jul 26, 2005 5:58 am

]]> 2005-07-26T05:10:11-04:00 2005-07-26T05:10:11-04:00 https://forum.eggheads.org/viewtopic.php?p=53304#p53304 <![CDATA[Re: recode this plz]]>
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: 

bind pub - .hi h:hi:msgproc 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]

Statistics: Posted by rt — Tue Jul 26, 2005 5:10 am

]]> 2005-07-26T04:05:20-04:00 2005-07-26T04:05:20-04:00 https://forum.eggheads.org/viewtopic.php?p=53303#p53303 <![CDATA[recode this plz]]> 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"
}

Statistics: Posted by loser — Tue Jul 26, 2005 4:05 am

]]>