IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Test Oyun Botu hakkında (https://www.ircforumlari.net/eggdrop-neostats-bnc/249837-test-oyun-botu-hakkinda.html)

Test Oyun Botu hakkında

Merhaba arkadaşlar ,

Test soru botunda şöyle bir şey gördüm kalın olarak cevaplar yazıldığında istediğiniz kadar yazın hangisi doğruysa onu kabul ediyor

örnek :

[13:20] <04Emrah> c
[13:20] <04Emrah> a
[13:20] <04Emrah> b
[13:20] <05Oyun> 0,3Bravo bildin 0,4Emrah0,3! Doğru cevap 0,4B0,3.

üst üste yazdım ama ilk cevaptan sonra

3Emrah Her soruya 1 defa yanıt verebilirsin.. Diğer soruyu bekle :)

demesi gerekirdi ama şıklar kalın yazıldıgı için görmüyor

+S yapsak bu sefer soru renkleri belli olmaz.. ne yapabiliriz?

Cevap: Test Oyun Botu hakkında

yokmu bilen cevap verecek kimse yokmu acaba ?

Cevap: Test Oyun Botu hakkında

aynı sorunu bende yaşıyorum ama bi çözüm bulamadım hile yapanı kanaldan atıyorum

Cevap: Test Oyun Botu hakkında

galiba kimse bu sorunu hal edemeyecek :(

Cevap: Test Oyun Botu hakkında

Sadece kalın değil Malesef Renkli yazılıncada aynı açığı verıyor. Kötü bir olay nasil cözeriz :=)

Cevap: Test Oyun Botu hakkında

Arkadaslar kontrol edicem bana biraz musade edin. Biraz islerim var. Malum banimiz yeni kalkti. :D
Aslinda icimden hic birsey paylasmak gecmiyor ama neise. :)

Cevap: Test Oyun Botu hakkında

Alıntı:

Namesis Nickli Üyeden Alıntı (Mesaj 854830)

Arkadaslar kontrol edicem bana biraz musade edin. Biraz islerim var. Malum banimiz yeni kalkti. :D
Aslinda icimden hic birsey paylasmak gecmiyor ama neise. :)

Bırak içindeki sesi Bizim sesimize gel :)

Cevap: Test Oyun Botu hakkında

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:

 

#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:

 

#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

        }

}

Cevap: Test Oyun Botu hakkında

Lanet olsun. :)
3'ncu string match'da CTRL + U fonksiyonu web'de gorunmuyor arkadaslar manual ekleyiniz onu. :)

if {[string match -nocase "**" $text] || [string match -nocase "**" $text] || [string match -nocase "*BURAYA*" $text] || [string match -nocase "**" $text]} {tggamemsg "[tgcolstart] $nick hile yapmanin gunah oldugunu bilmiyor musun ? ;)"}

Cevap: Test Oyun Botu hakkında

renkli yazmayı engellemeyi deneyin