Mirc Scripting Akıl Testi. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Mylife · 12 Haziran 2019, 10:28

Geveze #Mirchelp kanalı kullanıcı isteği üzerine hazırlanmıştır. ( Forum icerisinde ulaşamayanlar gevezeORG #mirchelp kanalından ulaşabilirler. )

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.
Kod ile alakalı eklemek istediğiniz extra birşeyler varsa konu altından veya geveze #mirchelp kanalından ulaşabilirsiniz.

Ö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

iyi forumlar.

The · 13 Haziran 2019, 23:06

Emeğine sağlık kardeşim .

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
mIRC Scripting Nedir?	L4roXyL	mIRC Scripting Dersleri	2	22 Eylül 2011 20:34
IF Mirc Scripting Projeleri..	DeLiKaNLi	mIRC Scripting Sorunları	1	29 Mayıs 2011 16:19
mIRC Scripting Anadolu Lisesi	Skills	Komik Loglar	4	03 Ekim 2009 18:51
mIRC Scripting	By_GuRbey	mIRC Scripting Sorunları	3	01 Ağustos 2008 18:57
mIRC Scripting Öğrenmek İstoyorum...	DoStNaMe	mIRC Scripting Sorunları	19	27 Şubat 2006 13:50

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.