Ticarichat Global.TCL

[JaneR]

#Text icin verilen 30dk
set botdakika "30"

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

bind evnt - init-server ticarichat
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 "TICARICHAT.NET Global.TCL 1.0 Yuklendi."


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."

Test etmek isteyen arkadaşlar; Koyu renkte belirtilen yerleri editlemeleri yeterlidir. Saygılar..

Not: Mesaj aralıkları 30dk'dır. TCL'yi yükledikten sonra ilk globali 30dk sonra alıcaksınız.

[netkolik]

Test Ettim gayet GüzeL calisiyoR.

[SqL]

Pardon ya Özür diLerim Janer :(