Oto Global Mesaj atma tcl'si.

[Root]

Oto global atma tcl'si.
OTO GLOBAL KANALLARİNİZA MESAJ ATMA TCLSİDİR​

#Text icin verilen 30dk
set botdakika "30"

set loginnick "OperNick"
set loginpass "Sifre"
set nicksifre "Sifre"

bind evnt - init-server server
set mesajayari {
"Global atılacak 1. text."
"Global atılacak 2. text."
"Global atılacak 3. text."
"Global atılacak 4. text."
"Global atılacak 5. text."
}

if {![string match "*globalhazirla*" [timers]]} {
timer $botdakika globalhazirla
}

proc globalhazirla {} {
global mesajayari botdakika
set globalset [lindex $mesajayari [rand [llength $mesajayari]]]
putserv "notice $* $globalset"
timer $botdakika globalhazirla
return 1
}
proc ticarichat {type} {
putserv "nickserv identifty $nicksifre"
putserv "oper $loginnick $loginpass"
}

putlog "İrcforumlar diE yükLendi..."


set loginnick "OperNick"
set loginpass "Sifre"
set nicksifre "Sifre"

"Global atılacak 1. text."
"Global atılacak 2. text."
"Global atılacak 3. text."
"Global atılacak 4. text."
"Global atılacak 5. text."

​