Unnamed

; Quote Database 1.0
; Written by HyperDev
; http://www.tshastry.com/hyperdev/

on *:LOAD:{
  /echo 8,1Quote Database 1.0, written by HyperDev. NO RIPPING PLEASE!
  /auser -a qdbop $address($? = "Enter Nickname to be URL OP",1) QDB Op
}
on qdbop:TEXT:!addqdbchan:#:{
  write -ds $+ $chan qdbchans.txt
  write qdbchans.txt $chan
  /msg $chan  $+ $chan $+  has been added to QDB Channel List.
}
on qdbop:TEXT:!delqdbchan:#:{
  write -ds $+ $chan qdbchans.txt
  /msg $chan  $+ $chan $+  has been removed from QDB Channel List.
}
on qdbuser:TEXT:!addquote *:#:{
  if ($2 != $null) {
    if ($read(qdbchans.txt, w, $chan) != $null) {
      write -ds" $+ $2- $+ " qdb.txt
      write qdb.txt $2-
      /notice $nick Quote added to database.
    }
  }
}
on qdbop:TEXT:!addquote *:#:{
  if ($2 != $null) {
    if ($read(qdbchans.txt, w, $chan) != $null) {
      write -ds" $+ $2- $+ " qdb.txt
      write qdb.txt $2-
      /notice $nick Quote added to database.
    }
  }
}
on qdbuser:TEXT:!delquote *:#:{
  if ($read(qdbchans.txt, w, $chan) != $null) {
    write -dl $+ $2 qdb.txt
    /notice $nick Quote Removed from QDB
  }
}
on qdbop:TEXT:!delquote *:#:{
  if ($read(qdbchans.txt, w, $chan) != $null) {
    write -dl $+ $2 qdb.txt
    /notice $nick Quote Removed from QDB
  }
}
on qdbop:TEXT:!addqdbuser *:#:{
  if ($read(qdbchans.txt, w, $chan) != $null) {
    /auser -a qdbuser $address($2,1) QDB User
    /notice $2 You have been added as a QDB User by $nick $+ . You may now post and delete Quotes.
    /notice $nick User added.
  }
}
on qdbop:TEXT:!delqdbuser *:#:{
  if ($read(qdbchans.txt, w, $chan) != $null) {
    /ruser qdbuser $address($2,1)
    /notice $nick User removed.
  }
}
on qdbop:TEXT:!addqdbop *:#:{
  if ($read(qdbchans.txt, w, $chan) != $null) {
    /auser -a qdbop $address($2,1) QDB Op
    /notice $2 You have been added as a QDB Op by $nick $+ . You may now post and delete Quotes, as well as add or delete ops or users.
    /notice $nick Op added.
  }
}
on qdbop:TEXT:!delqdbop *:#:{
  if ($read(qdbchans.txt, w, $chan) != $null) {
    /ruser qdbop $address($2,1)
    /notice $nick Op removed.
  }
}
on qdbuser,qdbop:TEXT:!qdbhelp*:{
  if ($read(qdbchans.txt, w, $chan) != $null) {
    if ($2 == !addquote) {
      /notice $nick !addquote [quote]
      /notice $nick Adds quote to database.
    }
    elseif ($2 == !delquote) {
      /notice $nick !delquote [Quote #]
      /notice $nick Deletes a quote from database.
    }
    else {
      /notice $nick Topics: !addquote !delquote
      /notice $nick Type !qdbhelp [topic] for more info.
    }
  }
}
on *:TEXT:!quote *:#:{
  if ($read(qdbchans.txt, w, $chan) != $null) {
    if ($read(qdb.txt, $2) == $null) {
      /msg $chan Sorry, Quote $2 does not exist! There are only $lines(qdb.txt) quotes available in the database.
    }
    else {
      if ($2 !isnum) {
        /msg $chan Sorry, you can only use numbers to find quotes.
      }
      else {
        /msg $chan Quote $2 $+ : $read(qdb.txt, $2)
      }
    }
  }
}
on *:TEXT:!quote:#:{
  if ($read(qdbchans.txt, w, $chan) != $null) {
    %quote = $read(qdb.txt)
    /msg $chan Quote $readn $+ : %quote
    /unset %quote
  }
}
on *:TEXT:!lastquote:#:{
  if ($read(qdbchans.txt, w, $chan) != $null) {
    /msg $chan Newest Added Quote ( $+ $lines(qdb.txt) $+ ): $read(qdb.txt, $lines(qdb.txt))
  }
}