Test Oyun Botu hakkında - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

BaharGulu · 01 Eylül 2009, 13:21

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

yokmu bilen cevap verecek kimse yokmu acaba ?

KeReM123 · 02 Eylül 2009, 19:37

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

BaharGulu · 03 Eylül 2009, 16:53

galiba kimse bu sorunu hal edemeyecek
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

TurkArkadas · 31 Ekim 2009, 19:10

Sadece kalın değil Malesef Renkli yazılıncada aynı açığı verıyor. Kötü bir olay nasil cözeriz :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

¿ · 03 Kasım 2009, 15:47

Arkadaslar kontrol edicem bana biraz musade edin. Biraz islerim var. Malum banimiz yeni kalkti.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Aslinda icimden hic birsey paylasmak gecmiyor ama neise.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

TurkArkadas · 04 Kasım 2009, 05:25

Namesis Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Arkadaslar kontrol edicem bana biraz musade edin. Biraz islerim var. Malum banimiz yeni kalkti.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Aslinda icimden hic birsey paylasmak gecmiyor ama neise.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bırak içindeki sesi Bizim sesimize gel
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

¿ · 04 Kasım 2009, 10:41

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

¿ · 04 Kasım 2009, 10:48

Lanet olsun.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

3'ncu string match'da CTRL + U fonksiyonu web'de gorunmuyor arkadaslar manual ekleyiniz onu.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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 ?
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"}

ScreamComing · 28 Kasım 2012, 10:37

renkli yazmayı engellemeyi deneyin

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Test Oyun Botu (Socked)	IrCbaStarD	mIRC Scripting Hazır Kodlar	18	04 Nisan 2017 19:33
!!! YARDIM !!! Test Oyun Botu	By-aSaBi	Eggdrop, NeoStats, BNC	2	25 Kasım 2011 15:16
Test oyun botu	Kimimben	Eggdrop, NeoStats, BNC	3	02 Haziran 2009 03:18
Test Oyun Botu Olan Var mı ?	Askyagmuru	Eggdrop, NeoStats, BNC	2	25 Mayıs 2009 23:43
Test Oyun Botu	BeYaZeNCy	Eggdrop, NeoStats, BNC	3	21 Mayıs 2009 20:22

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.