Eğlence Kodları
Eğlence Kodları on $:text:/^[!]ak[ıi]lte[sş]t[ıi]$/Si:#: { if !$hget(akıltesti,$nick)...
mIRC Scripting | 6 Ağustos 2023, Pazar

Eğlence Kodları

Eğlence Kodları

Eğlence Kodları

on $*:text:/^[!.]ak[ıi]lte[sş]t[ıi]$/Si:#: {
if !$hget(akıltesti,$nick) {
.hinc -mu120 akıltesti $nick $ctime
msg $chan 14[4AKIL TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2) ) 2Nick’inin 4AKIL TESTİ 2Sonuçları Gösteriliyor.. 4Bekleyiniz.
var %akıllı $r(1,100), %akılsız $r(1,$calc(100 – %akıllı)), %salak $r(1,$calc(100 – (%akıllı + %akılsız))), %grzekalı $calc(100 – $calc(%akıllı + %akılsız + %salak)), $&
%akltop $sorttok(%akıllı %akılsız %salak %grzekalı,32,nr), %aklsnç $gettok($sorttok(%akltop,32,nr),1,32)
$iif(%aklsnç == %akıllı,akilli $r(1,9),$iif(%aklsnç == %akılsız,aklsız $r(1,9)) $iif(%aklsnç == %salak,slks $r(1,9)) $iif(%aklsnç == %grzekalı,grzklı $r(1,9)))
msg $chan 14[4AKIL TESTİ414] 4 $chr(42)
msg $chan 14[4AKIL TESTİ414] $chr(32) 03,03 00 % $+ %akıllı 03 $str($chr(42),%akıllı) $+(0,$chr(42)) 10AKILLI4!
msg $chan 14[4AKIL TESTİ414] $chr(32) 07,07 00 % $+ %akılsız 07 $str($chr(42),%akılsız) $+(0,$chr(42)) 10AKILSIZ1!
msg $chan 14[4AKIL TESTİ414] $chr(32) 02,02 00 % $+ %salak 02 $str($chr(42),%salak) $+(0,$chr(42)) 10SALAK1!
msg $chan 14[4AKIL TESTİ414] $chr(32) 14,14 00 % $+ %grzekalı 14 $str($chr(42),%grzekalı) $+(0,$chr(42)) 10GERİ ZEKALI1!
msg $chan 14[4AKIL TESTİ414] 4 $chr(42)
msg $chan 14[4AKIL TESTİ414] 10 $nick 4Sonuçlarınız: %akılcvp
unset %akılcvp
}
else {
var %testsay $calc(120 – $calc($ctime – $hget(akıltesti,$nick)))
notice $nick 14[4AKIL TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2) ) 2Akıl Testini4 2 2Dakikada Bir Kez Kullanabilirsiniz4..
notice $nick 14[4AKIL TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2) ) 4(1 %testsay 4) 7Saniye 2Sonra Tekrardan 4!akıltesti 2Komutunu Yazarak Akıl Testinizi Yapabilirsiniz4..
}
}
alias akilli {
if $1 == 1 { set %akılcvp 2Tebrikler. Çok 3AKILLISINIZ }
if $1 == 2 { set %akılcvp 2Akıllı adam aklını kullanır. Daha akıllı adam başkalarının da aklını kullanır. }
if $1 == 3 { set %akılcvp 2Akıllı olmak da bir şey değil, mühim olan o aklı yerinde kullanmaktır. }
if $1 == 4 { set %akılcvp 2Akıllı kişilerin en büyük talihsizliği, salakların abuk subukluklarıyla başa çıkmak zorunda olmalarıdır. }
if $1 == 5 { set %akılcvp 2Sunucudaki En 3AKILLI 2Kişisiniz. }
if $1 == 6 { set %akılcvp 2Maşallah 3AKIL 2Küpü 3AKIL! }
if $1 == 7 { set %akılcvp 2Yeteneğinizden Belli 3AKILLI 2Olduğunuz. }
if $1 == 8 { set %akılcvp 2Tebrikler 10Üstün 3AKILLI 2Çıktınız. }
if $1 == 9 { set %akılcvp 2Akıllığınız 3AKILLI 2Olmanızdandır. 4AKİL İNSAN 2Seçildiniz. }
}
alias aklsız {
if $1 == 1 { set %akılcvp 2Akıllı insanın ağzı kalbinde, 4AKILSIZ 2insanın kalbi ağzındadır. }
if $1 == 2 { set %akılcvp 2Zaten Belliydi 4AKILSIZ 2Olduğun }
if $1 == 3 { set %akılcvp 2Gurur Duymalısınız 4AKILSIZ 2Çıktınız. }
if $1 == 4 { set %akılcvp 2Kafanızın Boş Olmasından Belliydi 4AKILSIZ 2Olmanız }
if $1 == 5 { set %akılcvp 2Akıl noksanlığı iki türlü olur; biri delilikten, öbürü cahillikten. }
if $1 == 6 { set %akılcvp 2Her 4akılsıza 2hayran olacak, başka bir 4akılsız 2bulunur. }
if $1 == 7 { set %akılcvp 4Akılsız 2başın cezasını halklar çeker. }
if $1 == 8 { set %akılcvp 4Akılsız, 2aklı içinde kalandır. }
if $1 == 9 { set %akılcvp 4Akılsızlar 2ev yapar, 3akıllılar 2satın alır. }
}
alias slks {
if $1 == 1 { set %akılcvp 2Zaten AKILLI Çıksaydın Şaşırırdım 14SALAK }
if $1 == 2 { set %akılcvp 2Zaten 14SALAK 2Olmana Biz Alıştık Sende Alış. }
if $1 == 3 { set %akılcvp 14SALAK 2Olabilirsin Üzülme Oda Bir Başarı. }
if $1 == 4 { set %akılcvp 2Herkez 14SALAK 2Olamaz Sen Hariç. 14SALAK }
if $1 == 5 { set %akılcvp 2Kanaldakiler Bune 14SALAK 2Haberiniz Olsun }
if $1 == 6 { set %akılcvp 2ikinci seferde kazamazsan hile yap, üçüncü seferde kazanamazsan vazgeç, 14Salakligin 2alemi yok. }
if $1 == 7 { set %akılcvp 2Dokuz parmaginda dokuz marifet var.Bir parmagiyla hep burnunu karistiriyor 14SALAK }
if $1 == 8 { set %akılcvp 2Ey yükselen yeni nesil… in ulan asagi 14SALAK }
if $1 == 9 { set %akılcvp 2Son gülen hep sen olacaksın. Çünkü herşeyi geç anlıyorsun. 14SALAK }
}
alias grzklı {
if $1 == 1 { set %akılcvp 2Muhteşem 7GERİ ZEKALI 2Çıktınız. }
if $1 == 2 { set %akılcvp 7GERİ ZEKALI 2Olsanda Süper 7GERİ ZEKALI 2Ünvanı Senindir. }
if $1 == 3 { set %akılcvp 7GERİ ZEKALI 2Çıktınız. Ne Düşünüyorsunuz Acaba Bu Konuda. }
if $1 == 4 { set %akılcvp 2Üzülme 7GERİ ZEKALI 2Olmak Herkese Nasip Olmaz. }
if $1 == 5 { set %akılcvp 2Küçük hesaplarla rezil olursun, zengin değil. 7GERİ ZEKALI }
if $1 == 6 { set %akılcvp 2Aşırı 7GERİ ZEKALI 2Çıktınız. }
if $1 == 7 { set %akılcvp 2Sorunlu 7GERİ ZEKALI 2Çıktınız. }
if $1 == 8 { set %akılcvp 2Yufka Yürekli Ama 7GERİ ZEKALI 2Çıktınız. }
if $1 == 9 { set %akılcvp 2Olmayan Beyinde Akıl Yoksa 7GERİ ZEKALI 2Derler. }
}

