Çevrimdışı

;################# Ayarlancak Bolum ########
alias botnick return HelpBOT
alias nickpass return 123456
alias kanal return #as
alias sunucu return irc.bilmem.net
;############ Ayarlancak Bolum Bitmistir #######
;Botun Komutlari
;!start
;!dur
;!top10
;!puan yada !puan Nick
on *:join:$($kanal): {
if ($nick == $me) { baslat }
}
on *:text:*:$($kanal): {
if ($1- == %cevap) {
if !$hget(toplist) { hmake toplist }
if $hget(toplist,$nick) { hadd toplist $nick $calc($hget(toplist,$nick) + $puan) }
else { hadd toplist $nick $puan }
msg # 2 $rastgele($nick) , Dogru Cevap  %cevap 
.timersoru off
.timeralindi off
soru
}
if $1 == !top10 { msg $kanal $toplist }
if $1 == !puan {
if ($2) { msg # $nick $qt($2) Nickli Kişinin Puanı: $iif($hget(toplist,$2),$hget(toplist,$2),Yok) }
else { msg # $nick Sizin Puanınız: $iif($hget(toplist,$nick),$hget(toplist,$nick),Yok ) }
}
if ($1 == !start) {
unset %63
baslat
}
if ($1 == !dur) {
.timers off
msg # Help Oyun Botu Durdurulmustur.
}
}

alias rastgele {
var %x63 $rand(1,10)
if (%x63 <= 5) { return Dogru Cevap Tebrikler $1 }
if (%x63 >= 5) { return Yakisir Sana Tebrikler Dogru Cevap Verdin $1 }
}
alias ayirt {
var %ss $rand(1,$len($1-))
var %sss $calc(%ss + $len($1-))
inc %ipucu 1
if (%ipucu == 1) { msg $kanal 0,4Ipucu: $replace(%cevap,$chr(160),$chr(32),a,*,b,*,c,*,d,* ,e,*,f,*,g,*,h,*,i,*,j,*,k,*,l,*,m,*,n,*,o,*,p,*,q ,*,r,*,s,*,t,*,u,*,v,*,w,*,x,*,y,*,z,*,1,*,2,*,3,* ,4,*,5,*,6,*,7,*,8,*,9,*,0,*) }
if (%ipucu == 2) { msg $kanal 0,4Ipucu2: $replace(%cevap,$chr(160),$chr(32),b,*,c,*,d,*,f,* ,g,*,h,*,j,*,k,*,l,*,m,*,n,*,p,*,q,*,r,*,s,*,t,*,v ,*,w,*,x,*,y,*,z,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,* ,9,*,0,*) }
if (%ipucu == 3) { msg $kanal 0,4Ipucu3: $replace(%cevap,$chr(160),$chr(32),d,*,f,*,g,*,h,* ,j,*,k,*,l,*,m,*,p,*,q,*,r,*,s,*,t,*,v,*,w,*,y,*,z ,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*) | unset %s }
}
alias baslat {
inc %63 1
if (%63 == 1) { msg $kanal mIRC Help Oyun Botu Yapimci: By Aeg | msg $kanal 0,2 Oyun Basliyor Lutfen Hazirlaniniz. }
.timers off
unset %s
soru
}
alias soru {
unset %ipucu
set %soruayirt $read(sorular.txt,$rand(1,$lines(sorular.txt)))
set %csoru $gettok(%soruayirt,1,42)
set %cevap $gettok(%soruayirt,2,42)
if (%cevap == $null) { msg # Hatali Soru Tespiti | baslat }
msg $kanal 0,4SORU: %csoru
ayirt %cevap
.timersoru 2 15 .ayirt %cevap
.timeralindi 1 60 /msg msg $kanal 2Cevabi Bilemediniz , Dogru Cevap  %cevap  $(|) soru
}
alias 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))
}
alias puan return 20
on *:connect: { identify $nickpass | join 0, | join $kanal }
on *:start: { nick $botnick | server $sunucu }
on *:exit:hsave -a toplist $qt($+($mdir,toplist.data))
on *:disconnect: { hsave -a toplist $qt($+($mdir,toplist.data)) | unset %63 }


bot yukardaki gibidir arkadaşlar . soru ve ipucu cevaplara kanala geliyor lakin cewap statüse düşüyor . bazı değişşklikler yaptım ama düzelmedi sorun nerde olabilir ?

__________________

 

Çevrimdışı

Bu satırı:

Böyle değiştir:

 

Çevrimdışı

aynı bot için yeni bi sıkıntı dikkatimi çekti . bot ' / ' işareti gerektiren cevaplardaki doğru sorulara puan vermiyor ama normal ' / 'işareti içermeyen cevaplara puan veriyor .

şekildeki gibi

{13:11:03} <HelpBOT> SORU: Bir Cs Set özelliği?
{13:11:03} <HelpBOT> Ipucu: *****
{13:11:18} <HelpBOT> Ipucu2: **o**
{13:11:23} <Trayn> mLock
{13:11:24} <HelpBOT> Dogru Cevap Tebrikler Trayn , Dogru Cevap mLock
{13:11:24} <HelpBOT> SORU: #X Kanalına URL Eklemek istiyorum
{13:11:24} <HelpBOT> Ipucu: /** *** #* *** *****
{13:11:39} <HelpBOT> Ipucu2: /** *e* #* U** A**e*
{13:11:54} <HelpBOT> Ipucu3: /c* *e* #X U** A**e*
{13:12:06} <Trayn> /cs Set #X URL Adres
{13:12:25} <HelpBOT> Cevabi Bilemediniz , Dogru Cevap /cs Set #X URL Adres

__________________

 

Çevrimdışı

Bu satırı bul:


Bu şekilde değiştir: