[immortaL]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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. }
  }