Çevrimdışı

[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.

Ancak !basla dediğimde bot yine baslamadı.Nedeni ne olabilir ?

 

Çevrimiçi

bu botu bizzat yapılırken test etmiştim sorunsuz çalışıyordu.

>> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] <<

yukarıdaki linkte verilmişti sanırım linkte sorun var xclusive online olunca linkin icabına bakar bizde tekrar test edip sorun varsa ne olduğuna bakıp yardımcı olmaya çalışacağız

__________________
Şimdi Saat Sensizliğin Ertesi..

 

Çevrimdışı

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

__________________
Kimsenin fark edemeyeceği detayları görmeyi çok severim. ❣

 

Çevrimdışı

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

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Teşekkürler Aynı kod bende mevcut sorunum Değiştrilmesi zorunlu olan bölümleri değiştirdim.Ve cvp.txt ile kaos.mrc dosyalarını mirce tanıttım.Ancak !basla dediğimde baslamadı..
Sorunum bu ..

 

Çevrimiçi

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

Teşekkürler Aynı kod bende mevcut sorunum Değiştrilmesi zorunlu olan bölümleri değiştirdim.Ve cvp.txt ile kaos.mrc dosyalarını mirce tanıttım.Ancak !basla dediğimde baslamadı.. Sorunum bu ..

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


RockGirL'in verdiği linkten indirdim. Bende sorunsuz çalıştı.

Kodu doğru eklediğinizden eminseniz,

ALT+O Yapıp "Diğer" sekmesinin alt başlığı olan "Kilitle" kısmında Decode işaretli ise kaldırıyorsunuz

Resimli Anlatım



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

__________________
Şimdi Saat Sensizliğin Ertesi..