Kod: Kodu kopyalamak için üzerine çift tıklayın!
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. }
}