IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)

- - Eğlence (https://www.ircforumlari.net/mirc-parca-kodlar/838785-eglence.html)

Merhabalar.

.kişiliktesti .aşktesti Nick
.uyum Nick
.akıltesti
.dna Nick
.bul
.tanıs
.ismarla Nick
.gbt nick
.test nick gibi basit eğlence kodlarının derlenmiş hâlini arıyorum.

Örneğin:

Kod:

[12:31:59] <%Kitty> !akıltesti

[12:31:59] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] > [AKIL TESTİ] biLecikLi Nick'inin AKIL TESTİ Sonuçları Gösteriliyor.. Bekleyiniz.

[12:31:59] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> [AKIL TESTİ]  *

[12:31:59] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> [AKIL TESTİ]   %56  ******************************************************** *  AKILLI!

[12:31:59] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> [AKIL TESTİ]   %26  ************************** *  AKILSIZ!

[12:31:59] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> [AKIL TESTİ]   %18  ****************** *  SALAK!

[12:31:59] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> [AKIL TESTİ]   %0  *  GERİ ZEKALI!

[12:31:59] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> [AKIL TESTİ]  *

[12:31:59] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> [AKIL TESTİ]  Kitty Sonuçlarınız: Maşallah AKIL Küpü AKIL!

gibi şeyler. Yardımcı olabilirseniz mutlu olurum. Teşekkürler. :)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] arkadasimizin Plus ( Ajan ) botunda olan kodlar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ( Sinan ) yardimci olacaktir.

Alıntı:

Daemon Nickli Üyeden Alıntı (Mesaj 1042164619)

inşALLAH usta arayıştayım hâla

Yardımcı olabilecek kimse yok sanırım. Sağlık olsun.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

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

}

Ben bunu bi ara bir yerde yardımcı olmak için atmıştım bulamadım yedekte vardı.

Kod:

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

  }

}

Gerçekten eğlenceli kodlar. Yuva yıkar gibi dursa da eğlenceli:) Elinize sağlık

bu kodları remoteye eklemiyormuyduk

Alıntı:

coskuncoco Nickli Üyeden Alıntı (Mesaj 1042463850)

bu kodları remoteye eklemiyormuyduk

Temiz bir sayfa açıp remote kısmına ekleyebilirsin , yalnız kendi scriptinde ekliyorsan sen kullanamazsın.