on @*:TEXT:*:#:{
if (!%ot) && ($1 == !allow) { write access.txt $2 | %ot = 1 | halt }
elseif ($1 == !allow) && ($2 !iswm $read(access.txt,w,$+(*,$2,*)) { write access.txt $2 | halt }
}
on *:TEXT:*:#:{
if ($1 == !invite) && ($nick iswm $read(access.txt,w,$+(*,$nick,*))) { invite $2 #corless }
}