#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 "operşifresi" 

#Nick identify sifresi 
set b_ipass "123456" 


#bind 
bind evnt - init-server baglanti:ayari 

#mesajlar 
set global_msg { 
"0,20 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">} 

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" 

 
MESAJ 1
MESAJ 2
MESAJ 3
vs.

 
# Global mesajlarin dizin yolunu belirtiniz.
set glblmsg "scripts/global.txt"

# Bot sunucuya girdiginde kac saniye sonra global mesaj sistemi aktif olsun ? (Saniye cinsinden)
# 60 = 1 dk. | 300 = 5 dk. | 900 = 15 dk.
utimer 60 globaltextmsg

proc globaltextmsg {} {
global botnick globaltextmsg glblmsg
  set globalmsg [open $glblmsg r]
  set msg(1) [gets $globalmsg]
  set msg(2) [gets $globalmsg]
  set msg(3) [gets $globalmsg]
  set msg(4) [gets $globalmsg]
  set msg(5) [gets $globalmsg]
  set msg(6) [gets $globalmsg]
  set msg(7) [gets $globalmsg]
  set msg(8) [gets $globalmsg]
  set msg(9) [gets $globalmsg]
  set msg(10) [gets $globalmsg]
  set msg(11) [gets $globalmsg]
  set msg(12) [gets $globalmsg]
    close $globalmsg
      putquick "os global $msg(1)"
      timer 5 [list putquick "os global $msg(2)"]
      timer 10 [list putquick "os global $msg(3)"]
      timer 15 [list putquick "os global $msg(4)"]
      timer 20 [list putquick "os global $msg(5)"]
      timer 25 [list putquick "os global $msg(6)"]
      timer 30 [list putquick "os global $msg(7)"]
      timer 35 [list putquick "os global $msg(8)"]
      timer 40 [list putquick "os global $msg(9)"]
      timer 45 [list putquick "os global $msg(10)"]
      timer 50 [list putquick "os global $msg(11)"]
      timer 55 [list putquick "os global $msg(12)"]
  timer 60 globaltextmsg
}

 
 
##globallerin bulunduğu dosyanın yeri
set globaller "scripts/global.txt"
 
##globaller kaç dakika arayla atılacak
set zaman "10"
 
####
utimer 5 globalat

proc globalat { } {
global globaller zaman
set msgzaman "0"
set dosya [open $globaller r]
set liste [split [subst -nocommands [read $dosya]] "\n"]
   foreach i $liste {
   set msgzaman [expr $msgzaman + $zaman]
   timer $msgzaman [list putserv "os global $i"]
   }
close $dosya
timer $msgzaman [list globalat]
}

 
##globallerin bulunduğu dosyanın yeri
set globaller "scripts/global.txt"
 
##globaller kaç dakika arayla atılacak
set zaman "10"
 
####
globalat
proc globalat { } {
global globaller zaman
set msgzaman "0"
set dosya [open $globaller r]
set liste [split [subst -nocommands [read $dosya]] "\n"]
   foreach i $liste {
   set msgzaman [expr $msgzaman + $zaman]
   timer $msgzaman [list putserv "os global $i"]
   }
close $dosya
set msgzaman [expr $msgzaman + $zaman]
timer $msgzaman [list globalat]
}