On *:Text:*:*: {
  .set %Quote.LastNick $nick
  If ( $hget($nick) = $null ) {
    .hmake $nick 10
    .set %Quote. $+ $nick $+ .Table 1
  }
  If ( %Quote. $+ $nick $+ .Table > 10 ) {
    .set %Quote. $+ $nick $+ .Table 1  
  }
  .hadd $nick %Quote. $+ $nick $+ .Table $+([,$asctime(HH:nn),],$chr(32) $+ <,$nick,> $+ $chr(32),$1-)
  .inc %Quote. $+ $nick $+ .Table
}

alias Quote {
  .set %Quote.Nick $1
  If ( $1 = -l ) {
    .set %Quote.Nick %Quote.LastNick
  }
  If ( $hget(%Quote.Nick) = $Null ) {
    .echo $chan No data stored for %Quote.Nick
  }
  /msg $chan  $+ $hget(%Quote.Nick,$$2)
  /msg $chan $3-
  .halt
}


menu nicklist {
  Quotes
  .$submenu($_nicks($1))
}

alias _nicks {
  if ($1 == begin) return -
  return $ifmatch :.echo -a $ifmatch
}

alias q {  
  /quote -l $1-
}