[!.]saklambaç oyunu
Mantık: Kanaldaki nicklerden rastgele bir nick secer ve 5 denemede onu bulmanızı ister.
Kullanımı: !sakla[mn]ba[çc]
Deneme sayınısı arttırmak için kırmızı, ipucu vereceği deneme numarasını değişmek veya arttırmak için mavi yerleri düzenleyiniz.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
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) } } } } |
önceki yazımızda « mIRC Fihrist makelemiz var.
176
yorum yok 
Etiketler[!.]saklambaç oyunu İle Benzer Sohbet Yazıları
[!.]saklambaç oyunu yazına yapılan yorumlar