![[-]](https://lamerler.com/images/collapse.png "[-]")
Oto global atma tcl'si.
OTO GLOBAL KANALLARİNİZA MESAJ ATMA TCLSİDİR
OTO GLOBAL KANALLARİNİZA MESAJ ATMA TCLSİDİR
Kod:
#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 "SiberChat 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."