[mIRC] Word Filter

/*
THIS SCRIPT HAS BEEN MADE BY [MM]IKKE
DO NOT DELETE ANY OF THESE CREDITS
*/

alias filterhelp {
  echo 2 -at This script will replace words with other words you have specified
  echo 2 -at 
  echo 2 -at Commands:
  echo 2 -at  -9/filter2: Use his to turn the filter on or off. By default, it is on
  echo 2 -at  -9/addfilter2: Use this to add a filter. /addfilter <word you want to replace> <replacement word>
  echo 2 -at  -9/delfilter2: Use this to delete a filter. It uses wildmatches, so be careful! /delfilter <word/part of a word>
  echo 2 -at 
  echo 2 -at Each command has its own in-built error check.
  echo 2 -at 
  echo 2 -at This script has been made by 4[MM]IKKE2 and if free for use. Do not edit any of these credits though.
  echo 2 -at Contact: 6irc.tl 2channel 7#[MM]IKKE
}

alias filter {
  if ($1) {
    if ($1 == ON) {
      if (%filter == 1) {
        echo 4 -at ERROR: 2Filter is already on!
      }
      else {
        set %filter 1
        echo 2 -at Filter has been turned 9ON
      }
    }
    elseif ($1 == OFF) {
      if (%filter == 0) {
        echo 4 -at ERROR: 2Filter is already off!
      }
      else {
        set %filter 0
        echo 2 -at Filter has been turned 4OFF
      }
    }
    else {
      echo 4 -at ERROR: 2Unknown mode. Use "ON" or "OFF"
    }
  }
  elseif (%filter == 0) {
    set %filter 1
    echo 2 -at Filter has been turned 9ON
  }
  elseif (%filter == 1) {
    set %filter 0
    echo 2 -at Filter has been turned 4OFF
  }
  else {
    set %filter 1
    echo 4 -at ERROR: 2Filter was in unknown mode. It has now been turned 9ON
  }
}

alias addfilter {
  if ($1) {
    if ($2) {
      if ($1- !isin $read(wordfilter.txt,w,* $+ $1- $+ *)) {
        write wordfilter.txt $1 $2
        echo 2 -at Word " $+ $1 $+ " will now be replaced by: $2 $+ .
      }
      else {
        echo 4 -at ERROR: 2This word has already been filtered! (If not: manually change the .txt file in your mIRC directory)
      }
    }
    else {
      echo 4 -at ERROR: 2Usage: /addfilter <word you want to filter> <replacement word>
    }
  }
  else {
    echo 4 -at ERROR: 2Usage: /addfilter <word you want to filter> <replacement word>
  }
}

alias delfilter {
  if ($1) {
    if ($1- isin $read(wordfilter.txt,w,* $+ $1- $+ *)) {
      echo 2 -at Word " $+ $right($read(wordfilter.txt,$readn), $calc($pos($read(wordfilter.txt,$readn), $chr(32), 1) - 1)) $+ " will no longer replace: $left($read(wordfilter.txt,$readn), $calc($pos($read(wordfilter.txt,$readn), $chr(32), 1) - 1)) $+ .
      write -dl $+ $readn wordfilter.txt
    }
    else {
      echo 4 -at ERROR: 2This word isn't filtered!
    }
  }
  else {
    echo 4 -at ERROR: 2Usage: /delfilter <filter you want to remove>
  }
}


on *:LOAD: {
  write -c wordfilter.txt
  set %filter 1
  filterhelp
}

on *:INPUT:*: {
  if (%filter == 1 && $left($1-,1) != $chr(47) && $active != Status Window) {
    set %message.tmp $1-
    var %i = 1
    while (%i <= $lines(wordfilter.txt)) {
      set %message.tmp $replace(%message.tmp , $left($read(wordfilter.txt,%i), $calc($pos($read(wordfilter.txt,%i), $chr(32), 1) - 1)), $right($read(wordfilter.txt,%i), $calc($pos($read(wordfilter.txt,%i), $chr(32), 1) - 1)))
      inc %i
    }
    msg $active %message.tmp
    unset %message.tmp
    haltdef
  }
}