TheGameCreators - CodeBase - Simple Text Adventure

Return to the CodeBase listing

Category: Text

Version: 1.0

Information

Uploaded: 14th Jan 2006 20:31

Modified: 15th Jan 2006 23:42

Author: shortwind

Summary

Base for beginners to start a simple text adventure.

Full Description

This program represents a simple method for creating text adventures. This is only the very basic setup for an adventure. It handles basic rooms, objects, descriptions for each room and object, directions. It gives examples of how to do movement commands, get, drop, inventory, look, examine, etc.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` Project: Simple Adventure

` Created: 1/11/2006 7:08:57 PM

` ***** Main Source File *****

` Project: Simple Adventure Game

` Created: 1/10/2006 8:32:23 PM

` Here we tell Dark Basic to start reading our data at this label.

restore MainData

` Read in how many commands we have programmed.

global coms as integer

read coms

` Tell DarkBasic to set up an Array for our commands.

global dim commands$(coms)

` Read in all the commands.

for i=1 to coms

read commands$(i)

next i

` Read in our Room Data.

global roda1 as integer

global roda2 as integer

read roda1, roda2

global dim roomdata(roda1, roda2)

global dim roomname$(roda1)

global dim roomdescription$(roda1)

for i=1 to roda1

for j=1 to roda2

read roomdata(i,j)

next j

read roomname$(i)

read roomdescription$(i)

next i

` Read in the Object Data.

global obna

read obna

global dim objectname$(obna)

global dim objectroom(obna)

global dim inven$(obna)

global dim holdobject(obna)

global dim objecthold(obna)

global dim objectexam$(obna)

global dim objectopen(obna)

global dim objectopened(obna)

global dim inven$(obna)

for i=1 to obna

read objectname$(i), objectroom(i), objecthold(i)

read objectopen(i), objectopened(i), objectexam$(i)

inven$(i)=""

next i

` We start our processing loop here.  This is the actual start of the program.

` cls

` Initialize all our variables, etc

global currentroom=1

global thecowscomehome=0

global items=0

global currentcommand=0

global check=0

global currentobject$=""

repeat

