![]() |
![]() |
![]() | #1 | |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Kaos Soru Botunun Mirc Versiyonu Yardım pls [PHP];###### değiştirilecek bölümler ###### alias -l botnick return Oyuncak alias -l sifre return 12345 alias -l kanal return #Kanal alias -l sunucu return irc.sunucu.com ;#### değiştirilecek bölüm sonu ##### alias mdir return $remove($mircexe,$nopath($mircexe)) alias -l puan return 10 alias -l sorular { return $shortfn($mdir $+ cvp.txt) } alias -l sorusira { set %sorusira $rand(1,$lines($sorular)) } alias -l soru { return $gettok($read($sorular,%sorusira),1,42) } alias -l cevaplar { set %cevaplar $gettok($read($sorular,%sorusira),2-,42) } alias -l toplucevap { return $regsubex(%cevaplar,/(\*)/g,$+($chr(32),$chr(124),$chr(32))) } alias -l 30 { msg $kanal 6Durum: 08,02Cevaplanan: $calc($numtok($gettok($read($sorular,%sorusira),2-,42),42) - $numtok(%cevaplar,42)) Toplam : $numtok($gettok($read($sorular,%sorusira),2-,42),42) 12 30 06Saniye Kaldı! } alias -l 45 { msg $kanal 6Durum: 08,02Cevaplanan: $calc($numtok($gettok($read($sorular,%sorusira),2-,42),42) - $numtok(%cevaplar,42)) Toplam : $numtok($gettok($read($sorular,%sorusira),2-,42),42) 12 15 06Saniye Kaldı! } alias -l sor { sorusira cevaplar msg $kanal 0,7Soru:0,4 $soru 6[10 $numtok(%cevaplar,42) 06Cevap ] msg $kanal 4Her Doğru Cevap: 13 $+ 10 12Puan 10Toplam:13 $calc($numtok(%cevaplar,42) * 10) 12Puan .timer30 1 30 30 .timer45 1 45 45 .timer60 1 60 sorukapat } alias -l sorukapat { msg $kanal 4Bilinemeyen Cevaplar :12 $toplucevap msg $kanal $sorupuanları msg $kanal 0,12Doğru Bilinen Cevap Sayısı $calc($numtok($gettok($read($sorular,%sorusira),2-,42),42) - $numtok(%cevaplar,42)) Adet .timerssoru 1 10 msg $kanal 0,12Hazırlanın Sıradaki Soru Geliyor... .timersor 1 20 sor } alias -l sorupuanları { if (!$hget(toplist)) { hmake toplist } unset %sorupuanlar var %i = $hget(puanlar,0).data,%x while (%i) { %x = 0,10 $hget(puanlar,%i).item 0,6 $hget(puanlar,%i).data var %nick = $hget(puanlar,%i).item,%puan = $hget(puanlar,%i).data set %sorupuanlar $addtok(%sorupuanlar,%x,32) if ($hget(toplist,%nick)) { hadd toplist %nick $calc($hget(toplist,%nick) + %puan) } else { hadd toplist %nick %puan } dec %i } .hfree -sw puanlar | hsave -a toplist $qt($+($mdir,toplist.data)) return 0,10Puanlar: $+ $iif(%sorupuanlar == $null,0 $+ $chr(44) $+ 6Yok,%sorupuanlar) } on *:start:{ hmake toplist | unsetall if $isfile($+($mdir,toplist.data)) { hload toplist $qt($+($mdir,toplist.data)) } else { hsave -a toplist $qt($+($mdir,toplist.data)) } $decode(ZnVsbG5hbWU,m) $decode(S2FvcyBCb3QgbUlSQyBWZXJzaXlvbnUgS29kbGF5YW 4gOiBYY0x1c2l2ZQ,m) server $sunucu } on *:text:*:#:{ if $chan != $kanal halt if $1 == !kaosrepeat msg $kanal 0,7Soru:0,4 $soru 6[10 $numtok(%cevaplar,42) 06Cevap ] if $1 == !top10 { msg $kanal $toplist } if $1 == !puan { if ($2) { msg $kanal $nick $qt($2) Nickli Kişinin Puanı: $iif($hget(toplist,$2),$hget(toplist,$2),Yok) } else { msg $kanal $nick Sizin Puanınız: $iif($hget(toplist,$nick),$hget(toplist,$nick),Yok ) } } if $1 == !basla && %bot != on { msg $kanal 0,12Kaos Bot Başlıyor Hazırlanın! | msg $kanal $decode(S2FvcyBCb3QgbUlSQyBWZXJzaXlvbnUgS29kbGF5YW 4gOiBYY0x1c2l2ZQ,m) | .timerbot 1 5 sor | set %bot on | halt } elseif $1 == !dur && %bot != off { msg $kanal 0,12Kaos Bot $qt($nick) Tarafından Durduruldu! | msg $kanal $decode(S2FvcyBCb3QgbUlSQyBWZXJzaXlvbnUgS29kbGF5YW 4gOiBYY0x1c2l2ZQ,m) | set %bot off | .timers off | hsave -a toplist $qt($+($mdir,toplist.data)) | halt } if %bot == on && $findtok(%cevaplar,$1-,0,42) { set %cevaplar $remtok(%cevaplar,$1-,$v1,42) msg # 4Tebrikler13 $nick $+ 12 $puan 06Puan Kazandı! 10 $+ $qt($1-) if !$hget(puanlar) { hmake puanlar } if $hget(puanlar,$nick) { hadd puanlar $nick $calc($hget(puanlar,$nick) + $puan) } else { hadd puanlar $nick $puan } if !$numtok(%cevaplar,42) { msg # 0,12Tüm Sorular Başarı ile Blindi..! msg $kanal $sorupuanları .timer30 off | .timer45 off | .timer60 off | .timerssoru off | .timersor off .timer 1 5 msg $kanal 0,12Bir Sonraki Soru için Hazırlanın... .timer 1 10 sor } } } on *:exit:hsave -a toplist $qt($+($mdir,toplist.data)) on *:disconnect:set %bot off | hsave -a toplist $qt($+($mdir,toplist.data)) alias -l toplist { hsave -a toplist $qt($+($mdir,toplist.data)) .hfree -sw toplist | hmake toplist | hload toplist $qt($+($mdir,toplist.data)) if (!$hget(top10puan)) { hmake top10puan } var %xc = $hget(toplist,0).data while %xc { set %top10puan $addtok(%top10puan,$hget(toplist,%xc).data,46) dec %xc } var %sira = $sorttok(%top10puan,46,nr) var %1 = 1,%2 = 1,%3 = 1,%4 = 1,%5 = 1,%6 = 1,%7 = 1,%8 = 1,%9 = 1,%10 = 1 %1 = 0,10 $+ $fazlaise($gettok(%sira,1,46)) 0,6 $gettok(%sira,1,46) %2 = 0,10 $+ $fazlaise($gettok(%sira,2,46)) 0,6 $gettok(%sira,2,46) %3 = 0,10 $+ $fazlaise($gettok(%sira,3,46)) 0,6 $gettok(%sira,3,46) %4 = 0,10 $+ $fazlaise($gettok(%sira,4,46)) 0,6 $gettok(%sira,4,46) %5 = 0,10 $+ $fazlaise($gettok(%sira,5,46)) 0,6 $gettok(%sira,5,46) %6 = 0,10 $+ $fazlaise($gettok(%sira,6,46)) 0,6 $gettok(%sira,6,46) %7 = 0,10 $+ $fazlaise($gettok(%sira,7,46)) 0,6 $gettok(%sira,7,46) %8 = 0,10 $+ $fazlaise($gettok(%sira,8,46)) 0,6 $gettok(%sira,8,46) %9 = 0,10 $+ $fazlaise($gettok(%sira,9,46)) 0,6 $gettok(%sira,9,46) %10 = 0,10 $+ $fazlaise($gettok(%sira,10,46)) 0,6 $gettok(%sira,10,46) return 0,10Top10 Puan $+(0,$chr(44),4,#10,$chr(44),10,$chr(32),%1) $+(0,$chr(44),4,#20,$chr(44),10,$chr(32),%2) $+(0,$chr(44),4,#30,$chr(44),10,$chr(32),%3) $+(0,$chr(44),4,#40,$chr(44),10,$chr(32),%4) $+(0,$chr(44),4,#50,$chr(44),10,$chr(32),%5) $+(0,$chr(44),4,#60,$chr(44),10,$chr(32),%6) $+(0,$chr(44),4,#70,$chr(44),10,$chr(32),%7) $+(0,$chr(44),4,#80,$chr(44),10,$chr(32),%8) $+(0,$chr(44),4,#90,$chr(44),10,$chr(32),%9) $+(0,$chr(44),4,#100,$chr(44),10,$chr(32),%10) } alias -l fazlaise { unset %y | unset %w var %i = $hfind(toplist,$1,0,w).data while (%i) { %y = $hfind(toplist,$1,%i,w).data %w = %y %w dec %i } return $replace($sorttok(%w,32,a),$chr(32),$chr(44)) } on *:connect:{ nick $botnick | nickserv identify $sifre | join $kanal | $decode(c2V0bmFtZQ,m) $decode(S2FvcyBCb3QgbUlSQyBWZXJzaXlvbnUgS29kbGF5YW 4gOiBYY0x1c2l2ZQ,m) /PHP] Bu kodu buldum yukarda değiştirelecek bölümlerden Kırmızı ile belirtilmiş kısımları değiştirdim. PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
Ancak !basla dediğimde bot yine baslamadı.Nedeni ne olabilir ? | |
| ![]() |
Etiketler |
bot, botunun, kaos, mirc download, mirc indir, oyun, pls, soru, versiyonu, yardim, yardım |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
![]() | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
KAOS Botun Soru ve Cevapları | Cemalizim | Eggdrop, NeoStats, BNC | 33 | 23 Mayıs 2013 16:21 |
Kaos Soru Bot[mIRC Versiyon] | PoweR | mIRC Scripting Hazır Kodlar | 41 | 29 Ağustos 2012 16:38 |
MultiCevap ( KaoS ) 1057 Soru... | txf | Eggdrop, NeoStats, BNC | 54 | 20 Haziran 2009 20:56 |
Kaos Soru Cewap Lazim .pLs | bLa | Eggdrop, NeoStats, BNC | 0 | 31 Ocak 2009 21:41 |