Global Atma TCL

[No_FeaR]

Yapımı acoustic'e Aittir, Kendime Göre Derlemiştim.
Botun Oper Girmesi Gerekiyor, Aksi Halde Çalışmaz.. ^^

#Konusma icin zaman sureci (Dk cinsinden)
set zaman_araligi "15"

#Uygulamanin calismasi icin
#botun oper login ve nick login paslari
#oper login
set o_login "bot22"
#Oper Login sifresi
set o_pass "bot22x"
#Nick identify sifresi
set b_ipass "botxxx"

#bind
bind evnt - init-server baglanti:ayari
#mesajlar
set global_msg {
"Sunucumuza Hoş Geldiniz."
"mesaj 2"
"mesaj 3"
"mesaj 4"
"mesaj 5"
}
if {![string match "*konusma_zamani*" [timers]]} {
timer $zaman_araligi konusma_zamani
}

proc konusma_zamani {} {
global global_msg zaman_araligi
set global_rmsg [lindex $global_msg [rand [llength $global_msg]]]
putserv "os global $global_rmsg"
timer $zaman_araligi konusma_zamani
return 1
}
proc baglanti:ayari {type} {
putserv "NICKSERV IDENTIFY $b_ipass
putserv "OPER $o_login $o_pass"
putserv "WALLOPS :Global mesaj sistemi aktif!"
}