Eğlence Kodları

mIRC Scripting 6 Ağustos 2023, Pazar 0 435

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..
}
}

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

KOMUTLAR

Sohbet ve IRCd Komutları hakkında genel komutlara geniş kapsamlı olarak buradan ulaşabilirsiniz.

YARDIM

Sohbet ve IRCd Komutları hakkında genel komutlara geniş kapsamlı olarak buradan ulaşabilirsiniz.

MIRC İNDİR

Sohbet ve IRCd Komutları hakkında genel komutlara geniş kapsamlı olarak buradan ulaşabilirsiniz.