Kullanım;
- .akıltesti nick
- Mirc ana klasörünün icine Akıllı ve akılsız adında birer adet text dosyaları acılması gerekiyor.Dosyaların icerisindeki mesajları kanala yansıtır.
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)) } }