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

Selam IRCForumlari..
Kodu Yazan : daRkMoRGaN
Test Eden : Chn
$asc ve $chr konularında tüm hızıyla çalışmalara devam ediyorum :)
ILk yazmış olduğum ( $asc Değerleri ) kodunu geliştirdim ..

Kodun İşlevleri ;
1.a- Kelimenin $asc değerini virgül kullanmadan ve boşlukla verme.
2.a- Seçilmiş kelimeyi parçalayarak tek tek karakterleri tek satır halinde verme.
3.a- $asc seçili kelimeyi $chr olarak verme.

Kodun Kullanımı ;
1.a //echo -a $karakter(darkmorgan)
1.b //echo -a $karakter(darkmorgan).chr
1.c //echo -a $karakter(darkmorgan).parcala

PHP- Kodu:

   alias karakter { 
  if ($isid) && ($1-) { 
    if ($prop = parcala) { 
      var %degisken1 $1-, %degisken2 $len($1-), %degisken3 1 
      while (%degisken3 <= %degisken2) { 
        var %degiskenx = $+(%degiskenx,$chr(32),$mid(%degisken1,%degisken3,1),$chr(32),=,$chr(32),$asc($mid(%degisken1,%degisken3,1)))
        inc %degisken3
      }
      return %degiskenx
    }
    if ($prop = Chr) { 
      var %degisken1 $1-, %degisken2 $len($1-), %degisken3 1 
      while (%degisken3 <= %degisken2) { 
        var %degiskenx = $+(%degiskenx,$chr(32),$,$+(chr,$chr(40),$asc($mid(%degisken1,%degisken3,1)),$chr(41)))
        inc %degisken3
      }
      return %degiskenx
    }
    elseif (!$prop) { 
      var %degisken1 $1-, %degisken2 $len($1-), %degisken3 1 
      while (%degisken3 <= %degisken2) { 
        var %degiskenx = $+(%degiskenx,$chr(32),$asc($mid(%degisken1,%degisken3,1)))
        inc %degisken3
      }
      return %degiskenx
    }
  }
}