# kanal komutları:                         
# !meal  :  kanala meal.txt'teki satırları okur.
# !meal nick|kanal : kanala yada nicke meal.txt'teki satırı okur.
# !durmeal : okutmayı durdurmak için ..
# NOT:  sadece oplar,halfop ve voice sahipleri      
# !meal nick|kanal komutlarından birini kullanabilir.
# bu komutla sunucudaki kanala yada belirlenen nickin
# özeline atacaktır.  
# bu komutun kötüye kullanılmasından şikayetçiyseniz
# aşağıdaki kodlarda oynama yaparak bu özelliği 
# kapatın-değiştirin. 
# kodu yüklemek için :
# kodun işleyeceği kanalı ve satırları 
# okuma aralık süresini (dakika cinsinden)
# ayarlayın.botunuzun conf'una
# source scripts/meal.tcl                                  
# şeklinde kodu gösterin.
# bot/scripts/ dizini içine meal.txt dosyasını
# düzenleyip atmayı unutmayın..
# kodun işlemeye başlaması için
# .rehash yada .restart etmeyi unutmayın
#
# not: ilk verdiğim kodda !meal komutundan sonra
# işlem bir daha durduralamıyordu.
# meal.txt içindekileri sonuna dek okumadan durmuyordu.
# !durmeal komutu bu kodda eklendi denendi.
# bunla istendiğinde okuma işleminin durması sağlandı.
#############################################################
 
# kodun çalışmasını istediğiniz kanal
 set mealkanal "#kanalınız"
 
# satırları okuma süresini ayarlayın(dakika)
 set mealzaman "3"
 
# kanala post atmaya bu satırdan başlıyoruz
 set mealsatir 0
 
# okumayı durdurmak için kullanıcaz.
 setudef flag durmeal
 
# ayarlar bu kadar..kod başlıyor.
 
if { [info exists mealzaman] } { timer $mealzaman "timer:meal" }
 
set mealtxt "scripts/meal.txt"
 
bind pub - !meal oku:meal
 
proc oku:meal {nick host handle chan text} {
   global mealkanal mealtxt mealsatir
 
   catch {channel set $mealkanal -durmeal}
 
  if { [isop $nick $mealkanal] || [ishalfop $nick $mealkanal] || [isvoice $nick $mealkanal] } {  
     if { [lindex $text 0] != "" } {
         set satiroku [lindex $text 0]
     } else {
         set satiroku $mealkanal
     }
       set mealdosya [open $mealtxt r]
       set mealoku [split [read $mealdosya] \n]
       close $mealdosya
 
# durdurma işlemini kontrol ediyoruz.
       if {![channel get $mealkanal durmeal]} {
           putserv "PRIVMSG $satiroku :[lindex $mealoku $mealsatir] "
           set mealsatir [expr $mealsatir + 1]
       }
   } else {
       set mealdosya [open $mealtxt r]
       set mealoku [split [read $mealdosya] \n]
       close $mealdosya
 
       if {![channel get $mealkanal durmeal]} {
           putserv "PRIVMSG $nick :[lindex $mealoku $mealsatir] "
           set mealsatir [expr $mealsatir + 1]
       }
   }
 }
 
# bu kısım durdurma işlemi için
 bind pub - !durmeal durmeal
 proc durmeal {nick host handle chan text} {
     global mealkanal mealtxt mealsatir
     if { [isop $nick $mealkanal] || [ishalfop $nick $mealkanal] || [isvoice $nick $mealkanal] } {  
         catch {channel set $mealkanal +durmeal}
     }
     putserv "PRIVMSG $chan : $mealkanal kanalında meal okuma $nick tarafından durduruldu."
 }
 
proc timer:meal {} {
   global botnick mealkanal mealzaman mealtxt mealsatir
   if { [onchan $botnick $mealkanal] && ![channel get $mealkanal durmeal] } {
     set mealdosya [open $mealtxt r]
     set mealoku [split [read $mealdosya] \n]
     close $mealdosya
     putserv "PRIVMSG $mealkanal :[lindex $mealoku $mealsatir] "
     set mealsatir [expr $mealsatir + 1]
     timer $mealzaman "timer:meal" 
  }
 }
#bu kadar ... hadi geçmiş olsun :d 
putlog "meal.tcl kullanıma hazır... "
 
#
 #

######
# Copyright Johannes Kuhn <#John @ quakenet>
# This fixes the utf-8 issue on an eggdrop without patch.
# Feel free to distribute and or use.
# No warranty.
#
 
# Background:
#
# The problem is that eggdrop sometimes treats things as utf-8 strings
# And sometimes as simple byte array.
# Almost each string is passed to the tcl interp
# Witch calls an eggdrop command and this calls again the eggdrop interp.
# When eggdrop passes a string to the interp, it calls Tcl_Eval.
# Tcl_Eval trats the input string as utf-8
# But when a eggdrop command is called, it only uses the lower 8 bit
# This leads to data loss.
# 
# 
# This script converts all data that should be passed to an eggdrop command
# to utf-8, so only the lowest 8 bit are used. When Tcl_Eval is called again
# it can convert the data back to utf.
 
 
package require Tcl 8.5
 
encoding system utf-8
# Ok, here is a problem:
# We need all eggdrop commands.
# The good thing is that all the eggdrop commands are in the global namespace.
# The difficulty is to disingush between eggdrop commands
# And Tcl commands.
# To find out if it is a tcl command I just create an other interp, look at the commands there
# and skip them
# To make sure that this works, source this script as first script.
# Otherwise there might be extra commands in the global namespace that we don't know.
proc initUtf8 {} {
   rename initUtf8 {}
   set i [interp create]
   set tcmds [interp eval $i {info commands}]
   interp delete $i
   set procs [info procs]
   foreach cmd [info commands] {
      if {[string index $cmd 0] eq "*" || 
         ($cmd ni $tcmds && $cmd ni $procs)
      } {
         # Eggdrop command.
         rename $cmd ${cmd}_orig
         interp alias {} $cmd {} fixutf8 ${cmd}_orig
      }
   }
}
initUtf8
proc fixutf8 args {
   set cmd {}
   foreach arg $args {
      lappend cmd [encoding convertto utf-8 $arg]
   }
   catch {{*}$cmd} res opt
   dict incr opt -level
   return -opt $opt $res
}

proc characters {description} {
    regsub -all "Ãœ" $description "Ü" description
    regsub -all "ÅŸ" $description "Ş" description
    regsub -all "ÄŸ" $description "G" description
    regsub -all "Ç" $description "Ç" description
    regsub -all "Ä°" $description "İ" description
    regsub -all "Ö" $description "Ö" description
    regsub -all "ü" $description "ü" description
    regsub -all "ÅŸ" $description "ş" description
    regsub -all "ÄŸ" $description "g" description
    regsub -all "ç" $description "ç" description
    regsub -all "ı" $description "ı" description
    regsub -all "ö" $description "ö" description
    regsub -all "{" $description "" description
    regsub -all "}" $description "" description
    return $description
} 

[lindex $mealoku $mealsatir] 

[characters [lindex $mealoku $mealsatir]]