proc test {nick uhost hand chan arg} {global first up varg channel name1 name2
set first [lindex $arg 0]
set up [lindex $arg 1]
set varg [lindex $arg 2]
set channel "#test"
set name1 "bla"
set name2 "buh"
for {set i 0} {$i < 5} {incr i} {
putserv "PRIVMSG $channel :$first $up $varg"
putserv "PRIVMSG $channel :$name1 $up $varg"
putserv "PRIVMSG $channel :$name2 $up $varg"
}
}
bind pub - !start test