SqL
04-05-2007, 18:41
Arkada$Lar Umarim ßu i$inize Yarar ßu TcLe yazdiqiniz rekLamLari qLoßaLMesaj oLarak Atar ... Haydi aLLah`a £manet.
#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 "fas5c53xc66x4"
#Nick identify sifresi
set b_ipass "xc35g48"
#bind
bind evnt - init-server baglanti:ayari
#mesajlar
set global_msg {
"0,20 Server-İsmi 0,50&0,70 www.Server-İsmi 0,50&0,40 irc.Server-İsmi.Com 0,50&0,30 WwW.Server-İsmiCom"
"0,40 Server-İsmi Fm Radyoyu 0,20 0,40veya 0,20 http://Server-İsmi:2525/listen.pls 0,40adreslerinden dinleyebilirsiniz"
"0,70 #Oyun 0,50 Kanalında yarışmaya ne dersin?"
"0,10 wWw.Server-İsmi 0,120 Bizden Biri...Üye olun Avantajlardan Yararlanmaya Başlayın"
"0,40 www.Server-İsmi.net 0,60 Bilgi Eğlence Ve Daha Fazlası..."
"4 Server-İsmiCom Ailesi İyi Sohbetler Diler...Lütfen Sunucu Kurallarına uyalım... irc yardımı için 7 #help 4 web ve ban sorunu için 7 #operhelp 4 Kanallarını Kullanabilirsiniz."
}
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: ayaz.medyashell@gmail.com"
#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 "fas5c53xc66x4"
#Nick identify sifresi
set b_ipass "xc35g48"
#bind
bind evnt - init-server baglanti:ayari
#mesajlar
set global_msg {
"0,20 Server-İsmi 0,50&0,70 www.Server-İsmi 0,50&0,40 irc.Server-İsmi.Com 0,50&0,30 WwW.Server-İsmiCom"
"0,40 Server-İsmi Fm Radyoyu 0,20 0,40veya 0,20 http://Server-İsmi:2525/listen.pls 0,40adreslerinden dinleyebilirsiniz"
"0,70 #Oyun 0,50 Kanalında yarışmaya ne dersin?"
"0,10 wWw.Server-İsmi 0,120 Bizden Biri...Üye olun Avantajlardan Yararlanmaya Başlayın"
"0,40 www.Server-İsmi.net 0,60 Bilgi Eğlence Ve Daha Fazlası..."
"4 Server-İsmiCom Ailesi İyi Sohbetler Diler...Lütfen Sunucu Kurallarına uyalım... irc yardımı için 7 #help 4 web ve ban sorunu için 7 #operhelp 4 Kanallarını Kullanabilirsiniz."
}
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: ayaz.medyashell@gmail.com"