$decode Infection Remover.

[Cult]

This snippet is to remove the $decode infection from someone`s irc.
usage:
/_decode

flags: -u = unload file
-r = remove file

alias _decode {
  if (!$1) { echo $color(info) -s * /_decode: insufficient parameters | halt }
  if ((u !isincs $1) && (r !isincs $1)) { echo -a Unknown flag: $1 | halt }
  var %a = 1,%z
  while ($script(%a))  {
    filter -gff $+(",$v1,") nul /\44decode/Si
    if ($filtered) { 
      if ($script(%a) != $script) { 
        if (u isincs $1) .unload -rs $script(%a)
        if (r isincs $1) .remove $script(%a)
      } 
    }
    inc %z $filtered
    inc %a
  }
  .echo -a %z decode viruses found.
  if (!%z) .echo -a Your mIRC is clean.
}