AT2k Design BBS - Scripts Only! (Code Only)

Post-It! Network v2.4

Sun, 16 Nov 2008 05:30:00 -0600

From: jahmas @7.acnetasp_scrc *38
To: Worf @Echomail *38
Subject: Post-It! Network v2.4

Re: Post-It! Network v2.4

> test

Gotcha here!

Mysteria Majicka BBS: Baltimore MD USA telnet://majicka.at2k.org Fido 1:229/444
Running Virtual Advanced BBS Software AspectNet / AcNet 1@1410000 sysop Jahmas

--- Virtual Advanced Ver 2 for DOS
* Origin: Vested Tyme Dataline (63:63/1.23)
∩┐╜ Synchronet ∩┐╜ Killed in Action BBS at kiabbs.org
--- SBBSecho 2.11-Win32
* Origin: Killed in Action BBS at kiabbs.org (63:63/103)

Post-It! Network v2.4

Sat, 15 Nov 2008 17:46:00 -0600

From: Roalt @6.acnetasp_scrc *38
To: Worf @Echomail *38
Subject: Post-It! Network v2.4

Re: Post-It! Network v2.4

> test

You broke it!

--
[AT2k] -- Your VBBS/VADV Support Center -- [www.at2k.org] -- [bbs.at2k.org]

--- Virtual Advanced Ver 2 for DOS
* Origin: Vested Tyme Dataline (63:63/1.23)
∩┐╜ Synchronet ∩┐╜ Killed in Action BBS at kiabbs.org
--- SBBSecho 2.11-Win32
* Origin: Killed in Action BBS at kiabbs.org (63:63/103)

Post-It! Network v2.4

Fri, 14 Nov 2008 12:06:00 -0600

From: Steve Winn @5.acnetasp_scrc *38
To: Worf @Echomail *38
Subject: Post-It! Network v2.4

Re: Post-It! Network v2.4

> test
>

It's setup for the wrong sub number. Use sub #3000 for Post-It! Network.

Steve

--
[AT2k] -- Your VBBS/VADV Support Center -- [www.at2k.org] -- [bbs.at2k.org]

--- Virtual Advanced Ver 2 for DOS
* Origin: Vested Tyme Dataline (63:63/1.23)
∩┐╜ Synchronet ∩┐╜ Killed in Action BBS at kiabbs.org
--- SBBSecho 2.11-Win32
* Origin: Killed in Action BBS at kiabbs.org (63:63/103)

Post-It! Network v2.4

Sun, 16 Nov 2008 04:30:33 -0600

From: jahmas @1410000 *80
To: Worf @1330000 *1
Subject: Post-It! Network v2.4

Re: Post-It! Network v2.4

> test

Gotcha here!

Mysteria Majicka BBS: Baltimore MD USA telnet://majicka.at2k.org Fido 1:229/444
Running Virtual Advanced BBS Software AspectNet / AcNet 1@1410000 sysop Jahmas

Post-It! Network v2.4

Sat, 15 Nov 2008 17:46:34 -0600

From: Roalt @1931000 *1
To: Worf @1330000 *1
Subject: Post-It! Network v2.4

Re: Post-It! Network v2.4

> test

You broke it!

--
[AT2k] -- Your VBBS/VADV Support Center -- [www.at2k.org] -- [bbs.at2k.org]

Post-It! Network v2.4

Fri, 14 Nov 2008 12:06:05 -0600

From: Steve Winn @1931000 *1
To: Worf @1330000 *1
Subject: Post-It! Network v2.4

Re: Post-It! Network v2.4

> test
>

It's setup for the wrong sub number. Use sub #3000 for Post-It! Network.

Steve

--
[AT2k] -- Your VBBS/VADV Support Center -- [www.at2k.org] -- [bbs.at2k.org]

Post-It! Network v2.4

Fri, 14 Nov 2008 10:36:00 -0600

From: Worf @1330000 *1
To: All @0 *0
Subject: Post-It! Network v2.4

test

oops Adultapp.v fix!!

Wed, 04 Jun 2008 15:35:34 -0500

From: thebutler4 @1801000 *1
To: All @ *0
Subject: oops Adultapp.v fix!!

Opps .. I forgot to add somthing to the adultapp.v

[find]
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

[replace with]
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
goto quit

Adultapp.v

Wed, 04 Jun 2008 15:22:22 -0500

From: thebutler4 @1801000 *1
To: All @ *0
Subject: Adultapp.v

, 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

vwall.v

Fri, 30 May 2008 08:45:01 -0500

From: Worf @1330000 *1
To: Issop @1425001 *1
Subject: vwall.v

Re: vwall.v

