on *:text:*:#Sisecevir: {
  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
  }
}
on *:start:{
  emailaddr G-Shell@
  fullname ÞiþeCevirmece Oyun System
  nick SiseCevir
  anick SiseCevir1
  server irc.FixSohbet.Net:6667
}
on *:connect:{
  if $server == irc.FixSohbet.Net {
    hfree -sw *
    oper SeckiN 123123123
    nickserv ghost SiseCevir 1234567
    nickserv release SiseCevirmece System
    join 0,0
    nick SiseCevir
    nickserv identify 1234567
    .timer 1 2 join #Sisecevir
  }
}