[Mecnun]

Merhabalar arkadaşlar tamamiyle bana ait olan bir kodu paylaşmak istedim. Birazcık sallamasyon ama idare edersiniz artık. Bu kod için birazcık acemi kaldım @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ve önerileri sağolsunlar beni yine yanıltmadılar gerçekten teşekkür ederim kendisine. Bende emeği fazladır, bunu yapmamda yol gösterenim kendisidir. Fazla söze gerek yok, kodun işlevi;

[04:43:38] <Luke> !sor Mecnun
[04:43:39] <Channel> Mecnun Luke tarafından sana soru soruldu.
[04:43:39] <Channel> Yapmanız gereken tek şey !tek ya da !cift yazmak. Tabii ödlekseniz !pas yazma imkanınız var.
[04:43:43] <Mecnun> !tek
[04:43:44] <Channel> Cevap yanlış.
[04:43:44] <Channel> Luke hadi yine iyisin şimdilik şanslısın.


Biraz yüzeysel paylaşsamda üzerinde oynama yaparak kullanabilirsiniz. Hayırlı IFLer.

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