; Quotes script commands:
; !addquote (quote): add a quote
; !quote (number): shows the quote number
; !rquote: random quote
; !dquote (number): deletes a quote (only if you're opped on that channel)
; !quotes: tells you the number of quotes you have.



on *:TEXT:!addquote *:#: {
  set %quotes.number $calc(%quotes.number + 1)
  write quotes2.txt $2-
  msg $chan Thank you, your quote " $+ $2- $+ " has been added as quote number  $+ %quotes.number $+ 
}
on *:TEXT:!quote*:#: {
  if ( $1 == !quotes ) { 
    :quoteswiths
    msg $chan There are currently  $+ %quotes.number $+  quotes.
    halt
  }
  if ( $2 == $null ) {
    msg $chan Pick one, hoe!
  }
  else {
    set %quoting $read(quotes2.txt,$2)
    if ( %quoting == $null ) {
      msg $chan That's NOT a quote number!
    }
    else {
      msg $chan Quote  $+ $2 $+  out of  $+ %quotes.number $+ 
      msg $chan $read(quotes2.txt,$2)
    }
  }
}
on *:TEXT:!rquote:#: {
  if ( %quotes.number != 0 ) {
    set %rquote $rand(1,%quotes.number)
    msg $chan Quote  $+ %rquote $+  out of  $+ %quotes.number $+ 
    msg $chan $read(quotes2.txt,%rquote)
  }
  else {
    msg $chan There are no quotes.
  }
}
on *:TEXT:!dquote *:#: {
  if ( $nick !isop $chan ) {
    msg $chan Ha, ha! You're not opped in  $+ $chan $+  so you can't use this, fatass!
    halt
  }
  set %quoting $read(quotes2.txt,$2)
  if ( %quoting == $null ) {
    msg $chan That's NOT a quote number!
  }
  else {
    if ( $nick isop $chan ) {
      set %quotes.number $calc(%quotes.number - 1)
      write -dl [ $+ [ $2 ] ] quotes2.txt
      msg $chan Quote  $+ $2 $+  has been deleted!
    }
  }
}
on *:TEXT:!quotes:#: {
  msg $chan There are currently  $+ %quotes.number $+  quotes.
}
on *:LOAD: {
  set %quotes.number $lines(quotes2.txt)
}