on *:text:*:#: {
  if $1 == !sor {
    set %sormk $nick
    set %srmk $2
    if !$2 { msg $chan $nick 2Hatalı Kullanım; Nick Belirtmediniz... "!sor Mecnun" | return }
    if $2 == $me { msg $chan 2Bana soru soramazsın $+ 4 $nick | return }
    if $2 == $nick { msg $chan 2Kendine neden soru sormaya çalışıyorsun deli misin $+ 4 $nick | return }
    if $2 ison $chan {
      msg $chan $2 $nick 2tarafından sana soru soruldu.
      msg $chan 2Yapmanız gereken tek şey 4!tek 2ya da 4!cift 2yazmak. Tabii ödlekseniz 4!pas 2yazma imkanınız var.
    }
    else { msg $chan $nick Hatalı Kullanım; $2 Nicki Şuan Kanalda Bulunmuyor.... }
  }
  if $1 == !tek {
    if $nick == %srmk {
      var %hea = $iif(2 // $rand(1,6),cift,degil), %heaa = cift
      if (%hea == %heaa) { goto skt }
      else { goto tbr }
      :skt
      msg $chan 2Cevap yanlış.
      msg $chan %sormk 2hadi yine iyisin şimdilik şanslısın.
      sapart $chan %srmk
      mode $chan +v %sormk
      unset %sira %sormk %srmk %x
      return
      :tbr
      msg $chan  2Doğru bildin. 4 %srmk
      mode $chan +v %srmk
      sapart $chan %1
      unset %sira %sormk %srmk %x
    }
    else { msg $chan $nick 4Size sorulan bir soru yok. }
  }
  if $1 == !cift {
    if $nick == %srmk {
      var %hea = $iif(2 // $rand(1,6),cift,degil), var %heaa = cift
      if (%hea == %heaa) { goto tbr }
      else { goto skt }
      :tbr
      msg $chan 2Doğru sayın 4 $v2
      msg $chan 2hadi yine iyisin şimdilik şanslısın.
      sapart $chan %sormk
      mode $chan +v %srmk
      unset %sira %sormk %srmk %x
      return
      :skt
      msg $chan  2Yanlış 4 %srmk
      sapart $chan %srmk
      unset %sira %sormk %srmk %x
    }
    else { msg $chan $nick 4Size sorulan bir soru yok. }
  }

on *:text:*:#: {
  if $regex($1,/^([.!]sor)/Si) {
    if %sormk || %srmk { msg $chan Şuan %sormk nicki %srmk nicki ile oyunda.... | return }
    if !$2 { msg $chan $nick 2Hatalı Kullanım; Nick Belirtmediniz... "!sor Mecnun" | return }
    if $2 == $me { msg $chan 2Bana soru soramazsın $+ 4 $nick | return }
    if $2 == Mecnun { msg $chan 4 $2 2reyiz soru kabul etmiyor. | return }
    if $2 == $nick { msg $chan 2Kendine neden soru sormaya çalışıyorsun deli misin $+ 4 $nick | return }
    if $2 ison $chan {
      set %sormk $nick
      set %srmk $2
      msg $chan $2 - $+ 4 $nick 2tarafından sana soru soruldu.
      msg $chan 2Yapmanız gereken tek şey 4!tek 2ya da 4!cift 2yazmak. Tabii ödlekseniz 4!pas(Aktiftir.) 2yazma imkanınız var.
    }
    else { msg $chan 4 $+ $nick 2Hatalı Kullanım; $+ 4 $2 2Nicki Şuan Kanalda Bulunmuyor.... }
  }
  if $regex($1,/^([.!]tek)/Si) {
    if $nick == %srmk {
      var %hea = $iif(2 // $rand(1,6),cift,degil), %heaa = cift, %heaaa = tek
      if (%hea == %heaa) { goto skt }
      else { goto tbr }
      :skt
      msg $chan 2Tahminin yanlış sayı $v2 ti $+ 4 %srmk 
      msg $chan %sormk 2Hadi yine iyisin şimdilik şanslısın.
      sapart %srmk $chan | msg %srmk 2Yanlış cevap verdin biliyorsun dimi4? | sajoin %srmk $chan
      mode $chan +v %sormk
      unset %sira %sormk %srmk %x
      return
      :tbr
      msg $chan  2Tebrikler $+ 4 %srmk $+ . 2Cevabın doğru. 
      sapart %sormk $chan | msg %sormk 2Doğru cevap verildi biliyorsun dimi4? | sajoin %sormk $chan
      mode $chan +v %srmk
      unset %sira %sormk %srmk %x
    }
    else { msg $chan $nick 4Size sorulan bir soru yok. }
  }
  if $regex($1,/^([.!][çc][iIıİ]ft)/Si) {
    if $nick == %srmk {
      var %hea = $iif(2 // $rand(1,6),cift,degil), var %heaa = cift, %heaaa = tek
      if (%hea == %heaa) { goto tbr }
      else { goto skt }
      :tbr
      msg $chan 2Tahminin doğ sayın $v2 ti $+ 4 %srmk 
      msg $chan 2Hadi yine iyisin şimdilik şanslısın.
      sapart %sormk $chan | msg %sormk 2Yanlış cevap verdiğini biliyorsun dimi4? | sajoin %sormk $chan | mode $chan +v %srmk
      unset %sira %sormk %srmk %x
      return
      :skt
      msg $chan 2Tahminin yanlış sayı $v2 ti $+ 4 %srmk 
      msg $chan %sormk 2Hadi yine iyisin şimdilik şanslısın.
      sapart %srmk $chan | msg %srmk 2Cevap doğru değildi biliyorsun dimi4? | sajoin %srmk $chan
      unset %sira %sormk %srmk %x
    }
    else { msg $chan $nick 4Size sorulan bir soru yok. }
  }
  if $regex($1,/^([.!]pas)/Si) {
    if $nick == %srmk {
      unset %sira %sormk %srmk %x
      msg $chan $nick 2tam bir ödleksin. cezanı çek şimdi. | msg $nick 2Tarih korkakları yazmaz. | sapart $nick $chan | sajoin $nick $chan
      msg $chan 2Oyun sıfırlanmıştır. Bot ile alakalı 4sorun, istek, öneri 2gibi dileklerinizi 4Mecnun 2nickine iletebilirsiniz.
    }
    else { msg $chan $nick 4Daha soru bile sormamışlar korkak tavuk seni. }
  }