IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 23 Haziran 2019, 20:31   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
[!.]saklambaç oyunu


Reklam

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.


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

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.


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

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
oyunu, saklambaç, saklambaç oyunu
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık