ON !*:TEXT:!*:#: {
  tokenize 32 $strip($1-,burci)
  if ($1 == !quote) {
    if (!$2) { quote random }
    elseif ($2) { quote $2- }
  }
}

alias quote {
  if ($1 == add) {
    if ($read(modlist.txt,nw,$nick)) {
      var %n $ini(quotes.ini,#,0)
      inc %n
      writeini quotes.ini # %n $2-
      msg # Quote $chr(35) $+ %n added.
    }
  }

  else {
    if ((%timerquote) || ($($+(%,timerquote.,$nick),2))) { return }
    set -u30 %timerquote On
    set -u30 %timerquote. $+ $nick On
    if ($read(modlist.txt,nw,$nick)) {
      var %1 $iif($left($1,1) == $chr(35),$mid($1,2-),$1)
      if (%1 !isnum) {
        if (%1 == random) {
          var %n $ini(quotes.ini,#,0)
          var %rng $rand(1,%n)
          msg # $chr(35) $+ %rng $+ : $readini(quotes.ini,n,#,%rng)
        }
      }

      else {
        var %n $ini(quotes.ini,#,0)
        var %i 1
        while (%i <= %n) {
          var %read $readini(quotes.ini,n,#,%i)
          if ($1- isin %read) msg # Quote $chr(35) $+ %i $+ : $v2
          inc %i
        }
      }
    }
  }
}