` This presents the input prompt to the user.

Ask()

select currentcommand

case  1: Direction() : endcase

case  2: Direction() : endcase

case  3: Direction() : endcase

case  4: Direction() : endcase

case  5: GetThing()  : endcase

case  6: Drop()      : endcase

case  7: Look()      : endcase

case  8: Inventory() : endcase

case  9: Quit()      : endcase

case 10: Help()      : endcase

case 11: OpenThing() : endcase

case 12: CloseThing(): endcase

case 13: Examine()   : endcase

case default: print : print "I do not understand that command..." : endcase

endselect

until thecowscomehome = 1

end

function Ask()

check = 0

exits = 0

query$ = ""

temp$ = ""

t1$=""

currentobject$ = ""

repeat

print roomname$(currentroom)

input "Command? ",query$

for i=1 to len(query$)

if check=0

t1$=upper$(query$)

t1$=mid$(query$,i)

if t1$ <> " "

temp$ = temp$ + t1$

else

check = 1

endif

next i

currentobject$ = right$(query$,len(query$)-(len(temp$)+1))

for i=1 to coms

if upper$(temp$) = commands$(i) then exits=i

next i

if exits = 0

temp$ = ""

check = 0

print "I do not understand your command...."

endif

currentcommand = exits

until exits <> 0

endfunction

function FixPrint(b$ as string)

j=len(b$)

repeat

if j<=80 then print b$: j = 0 : b$=""

temp$=mid$(b$,80)

if temp$=" "

print left$(b$,80)

b$ = right$(b$,len(b$)-81)

j=len(b$)

else

i=79

repeat

temp$=mid$(b$,i)

if temp$<>" "

i=i-1

else

print left$(b$,i)

b$=right$(b$,len(b$)-i)

j=len(b$)

i=0

endif

until i=0

endif

until j=0

endfunction

function AddInventory()

items = items + 1

inven$(items) = currentobject$

holdobject(items) = check

objectroom(check) = 0

endfunction

function CheckInventory()

for i = 1 to items

if abs(objecthold(check)) = holdobject(i)

exits = 0

endif

next i

endfunction

function CloseThing()

RoomInObject()

if check<>0

if objectroom(check)=currentroom

if objectopen(check)=1

if objectopened(check)=1

print "This object has been closed."

objectopened(check)=-1

else

print "This object is already closed."

endif

else

print "Ok smarty pants, how do you suppose I close that?"

endif

else

print "What? Where is that object???"

endif

endfunction

function Direction()

if roomdata(currentroom, currentcommand)=0

print "You can't go that way!"

else if roomdata(currentroom, currentcommand)<=-1

print "You can't go there."

else

currentroom=roomdata(currentroom, currentcommand)

print "You have moved into the "; roomname$(currentroom)

endif

endfunction

function Drop()

exits=0

for i=1 to items

if upper$(currentobject$)=upper$(inven$(i))

exits=i

endif

next i

if exits<>0

objectroom(holdobject(exits))=currentroom

items=items-1

for i=exits to items

inven$(i)=inven$(i+1)

holdobject(i)=holdobject(i+1)

next i

print "I dropped the item."

else

print "You do not have that item."

endif

endfunction

function Examine()

RoomInObject()

if check <> 0

if objectroom(check) = currentroom

FixPrint(objectexam$(check))

if objectopened(check) = -1 then print "It is closed."

if objectopened(check) = 1

print "It is open and the following objects are in it."

for x = 1 to obna

if objectroom(x) < 0

if abs(objectroom(x)) = objectopened(check) then print objectname$(x)

endif

next x

endif

if upper$(inven$(items)) = upper$(currentobject$)

FixPrint(objectexam$(check))

if objectopened(check) = -1 then print "It is closed."

if objectopened(check) = 1

print "It is open and the following objects are in it."

for x = 1 to obna

if objectroom(x) < 0

if abs(objectroom(x)) = objectopened(check) then print objectname$(x)

endif

next x

endif

else

print "That object does not exist!!!"

endif

endfunction

function GetThing()

RoomInObject()

if check<>0

a=objectroom(check):b=abs(a):c=objectroom(b):d=objectopened(b)

if (a=currentroom) or ((c=currentroom) and (d=1))

if objecthold(check)=0

AddInventory()

print "Ok. I got it..."

else

if objecthold(check)=-999

print "Ooof! I get seem to get that."

else

if objecthold(check) < 0

exits=-1

CheckInventory()

if exits=-1

print "You can't get that... Yet..."

else

AddInventory()

print "Ok, got that item..."

endif

else

print "That is not in this room."

endif

else

print "That item is not here."

endif

else

print "Wait! Where did you see that!"

endif

endfunction

function Help()

print "In this simple adventure, we have a very dumb parser.  Below is a list"

print "of all the current commands this parser can respond to."

print : print "The parser only looks at the very first letter of each command."

print "If you type the whole word, ie North, the parser only looks at the N."

print : print "For Get, Drop, Examine, you need to type in the whole object name"

print "after the command, ie. G key"

print "N-North"

print "E-East"

print "S-South"

print "W-West"

print "G-Get"

print "D-Drop"

print "L-Look"

print "I-Inventory"

print "Q-Quit"

print "H-Help - This help message."

print "O-Open"

print "C-Close"

print "EX-Examine object"

endfunction

function Inventory()

print " "

print "You are carrying...."

if items = 0

print "    Oh let me see..... Nothing!"

else

for i=1 to items

print "    A "; inven$(i)

next i

endif

endfunction

function Look()

j=0

FixPrint(roomdescription$(currentroom))

print " "

print "You can see the following exits : ";

if roomdata(currentroom, 1) <> 0 then print "North : ";

if roomdata(currentroom, 2) <> 0 then print "East : ";

if roomdata(currentroom, 3) <> 0 then print "South : ";

if roomdata(currentroom, 4) <> 0 then print "West"

print " ": print " ": print "In this room you see:"

for i=1 to obna

if objectroom(i)=currentroom

j = 1

print "    A "; objectname$(i); "."

endif

next i

if j=0 then print "Nothing!"

endfunction

function OpenThing()

RoomInObject()

if check<>0

if objectroom(check)=currentroom

if objectopen(check)=1

if objectopened(check)=-1

print "This object has been opened."

objectopened(check)=1

else

print "That object is already open."

endif

else

print "Ok smarty pants, how do you suppose I open that?"

endif

else

print "That object is not in this room."

endif

else

print "What? Where is that object?"

endif

endfunction

function Quit()

print "Quit!!!"

thecowscomehome=1

endfunction

function RoomInObject()

print " " : print "currentobject$=";currentobject$

check = 0

for i=1 to obna

if upper$(currentobject$) = upper$(objectname$(i))

currentobject$ = objectname$(i)

check = i

endif

next i

endfunction

END

MainData:

` All our data goes here in this learning example.

