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