, this script will grant or deny adult access to your BBS
, I use the security level of 100 for my adult door games
, file areas and message areas. You will need to change
, 100 to what ever security level you use to give access to the
, adult areas on your board.
,
, Please note in the users editor Ex1: and Ex2: are used. Ex1:
, will have a D if the user has entered the adult application
, script and will kick them back out after letting the user
, leave feed back. Ex2: will have YES I AGREE in it. This shows
, that the user has agreed to the terms set forth in this script.
,
, Also this script will check the age of the user before letting them
, continue. if the user is under 21 years of age it will let them know
, they are not old enough to apply for adult areas on your BBS.
,
, Please scroll threw the code and change the information that is best
, on your BBS.
, Please let me know if you are using this script! .. I would like
, to see it running on your BBS .. 

,!_____________________________________________________________

,! This checks Ex1 in the users profile to see if they have applied for
,! adult access before.

if !61 = "D" goto noaccess

CLS

,!________________________________________________________________

,! This places the D in Ex1: so that the user can only access this
,! script once.

let !61 = "D"

,! __________________________________________________________

,! Please give Credit where it is due!

? !32, "AdultApp by Steven Reeves"
? !32,"Third Rock From The Sun BBS!"
? !32,"www.thirdrockbbs.com"
? !32,"����������������������������������������"
,! ____________________________________________________________
?
? !32,"Welcome to " % !19 % "'s Adult Access Application Form."
? !32,"The Adult Access application (if approved) will give"
? !32,"You access to the adult file, message and door games"
? !32,"On the BBS. You will need to READ the whole"
? !32,"Application IN FULL and follow the instructions"
? !32,"At the end. Remember, you are legally bound"
? !32,"To it!"
?
? !31,"You will only be able to enter this application once!"
? !31,"Please pay attention and dont hit enter a bunch of times"
? !31,"to get threw the script in a hurry!!"
?
? !31,"If ANY or all information is found to be false, your"
? !31,"Account could be deleted and you may be black-"
? !31,"Listed from the BBS!"
?
? !32,"The BBS owner (in this case " % !20 % ""
? !32,"Has full right to grant, deny or remove your Adult Access at"
? !32,"any time and for any reason."
?
LET H0 = "YN" % !13
RR I0, H0, "Would you like to continue with this application? "
IF I0 = !13 GOTO quit
IF I0 = "N" GOTO quit
?  " "
?  " "
? !32,"our records show you are " !86," years of age and,"
if !86 >= 21 goto continue
? !31, "if this is true you are not old enough to have access to the"
? !31, "adult areas on this BBS."

continue:
? !32,"By accepting this Agreement and thereby entering this"
? !32,"adult BBS/website, I hereby swear and affirm under"
? !32,"oath, represent and warrant that the following"
? !32,"statements are true:"
?
? !32,"I am atleast 18 (21 in some areas) years old."
?
? !31,"10 second delay. Please read!!!"
delay 10
RC I0, "Press any key to continue. . ."
?
?
? !32,"I am not visiting this BBS/website from the"
? !32,"jurisdiction of any municipality, city, state,"
? !32,"country, or other governmental entity where viewing"
? !32,"adult content is prohibited by law. I understand"
? !32,"the standards and laws of the community from whence"
? !32,"I am visiting this adult BBS/website, and I have made"
? !32,"every reasonable effort to determine whether viewing"
? !32,"adult content is legal  -  I have determined that it"
? !32,"is not illegal for me to visit this adult BBS/website."
?
? !31,"10 second delay. Please read!!!"
delay 10
?
RC I0, "Press any key to continue. . ."
?
?
?
? !32,"I will not allow any person under 18 (21 in some areas)"
? !32,"years old to view any adult content from this BBS/website."
? !32,"I will not allow any person who is under the jurisdiction"
? !32,"of any municipality, city, state, country or other"
? !32,"governmental entity where viewing adult content is"
? !32,"prohibited by law, view any adult content on or from"
? !32,"this BBS/website."
?
? !31,"10 second delay. Please read!!!"
delay 10
?
RC I0, "Press any key to continue. . ."
?
?
? !32,"I am applying for adult access on this BBS/website"
? !32,"because it has adult content. I do not find adult"
? !32,"content offensive or objectionable. I believe"
? !32,"that as an adult, I have the right to choose what"
? !32,"I see and read, and I am choosing to enter this"
? !32,"adult BBS/website to view adult content."
?
? !31,"10 second delay. Please read!!!"
delay 10
?
RC I0, "Press any key to continue. . ."
?
?
? !32,"By entering this BBS/website, I agree to release,"
? !32,"discharge, and hold harmless the providers, owners,"
? !32,"and creators of this BBS/website from any and all"
? !32,"liability which might arise from viewing or"
? !32,"reading the adult content on this BBS/website."
?
? !31,"10 second delay. Please read!!!"
delay 10
?
RC I0, "Press any key to continue. . ."
?
?
? !32,"I will not copy, upload, transmit, transfer,"
? !32,"distribute, publish, modify or use for any"
? !32,"commercial or other purpose any of the material"
? !32,"on this website, including the underlying HTML"
? !32,"source code, without permission in writing and"
? !32,"signed by the owner of the material."
?
?
? !31,"10 second delay. Please read!!!"
delay 10
?
RC I0, "Press any key to continue. . ."
?
?
? !32,"If I use these services in violation of"
? !32,"this agreement, I understand I may be in"
? !32,"violation of local, state, federal,"
? !32,"international or other laws."
?
? !31,"10 second delay. Please read!!!"
delay 10
?
RC I0, "Press any key to continue. . ."
?
?
? !32,"I have read this entire Agreement"
? !32,"and I agree to be legally bound by it."
?
? !32,"Do you agree to the terms?"
? !32,"type" !31," [YES I AGREE]"!32," or your Adult Access"
? !32,"will be" !31, " DENIED!"
?
RS G0, ""
?

if G0 = "YES I AGREE" goto accessup
?
? !31,"Access DENIED! please contact the sysop for more information"
?
pause
goto quit

accessup:
if !54 = 255 goto testing

,! ____________________________________________________________________

,! change the 100 to what ever security level you use for adult access
,! to your BBS
LET !54 = 100
,! ____________________________________________________________________

LET !62 = G0
? !32,"adult access granted. Thank you for using the Adult Application."
pause

testing:
LET !63 = 100
LET !62 = G0

? !32,"TESTING: adult access granted. Thank you for using the Adult
Application."
? !32,"Please note in Ex3 the security level 100 for adult access"
? !32,"Thank you for using my Adult Application script."
pause
goto quit

noaccess:
CLS
? !31,"You have already applied for adult access to this system"
? !31,"if you feel this is in error please contact the sysop"
?
GETYN Q1, "Would you like to leave feed back now?"
IF Q1 ="N" goto quit
feedback
goto quit

quit:
exit main