on *:text:!addquote *:#:{
if $read(quotes.txt,nw,& & $2-) {
msg # Quote $+(",$2-,") already added by $gettok($v1,2,32) on $asctime($gettok($v1,1,32)
}
else {
write Quotes.txt $ctime $nick $2-
msg # Quote added: $+(",$2-,") by $nick
}
}
on *:text:!findquote *:#:{
.fopen quotes quotes.txt
if $ferr { echo -atic Info * Missing Quotes.txt | .fclose quotes | return }
var %i = 1
while ![color:red]$[/color]feof {
.fseek -w quotes & & $+(*,$2-,*)
if $fread(quotes) {
tokenize 32 $v1
msg # Quote: $3- [Added by $2 on $asctime($1) ( $+ $duration($calc($ctime - $1)) ago)]
inc %i
if %i == 5 { break }
}
}
.fclose quotes
if %i == 1 { msg # Quote: $+(",$2-,") not found }
}