Mrb. dediklerimi harfien uygularsaniz derdinize derman bulabilirsiniz.
Yalniz elimde ki TCL sizin sahip oldugunuz TCL ile aynimi bilemiyorum.
Yinede eklemeniz gereken code'leri vericem lakin olmaz ise elinizdeki TCL'yi buraya paylasin ona gore uyarlayalim code'yi.
Bul;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
#checks if anyone has said the correct answer on channel.
proc tgcheckanswer {nick host hand chan text} {
global tgcurrentanswer tgwrngansw tgcommandlist tgcheat
#cheat protection on
if {$tgcheat == "ON"} {
if {[strlwr $tgcurrentanswer] != [tgstripcodes [strlwr [string trim $text]]]} {
if { ([string length $text] == [string length $tgcurrentanswer]) || [string first $text $tgcommandlist] != -1} {
set firstone [lsearch $tgwrngansw $nick]
if {$firstone ==-1} {lappend tgwrngansw $nick}
if {$firstone !=-1} {tggamemsg "[tgcolstart] Her soruya 1 defa yanıt verebilirsin $nick. Diğer soruyu bekle =)"}
}
}
if {[strlwr $tgcurrentanswer] == [tgstripcodes [strlwr [string trim $text]]]} {
set firstone [lsearch $tgwrngansw $nick]
if {$firstone ==-1} {
tgcorrectanswer $nick
}
if {$firstone !=-1} {tggamemsg "[tgcolstart] $nick!! Bu soruda ki cevap hakkın bitti! Diğer soruyu beklemelisin .)"}
}
return
}
#cheatprotection is not ON
if {[strlwr $tgcurrentanswer] == [tgstripcodes [strlwr [string trim $text]]]} {
tgcorrectanswer $nick
}
}
Degistir; Kod: Kodu kopyalamak için üzerine çift tıklayın!
#checks if anyone has said the correct answer on channel.
proc tgcheckanswer {nick host hand chan text} {
global tgcurrentanswer tgwrngansw tgcommandlist tgcheat
#cheat protection on
if {[string match -nocase "**" $text] || [string match -nocase "**" $text] || [string match -nocase "* *" $text] || [string match -nocase "**" $text]} {tggamemsg "[tgcolstart] $nick hile yapmanin gunah oldugunu bilmiyor musun ? ;)"}
if {$tgcheat == "ON"} {
if {[strlwr $tgcurrentanswer] != [tgstripcodes [strlwr [string trim $text]]]} {
if { ([string length $text] == [string length $tgcurrentanswer]) || [string first $text $tgcommandlist] != -1} {
set firstone [lsearch $tgwrngansw $nick]
if {$firstone ==-1} {lappend tgwrngansw $nick}
if {$firstone !=-1} {tggamemsg "[tgcolstart] Her soruya 1 defa yanıt verebilirsin $nick. Diğer soruyu bekle =)"}
}
}
if {[strlwr $tgcurrentanswer] == [tgstripcodes [strlwr [string trim $text]]]} {
set firstone [lsearch $tgwrngansw $nick]
if {$firstone ==-1} {
tgcorrectanswer $nick
}
if {$firstone !=-1} {tggamemsg "[tgcolstart] $nick!! Bu soruda ki cevap hakkın bitti! Diğer soruyu beklemelisin .)"}
}
return
}
#cheatprotection is not ON
if {[strlwr $tgcurrentanswer] == [tgstripcodes [strlwr [string trim $text]]]} {
tgcorrectanswer $nick
}
}