;#### Ayarlar #####
alias _ibot return You-Islam
alias _ichan return #islam
alias _oper return OPERNICK OPERPASS
alias _sunucu return irc.chat.tc
alias _port return 6667
alias _puan return 5
;#### Ayarlar #####

islam.mrc ve islam.txt dosyalarını mircinidizin ana dizinine atınız
mircinizde ;
/load -rs islam.mrc
yaparak botu yükleyin ve
/bagla komutu ile botu başlatabilirsiniz.

;#### Ayarlar #####
alias _ibot return You-Islam
alias _ichan return #islam
alias _oper return OPERNICK OPERPASS
alias _sunucu return irc.chat.tc
alias _port return 6667
alias _puan return 5
;#### Ayarlar #####

alias _nick return $remove($gettok($1,1,$asc(!)),:)
alias bagla {
  if !$hget(ipuan) { hmake ipuan }
  sockopen ibot $_sunucu $_port
  if !%islam { set %islam 0 }
  elseif %islam == 1 { set %islam == 0 }
}
on *:sockopen:ibot:{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
  swibot NICK $_ibot
  swibot USER YouMyCure * * İslam Soru Botu Coded by YouMyCure -
  sockmark $sockname $_ibot
}
on *:sockread:ibot:{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
  var %; | sockread %; | tokenize 32 %;
  ;if !$window(@sdebug) { window -k0 @sdebug } | aline -p @sdebug $timestamp < $1-
  swalias $1-
}
alias swibot { if $sock(ibot) { sockwrite -n ibot $1- } }
alias swalias {
  if $sock(ibot) {
    var %: = echo $color(info) -st > Socket ibot:
    if :
VERSION
iswm $4- { swibot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1) }
    if :
FINGER
iswm $4- { swibot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Recep Şentürk $+ $chr(1) }
    if $1 == PING { swibot PONG $2- }
    if $2 == 001 {
      swibot oper $_oper
      swibot join 0,0 
      swibot join $_ichan
    }
    if $2 == JOIN && $_nick($1) == $_ibot {
      swibot mode $remove($3,:) +h $_ibot
    }
    if $2 == PRIVMSG && $3 == $_ichan {
      if $regex($remove($4,:),/^([!.]puanlar)$/Si) || $regex($remove($4,:),/^([!.]top10)$/Si) { swibot privmsg $_ichan $toplist }
      if $regex($remove($4,:),/^([!.]ba[sŞş]la)$/Si) {
        if %islam == 1 { swibot privmsg $_ichan 3İslam Soru-Cevap Oyunu Zaten Aktif!!! | return }
        elseif %islam == 0 {
          set %islam 1
          swibot privmsg $_ichan 3İslam Soru-Cevap Oyunu Aktif Duruma Getirilmiştir $_nick($1) $+ !!!
          swibot privmsg $_ichan 6Oyun 3 Saniye İçinde Başlayacaktır. 5Socket Coded by YouMyCure !!!
          .timerISLAMAC 1 4 isoru
        }
      }
      if $regex($remove($4,:),/^([!.]dur)$/Si)  {
        if %islam == 0 { swibot privmsg $_ichan 3İslam Soru-Cevap Oyunu Zaten DeAktif!!! | return }
        elseif %islam == 1 {
          set %islam 0
          .timerISLAMSORU off
          .timerISLAMYARIM off
          swibot privmsg $_ichan 3İslam Soru-Cevap Oyunu DeAktif Duruma Getirilmiştir $_nick($1) $+ !!!
        }
      }
      if $remove($4-,:) == %icevap {
        if !$hget(ipuan) { hmake ipuan }
        hinc ipuan $_nick($1) $_puan
        .timerISLAMSORU off
        .timerISLAMYARIM off
        swibot privmsg $_ichan 2Tebrikler4 $_nick($1) 2Cevabı Doğru Bildiniz.
        isoru
      }
    }
  }
}
alias isoru {
  var %soruno $r(1,$lines(islam.txt))
  var %soru $gettok($read(islam.txt,%soruno),1,$asc(*))
  set %icevap $gettok($read(islam.txt,%soruno),2,$asc(*))
  swibot privmsg $_ichan 0,4 Soru %soruno :9,1 %soru ?
  .timerISLAMYARIM 1 15 ihaber
  .timerISLAMSORU 1 30 isoru2
}
alias isoru2 {
  swibot privmsg $_ichan 10Süre Doldu, Cevap04 %icevap 10. Bir sonraki icin hazirlanin...
  isoru
}
alias ihaber {
  swibot privmsg $_ichan 14Kalan Süre5 15 14Saniye!!!
  swibot privmsg $_ichan 8,1 Ipucu: $replace(%icevap,$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,*) 
}
alias toplist {
  hsave -a ipuan $qt($+($mdir,ipuan.data))
  .hfree -sw ipuan | hmake ipuan | hload ipuan $qt($+($mdir,ipuan.data))
  if (!$hget(top10puan)) { hmake top10puan }
  var %xc = $hget(ipuan,0).data
  while %xc {
    set %top10puan $addtok(%top10puan,$hget(ipuan,%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(ipuan,$1,0,w).data
  while (%i) {
    %y = $hfind(ipuan,$1,%i,w).data
    %w = %y %w
    dec %i
  }
  return $replace($sorttok(%w,32,a),$chr(32),$chr(44))
}