Global Mesaj
[PHP]################################################## ############################################
# Basari Hosting Internet Hizmetleri - Dürüstlük simgemizdir. Önce güven! #
#
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] -
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] -
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] #
################################################## ############################################
#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 "Oper"
#Oper Login sifresi
set o_pass "Sifre"
#Nick identify sifresi
set b_ipass "Sifre"
#bind
bind evnt - init-server baglanti:ayari
#mesajlar
set global_msg {
" 2 Nickinizin bir başkası tarafından kullanılmasını istemiyorsanız, güvenliğiniz için lütfen nicklerinizi, 4"/kayit sifre e-mail" 14(Örn: "/kayit 123456
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.") 2şeklinde kaydediniz ."
}
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: