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 }
}
}
on *:text:!list:#: {
if ($nick isop #) {
var %t1 $read(list.txt,1)
var %t2 $read(list.txt,2)
var %t3 $read(list.txt,3)
var %t4 $read(list.txt,4)
var %t5 $read(list.txt,5)
msg $chan %t1 %t2 %t3 %t4 %t5 }
}
on *:text:!listreset:#: {
if ($nick isop #) { write -c list.txt
msg $chan list reset. }
}