IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

Kod sahibi: Mylife

Tarih: 12 Haziran 2019, 10:28

Kod:

on $*:text:/^[!.]ak[iı]ltest[iı]/Si:#Kanal: { if (!$2) { msg # Hatalı kullanım lütfen nick belirtin. } | elseif $regex($2,/\W+|\s+|\d+|/Si) && ($2 !ison #) { msg # Hatalı kullanım lütfen gecerli veya kanalda bulunan bir nick belirtin. } | else { msg # $qt($2) için akıl testi başlıyor... | msg # $qt($2) ne kadar akıllı bakalım! | var %:Mylife = $rand(5,100) | msg #  İşte $qt($2) için sonuçlar: | msg # $str($chr(45), 20),$chr(32) % $+ %:Mylife AKILLI! $chr(32), $+ $str($chr(45), 20) | msg # $str($chr(45), 20),$chr(32) % $+ $calc(100-%:Mylife) AKILSIZ! $chr(32), $+ $str($chr(45), 20) | var %:Kod = $calc(100-%:Mylife) | $iif(%:Kod >= 50,msg # $qt($2) - $read(akılsız.txt,1),msg # $qt($2) - $read(akıllı.txt,1)) } }

Aktif olmasını istediğiniz kanalı event icerisinde belirtmelisiniz.
Belirtilen nick için akıllı ve akılsız olarak 2 sonuc verir.
Belirtilen nick için cıkan sonuca göre akıllı ve akılsız.txt icerisindeki belirtilen metin i kanala yansıtır. ( mirc in bulunduğu klasör ün icine akıllı ve akılsız adında birer tane text dosyası acmalısınız.)
Akıllı ve Akılsız text lerinin icine deneme amaclı 1 satır metin yazmıştım kod da 1 satır için hazırlanmıştır arttırmak istiyenler eklemelerini yapmalıdır.

Örnek görünüm;

[10:02:18] <Mircsystem-> .akiltesti
[10:02:18] <&Mylife> Hatalı kullanım lütfen nick belirtin.
[10:02:25] <Mircsystem-> !akiltesti
[10:02:25] <&Mylife> Hatalı kullanım lütfen nick belirtin.
[10:02:35] <Mircsystem-> .akiltesti 29389234
[10:02:35] <&Mylife> Hatalı kullanım lütfen gecerli veya kanalda bulunan bir nick belirtin.
[10:02:51] <Mircsystem-> .akiltesti M y l i fe
[10:02:51] <&Mylife> Hatalı kullanım lütfen gecerli veya kanalda bulunan bir nick belirtin.
[10:03:06] <Mircsystem-> .akiltesti deneme
[10:03:06] <&Mylife> Hatalı kullanım lütfen gecerli veya kanalda bulunan bir nick belirtin.
[10:04:35] <Mircsystem-> .akiltesti The
[10:04:35] <&Mylife> "The" için akıl testi başlıyor...
[10:04:35] <&Mylife> "The" ne kadar akıllı bakalım!
[10:04:35] <&Mylife> İşte "YouMyCure" için sonuçlar:
[10:04:35] <&Mylife> -------------------- %75 AKILLI! --------------------
[10:04:35] <&Mylife> -------------------- %25 AKILSIZ! --------------------
[10:04:35] <&Mylife> "The" - Sen secilmiş kişisin onlara akıl sanatından bahset.
[10:04:49] <Mircsystem-> .akiltesti CoLoNeL
[10:04:49] <&Mylife> "CoLoNeL" için akıl testi başlıyor...
[10:04:49] <&Mylife> "CoLoNeL" ne kadar akıllı bakalım!
[10:04:49] <&Mylife> İşte "CoLoNeL" için sonuçlar:
[10:04:49] <&Mylife> -------------------- %17 AKILLI! --------------------
[10:04:49] <&Mylife> -------------------- %83 AKILSIZ! --------------------
[10:04:49] <&Mylife> "CoLoNeL" - Sende birgün aklını kullanmayı öğrenebilirsin üzülme.

Kullanım; .akıltesti nick

Not: Sonuçlar doğrultusun da gerçekci bir sonuç çıkmaz random bir değer çıkar ( Panik yapmayın ) :gulmektencatlayan:

iyi forumlar.