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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   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)

BaharGulu 01 Eylül 2009 13:21

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?

BaharGulu 02 Eylül 2009 02:48

Cevap: Test Oyun Botu hakkında
 
yokmu bilen cevap verecek kimse yokmu acaba ?

KeReM123 02 Eylül 2009 19:37

Cevap: Test Oyun Botu hakkında
 
aynı sorunu bende yaşıyorum ama bi çözüm bulamadım hile yapanı kanaldan atıyorum

BaharGulu 03 Eylül 2009 16:53

Cevap: Test Oyun Botu hakkında
 
galiba kimse bu sorunu hal edemeyecek :(

TurkArkadas 31 Ekim 2009 19:10

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 :=)

¿ 03 Kasım 2009 15:47

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. :)

TurkArkadas 04 Kasım 2009 05:25

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

¿ 04 Kasım 2009 10:41

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
        }
}


¿ 04 Kasım 2009 10:48

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 ? ;)"}

ScreamComing 28 Kasım 2012 10:37

Cevap: Test Oyun Botu hakkında
 
renkli yazmayı engellemeyi deneyin


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:36.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk