TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 10th Mar 2008 12:21

Modified: 1st Jan 1970 01:00

Author: Zen Master

Summary

Very Basic First Program

Full Description

Building a 2d puzzle adventure game with no media to get to grips with coding

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: Text Adventure

Rem Created: 3/9/2008 5:00:47 PM

Rem ***** Main Source File *****

GoSub Setup

GoSub Box1

GoSub Intro

GoSub Box1

GoSub Intro2

Print "Entered mainframe, loading root processes..."

Sleep 2000

Print "Mainframe Security Loading..."

Sleep 2000

Input "What is the password? - ", C$

Print C$

Sleep 2000

Print "Incorrect Entry"

Sleep 2000

CLS

GoSub Box1

GoSub Intro3

GoSub Tutorial

GoSub Box2

Gosub Tutorial2

Loop

End

Box1: Rem This is a box in the center of the screen

LINE 250,320,540,320

LINE 250,295,540,295

LINE 250,320,250,295

LINE 540,320,540,295

Return

Box2: Rem This draws a square in the top right of the screen

LINE 500,100,700,100

LINE 500,300,700,300

LINE 500,100,500,300

LINE 700,100,700,300

Return

Intro:

A$ = "Hello and welcome to my world..."

Center Text 399,299,A$

Sleep 2000

CLS

Return

Intro2:

A2$ = "Accessing Mainframe..."

Center Text 399,299,A2$

Sleep 2000

CLS

Return

Intro3:

A3$ = "Welcome to Zen"

A8$ = "Congraluations on finding us"

A4$ = "But only one question still remains..."

A5$ = "Were we looking for you?"

A6$ = "I am offering you what you seek"

A7$ = "Do you have the will to find it?"

Center Text 399,299,A3$

Sleep 2000

CLS

Center Text 399,299,A8$

Sleep 2000

CLS

Center Text 399,299,A4$

Sleep 2000

CLS

Center Text 399,299,A5$

Sleep 2000

CLS

Center Text 399,299,A6$

Sleep 2000

CLS

Center Text 399,299,A7$

Sleep 2000

CLS

Return

Tutorial:

B$ = "Tutorial - Step One"

Center Text 399,299,B$

Sleep 5000

CLS

Return

Tutorial2:

B2$ = "Hello this is the"

B3$ = "help Box! To begin"

B4$ = "click the button"

B5$ = "below!"

Center Text 600,200,B2$

Center Text 600,200,B3$

Center Text 600,200,B4$

Center Text 600,200,B5$

Sleep 5000

CLS

Return

Setup:

Set Display Mode 800,600,16

Ink RGB(0,165,0),RGB(150,150,150)

Return

Download

Please login to download

Comments

No comments yet.

CodeBase - Text Adventure

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Zen Master
CodeBase Entries:	1