on *:TEXT:*:#:{
if ($nick isop $chan) {
if ($1 == $chr(33) $+ add) {
if ($3) {
set %command. $+ $2 $3-
.notice $nick $chr(33) $+ $2 is now a command.
}
}
if ($1 == $chr(33) $+ del) {
if (%command. [ $+ [ $2 ] ]) {
unset %command. $+ $2
.notice $nick $chr(33) $+ $2 is no longer a command.
}
else {
.notice $nick That is not a command, you cannot delete a command that doesn't exist.
}
}
}
if ($left($1,1) == $chr(33)) {
if (%command. [ $+ [ $mid($1,2-) ] ]) {
.notice $nick $v1
}
}