if $2 == PRIVMSG && $3 == $_mathchan {

if $regex($remove($4,:),/^([!.]ps[iİı]f[iİı]rla$/Si) && $istok(nick nick nick,$_nick($1),32) { .hfree mpuan | .hsave mpuan mpuan.data | swmathbot privmsg $3 tüm puanlar sıfırlanmıştır. }

;################# 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 } 

TeuFeLs-KerL
5
TeuFeLs-KerL
20
TeuFeLs-KerL
20
TeuFeLs-KerL
30
TeuFeLs-KerL
30

/*
on 1:connect:{
  /bagla
}
*/
;#### Ayarlar #####
alias _mbot return MatheBOT
alias _mathchan return #Kanal
alias _nickpass return sifre
REM alias _oper return OPERNICK OPERPASS
alias _sunucu return server
alias _port return +6697
alias _puan return 5
alias _mode return +B

;##cevap vermek icin sure saniye cinsinden
alias _sorusuresi return 30
;#### Ayarlar #####

alias _nick return $remove($gettok($1,1,$asc(!)),:)
alias bagla {
  if !$hget(mpuan) { hmake mpuan }
  sockopen -ea mathbot $_sunucu $_port
  if !%math { set %math 0 }
  elseif %math == 1 { set %math == 0 }
}
alias dur {
  sockwrite -n mathbot QUIT Bot closed manually...
}


on *:sockopen:mathbot:{
  if ($sockerr) { echo $color(info) -ast MatheBot's Verbindung wurde getrennt. | return }
  swmathbot NICK $_mbot
  swmathbot USER MatheBOT * * Coded by YouMyCure - Übersetzung TeuFeLs-KerL
  sockmark $sockname $_mbot
}
on *:sockread:mathbot:{
  if ($sockerr) { echo $color(info) -ast MatheBot's Verbindung wurde getrennt. | return }
  var %; | sockread %; | tokenize 32 %;
  ;if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug) { window -k0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug } | aline -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug $timestamp < $1-
  swalias $1-
}
alias swmathbot { if $sock(mathbot) { sockwrite -n mathbot $1- } }
alias swalias {
  if $sock(mathbot) {
    var %: = echo $color(info) -ast > Socket mathbot:
    REM if :
VERSION
 iswm $4- { swmathbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1) }
    REM if :
FINGER
 iswm $4- { swmathbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Recep Sentürk $+ $chr(1) }
    if $1 == PING { swmathbot PONG $2- }
    if $2 == 001 { 
      swmathbot nickserv identify $_nickpass
      swmathbot oper $_oper
      swmathbot mode $remove($3,:) $_mbot $_mode
      swmathbot join 0,0  
      .timer 1 5 swmathbot join $_mathchan 
    }
    if $2 == JOIN && $_nick($1) == $_mbot {
      swmathbot mode $remove($3,:) +h $_mbot
    }
    if $2 == PRIVMSG && $3 == $_mathchan {
      REM if $regex($remove($4,:),/^([!.]mreset)$/Si) && $istok(nick nick nick,$_nick($1),32) { .hfree mpuan | .hsave mpuan mpuan.data | swmathbot privmsg $3 tüm puanlar sıfırlanmıştır. }
      if $regex($remove($4,:),/^([!.]ps[iİı]f[iİı]rla)$/Si) && $istok(TeuFeLs-KerL nick nick,$_nick($1),32) { .hfree mpuan | .hsave mpuan mpuan.data | swmathbot privmsg $3 tüm puanlar sıfırlanmıştır. }
      if $regex($remove($4,:),/^([!.]mpunkte)$/Si) || $regex($remove($4,:),/^([!.]mtop10)$/Si) { swmathbot privmsg $_mathchan $toplist }
      REM if $regex($remove($4,:),/^([!.]ba[s??]la)$/Si) {
      if $regex($remove($4,:),/^([!.]mstart)$/Si) {
        if %math == 1 { swmathbot privmsg $_mathchan 3Mathe Game ist schon aktiv! | return }
        elseif %math == 0 {
          set %math 1
          swmathbot privmsg $_mathchan 3MatheBot ist aktiviert! $_nick($1)
          swmathbot privmsg $_mathchan 3Game beginnt in 3 Sekunden. 4Coded by YouMyCure - Übersetzung TeuFeLs-KerL!
          .timerMathAC 1 4 isoru
        }
      }
      if $regex($remove($4,:),/^([!.]mathe)$/Si)  {
      swmathbot notice $_nick($1) Mathe-Befehle: !mstart (für Mathe Game starten) !mstop (für Mathe Game stopen) !mtop10 (für Mathe Game Top10) - Viel Spass. | return }
      if $regex($remove($4,:),/^([!.]mstop)$/Si)  {
        if %math == 0 { swmathbot privmsg $_mathchan 3Mathe Game ist NICHT aktiv! | return }
        elseif %math == 1 {
          set %math 0
          .timerMathSORU off 
          .timerMathYARIM off
          swmathbot privmsg $_mathchan 3Mathe Game gestopt!! $_nick($1)
        }
      }
      if $remove($4-,:) == %mcevap {
        if !$hget(mpuan) { hmake mpuan }
        hinc mpuan $_nick($1) $_puan
        .timerMathSORU off 
        .timerMathYARIM off
        swmathbot privmsg $_mathchan 3Gratuliere4 $_nick($1) 3richtige Antwort.
        isoru
      }
    }
  }
}
alias isoru {
  var %islemq = $gettok( + ? - ? * ? / ,$r(1,4) ,$asc(?))
  var %soru $+($r(1,50),%islemq, $r(1,50))
  set %mcevap $calc(%soru)
  swmathbot privmsg $_mathchan 0,4 Rechnung: 3 $+(,%soru,) 4= 7❔ 
  .timerMathYARIM 1 $calc($_sorusuresi /2) ihaber
  .timerMathSORU 1 $_sorusuresi isoru2 
}
alias isoru2 {
  swmathbot privmsg $_mathchan 3Zeit ist um, Ergebnis:04 %mcevap 
  isoru
}
alias ihaber {
  swmathbot privmsg $_mathchan 3Noch4 $calc($_sorusuresi /2) 3Sekunden! 
}
alias toplist {
  hsave -a mpuan $qt($+($scriptdir,mpuan.data))
  .hfree -sw mpuan | hmake mpuan | hload mpuan $qt($+($scriptdir,mpuan.data))
  if (!$hget(top10puan)) { hmake top10puan }
  var %xc = $hget(mpuan,0).data
  while %xc {
    set %top10puan $addtok(%top10puan,$hget(mpuan,%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,10 $gettok(%sira,1,46)
  %2 = 0,10 $+ $fazlaise($gettok(%sira,2,46)) 0,10 $gettok(%sira,2,46)
  %3 = 0,10 $+ $fazlaise($gettok(%sira,3,46)) 0,10 $gettok(%sira,3,46)
  %4 = 0,10 $+ $fazlaise($gettok(%sira,4,46)) 0,10 $gettok(%sira,4,46)
  %5 = 0,10 $+ $fazlaise($gettok(%sira,5,46)) 0,10 $gettok(%sira,5,46)
  %6 = 0,10 $+ $fazlaise($gettok(%sira,6,46)) 0,10 $gettok(%sira,6,46)
  %7 = 0,10 $+ $fazlaise($gettok(%sira,7,46)) 0,10 $gettok(%sira,7,46)
  %8 = 0,10 $+ $fazlaise($gettok(%sira,8,46)) 0,10 $gettok(%sira,8,46)
  %9 = 0,10 $+ $fazlaise($gettok(%sira,9,46)) 0,10 $gettok(%sira,9,46)
  %10 = 0,10 $+ $fazlaise($gettok(%sira,10,46)) 0,10 $gettok(%sira,10,46)
  return 0,10 Top10 $+(0,$chr(44),4,Platz 10,$chr(44),10,$chr(32),%1) $+(0,$chr(44),4,Platz 20,$chr(44),10,$chr(32),%2) $+(0,$chr(44),4,Platz 30,$chr(44),10,$chr(32),%3) $+(0,$chr(44),4,Platz 40,$chr(44),10,$chr(32),%4) $+(0,$chr(44),4,Platz 50,$chr(44),10,$chr(32),%5) $+(0,$chr(44),4,Platz 60,$chr(44),10,$chr(32),%6) $+(0,$chr(44),4,Platz 70,$chr(44),10,$chr(32),%7) $+(0,$chr(44),4,Platz 80,$chr(44),10,$chr(32),%8) $+(0,$chr(44),4,Platz 90,$chr(44),10,$chr(32),%9) $+(0,$chr(44),4,Platz 100,$chr(44),10,$chr(32),%10)
}
alias -l fazlaise {
  unset %y | unset %w
  var %i = $hfind(mpuan,$1,0,w).data
  while (%i) {
    %y = $hfind(mpuan,$1,%i,w).data
    %w = %y %w
    dec %i
  }
  return $replace($sorttok(%w,32,a),$chr(32),$chr(44))
}