[MerakLıuSer]

bu yazi stili özeldede aktif hale gelebilir mi?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:input:*:{ 
  if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) || ($1- == isnum) { goto end }
  var %a 0, %b, %c 
  if ($window($active).type == channel) {
    if !$regex($active,/(#help|#kanal2|#kanal3)/i) {
      while (%a < $numtok($1-,32)) { 
        inc %a 
        %c = $gettok($1-,%a,32) 
        if ($remove(%c,!,?,:,;,.,',$chr(44),?) ison #) {
          if $regex(%c,/(\!|\?|\.|\'|\,)) { 
            %b = $iif(%b,%b) $+(,$left(%c,$calc($len(%c) -1)),,$regml(1)) | goto ch
          }
          %b = $iif(%b,%b) $+(,%c,)
          :ch
        } 
        else { %b = %b %c } 
      } 
    }
    elseif ($window($active).type == query) {
      while (%a < $numtok($1-,32)) { 
        inc %a 
        %c = $gettok($1-,%a,32) 
        if ($query($remove(%c,!,?,:,;,.,',$chr(44),?))) {
          if $regex(%c,/(\!|\?|\.|\'|\,)) { 
            %b = $iif(%b,%b) $+(,$left(%c,$calc($len(%c) -1)),,$regml(1)) | goto ry
          }
          %b = $iif(%b,%b) $+(,%c,)
          :ry
        } 
        else { %b = %b %c } 
      } 
    }
    else { goto end }
    if (!%b) { %b = $1- } 
    else { say %b }
    halt 
    :end
  }
}

yazi;
sadece nick ince önündeki ve sonundaki "?,!,,,.,:,;,",..." gibi tüm işaretleri ve kelimeler. kalin gösteriyor. örnek;
nick,
nick!
nick?
nick:
nick;
nick...
"nick"
nick. gibi.
eklenmemiş birkaç işareti ekledim kod bozuldu.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
" gibi sonra kaldirdim sebebi nedir onlarda eklenilebilir mi