#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 "aCoustiC"  
 
#Oper Login sifresi  
set o_pass "opersifresi"  
 
#Nick identify sifresi  
set b_ipass "123456789"  
 
 
#bind 
bind evnt - init-server baglanti:ayari  
 
#mesajlar  
set global_msg {  
  "Kaybedecek birşeyi olmayan insandan korkulur..!"  
  "Sen Sen olmayı Bilki Sana Seni Sormasınlar ...!"  
}  
 
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"