Konu: Multi Mod
Tekil Mesaj gösterimi
  #2  
Alt 28 Ekim 2013, 13:38
CoCoRiCo - ait Kullanıcı Resmi (Avatar)
CoCoRiCo CoCoRiCo isimli Üye şimdilik offline konumundadır
 Chief 

mS Puan: 571
mS Derece: CoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo Çalışkan
 
Üyelik tarihi: 10 Temmuz 2009
Bulunduğu yer: \xml:http\
Yaş: 41
Mesajlar: 135
Konular: 22
Eklentiler: 0
Alınan Teşekkür: 85
Yapılan Teşekkür: 19
Thumbs up

Kazanan : Difuzyon

Kural ihlal:
cıktı : #kanal veri

Kazanan KOD:
Kod:
alias db { 
  if $1 { $iif(!$window(@d),window -fen @d verdana 9,echo @d $1-) 
    tokenize 32 $1- 
    if ($1 = <- && $3 = MODE && $remove($token($2,1,33),:) ison $4) {
      noop $regex($5-,/[+-]([qaohv+-]*)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)/)
      var %a = 1,%w = $mid($5,1,1),%d = 1
      set -l %l
      while %a <= $len($regml(1)) {
        if $istok(+ -,$mid($regml(1),%a,1),32) {
          var %w $mid($regml(1),%a,1)
          inc %a
        }
        var %c $mid($regml($calc(%d * 2)),2,400)
        inc %d 1
        var %l $addtok(%l,$+(%w,$mid($regml(1),%a,1),,%c),32)
        inc %a
      }
      tokenize 32 $replace(%l,+q,.,+a,&,+o,@,+h,%,+v,+,-q,$null,-a,$null,-o,$null,-h,$null,-v,$null)
      echo -a $*
    }
  }
    else  debug -i d db 
}
Boyut : 893 bayt
Satır (çerçeve kod dahil): 23 satır
__________________
3m2t
//alias $str($+(alias,$chr(32)),4) | alias
Alıntı ile Cevapla
 
1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76