` Advanced users will, of course, put this data in a encrypted data file.

` -- Number of Commands...

` There are other ways to control the commands, but this is the simplest

` in this learning Tutorial.  This tells the engine how many commands we

` are going to let the user try to use.

DATA 13

` -- Shortest form of all commands...

` In this version our parser really only deals with simple commands.

` North, East, South, West, Get, Drop, Look, Inventory, Quit, Help

` Open, Close, Examine

DATA "N","E","S","W","G","D","L","I","Q","H","O","C","EX"

` -- Number of rooms, number of directions (N,E,S,W,U,D) etc....

` This tells our engine how many rooms are in this database

` and the maximum directions in each room.  For this example we

` are only using the basic North, South, East, West.

DATA 32,4

` Basic map of the rooms.  It is best if you make your basic map on graph paper.

`               Armory[1]  - (E) - (W) - Weapons Store[2]

`                 (N)                       (N)

`                  |                         |

`                 (S)                       (S)

`              Bed Room[3] - (E) - (W) - Treasure Room[4]

` -- Actual room direction data followed by name and discription...

` Ok, here we tell the engine where the user can go from each room.

` We have decided to use the N,E,S,W so each column in the data statements

` represent the direction. So in the first data statement: DATA 0,2,3,0...

` Our N (North) column = 0 User can't go this direction

` The next E (East) column, 2 = Means the user can move to room 2

` 0 (Zero) = Can't go this direction.

` # (Any other number) = User moves to this room on that direction.

`  N,E,S,W,Room Name,Description of the room the user sees when entering.

DATA 0,2,6,0,"Armory"

DATA "This is a very large armory. There are many types of armor everywhere. You can also see a few good looking weapons scattered about."

DATA 0,3,7,1,"T Intersection"

DATA "This is a simple, dimly lit passage. Looking about reveals the same monotonous tunnels you are all too well accustomed to."

DATA 0,4,8,2,"Greeting Room"

DATA "You are in a large greeting room. There are large torches everywhere. This room seems to be very well kept. This is a very plush and beautiful room. There is a large desk sitting in the middle of the room."

DATA 0,5,0,3,"Ball Room"

DATA "This is a very, very large ballroom. There are double columns down the center of the room. The floor is pure, shining marble. The room is empty except for yourself. Looking to the west you can see the Throne Room."

DATA -32,0,-10,4,"Throne Room"

DATA "This is a 100x100 foot room. There is a large, golden, jewel encrusted throne at the far west of the room. There is a skeleton in the chair. It looks like the king died in his chair."

DATA 1,7,11,0,"Small Barracks"

DATA "This is a small 10x10 foor soldiers barracks. It looks recently used. There are ten beds and foot lockers. Nothing else is evident in the room."

DATA 2,8,12,6,"Entrance"

DATA "You are standing below the tunnel entrance. This area is well lit, but a bit musty. This intersection is 10 feet wide and about 10 feet high. The floor is unusually clean."

DATA 3,9,-13,7,"Large Barracks"

DATA "Here is a 20x20 foot barracks. It is almost identical to the other smaller barracks except there are 20 beds. There is a large painting on the south wall.  The picture is of the King."

DATA 0,10,14,8,"Small Mess Hall"

DATA "This room has many tables and a few chairs. Several broken plates are scattered around the room. There are old bones and broken wine flasks everywhere. The soldiers must have left in a hurry."

DATA -5,0,0,9,"Ready Room"

DATA "This is the soldier's ready room. They assemble here just incase they are needed. There are several benches and tables scattered about the room. In the north wall you can see the scant outlines of a door."

DATA 6,12,0,0,"Lounging Area"

DATA "This is a small lounging area. There are games, tables, chairs and the like everywhere. It seems that someone left here in quite a hurry. The walls seem normal enough. Only hints of liquor are in this room."

DATA 7,-13,16,11,"Corridor"