on $*:text:/[!.]a[sSşŞ]kte[sSşS]t[iıİI]\s+\S+$/SAi:#: {
if $hget($2) == $me { notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 2Beni Yazamazsın 4:12-1) | halt }
if !$2 { notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 2Nick Belirtmediniz, Lütfen Bir Nick Belirtiniz.. 4Komut: 7!aşktesti Nick | halt }
if ($3) { notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 2Lütfen Komutu Doğru Yazınız. 4Komut: 7!aşktesti Nick | halt }
if $2 == $nick { notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 2Kendine Aşk Testi Yapamazsın Delimisin. | halt }
if !$hget(aşktesti,$nick) {
.hinc -msu30 aşktesti $nick $ctime
msg $chan 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$2,$chr(2)) 2Nick’inin 4AŞK TESTİ 2Sonuçları Gösteriliyor.. 4Bekleyiniz.
var %toplam $r(90,100)
var %seviyor $calc(%toplam – $r(1,79))
var %sevmiyor $calc(%toplam – $r(1,78))
var %kararsız $calc(%toplam – $r(1,77))
var %umursamıyor $calc(%toplam – $r(1,76))
var %testet $sorttok($gettok(%seviyor,1,45) $gettok(%sevmiyor,1,45) $gettok(%kararsız,1,45) $gettok(%umursamıyor,1,45),32,nr)
var %sonuç $sorttok(%testet,32,nr)
msg $chan 14[4AŞK TESTİ414] 4 $chr(42)
msg $chan 14[4AŞK TESTİ414] $chr(32) 4,4 $str($chr(42),6) 0 % $+ $gettok(%seviyor,1,45) 8Seviyor1! $+(12,$chr(42))
msg $chan 14[4AŞK TESTİ414] $chr(32) 8,8 $str($chr(42),9) 1 % $+ $gettok(%sevmiyor,1,45) 4Sevmiyor1! $+(12,$chr(42))
msg $chan 14[4AŞK TESTİ414] $chr(32) 6,6 $str($chr(42),12) 0 % $+ $gettok(%kararsız,1,45) 11Kararsız1! $+(12,$chr(42))
msg $chan 14[4AŞK TESTİ414] $chr(32) 7,7 $str($chr(42),15) 0 % $+ $gettok(%umursamıyor,1,45) 2Umursamıyor1! $+(12,$chr(42))
msg $chan 14[4AŞK TESTİ414] 4 $chr(42)
msg $chan 14[4AŞK TESTİ414] 10 $2 4Sonuç12 $2 $replace($gettok(%testet,1,32) / $gettok(%sonuç,1,32),$gettok(%seviyor,1,32) / $gettok(%sonuç,1,32),2Sizi Çok 3SEVİYOR,$gettok(%sevmiyor,1,32) / $gettok(%sonuç,1,32),2Sizi Hiç 4SEVMİYOR,$gettok(%kararsız,1,32) / $gettok(%sonuç,1,32),2Size Karşı Hep 14KARARSIZ,$gettok(%umursamıyor,1,32) / $gettok(%sonuç,1,32),2Sizi Hiç 7UMURSAMIYOR)
}
else {
var %sevdi $calc(120 – $calc($ctime – $hget(aşktesti,%nick)))
notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 2Aşk Testini4 2 2Dakikada Bir Kez Kullanabilirsiniz4..
notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 4(1 %sevdi 4) 7Saniye 2Sonra Tekrardan 4!aşktesti Nick 2Komutunu Yazarak Aşk Testinizi Yapabilirsiniz4..
}
}

Yorumlar

Sohbet odaları