loadmodule channels
loadmodule server
loadmodule ctcp
loadmodule irc
loadmodule notes
loadmodule console
loadmodule blowfish
set username "xxxxxxxx"
set nick "Webistek"
set altnick "Webistek2"
set my-ip "xxxxxxxxxxxx"
set my-hostname "xxxxx.Com"
set realname "xxxx.Com"
set init-server { 
putserv "identify xxxxxx" 
putserv "oper xxxxx  xxxxx"
putserv "MODE Webistek +D"
}
set servers {
   xxx.xx.xx.xx:xxxx
}
  channel add #istek {
  need-op { putserv "MODE #istek +v Webistek" }
  }
set net-type 5
set owner "ŞaH"
set userfile "Komik.user"
set chanfile "Komik.chan"
logfile jpk #opers "logs/istek.log"
set shortnick "Webistek"
set home "#istek"
set mod-path "modules/"
set help-path "help/"
set text-path "text/"
listen 3334 all
logfile msbxco * "logs/istek.log"
set console "mkcobxs"
loadmodule uptime
source scripts/alltools.tcl
source scripts/action.fix.tcl
source scripts/istek.tcl

set db "veri.txt"
set gecikme_zamani "1"
set wait "1"
bind time - "* * * * *" time:optara 
proc time:optara {min hour day month year} {
global db wait gecikme_zamani 
set file [open $db r] 
set listfile [split [subst -nocommands [read $file]] "\n"] 
foreach i $listfile { 
set wait [expr $wait + $gecikme_zamani] 
set ch "#istek"
utimer $wait[list putserv "privmsg $ch :1,4 İstek: $i"] 
}  
set filem [open $db w] 
set listfilem [split [subst -nocommands [read $filem]] "\n"] 
foreach i $listfilem { 
set wait [expr $wait + $gecikme_zamani] 
set ch "#istek"
utimer $wait[list putserv "privmsg $ch :$i"] 
} 
close $file 
}