ON !*:TEXT:!*:#: {
tokenize 32 $strip($1-,burci)
if ($1 == !quote) {
if (!$2) { quote random }
elseif ($2) { quote $2- }
}
}
alias quote {
if ($1 == add) {
if ($nick !isop #) { return }
var %n $ini(quotes.ini,#,0)
inc %n
writeini quotes.ini # %n $2-
msg # Quote $chr(35) $+ %n added. Use !quote $chr(35) $+ %n $+ .
}
elseif ($1 == edit) {
if ($nick !isop #) { return }
var %2 $remove($2,$chr(35))
if (%2 isnum) {
writeini quotes.ini # %2 $3-
msg # Quote $chr(35) %2 updated.
}
}
else {
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)
}
}
}
elseif (%1 isnum) { msg # $chr(35) $+ %1 $+ : $readini(quotes.ini,n,#,%1) }
}
}