rendered paste body ;Quote add.
if ($$3 == add) {
if (%k9.quote.mainswitch == 1) {
var %temp $read(%k9.quote.file, w, $$4-)
if ($readn) msg $chan $nick, I am afraid that quote already exists.
else {
set %k9quote.cid $cid
set %k9quote.nick $nick
set %k9quote.chan $chan
write %k9.quote.file Q $+ $chr(58) $date(ddd) $+ , $date(ddoo) $date(mmm) $+ , $date(yy) $time(HH:nn) $chr(124) $nick $chr(45) $$4-
msg $chan Quote successfully added.
mtooltips SpawnTooltip +bs1a 1025 900 0 > K-Nine QuoterBase Alert $chr(4) A new quote has been added to my QuoterBase! $+ $crlf $+ Nick: %k9quote.nick $+ $crlf $+ Channel: %k9quote.chan $chr(4) act_wind
write -c "C:\Files\quotenum.txt" $lines(%k9.quote.file)
write %k9.quote.file.php Q $+ $chr(58) $nick $chr(45) " $+ $$4- $+ " $chr(32) $+ $chr(91) $+ $date(dd) $+ / $+ $date(mm) $+ / $+ $date(yy) at $time(HH:nn) $+ $chr(93)
write "C:\Files\quotenick.txt" $nick
ignore -u10 $address( $+ $nick $+ ,2)
/echo -s Uploaded quotes successfully!
} else {
msg $chan Error: Quote System is off.
ignore -u15 $address( $+ $nick $+ ,2)
}
}
}