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

Alıntı:

off Nickli Üyeden Alıntı (Mesaj 1042156714)

merhaba arkadaşlar bir kod sorcaktım bulamadım

[12:28] «Ex» 2 Z 4KİŞİLİK TESTİ 2Sonuçlarınız Gösteriliyor..
[12:28] «Ex» 13[12KİŞİLİK13] 4**
[12:28] «Ex» 13[12KİŞİLİK13] 4*** 0,3 48 0,4 TEHLİKELİ
[12:28] «Ex» 13[12KİŞİLİK13] 4*** 0,3 81 0,4 DÜRÜST
[12:28] «Ex» 13[12KİŞİLİK13] 4*** 0,3 33 0,4 ÇEKİCİ
[12:28] «Ex» 13[12KİŞİLİK13] 4*** 0,3 22 0,4 ÇILGIN
[12:28] «Ex» 13[12KİŞİLİK13] 4*** 0,3 72 0,4 SİNSİ
[12:28] «Ex» 13[12KİŞİLİK13] 4*** 0,3 29 0,4 ZEKİ
[12:28] «Ex» 13[12KİŞİLİK13] 4*** 0,3 38 0,4 UYUMLU
[12:28] «Ex» 13[12KİŞİLİK13] 4**

böyle birsey arıyorum ama elinde olan varmıdır.

Kod:

on $*:text:/^[!.]k[ıi][sş][ıi]l[ıi]ktest[ıi]$/Si:#: {

  if !$hget(kişiliktesti,$nick) {

    .hinc -mu10 kişiliktesti $nick $ctime

    msg $chan $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2) ) 2Nickli Kişinin 4KİŞİLİK TESTİ 2Sonuçları Listeleniyor..

    var %durust $r(1,100), %tehlikeli $r(1,$calc(100 - %durust)), %çekici $r(1,$calc(100 - (%durust + %tehlikeli))), %sinsi $calc(100 - $calc(%durust + %tehlikeli + %çekici)), %çılgın $r(1,$calc(100 - %zeki)), %zeki $r(1,$calc(100 - %uyumlu + %zeki)), %uyumlu $r(1,$calc(100 - %çılgın + %uyumlu)), $&

      %kslktop $sorttok(%durust %tehlikeli %çekici %sinsi %çılgın %zeki %uyumlu,32,nr), %kslksnç $gettok($sorttok(%kslktop,32,nr),1,32)

    msg $chan 13[7Kişilik Testi Liste Başlangıcı413] 4 $chr(42) $+ $chr(42)

    msg $chan 13[12KİŞİLİK413] 4 $chr(42) $+ $chr(42) $+ $chr(42) $+ $chr(32) 03,03 00 % $+ %durust 0,4DÜRÜST

    msg $chan 13[12KİŞİLİK413] 4 $chr(42) $+ $chr(42) $+ $chr(42) $+ $chr(32) 03,03 00 % $+ %tehlikeli 0,4TEHLİKELİ

    msg $chan 13[12KİŞİLİK413] 4 $chr(42) $+ $chr(42) $+ $chr(42) $+ $chr(32) 03,03 00 % $+ %çekici 0,4ÇEKİCİ

    msg $chan 13[12KİŞİLİK413] 4 $chr(42) $+ $chr(42) $+ $chr(42) $+ $chr(32) 03,03 00 % $+ %sinsi 0,4SİNSİ

    msg $chan 13[12KİŞİLİK413] 4 $chr(42) $+ $chr(42) $+ $chr(42) $+ $chr(32) 03,03 00 % $+ %çılgın 0,4ÇILGIN

    msg $chan 13[12KİŞİLİK413] 4 $chr(42) $+ $chr(42) $+ $chr(42) $+ $chr(32) 03,03 00 % $+ %zeki 0,4ZEKİ

    msg $chan 13[12KİŞİLİK413] 4 $chr(42) $+ $chr(42) $+ $chr(42) $+ $chr(32) 03,03 00 % $+ %uyumlu 0,4UYUMLU

    msg $chan 13[7Kişilik Testi Listesinin Bitişi413] 4 $chr(42) $+ $chr(42)

    unset %kslktesti

  }

  else {

    var %kslktestsay $calc(10 - $calc($ctime - $hget(kişiliktesti,$nick)))

    notice $nick 13[12KİŞİLİK TESTİ1213] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2) ) 4Kişilik Testini12 2 Dakikada BirKez 4Kullanabilirsiniz..

    notice $nick 13[12KİŞİLİK TESTİ1213] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2) ) 4(1 %kslktestsay 4) 7Saniye 2Sonra4!kişiliktesti 2Komutunu Kullanarak Testinizi Yeniden Yapabilirsiniz..

  }

}

Buyrun..
Alt + R yapıp Remoteye Ekleyiniz.
Kullanımı: !kişiliktesti veya .kişiliktesti