Well I fixed a bug of deleting a quote...in the previous vertion it said it did delete a line even if it does not exist now it will tell u it does not exist...I allso added a nick who added the quote and a time it was added due to some ppl who reqeusted it, I want to thank all who PM'ed me and I'm willing to hear more Ideas to add...Here you go

;  / \  | |
;  |||  | |
;   \\  | |
;  |||  | |__
;  \ /  |____|
;snippit : -.-Quote V2.0 VIA Bot-.-
;server : irc.4everlost.co.za
;room : #slc
;webpage : http://slchat.50megs.com/Home.htm
;Date codded : 24/07/2004
on 1:load: {
  echo -a 7,0 The following options is available
  echo -a 10,0!addquote 3and the quote 6(This will add a quote to the bot)
  echo -a 10,0!delquote 3and the quote number 6(This will delete quote number that u enter)
  echo -a 10,0!quote 6(This will Random between allquotes and tell u what quote nr. it is)
  echo -a 10,0!quote 3and the number 6(This will look up the quote of which number u have chosen)
  echo -a 10,0!qlines 6(This will give u the amount of quotes which have been added)
  echo -a 10,0!qhelp 6(This will bring you to this menu)
}
on 1:text:*:#: {
  if ($1 == !addquote) {
    if ($2 == $null) { Notice $nick Sorry you need to set a quote and u left it empty }
    if ($2 != $null) {
      write $scriptdirquote.txt $2- 12Added by - $nick 6At this time4 $time(dd/mm/yyyy - hh:nn:ss)
      set %sl.ql $lines($scriptdirquote.txt)
      msg $chan 5,0Added quote at position 6# $+ %sl.ql
      unset %sl.ql
    }
  }
  if ($1 == !delquote) {
    if ($2 == $null) { msg $chan 4,0Sorry $nick u need to add a number between 1 and $lines($scriptdirquote.txt) }
    if ($2 != $null) {
      set %sl.qd $read($scriptdirquote.txt, $2)
      if (%sl.qd == $null) { msg $chan 4,0Sorry $nick but quote $chr(35) $+ $2 does not exist }
      if (%sl.qd != $null) {
        write -dl $+ $2 $scriptdirquote.txt
        msg $chan 3,0Quote 6# $+ $2 3Have been removed
      }
      unset %sl.qd
    }
  }
  if ($1 == !quote) {
    if ($2 == $null) { 
      set %sl.qr $rand(1,$lines($scriptdirquote.txt))
      set %sl.qra $read($scriptdirquote.txt, %sl.qr)
      if (%sl.qra != $null) { msg $chan 10,0Random quote 6# $+ %sl.qr 10 $+ %sl.qra }
      if (%sl.qra == $null) { msg $chan 4,0Sorry there does not appear to be anny quotes available }
      unset %sl.qr
      unset %sl.qra
    }
    if ($2 != $null) { 
      set %sl.qo $read($scriptdirquote.txt, $2)
      set %sl.qol $lines($scriptdirquote.txt)
      if (%sl.qo == $null) { msg $chan 4,0Quote 6# $+ $2 4Does not exist 3U can select 1 to %sl.qol }
      if (%sl.qo != $null) { msg $chan 7,0Quote 6# $+ $2 7- %sl.qo }
      unset %sl.qo
      unset %sl.qol
    }
  }
  if ($1 == !qlines) {
    set %sl.qt $lines($scriptdirquote.txt)
    if (%sl.qt != $null) { msg $chan 12,0There is this amount of quotes2 %sl.qt  }
    if (%sl.qt == $null) { msg $chan 4,0There does not appear to be anny quotes added yet $nick }
    unset %sl.qt
  }
  if ($1 == !qhelp) {
    msg $chan 7,0 The following options is available
    msg $chan 10,0!addquote 3and the quote 6(This will add a quote to the bot)
    msg $chan 10,0!delquote 3and the quote number 6(This will delete quote number that u enter)
    msg $chan 10,0!quote 6(This will Random between allquotes and tell u what quote nr. it is)
    msg $chan 10,0!quote 3and the number 6(This will look up the quote of which number u have chosen)
    msg $chan 10,0!qlines 6(This will give u the amount of quotes which have been added)
    msg $chan 10,0!qhelp 6(This will bring you to this menu)
  }
  else { halt }
}