alias blacklist {
if ($$1) {
var %addr = $gettok($ial($$2,1),1,64)
var %line = $read($scriptdirblacklist.txt,w,%addr)
if ($1 == check) {
if (%line) return $true
else return $false
}
elseif ($1 == set) {
if (!$isfile(blacklist.txt)) write -c blacklist.txt
if (!%line) write $scriptdirblacklist.txt $gettok($ial($$2,1),1,64) $3-
}
elseif ($1 == del) {
if (!$isfile(blacklist.txt)) write -c blacklist.txt
if (!%line) .write $+(-dl,$readn) $scriptdirblacklist.txt
}
}
else { echo 4 ERROR: Incorrect Syntax Use }
}