| Bozkurt |
28.Ocak.2021 06:32 |
Mirc Saklambaç oyunu
Kod:
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)
}
}
}
}
|