> Re: vwall
>
> > Re: vwall
> > > '*This script rewritten at the request of Patrick OSullivan, sysop
> > > '*I.S.S. OUTPOST 5A BBSaka Imperial Space Station susscan.com
> > Pat,
> > What give you the right to post Copyrighted software in here??? Did you
> > and think maybe Tim didn't want Vwall giving out?? By all rights Tim can
> > you to court for posting Copyrighted Software.
> > Matt - Worf

>
> I read this line and the following in lic.txt as it was written.
>
> This version is Freeware
>
> This software may be distributed freely on online services, bulletin boards,
> or other electronic media as long as the files are distributed in their
> entirety.
> ------------------------------
>
>

Ok you still shouldn't posted it here is why

This software may be distributed freely on online services, bulletin boards,
or other electronic media as long as the files are distributed in their
entirety. ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
^^^^^^^^

You only posted the Vwall.v None of the Lic.txt and other text files.

Matt - Worf
Starfleet Command BBS
Home of AllianceNet
http://www.starfleetcmdbbs.com
Yahoo: Starfleetcmdbbs

vwall.v

Fri, 30 May 2008 08:37:23 -0500

From: Scotty @1904000 *1
To: Issop @1425001 *1
Subject: vwall.v

Re: vwall.v

> Re: vwall

> -----------------------------------------------------------
> I failed in my understanding with you. I am very sorry that I offended you
> -------------------------------------
>
> I read this line and the following in lic.txt as it was written.
>
> This version is Freeware
>
> This software may be distributed freely on online services, bulletin boards,
> or other electronic media as long as the > files < are distributed in their
> entirety.
> ------------------------------
>
> You also gave me credit by indicating that I asked you to rewrite vwall for
> me and you gave me acknowledgment for coming up with it in the beginning .
>
> pat

But the license clearly states on online services, bulletin boards or other
electronic media as long as the "files" (note the plural) are intact. Which
means you can offer it as a download on your bbs but not posting a single file.
All files in the archive must be included with the script itself or the license
has been violated.
Yes I did give you credit for it, wasn't my idea in the first place, it was
yours.

- Timothy Cornett
- Deep Space 69 BBS
- telnet://nwebt.com

vwall.v

Thu, 29 May 2008 22:56:23 -0500

From: Issop @1425001 *1
To: Worf @1330000 *1
Subject: vwall.v

Re: vwall

> Re: vwall
> > '*This script rewritten at the request of Patrick OSullivan, sysop of the
> > '*I.S.S. OUTPOST 5A BBSaka Imperial Space Station susscan.com
> Pat,
> What give you the right to post Copyrighted software in here??? Did you stop
> and think maybe Tim didn't want Vwall giving out?? By all rights Tim can take
> you to court for posting Copyrighted Software.
> Matt - Worf
-----------------------------------------------------------
I failed in my understanding with you. I am very sorry that I offended you
-------------------------------------

I read this line and the following in lic.txt as it was written.

This version is Freeware

This software may be distributed freely on online services, bulletin boards,
or other electronic media as long as the files are distributed in their
entirety.
------------------------------

You also gave me credit by indicating that I asked you to rewrite vwall for
me and you gave me acknowledgment for coming up with it in the beginning .

pat

vwall

Thu, 29 May 2008 14:02:46 -0500

From: Worf @1330000 *1
To: Issop @1425001 *1
Subject: vwall

Re: vwall

> '****************************************************************************
> '*This is VWall.v, a script completely rewritten by Timothy Cornett and *
> '*Nassau Web Technologies. Copyright (C) 2008 Nassau Web Technologies, All *
> '*Rights Reserved. *
> '* *
> '* Version 1.1A.080503 *
> '* *
> '*This script rewritten at the request of Patrick OSullivan, sysop of the *
> '*I.S.S. OUTPOST 5A BBS aka Imperial Space Station susscan.com
> '****************************************************************************
>
Pat,

What give you the right to post Copyrighted software in here??? Did you stop
and think maybe Tim didn't want Vwall giving out?? By all rights Tim can take
you to court for posting Copyrighted Software.

Matt - Worf
Starfleet Command BBS
Home of AllianceNet
http://www.starfleetcmdbbs.com
Yahoo: Starfleetcmdbbs

age verify

Wed, 28 May 2008 09:25:57 -0500

From: Issop @1425001 *1
To: All @ *0
Subject: age verify

please edit for your system...........
'****************************************************************************
'** This script was converted from VBBS format by VACOM 1.50 **
'****************************************************************************

