Forums Scripts & Popups On-Join msg

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 ?
      ;write join.txt $nick
    }
  }
}
menu nicklist {
  Add user:{ write join.txt $1 }
}

menu nicklist {
  Add user:{ write join.txt $1 | echo -a Added $1 to the list. }
}

on *:JOIN:#: {
  if ($nick != $me) && ($chan == #chat18+) { 
    if ($istok(%Users,$nick,44)) { describe # Hey $nick $+ , welcome back. :) }
    else { describe # Hello $nick $+ , welcome to $chan $+ . May we have your age please? }
  }
}
menu nicklist {
  Add user: {
    if ($1 isin %Users) { echo 4 -a * User $1 has already been added. } 
    else { set %Users $addtok(%Users,$1,44) | echo 2 -a * $1 added to the list. }
  }
  Delete user: { 
    if ($1 !isin %Users) { echo 4 -a * User $1 does not exist. } 
    else { 
      set %Users $remtok(%Users,$1,1,44) | echo 2 -a * User $1 has been removed from the list. 
    }
  }
}