;----- Ayar Kismi -----
alias _cbot return Sise-Cevir
alias _jiyopas return 123ddhdh
alias _oper return pest hfghf
alias _sujiyopas return cdhdh
alias _sunuk return ip
alias _sunumip return ip port
alias _services return #Sisecevir


alias _nick return $remove($gettok($1,1,33),:)
alias swSise-Cevir $iif($sock(Sise-Cevir).status == active,sockwrite -nt Sise-Cevir $1-)

on *:sockclose:Sise-Cevir:$+(.timer,Sise-Cevir) 1 2 sockopen Sise-Cevir $_sunumip
on *:sockopen:Sise-Cevir:{
  if ($sockerr) { sockclose Sise-Cevir | $+(.timer,Sise-Cevir) 1 2 sockopen Sise-Cevir $_sunumip | returnex }  
  swSise-Cevir NICK $+($_cbot,$r(100,9999)) 
  swSise-Cevir USER Paradox "" " $+ $iif($host,$host,$ip) 2 sisecevir
  sockmark $sockname $_cbot
  unset %:nkayit
}

on *:sockread:Sise-Cevir:{
  if ($sockerr) { sockclose Sise-Cevir | $+(.timer,Sise-Cevir) 1 2 sockopen Sise-Cevir $_sunumip | returnex }  
  var %;Sise-Cevir | sockread %;Sise-Cevir | tokenize 32 %;Sise-Cevir
  if ($1 = ping) swSise-Cevir pong $remove($2,:) 
  if ($regex($2,/001|433|376)) { swSise-Cevir oper $_oper | swSise-Cevir ns ghost $_cbot $_jiyopas | swSise-Cevir ns release $_cbot $_jiyopas | swSise-Cevir join #0,0 | $+(.timer,_pnicks) 1 3 swSise-Cevir nick $_cbot }
  if $1 == error && $2 == :closing { sockclose Sise-Cevir | $+(.timer,Sise-Cevir) 1 3 sockopen Sise-Cevir $_sunumip }  
  if ($regex($2,/473|475|471|474)) { swSise-Cevir sajoin $_cbot $4 }
  if ($regex($2,/481|411)) { swSise-Cevir oper $_oper | swSise-Cevir nick $_cbot | swSise-Cevir nickserv identify $_jiyopas }
  if $regex($2,/(PRIVMSG|NOTICE|ACTION)) && ($left($3,1) != $chr(35)) {
    if $4 == :VERSION { swSise-Cevir NOTICE $_nick($1) VERSION mIRC v6.35 Khaled Mardam-Bey | swSise-Cevir NOTICE $_nick($1) VERSION 2 web Kayit | return }
    if $4 == :FINGER { swSise-Cevir NOTICE $_nick($1) FINGER 2 sisecevir (Paradox@) Idle $r(1,4) seconds | return }
    if $4 == :PING  { swSise-Cevir NOTICE $_nick($1) PONG $5- | return }
  }
  }




on *:sockread:Sise-Cevir:{
  if $1 == !varim || $1 == !varım {
    if %disc. [ $+ [ $nick ] ] {  msg $chan Oyundan uzaklaştırıldınız, lütfen ceza sürenizin dolmasını bekleyiniz. | return }
    if (!$istok($hget(Oyun,Başlayanlar),$nick,32))  { 
      hadd -ms Oyun Başlayanlar $hget(Oyun,Başlayanlar) $nick 
      msg $chan 4 $nick oyuna dahil oldu. 
    }
  else { msg $chan 4 $nick 1zaten oyuna dahil olmuşsunuz. } }
  if $1 == !yokum { 
    if (!$istok($hget(Oyun,Başlayanlar),$nick,32))  {  msg $chan Siz zaten oyuna dahil olmamışsınız. | return }
    var %. $remtok($hget(oyun,Başlayanlar),$nick,32) 
    hdel -ms Oyun Başlayanlar
    hadd -ms Oyun Başlayanlar %. 
    msg $chan 2 $nick oyundan ayrıldı. 
    if ($istok($hget(Oyun,SoruNick),$nick,32))  { msg $chan Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz. | hdel -ms Oyun SoruNick | hdel -ms Oyun SoruCevap  |  hadd -ms Oyun Durum 0 |  hadd -ms Oyun Soruldu 0 | $+(timer,soru) off | return }
    if ($istok($hget(Oyun,SoruCevap),$nick,32))  { msg $chan Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz. | hdel -ms Oyun SoruNick | hdel -ms Oyun SoruCevap  |  hadd -ms Oyun Durum 0 |  hadd -ms Oyun Soruldu 0 | $+(timer,soru) off | return }
  }
  if $1 == !cevir || $1 == !çevir {
    if (!$istok($hget(Oyun,Başlayanlar),$nick,32)) { msg $chan Oyuna dahil olmadığınız için !cevir yapamazsınız. | return }
    if ($token($hget(oyun,Başlayanlar),0,32) == $null) { msg $chan Oyuncu bulunmadığı için !cevir komutunu kullanamazsınız. | return }
    if ($token($hget(Oyun,Başlayanlar),0,32) == 1) { msg $chan Şuan oyunda sadece bir kişi dahil olmuştur ve oyun en az iki kişi ile oynanmaktadır. | return }
    if $hget(Oyun,Durum) == 1 {  msg $chan Soru ve cevap işlemi tamamlanmadıkça şişe tekrar çevrilemez! | return }
    msg $chan 10Şişe dönüyor bekleyiniz..
    var %tab = $hget(oyun,başlayanlar)
    var %s = $numtok(%tab,32) 
    var %q = $token(%tab,$r(1,$(%s,2)),32)
    var %a = $remtok(%tab,%q,32)
    var %k = $token(%a,$r(1,$calc($(%s,2) -1)),32)
    msg $chan 4 %q soracak ---> 2 %k cevap verecek.
    hadd -m Oyun Durum 1
    hadd -m Oyun SoruNick %q
    hadd -m Oyun SoruCevap %k
    .$+(timer,soru) 1 180 sıfırla $chan 
  }
  if $1 == !s {
    if $hget(Oyun,Durum) != 1 {  msg $chan !s ve !c komutları şişe çevrilmeden kullanılamaz. | return }
    if (!$istok($hget(Oyun,SoruNick),$nick,32))  { msg $chan Sadece 4 $hget(Oyun,SoruNick) 1soru sorabilir ve 2 $hget(Oyun,SoruCevap) 1cevap verebilir. | return }
    if $hget(Oyun,Soruldu) == 1 {  msg $chan Sadece bir defa soru sorabilirsiniz. | return }
    if !$2 { msg $chan Sorunuzu tam olarak belirtiniz. | return }
  else { $+(timer,soru) 1 180 sıfırla $chan | msg $chan 4Soru - $hget(Oyun,SoruNick) : $2- | hadd -m Oyun Soruldu 1 } }
  if $1 == !c {
    if $hget(Oyun,Durum) != 1 {  msg $chan !s ve !c komutları şişe çevrilmeden kullanılamaz. | return }
    if (!$istok($hget(Oyun,SoruCevap),$nick,32))  { msg $chan Sadece 4 $hget(Oyun,SoruNick) 1soru sorabilir ve 2 $hget(Oyun,SoruCevap) 1cevap verebilir. | return }
    if $hget(Oyun,Soruldu) != 1 {  msg $chan Sorunuz henüz sorulmadı, lütfen bekleyiniz. | return }
    if !$2 { msg $chan Cevapınızı tam olarak belirtiniz. | return }
    else {
      $+(timer,soru) off
      msg $chan 2Cevap - $hget(Oyun,SoruCevap) : $2-
      msg $chan Soru ve cevap işlemi tamamlandı, şişeyi tekrar çevirebilirsiniz.
      hdel -ms Oyun SoruNick 
      hdel -ms Oyun SoruCevap  
      hadd -ms Oyun Durum 0 
      hadd -ms Oyun Soruldu 0 
    }
  }
  if $1 == !oyuncular {
    if !%oyuncular. [ $+ [ $chan ] ] {
      inc -u120 %oyuncular. [ $+ [ $chan ] ]
      if ($token($hget(oyun,başlayanlar),0,32) == $null) { msg $chan Oyuna dahil olan hiç kimse yoktur. | return }
      msg $chan 5 $replace($hget(oyun,başlayanlar),$chr(32),$+($chr(32),-,$chr(32))) şuan oyundadır.
    }
    else {
      msg $chan 5 !oyuncular komutunu sürekli kullanamazsınız. (2 dakikada bir defa oyuncular listelenir.)
    }
  }
  if $1 == !dis {
    if $nick !isop $chan && $nick !ishop $chan { msg $chan !dis ve !reset komutunu sadece kanal yetkilileri kullanabilir. | return }
    if !$2 { msg $chan Lütfen diskalifiye edeceğiniz nicki belirtiniz. Kullanımı : !dis nick | return }
    if ($token($hget(oyun,başlayanlar),0,32) == $null) { msg $chan Şuan oyun listesinde kimse bulunmamaktadir. | return }
    if (!$istok($hget(Oyun,Başlayanlar),$2,32)) { msg $chan $2 Oyuncular listesinde bulunmamaktadir. | return }
    var %. $remtok($hget(oyun,Başlayanlar),$2,32)
    hdel -ms Oyun Başlayanlar
    hadd -ms Oyun Başlayanlar %.
    msg $chan  2 $2 1nicki, 4 $nick  1tarafından oyundan diskalifiye edildi ve 10 dakika boyunca !varim komutuyla oyuna dahil olamayacak.
    inc -u600 %disc. [ $+ [ $2 ] ]
    if ($istok($hget(Oyun,SoruNick),$2,32))  { 
      msg $chan Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
      hdel -ms Oyun SoruNick 
      hdel -ms Oyun SoruCevap  
      hadd -ms Oyun Durum 0 
      hadd -ms Oyun Soruldu 0
      $+(timer,soru) off
      return 
    }
    if ($istok($hget(Oyun,SoruCevap),$2,32))  { 
      msg $chan Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
      hdel -ms Oyun SoruNick 
      hdel -ms Oyun SoruCevap  
      hadd -ms Oyun Durum 0 
      hadd -ms Oyun Soruldu 0
      $+(timer,soru) off
      return 
    }
  }
  if $1 == !reset {
    if $nick !isop $chan && $nick !ishop $chan { msg $chan !dis ve !reset komutunu sadece kanal yetkilileri kullanabilir. | return }
    else {
      msg $chan Oyun sıfırlanmıştır. !varım komutu ile oyuna tekrar dahil olup, şişeyi çevirebilirsiniz.
      hdel -ms Oyun Başlayanlar
      hdel -ms Oyun SoruNick 
      hdel -ms Oyun SoruCevap  
      hadd -ms Oyun Durum 0 
      hadd -ms Oyun Soruldu 0
      $+(timer,soru) off
      unset %disc.*
      unset %oyuncular*
    }
  }
}

on *:quit: { 
  if ($istok($hget(Oyun,Başlayanlar),$nick,32))  {
    var %. $remtok($hget(oyun,Başlayanlar),$nick,32)
    hdel -ms Oyun Başlayanlar
    hadd -ms Oyun Başlayanlar %.
    msg #Sisecevir 2 $nick oyundan ayrıldı.
    if ($istok($hget(Oyun,SoruNick),$nick,32))  { 
      msg #Sisecevir Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
      hdel -ms Oyun SoruNick 
      hdel -ms Oyun SoruCevap  
      hadd -ms Oyun Durum 0 
      hadd -ms Oyun Soruldu 0
      $+(timer,soru) off
      return 
    }
    if ($istok($hget(Oyun,SoruCevap),$nick,32))  { 
      msg  #Sisecevir Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
      hdel -ms Oyun SoruNick 
      hdel -ms Oyun SoruCevap  
      hadd -ms Oyun Durum 0 
      hadd -ms Oyun Soruldu 0
      $+(timer,soru) off
      return 
    }
  }
}
on *:part:#Sisecevir: { 
  if $nick == $me {
    hdel -ms Oyun Başlayanlar
    hdel -ms Oyun SoruNick 
    hdel -ms Oyun SoruCevap  
    hadd -ms Oyun Durum 0 
    hadd -ms Oyun Soruldu 0
    $+(timer,soru) off
    unset %disc.*
    unset %oyuncular*
  }
  if ($istok($hget(Oyun,Başlayanlar),$nick,32))  {
    var %. $remtok($hget(oyun,Başlayanlar),$nick,32)
    hdel -ms Oyun Başlayanlar
    hadd -ms Oyun Başlayanlar %.
    msg #Sisecevir 2 $nick oyundan ayrıldı.
    if ($istok($hget(Oyun,SoruNick),$nick,32))  { 
      msg #Sisecevir Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
      hdel -ms Oyun SoruNick 
      hdel -ms Oyun SoruCevap  
      hadd -ms Oyun Durum 0 
      hadd -ms Oyun Soruldu 0
      $+(timer,soru) off
      return 
    }
    if ($istok($hget(Oyun,SoruCevap),$nick,32))  { 
      msg  #Sisecevir Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
      hdel -ms Oyun SoruNick 
      hdel -ms Oyun SoruCevap  
      hadd -ms Oyun Durum 0 
      hadd -ms Oyun Soruldu 0
      $+(timer,soru) off
      return 
    }    
  }
}
on *:nick: {
  if ($istok($hget(Oyun,Başlayanlar),$nick,32))  {
    var %. $remtok($hget(oyun,Başlayanlar),$nick,32)
    hdel -ms Oyun Başlayanlar
    hadd -ms Oyun Başlayanlar %.
    hadd -ms Oyun Başlayanlar $hget(Oyun,Başlayanlar) $newnick
    msg #Sisecevir 2 $nick oyundan ayrıldı.
    msg #Sisecevir 4 $newnick oyuna dahil oldu.
    if ($istok($hget(Oyun,SoruNick),$nick,32))  { 
      hadd -ms Oyun SoruNick  $newnick
    }
    if ($istok($hget(Oyun,SoruCevap),$nick,32))  { 
      hadd -ms Oyun SoruCevap  $newnick
    }
  }
}
on *:kick:#: {
  if $knick == $me {
    hdel -ms Oyun Başlayanlar
    hdel -ms Oyun SoruNick 
    hdel -ms Oyun SoruCevap  
    hadd -ms Oyun Durum 0 
    hadd -ms Oyun Soruldu 0
    $+(timer,soru) off
    unset %disc.*
    unset %oyuncular*
  }
  var %. $remtok($hget(oyun,Başlayanlar),$knick,32)
  hdel -ms Oyun Başlayanlar
  hadd -ms Oyun Başlayanlar %.
  msg #Sisecevir 2 $knick oyundan atıldı.
  if ($istok($hget(Oyun,SoruNick),$knick,32))  { 
    msg #Sisecevir Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
    hdel -ms Oyun SoruNick 
    hdel -ms Oyun SoruCevap  
    hadd -ms Oyun Durum 0 
    hadd -ms Oyun Soruldu 0
    $+(timer,soru) off
    return 
  }
  if ($istok($hget(Oyun,SoruCevap),$knick,32))  { 
    msg #Sisecevir Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
    hdel -ms Oyun SoruNick 
    hdel -ms Oyun SoruCevap  
    hadd -ms Oyun Durum 0 
    hadd -ms Oyun Soruldu 0
    $+(timer,soru) off
    return 
  }
}
alias sıfırla {
  hdel -ms Oyun SoruNick 
  hdel -ms Oyun SoruCevap  
  hadd -ms Oyun Durum 0 
  hadd -ms Oyun Soruldu 0 
  msg $1 Süre zaman aşımına uğradı, 3 dakika içersinde soru cevap tamamlanmadığından oyun sıfırlanmıştır. Şişeyi tekrar çevirebilirsiniz.
}
alias hs {
  if (!$1) {
    var %1 = 1
    while ($hget(%1)) { echo -: TABLO: $v1 | inc %1 }
  }
  var %1 = 1
  while ($hget($1,%1).item) {
    echo -a Tablo: $hget($1) - ITEM: $v1 - DATA: $hget($1,%1).data
    inc %1
  }
}