DATA "This is a short corridor. There are simple torches along the walls. Nothing else of interest seems to be here."

DATA -8,-14,-17,-12,"Tunnel Out"

DATA "This is the secret tunnel to the surface..."

DATA 9,15,0,-13,"Detention Area"

DATA "This room looks rather used. There are several truth telling devices here and there. There is also a desk. The rest of the room seems to be splattered with blood and other things."

DATA 0,0,0,14,"Large Cell"

DATA "This is a large cell. There are many chains hanging from the wall. Only a couple of beds are here. You don't really see anything of interest here."

DATA 12,17,0,0,"No"

DATA "Nothing."

DATA -13,18,0,16,"No"

DATA "Nothing."

DATA 0,19,21,17,"No"

DATA "Nothing."

DATA 0,0,-26,18,"No"

DATA "Nothing."

DATA 0,21,23,0,"No"

DATA "Nothing."

DATA 18,-26,0,20,"No"

DATA "Nothing."

DATA -32,0,30,0,"No"

DATA "Nothing."

DATA 20,24,0,0,"No"

DATA "Nothing."

DATA 0,-27,25,23,"No"

DATA "Nothing."

DATA 24,0,0,-29,"No"

DATA "Nothing."

DATA -19,0,-27,-21,"No"

DATA "Nothing."

DATA -26,0,-28,-24,"No"

DATA "Nothing."

DATA -27,0,0,0,"No"

DATA "Nothing."

DATA 0,-25,0,30,"No"

DATA "Nothing."

DATA 22,29,0,0,"No"

DATA "Nothing."

DATA 0,22,0,0,"No"

DATA "Nothing."

DATA -11,-5,0,-5,"Tunnel to Throne Room"

DATA "This is a large winding emergency tunnel for the soldiers to get to the throne room. This seems to be a rarely used tunnel. It is almost completely dark..."

` -- Number of objects...

` Tells the engine how many objects we have in our game.

DATA 10

` The following data statements describe the information to the engine

` about each object.

` Column 1 is the name of the object.

` Column 2 is the room where this object is located on a new game.

`          If this is negative, the the object is located in another object.

`          Example: The Key(10), is in the Box(1).

` Column 3 tells the engine if the object can be put into the users inventory.

`          -999 means the user can't pick up this object.

`          0 The user can pick this up anytime.

`          # The user must have this object in their inventory before they

`            can pick up this object.

`   Example:  To pick up the Princess(9), the user must have the pillow(7)

`             in their inventory.

` Column 4 In this example, if this is a container that can be opened

`          then we assign a 1 at this data point.  Otherwise -1 means the

`          object can't be opened by the user.

` Column 5

`          If this is a container, the this tells the engine the current

`          state of the object.

`          (-1) The object is closed.

`          ( 1) The object is opened.

`          ( 0) This object can't be opened or closed.

` -- Actual object name...

` -- (n) Starting room number... (-n) What object it is in...

` -- (-999)-No picking this up...(0)-Yes can pick up...

` -- (-n)-number of object user must have in inventory to get object (0) Need Nothing...

` -- (1) This can be opened (-1) Can't be opened...

` -- (-1) closed (1) open (0) neither

` -- Finnally the discription of the object for examine...

data "Box"

data 1,-999,1,-1

data "You see a small rectangalar box."

DATA "Sign",4,-999,-1,0

DATA "This is a small, but normal wooden sign. Written in dull english are the words, 'Can you pick up the Princess?'"

DATA "Leather",1,0,-1,0

DATA "This is a man size suit of armor. It looks more then worse for wear."

DATA "Helm",1,0,-1,0

DATA "This is a golden helmet. Nothing of any interest."

DATA "Dagger",2,0,-1,0

DATA "This is a weapon of death."

DATA "Arrow",2,0,-1,0

DATA "This is a weapon of peace."

DATA "Pillow",3,0,-1,0

DATA "There are small flowers on this pillow. It smells of perfume."

DATA "Blanket",3,0,-1,0

DATA "The strong smell of a female longs for you to wrap yourself in this blanket."

DATA "Princess",2,-7,-1,0

DATA "As you look at the Princess her beauty overwelms your already hagarded mind.  You don't know what else to do."

CodeBase - Simple Text Adventure

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	shortwind
CodeBase Entries:	3