lookjapan.COM - IRC ve mIRC dünyasının forumu!

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

Kod:

#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!" 

}