Merhaba, acoustic Arkadaş'ın bir tcl'si vardı arşivimde bunu kullana bilirsiniz.
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
#Konusma icin zaman sureci (Dk cinsinden)
set zaman_araligi "10"
#Uygulamanin calismasi icin
#botun oper login ve nick login paslari
#oper login
set o_login "Eggdrop"
#Oper Login sifresi
set o_pass "operşifresi"
#Nick identify sifresi
set b_ipass "123456"
#bind
bind evnt - init-server baglanti:ayari
#mesajlar
set global_msg {
"0,20
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">}
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!"
}
putlog "Global mesaj atma sistemi yuklendi"
putlog "Bot OPER ve Global kullanma izni olmadigi surece"
putlog "Calismayacaktir!"
putlog "mail: acoustic@realcoder.com"