CLEAR
CLS
PRINT
normal:
PRINT " Please stand by while I check your age "
DELAY 2
IF !86 <= 18 read GOTO label~1
GOTO label~2
label~1:
GOTO label~3
label~2:
read:
CLS
PRINT
PRINT
PRINT " Welcome to BAD (Big Adult Diversions). This area is reserved "
PRINT " for adults, that is those users over 21 years of age. "
PRINT
PRINT
PRINT " Would you like to access this area?"
PRINT
PRINT
GETYN a0,
IF a0 = "Y" GOTO play
IF a0 = "N" GOTO getout
'* ENDIF without IF removed by VACOM *
'ENDIF
quit:
EXIT
play:
LET y = "R"
LET x = !57
LET a1 = !8
IFVAL a1 <> 0 GOTO playit
'* ENDIF without IF removed by VACOM *
'ENDIF
mail:
CLS
PRINT
PRINT "It appears you have not applied for access to this area. Would you"
PRINT " like to automatically send an E-Mail to ", !20, " requesting access?"
PRINT
PRINT
GETYN a2,
IF a2 = "Y" GOTO mailit
IF a2 = "N" GOTO getout
'* ENDIF without IF removed by VACOM *
'ENDIF
mailit:
CLS
PRINT
PRINT " Just answer the following few questions. "
PRINT
RS a3, "What is your date of birth? "
PRINT
RS a4, "What is a good telephone number to verify you at? "
PRINT
RS a5, "When is a good time for me to call for a voice validation? "
BUFFER CLEAR
SETEMAIL
LET a6 = "Big Adults Access Request "
LET a7 = " My date of birth is " % a3
LET a8 = " I can be voice validated at " % a4
LET a9 = " The best time to call is " % a5
BUFFER APPEND, a7
BUFFER APPEND, a8
BUFFER APPEND, a9
SAVE "", 1, "1425001", 1, a6, 0, ""
BUFFER CLEAR
CLS
PRINT
PRINT
PRINT "Ok, an E-Mail has automatically been sent to ", !20, "."
PRINT " You will be notified via E-Mail when your access"
PRINT " has been activated. Thank You...."
PRINT " Please be advised that additional identification"
PRINT " may be required, to obtain access to this area"
PAUSE
EXIT
getout:
PRINT
CLS
PRINT
PRINT "Now returing to the HOLODECK Menu."
DELAY 2
CLS
PRINT
EXIT
playit:
EXIT "adult"
CLEAR
CLS
CLS
PRINT
label~3:
read:
CLS
PRINT
PRINT
PRINT " Welcome to KKK (Kids Korner Klubhouse). This area is reserved "
PRINT " for kiddies, that is those users under 18 years of age. "
PRINT
PRINT
PRINT " Would you like to access this area?"
PRINT
PRINT
GETYN c0,
IF c0 = "Y" GOTO playx
IF c0 = "N" GOTO getoutx
'* ENDIF without IF removed by VACOM *
'ENDIF
quit:
EXIT
playx:
LET y = "V"
LET x = !57
LET c1 = !8
IFVAL c1 <> 0 GOTO playitx
'* ENDIF without IF removed by VACOM *
'ENDIF
mail:
CLS
PRINT
PRINT "It appears you have not applied for access to this area. Would you"
PRINT " like to automatically send an E-Mail to ", !20, " requesting access?"
PRINT
PRINT
GETYN c2,
IF c2 = "Y" GOTO mailitx
IF c2 = "N" GOTO getoutx
'* ENDIF without IF removed by VACOM *
'ENDIF
mailitx:
CLS
PRINT
PRINT " Just answer the following few questions. "
PRINT
RS c3, "What is your date of birth? "
PRINT
RS c4, "What is a good telephone number to verify you at? "
PRINT
RS c5, "When is a good time for me to call for a voice validation? "
BUFFER CLEAR
SETEMAIL
LET c6 = "Kiddies Area Access Request "
LET c7 = " My date of birth is " % a3
LET c8 = " I can be voice validated at " % a4
LET c9 = " The best time to call is " % a5
BUFFER APPEND, c7
BUFFER APPEND, c8
BUFFER APPEND, c9
SAVE "", 1, "1425001", 1, c6, 0, ""
BUFFER CLEAR
CLS
PRINT
PRINT
PRINT "Ok, an E-Mail has automatically been sent to ", !20, "."
PRINT " You will be notified via E-Mail when your access"
PRINT " has been activated. Thank You...."
PRINT
PRINT
PAUSE
EXIT
getoutx:
PRINT
CLS
PRINT
PRINT "Now returing to the HOLODECK Menu."
DELAY 2
CLS
PRINT
EXIT
playitx:
EXIT "under18"

Post-It! Network v2.4

Mon, 26 May 2008 05:24:32 -0500

From: jahmas @1410000 *80
To: Steve @1774000 *1
Subject: Post-It! Network v2.4

Re: Post-It! Network v2.4

> hey hey

Isn't that Fat Albert???

jah

Mysteria Majicka BBS: Baltimore MD USA telnet://majicka.at2k.org Fido 1:229/444
Running Virtual Advanced BBS Software AspectNet / AcNet 1@1410000 sysop Jahmas