on *:text:!addquote *:#: {
if ($nick isop #) {
var %r = $read(quote.txt,ns,$2)
if (%r) { .msg $chan [ $+ $nick $+ ]: Error, This quote $qt($2) is quote exist into the database! | return }
write quote.txt $2-
msg $chan /me + quote $2 has been added to the database!
}
}
on *:text:!delquote *:#: {
if ($nick isop #) {
var %r = $read(quote.txt,ns,$2)
if (!%r) { .msg $chan [ $+ $nick $+ ]: Error, This quote $qt($2) does NOT exist into the database! | return }
write -dl $+ $readn quote.txt
msg $chan /me - Quote $2- has been deleted from the database!
}
}
on *:text:!editquote & *:#: {
if ($nick isop #) {
var %r = $read(quote.txt,ns,$2)
if (!%r) { .msg $chan [ $+ $nick $+ ]: Error, This quote $qt($2) does NOT exist into the database! | return }
write -l $+ $readn quote.txt $2-
msg $chan /me -> Quote $2 has been updated!
}
}
ON *:TEXT:*:#: {
tokenize 32 $strip($1-,burci)
if ($read(quote.txt, nts, $1)) {
var %com = $v1
var %com = $replace(%com,@user@,$iif($2,$2,?),@nick@,$nick,@target@,$target)
if (-ul=mod == $gettok(%com,1,32)) && ($nick !isop $chan) { msg $chan | return }
msg $chan $iif(-ul=mod == $gettok(%com,1,32),$gettok(%com,2-,32),$gettok(%com,1-,32))
}
}