#oyun hangi kanalda oynaniyor
set kanal "#test"
# bastma komut satiri
set basla "!basla"
# Baslatma islemini kimler yapabilir 
# Bota kayitli oplar icin o|o yazin.  
# Butun kullanicilar icin -|- yazın
set baslatyetki "-|-"
# Durdurma komudu
set dur "!dur"
# Durdurma islemini kimler yapabilir 
# Bota kayitli oplar icin o|o yazin.  
# Butun kullanicilar icin -|- yazın
set duryetki "o|o"
# Bir sonraki soru icin beklenecek sure
set zaman "25"
# BINDS
bind pubm $baslatyetki "$kanal %$basla" basla
bind pubm $duryetki "$kanal %$dur" dur
proc basla {nick host hand chan text} {
 global kanal
 if {[strlwr $kanal]==[strlwr $chan]} {
  kelime_turet
 }
}
# Sayi Limiti 2 olan 2 ayri kelime turet
proc kelime_turet {} {
 global kanal _kelime birsonraki sure zaman
 set _kelime ""
 putlog "$_kelime"
 if {$_kelime == ""} {
  set i 0
  while {$i<=2} {
   if {$i==0} {
    append _kelime "[randstring 1 aıoueiöü]"
   } elseif {$i==1} {
    append _kelime "[randstring 1 bcçdfgğh]"
   } else {
    append _kelime "[randstring 1 jklmnprsştvyz]"
   }
   incr i
  }
  if {[utimerexists kelime_uret]==""} {
   set sure [utimer $zaman kelime_turet]
   set $_kelime "[lindex $_kelime [rand [llength $_kelime]]]"
   mesajyaz "Oyun Basladi: icinde \002$_kelime\002 olan kelimeler uretin..."
  } 
 }
 bind pubm -|- "$kanal *" kontrol_et
 return
}
 
proc mesajyaz {mesaj} {
 global kanal
 putquick "PRIVMSG $kanal :$mesaj"
}
proc kontrol_et {nick host hand chan text} {
 global kanal _kelime sure
 set dosya "scripts/banka.txt"
    set yazi [lindex [split $text] 0]
 if {[regexp {[$_kelime]} $yazi]} {
  if {[file exists $dosya]} {
   set input [open $dosya r]
   while {![eof $input]} {
    set curline [gets [split $input] ]
    #putlog "$curline"
    if {[lindex $curline 0] == $yazi} {
     mesajyaz "Yuppi [lindex $curline 0]"
     catch {close $input}
     return
    } 
   }
   mesajyaz "\002$yazi\002 diye kelimemi olur YUHHH"
   catch {close $input}
  } else {
   putlog "dosya bulunamadi"
  }
 }
}
 
putlog "yazan aCoustiC (Adil Bülbül)"
putlog "Gelistirmek icin kullanin" 

[14:29] * kelime.tcl by HAPPY <
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
> Yuklendi.
[14:29] * 42 questions in scripts/kelime.txt
[14:29] * Invalid userfile format.