Anonymous

set %quote $false

on *:TEXT:.k9 quote*:#: {
  if ($$3 == on) { 
    set %quote $true
    msg $chan The Quote System is now turned on.
    ignore -u15 $address( $+ $nick $+ ,2) 
  }
  elseif ($$3 == off) {
    set %quote $false
    msg $chan The Quote System is now turned off.
    ignore -u15 $address( $+ $nick $+ ,2)
  }
  else { ignore -u15 $address( $+ $nick $+ ,2) }
}

on *:TEXT:.k9 quote random*:#: {
  if (%quote == $true) {
    set %randomq $read(C:\Program Files\mIRC\k9\quotes.txt)
    msg $chan %randomq
    ignore -u15 $address( $+ $nick $+ ,2)
  }
  else (%quote == $false) { 
    msg $chan Error: Quote System is off.
    ignore -u15 $address( $+ $nick $+ ,2)
  } 
}

on *:TEXT:.k9 quote search*:#: {
  if (%quote == $true) {
    set %searchq $read(C:\Program Files\mIRC\k9\quotesys, w, $+ $$4 $+ )
    msg $chan %searchq
    ignore -u15 $address( $+ $nick $+ ,2)
  }
  else (%quote == $false) {
    msg $chan Error: Quote System is off.
    ignore -u15 $address( $+ $nick $+ ,2)
  }
}

on *:TEXT:.k9 quote add*:#: {
  if (%quote == $true) {
    write "C:\Program Files\mIRC\k9\quotes.txt" $$4
    msg $nick Quote successfully added.
    ignore -u15 $address( $+ $nick $+ ,2)
  }
  else (%quote == $false) {
    msg $chan Error: Quote System is off.
    ignore -u15 $address( $+ $nick $+ ,2)
  }
}