on *:text:!join:#: {
if (%listopen) {
if ($read(list.txt,nw,$nick)) { msg $chan $nick , you're already on the list silly goose! | return }
elseif (!$read(list.txt,nw,$nick)) {
write list.txt $nick
msg $chan /me grabs her pencil and adds $nick to the list
}
}
elseif (!%listopen) {
msg $chan Sorry, but the list is currently closed
}
}