cycle tcl yardım
 

proc olusum_zamani {} {
global nicks olusum_araligi realname pwhost idents services abc channel
set global_rnicks [lindex $nicks [rand [llength $nicks]]]
putserv "Operserv RAW NICK $global_rnicks 1 1 [lindex $idents [rand [llength $idents]]] [lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]].[lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]].[lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]][lindex $abc [rand [llength $abc]]].$pwhost $services :$realname"
putserv "OperServ RAW :$global_rnicks JOIN $channel" yerine => ([lindex $channel [rand [llength $channel]]] yazınca olmuyor bilen varsa yardımcı olurmusunuz
utimer $olusum_araligi olusum_zamani
return 1

set idents {
"Ally"
"Velly"
"diagon"
"Ejdrh"
"Chat"
"mirc"
"irc"
}
set channel { (bu sekilde kanal yazsak )
#kanal1
#kanal2


random ident alıyor bunu randon kanal girsin istiyorum