Tekil Mesaj gösterimi
Alt 25 Eylül 2009, 19:30   #1
Çevrimdışı
Pozan
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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!
###### değiştirilecek bölümler ######
alias -l botnick return [COLOR="red"]Oyuncak[/COLOR]
alias -l sifre return [COLOR="red"]12345[/COLOR]
alias -l kanal return #[COLOR="Red"]Kanal[/COLOR]
alias -l sunucu return [COLOR="red"]irc.sunucu.com[/COLOR]
;
#### değiştirilecek bölüm sonu ##### 

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

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver