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

#Oper Login sifresi 
set o_pass "123654789globalbot" 

#Nick identify sifresi 
set b_ipass "123654789" 


#bind 
bind evnt - init-server baglanti:ayari 

#mesajlar 
set global_msg { 
  "Mesajı buraya yazınız."
  "mesajı bu şekilde asagıya ekleyebilirsiniz."
  "kolay gelsin" 
  
} 

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 "NOTICE $* $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: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"