Kelime Turetmece Algoritmasi Basit kavramlarla TCL PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
#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"
Boyle script mi olur diyenlere:
Ben bir kelime Botu yapmak degil yapacak olanlara ornek olmasi icin basit bir kavram gelistirdim, bu kavrama dayanarak belkide baska bir kavram olusturarak aslinda bir kelime turetmece botunun ne kadar kolay kodlanabilecegine de ornek vermektti amacim.
Ornek Cikti:
<Merlin>Oyun Basladi: icinde alf olan kelimeler uretin... <aCoustiC> alfabe <Merlin> Yuppi alfabe < yani dogru demek istiyor <aCoustiC> deneme <Merlin> deneme diye kelimemi olur YUHHH <Merlin>Oyun Basladi: icinde çki olan kelimeler uretin... ....... .... .....
NOT:
Yok calismiyor yok falan yok filan demeyin calisiyor mantigida tek duze, bilmeyenler ancak calistiramaz, azicik surada if else gibi kavramlari ogrenmis emek vermisler icin cok basit anlasilir sekilde kodlanmistir. Gelisimi disinda ki hic bir soru cevap kazanmayacaktir. Simdiden Kolay gelsin bir kelime turetmece botu yapacak olanlara Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.