on *:join:#: {
if ($nick != $me) && ($chan == #chat18+) {
if (!$isfile($+(join.txt))) { write join.txt }
if ($nick isin $read(join.txt, w, $+(*,$nick,*))) { describe $Chan Hey $nick $+ , Welcome Back. :) }
else {
describe $chan Hello $nick $+ , Welcome to $chan $+ . May we have your age Please ?
menu nicklist {
Add user:{ write join.txt $1 }
}
}
}
}