mIRC Saklambaç Oyunu

on *:text:*:#: {
  if $regex($1,/^[.!]sakla[mn]ba[çÇc]$/Si) {
    if (%snick) { msg # Şuan $iif($nick == $token($v1,2,172),sizin aktif bir oyununuz var! Cevabını2 $qt(!bul nick) komutu ile verebilirsin,aktif bir oyun bulunuyor oyuncu $qt($token(%snick,2,172))) | return }
    set %snick $+($nick(#,$r(1,$nick(#,0))),¬,$nick)
    msg # 2 $qt($nick) 1Kanaldaki kullanıcılardan bir tanesini seçtim (ben ve sen dahil), umarım bulabilirsin 5 hakkın var, bulamazsan kanaldan atılacaksın :)
    msg # 1 Cevabını2 $qt(!bul nick) 1komutu ile verebilirsin.
  }
  elseif $regex($1,/^[.!]bul$/Si) {
    if (!%snick) { msg # $qt($nick) Şuan aktif bir oyun yok 2 $qt(!saklambac) 1yazarak oyuna başlayabilirsiniz. }
    elseif ($token(%snick,2,172) != $nick) { msg # Şuan oyunu $qt($token(%snick,2,172)) oynuyor, oyun bittikten sonra sizde2 $qt(!saklambac) 1yazarak oyuna başlayabilirsiniz. }   
    elseif ($3-) { msg # $qt($nick) Lütfen tek bir nick belirtin. }
    elseif ($2 !ison #) { msg # Belirtilen nick kanalda bulunmuyor. }
    else {
      $iif(!%bulsayi,set %bulsayi 1,inc %bulsayi)
      if ($token(%snick,1,172) == $2) {
        msg # 7,7*7,7*7,7*7,7** *7,7*7,7*7,7*7,7** 7,7*7,7*7,7*7,7*7,7*** 7,7*7,7*7,7*7,7*7,7*7,7* 7,7*7,7***7,7*7,7* ** *7,7*7,7**
        msg # 7,7*7,7**7,7*7,7* 7,7*7,7***7,7*7,7* 7,7*7,7***7,7*7,7** **7,7*7,7*** 7,7*7,7***7,7*7,7* ** *7,7*7,7**
        msg # 7,7*7,7*7,7*7,7** 7,7*7,7*7,7*7,7*7,7*7,7* 7,7*7,7*7,7*7,7*7,7*** **7,7*7,7*** *7,7*7,7*7,7*7,7*7,7* ** *7,7*7,7**
        msg # 7,7*7,7**** 7,7*7,7***7,7*7,7* 7,7*7,7***7,7*7,7** **7,7*7,7*** ****7,7*7,7* ** ****
        msg # 7,7*7,7**** 7,7*7,7***7,7*7,7* 7,7*7,7****7,7*7,7* **7,7*7,7*** 7,7*7,7*7,7*7,7*7,7** ** *7,7*7,7**
        msg # 4 %bulsayi 'ncı deneme ve tuttuğum kişiyi buldun! seni tebrik ediyorum $nick ! :) | unset %bulsayi | unset %snick
      }
      else {
        if %bulsayi == 5 {
          msg # Tüm hakların bitti ve sectiğim nicki bulamadın $qt($nick)
          msg # Sectiğim kişi $qt($token(%snick,1,172)) idi :) | unset %bulsayi | unset %snick | return
        }
        msg # 4 %bulsayi 'ncı deneme ve tuttuğum kişiyi bulamadın biradaha düşünmelisin ;d
        if $regex(%bulsayi,/^(3|6|9)$/i) { msg # Ipucu: nickin son harfi $right($token(%snick,1,172),1) gibi gözüküyor. }
        msg # Kalan Hakkın $calc(5 - %bulsayi)
      }
    }
  }
}