;################# Ayarlancak Bolum ########

alias botnick return ingilizce

alias nickpass return 123456

alias kanal return #ingilizce

alias sunucu return irc.mircclub.org

;############ 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 # ingilizce Oyun Botu Durdurulmustur.

  }

}

 
 
alias rastgele {

  var %x63 $rand(1,10)

  if (%x63 <= 5) { return 3Dogru Cevap Tebrikler 10 $1 }

  if (%x63 >= 5) { return 3Yakisir Sana Tebrikler Dogru Cevap Verdin10 $1 }

}

 
alias ayirt {

  var %ss $rand(1,$len($1-)) 

  var %sss $calc(%ss + $len($1-)) 

  inc %ipucu 1

  if (%ipucu == 1) { msg $kanal 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 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 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 ingilizce botu | 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 12SORU:  10  %csoru

  ayirt %cevap

  .timersoru 2 15 .ayirt %cevap

  .timeralindi 1 60 /msg $kanal 4Cevabi 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 }