on *:text:!listjoin:#: {
if ($read(list.txt,nw,$nick)) { msg $chan $nick is already in the list. | return }
else write list.txt $nick
msg $chan Added $nick to the list
}
on *:text:!del *:#: {
if ($nick isop #) {
if (!$read(list.txt,nw,$2)) { msg $chan $2 is not in the list. | return }
elseif ($read(list.txt,nw,$2)) { msg $chan deleted $2 from the list.
write -dl $+ $readn list.txt }
}
}