on *:TEXT:!*:#: {
  ;---------- quote --------------------------------------------------------------------------------
    if ($right($1,-1) == quote) {
     if (((%floodquote) || ($($+(%,floodquote.,$nick),2))) && ($nick)) { return }
      {
       set -u30 %floodquote On
        set -u30 %floodquote. $+ $nick On
      }
     :1
      if (!$2) { msg # [Random Quote] $read(quote.ini,n) }
     elseif ($2 == del) && ($3 isnum) && ($lines(quote.ini) >= $3) && ($nick isop #) { msg # [Quote Deleted] $3 $+ : $read(quote.ini, $+ $3) | .write -dl $+ $3 quote.ini }
      elseif ($2 isnum) && ($lines(quote.ini) >= $2) { msg # [Quote $+($2,/,$lines(quote.ini),]) $read(quote.ini,n,$2) }
      elseif ($2 == find) && ($len($3) > 2) {
        var %x $lines(quote.ini)
        while (%x) {
          if ($3- isin $read(quote.ini,%x)) {
            inc %quotes.search
            set %quotes.return $addtok(%quotes.return,%x,32)
          }
          dec %x
        }
        if (!%quotes.search) { msg # [Quote Search] No quotes found with the string " $+ $3- $+ " | unset %quotes.* | halt }
        if (%quotes.search = 1) { msg # [Quote Search] One quote found: $+([,%quotes.return,]) $read(quote.ini,n,%quotes.return) | unset %quotes.* }
        else {
          msg # [Quote Search] Found %quotes.search quotes that have the string $+(",$3-,") in them.
          .timer 1 2 msg # [Quote $+($gettok(%quotes.return,1,32),/,$lines(quote.ini),])  $replace($read(quote.ini, n, $gettok(%quotes.return,1,32)),|,$!chr(124))
          .timer 1 4 msg # [Quote Search] Other quote numbers: $right(%quotes.return,-2)
          unset %quotes.*
        }
      }


    }
    on *:TEXT:!*:#:{
      if ($right($1,-1) == addquote) && ($nick isop#) {
        if (!$2) { return }
        .write quote.ini " $+ $replace($2-,|,$chr(124)) $+ " - Tortoisehelmet $date
        msg # [Quote Added] $+($lines(quote.ini),:) $2-
      }

    }