Older Version
Newer Version
ChrisIverson
Jan 30, 2008
- "The tags hate me."
This is actually Noble D. Bell's Text Adventure Engine, with slight modifications by me. I am posting it here for accessibility purposes.
[[code format="vb"]]' ' 
thedarkfreak Jan 27, 2008 (Chris Iverson)
**' * TEXT ADVENTURE ENGINE *-
' * RELEASE 1.0.0 - FREEWARE *
' * BY NOBLE D. BELL(http://www.noblebell.com)([[http://www.noblebell.com%29|http://www.noblebell.com)]] *
' * *
' * NOTICE: *
' * You are free to use this text game engine for any use. The author, Noble D. Bell, is not responsible in any way *
' * for the use or misuse of this engine. If you do make changes or modifications to the code I require that you email *
' * me the revised code. *
''**
' REVISIONS:
' * February 5, 2006 - OFFICIAL RELEASE 1.0.0
' TO DO:
' * Add: LIGHT / EXTINGUISH commands for using a light source
' * Program: LEARN / CAST for magic spells
'======================================================================================================================
=======
===============================================================================================================
' PROGRAM STARTS HERE
'======================================================================================================================
=======
===============================================================================================================
' Every LB'er should know what this is for.
NOMAINWIN
' Setup the Window that will be used to play the game.
GOSUB [Setup.GUI]
' Setup global variables for True/False
GLOBAL TRUE,FALSE
TRUE = 1
FALSE = 0
' Setup global variables that will be used throughout the game.
' score - the current score for the player, turns - the number of turns the player has taken
' rm - the current room the player is in, maxinventory - the total number of items the player can pack
' inventorycount - the total number of items the player is carrying, OK - used as a flag
' maxhits - the max number of damage a player can take, hits - the total points of damage the player has taken
' defense - the number needed to hit a player, offense - the amount of damage a player can inflict
' gold - the amount of money the player has, maxmp - the total amount of magic the player can wield
' mp - the total amount of magic the player has left, armor$ - the type of armor the player is wearing
' weapon$ - the type of weapon the player is wielding, encounter - flag indicating a current battle
' lantern - a flag indicating if the lantern is on or off, needlight - a flag indicating if an area is dark or not
' noun - the number of the selected noun, verb - the number of the selected verb
' gametitle$ - the title of your game, gamedescription - the description of your game, crlf$ - carriage return/linefeed
GLOBAL score,turns,maxscore,rm,maxinventory,inventorycount,OK
GLOBAL maxhits,hits,defense,offense,gold,maxmp,mp,armor$,weapon$
GLOBAL encounter,lantern,needlight,noun,verb
GLOBAL gametitle$,gamedescription$,crlf$
' Special game variables and arrays
' rooms$(100) - This contains the description for each room in the game upto 100 rooms.
' roomProperties(100, 2) - Determines if the room is available for teleporting.
' exits(100,15) - This contains the visible exits in each room
' help$(100) - This contains some help or a clue for a particular room in the game.
' objects$(100) - Contains a list of objects the player can interact with in the game upto 100.
' objectproperties(100,7) - Contains a list of different properties about an object in the game.
' commands$(24) - Contains a list of commands (verbs) that are used in the game.
' objectdescriptions$(100) - Contains a list of descriptions about each object in the game.
'
' exits parameters:
' 1 - North, 2 - East, 3 - South, 4 - West, 5 - Up, 6 - Down : Holds connecting room number. Has 0 if not an exit.
' 7 - 12 are flags for each exit. (See example for use)
' 13 - 15 are not used at present time
'
' object properties parameters:
' 1 - the room location the object resides in.
' 2 - tells if the object is takeable (TRUE,FALSE)
' 3 - if the object is a monster tells how many hitpoints it has
' 4 - if the object is a monster tells how hard it is to hit it (1-20)
' 5 - if the object is a monster tells how much damage it can inflict (4,6,8,10,12,20)
' 6 - special flag
' 7 - Object is a source of Light(lantern, e.g.)
' room properties:
' 1 - Room can be teleported to. Values: 0 - Not Visited 1 - Visted, able to TP 2 - Never TP
' 2 - Room needs light
DIM rooms$(100),exits(100,15),help$(100),commands$(27)
DIM objects$(100),objectproperties(100,7),objectdescriptions$(100)
DIM roomProperties(100, 2)
' Assign the crlf$ with the ascii characters that represent a carriage return and a linefeed.
crlf$ = chr$(13)+chr$(10)
' Initialize everything and begin
GOSUB [Setup.General]
GOSUB [Setup.Rooms]
GOSUB [Setup.Objects]
GOSUB [Begin]
GOSUB [FleshRoom]
GOTO [Display]
''
**' * WAIT FOR THE USER TO DO SOMETHING. *
''**
[EventLoop]
#m.txtCommand,""""
#m.txtCommand,"!setfocus""!setfocus"
Wait
''
**' * THE PARSER - BREAKS DOWN THE COMMAND INTO A VERB + NOUN COMBINATION. *
''**
[Parser]
turns = turns + 1 ' add one to the turns variable.
#m.txtCommand,"!contents? command$";"!contents? command$"; ' get what the user typed into the command text box.
command$ = upper$(command$) ' convert what the user typed to upper case text.
verb$ ="""" ' clear the noun and verb strings to nil.
noun$ =""""
verb$ = WORD$(command$,1) ' using lb's word$ get the verb part of the command and put it in verb$.
noun$ = WORD$(command$,2) ' using lb's word$ get the noun part of the command and put it in noun$.
verb = 0 ' set the verb and noun id's to 0.
noun = 0
Gosub [Parser.Verb] ' check to see if the verb the user typed is one that we understand.
Return ' return to calling module.
[Parser.Verb] ' see if the verb the user typed is one that we understand and if it is
for x = 1 to 27 ' then assign it it's action value (place in the array). if it is not then
if verb$ = commands$(x) then ' set the verb id to 0 meaning not known.
verb=x
exit for
end if
next x
if verb = 0 then ' the verb is not known so tell the user to try again.
txt$ ="I"I don't understand that command. Try saying it a different wayplease."please."
Return
end if
select case verb ' the verb is known so let's act on it and see what we need to do with it.
case 1 ' North
if exits(rm,1)<>0 then
GOSUB [Logic]
if OK=TRUE then
rm=exits(rm,1)
GOSUB [FleshRoom]
end if
else
txt$ ="You"You cannot go thatdirection."direction."
end if
case 2 ' East
if exits(rm,2)<>0 then
GOSUB [Logic]
if OK=TRUE then
rm=exits(rm,2)
GOSUB [FleshRoom]
end if
else
txt$ ="You"You cannot go thatdirection."direction."
end if
case 3 ' South
if exits(rm,3)<>0 then
GOSUB [Logic]
if OK=TRUE then
rm=exits(rm,3)
GOSUB [FleshRoom]
end if
else
txt$ ="You"You cannot go thatdirection."direction."
end if
case 4 ' West
if exits(rm,4)<>0 then
GOSUB [Logic]
if OK=TRUE then
rm=exits(rm,4)
GOSUB [FleshRoom]
end if
else
txt$ ="You"You cannot go thatdirection."direction."
end if
case 5 ' Up
if exits(rm,5)<>0 then
GOSUB [Logic]
if OK=TRUE then
rm=exits(rm,5)
GOSUB [FleshRoom]
end if
else
txt$ ="You"You cannot go thatdirection."direction."
end if
case 6 ' Down
if exits(rm,6)<>0 then
GOSUB [Logic]
if OK=TRUE then
rm=exits(rm,6)
GOSUB [FleshRoom]
end if
else
txt$ ="You"You cannot go thatdirection."direction."
end if
case 7 ' Save
if encounter = TRUE then
txt$ ="You"You cannot save a game during anencounter."encounter."
else
open"gamedata.dat""gamedata.dat" for output as #1
print #1,score
print #1,turns
print #1,rm
print #1,inventorycount
print #1,hits
print #1,defense
print #1,offense
print #1,gold
print #1,mp
print #1,armor$
print #1,weapon$
for x=1 to 100
for y=1 to 7
print #1,objectproperties(x,y)
next y
next x
for x=1 to 100
for y=1 to 15
print #1,exits(x,y)
next y
next x
for x=1 to 100
for y = 1 to 2
print #1, roomProperties(x, y)
next y
next x
print #1,lantern
close #1
txt$ ="Game saved.""Game saved."
end if
case 8 ' Load
if encounter = TRUE then
txt$ ="You"You cannot load a game during anencounter."encounter."
else
dim info$(10, 10)
if fileExists(DefaultDir$,"gamedata.dat")"gamedata.dat") then
open"gamedata.dat""gamedata.dat" for input as #1
input #1,score
input #1,turns
input #1,rm
input #1,inventorycount
input #1,hits
input #1,defense
input #1,offense
input #1,gold
input #1,mp
input #1,armor$
input #1,weapon$
for x=1 to 100
for y=1 to 7
input #1,objectproperties(x,y)
next y
next x
for x=1 to 100
for y=1 to 15
input #1,exits(x,y)
next y
next x
for x=1 to 100
for y = 1 to 2
input #1, roomProperties(x, y)
next y
next x
input #1,lantern
close #1
txt$ ="Game loaded.""Game loaded."
else
txt$ ="You"You don't have a game saved. Save onefirst."first."
end if
end if
case 9 ' Look
#m.txtView,""""
GOSUB [FleshRoom]
case 10 ' Inventory
txt$ ="You"You are carrying the followingitems:"+chr$(13)+chr$(10)items:"+chr$(13)+chr$(10)
tmp = 0
for x = 1 to 100
if objectproperties(x,1)=0 then
ifobjects$(x)<>""objects$(x)<>"" then
txt$ = txt$ + objects$(x)+chr$(13)+chr$(10)
tmp = 1
end if
end if
next x
if tmp= 0 then txt$ = txt$ + "Nothing."
=0 then txt$=
txt$ + "Nothing."
case 11 ' Score
txt$ ="Your"Your score is"" + str$(score) +"" out of"" + str$(maxscore) +"" in"" + str$(turns) +" turns."+chr$(13)+chr$(10)txt$ = txt$ + "You" turns."+chr$(13)+chr$(10)
txt$ = txt$ + "You have"" + str$(hits) +"/""/" + str$(maxhits) +"" hitpoints."points." + chr$(13)+chr$(10)
txt$ = txt$ +"You"You have"" + str$(mp) +"/""/" + str$(maxmp) +"" magicpoints."points." + chr$(13)+chr$(10)
txt$ = txt$ +"You"You can inflict upto"" + str$(offense) +"" points ofdamage."+chr$(13)+chr$(10)txt$ = txt$ + "Yourdamage."+chr$(13)+chr$(10)
txt$ = txt$ + "Your defense is"" + str$(defense) +"."+chr$(13)+chr$(10)txt$ = txt$ + "You"."+chr$(13)+chr$(10)
txt$ = txt$ + "You have"" + str$(gold) +" gold."+chr$(13)+chr$(10)txt$ = txt$ + "You" gold."+chr$(13)+chr$(10)
txt$ = txt$ + "You are wearing"" + armor$ +" armor."+chr$(13)+chr$(10)txt$ = txt$ + "You" armor."+chr$(13)+chr$(10)
txt$ = txt$ + "You are wielding"" + weapon$ +".""."
case 12 ' Inspect
GOSUB [Parser.Noun]
if noun <> 0 then
if objectproperties(noun,1)=0 or objectproperties(noun,1)=rm then
txt$ = objectdescriptions$(noun)
GOSUB [Logic]
else
txt$ ="You"You don't see thathere."here."
end if
end if
case 13 ' Use
GOSUB [Parser.Noun]
if noun <> 0 then
if objectproperties(noun,1)<>0 then
txt$ ="You"You don't havethat."that."
else
GOSUB [Logic]
end if
end if
case 14 ' Take
GOSUB [Parser.Noun]
if noun <> 0 then
if objectproperties(noun,1)<>rm then
txt$ ="You"You don't see thathere."here."
return
end if
if objectproperties(noun,1)=0 then
txt$ ="You"You already havethat."that."
return
end if
if objectproperties(noun,2)=FALSE then
txt$ ="You"You cannot takethat."that."
return
end if
if inventorycount+1 > maxinventory then
txt$ ="You"You cannot carry that, you are tooheavy."heavy."
return
end if
objectproperties(noun,1)=0
txt$ ="Taken.""Taken."
inventorycount = inventorycount + 1
end if
case 15 ' Drop
GOSUB [Parser.Noun]
if noun <> 0 then
if objectproperties(noun,1)=0 then
objectproperties(noun,1)=rm
txt$ ="Dropped.""Dropped."
inventorycount = inventorycount - 1
else
txt$ ="You"You don't havethat."that."
end if
end if
case 16 ' Fight
GOSUB [Parser.Noun]
if noun <> 0 then
if objectproperties(noun,1)=rm then
if objectproperties(noun,3)=0 then
txt$ ="That"That is harmless. Why would you want to fightthat?"that?"
else
GOSUB [Battle]
end if
else
txt$ ="You"You don't see thathere."here."
end if
end if
case 17 ' Quit
GOTO [Quit]
case 18 ' Help
txt$ = help$(rm)
case 19 ' Arm
GOSUB [Parser.Noun]
if noun <> 0 then
if objectproperties(noun,1)<>0 then
txt$="Youtxt$="You don't havethat."that."
return
end if
if objects$(noun)=weapon$ then
txt$="Youtxt$="You are already wieldingthat."that."
return
end if
weapon$ = objects$(noun)
offense = objectproperties(noun,5)
txt$ ="You"You are now wielding a"" + weapon$ +".""."
end if
case 20 ' UnArm
GOSUB [Parser.Noun]
if noun <> 0 then
if objectproperties(noun,1)<>0 then
txt$="Youtxt$="You don't havethat."that."
return
end if
if objects$(noun)<>weapon$ then
txt$="Youtxt$="You are not wieldingthat."that."
return
end if
weapon$ ="hands""hands"
offense=4
txt$ ="You"You are now wielding"" + weapon$ +".""."
end if
case 21 ' Wear
GOSUB [Parser.Noun]
if noun <> 0 then
if objectproperties(noun,1)<>0 then
txt$="Youtxt$="You don't havethat."that."
return
end if
if objects$(noun)=armor$ then
txt$="Youtxt$="You are already wearingthat."that."
return
end if
armor$ = objects$(noun)
defense = objectproperties(noun,4)
txt$ ="You"You are now wearing"" + armor$ +" armor."" armor."
end if
case 22 ' Remove
GOSUB [Parser.Noun]
if noun <> 0 then
if objectproperties(noun,1)<>0 then
txt$="Youtxt$="You don't havethat."that."
return
end if
if objects$(noun)<>armor$ then
txt$="Youtxt$="You are not wearingthat."that."
return
end if
armor$ ="Cloth""Cloth"
defense = 9
txt$ ="You"You are now wearing"" + armor$ +" armor."" armor."
end if
case 23 ' Learn
txt$ ="Not"Not used in thisadventure."adventure."
case 24 ' Cast
txt$ ="Not"Not used in thisadventure."adventure."
case 25 'Teleport
GOSUB [Logic]
If OK=TRUE and TOK = TRUE then
rm = val(noun$)
gosub [FleshRoom]
Else
txt$ ="Cannot"Cannot TELEPORTthere."there."
End If
case 26 'Light
GOSUB [Parser.Noun]
If objectproperties(x, 7) = 1 then
If lantern then
txt$ ="You"You already have somethinglit!"lit!"
Else
lantern = 1
txt$ ="You"You have lit the";objects$(x)";objects$(x)
End If
Else
txt$ ="That"That cannot belit."lit."
End If
case 27 'Extinguish
GOSUB [Parser.Noun]
If objectproperties(x, 7) = 1 then
If lantern then
lantern = 0
txt$ ="The ";objects$(x);""The ";objects$(x);" was putout."out."
Else
txt$ ="The ";objects$(x);""The ";objects$(x);" is notlit."lit."
End If
Else
txt$ ="That"That cannot beextinguished."extinguished."
End If
End Select
Return
[Parser.Noun] ' look to see if we understand what the object or noun is that the
for x = 1 to 18 ' user entered. if we do understand it then assign it it's action
if noun$ = objects$(x) then ' id (place in the array) otherwise assign the noun id a 0 meaning
noun=x ' we did not know that object.
exit for
end if
next x
if noun = 0 then
txt$ ="I"I don't know what thatis."is."
Return
end if
Return
''
**' * USER TAPS OK OR HITS ENTER, ACT ON THEIR COMMANDS. *
''**
[Okay]
GOSUB [Parser]
GOTO [Display]
''
**' * DISPLAY ACTION *
''**
[Display]
#m.txtView,"!contents? tmpTxt$";"!contents? tmpTxt$";
#m.txtView,""'tmpTxt$=""""
'tmpTxt$=""
tmpTxt$ = tmpTxt$ + chr$(13) + chr$(10)
tmpTxt$ = tmpTxt$ +"> ""> " + command$ + chr$(13) + chr$(10) + chr$(13) + chr$(10)
tmpTxt$ = tmpTxt$ + txt$ + chr$(13) + chr$(10)
if needlight= TRUE
=TRUE andlantern =lantern=
FALSE then
tmpTxt$ ="You"You cannot see anything. It is pitch blackhere."+chr$(13)+chr$(10)here."+chr$(13)+chr$(10)
end if
#m.txtView,"!setfocus""!setfocus"
#m.txtView, tmpTxt$
Call VerticalScroll hWnd(#m.txtView), _SB_BOTTOM ' Thanks Janet!!!
' Call VerticalScroll hWnd(#main.textbox), _SB_TOP
' Call VerticalScroll hWnd(#main.textbox), _SB_PAGEDOWN
' Call VerticalScroll hWnd(#main.textbox), _SB_PAGEUP
GOTO [EventLoop]
''
**' * DESCRIBE ROOM FOR DISPLAY ROUTINE *
''**
[FleshRoom]
If roomProperties(rm, 1)= 0
=0 then roomProperties(rm,1) =1)=
1 ' Allows TELEPORTING
If not(lantern) AND roomProperties(rm, 2) then
txt$ ="The"The darkness is so blinding you can't see your hand in front of yourface."face."
txt$ = txt$ + chr$(13) + chr$(10) +"If"If only you had a lightsource..."source..." + chr$(13)+chr$(10)+chr$(13)+chr$(10)
Else
txt$=rooms$(rm)+chr$(13)+chr$(10)+chr$(13)+chr$(10) ' Let the program display the room's contents and it's
End If
txt$ = txt$ +"Exits: ""Exits: " ' visible exits along with the description.
tmp = 0
if exits(rm,1)<>0 then
txt$ = txt$ +"North,""North,"
tmp=1
end if
if exits(rm,2)<>0 then
txt$ = txt$ +"East,""East,"
tmp=1
end if
if exits(rm,3)<>0 then
txt$ = txt$ +"South,""South,"
tmp=1
end if
if exits(rm,4)<>0 then
txt$ = txt$ +"West,""West,"
tmp=1
end if
if exits(rm,5)<>0 then
txt$ = txt$ +"Up,""Up,"
tmp=1
end if
if exits(rm,6)<>0 then
txt$ = txt$ +"Down,""Down,"
tmp=1
end if
ifright$(txt$,1)=","right$(txt$,1)="," then
txt$ = left$(txt$,len(txt$)-1)
end if
if tmp= 0 then txt$ = txt$ + "None"
=0 then txt$=
txt$ + "None"
txt$ = txt$ + chr$(13)+chr$(10)+chr$(13)+chr$(10)
txt$ = txt$ +"You"You also see:"" +chr$(13)+chr$(10)
tmp = 0
for x=1 to 100
if objectproperties(x,1)=rm then
txt$ = txt$ + objects$(x)+chr$(13)+chr$(10)
tmp=1
end if
next x
if tmp= 0 then txt$=txt$+"Nothing"
=0 then txt$=
txt$+"Nothing"
txt$ = txt$+chr$(13)+chr$(10)
Return
''
**' * QUIT THE GAME *
''**
[Quit]
CONFIRMgametitle$+chr$(13)+"Aregametitle$+chr$(13)+"Are you sure you really want toquit?";answer$if answer$="no"quit?";answer$
if answer$="no" then GOTO [EventLoop]
txt$ ="Thank"Thank you for playing. I really hope that you had a wonderful and entertainingexperience."+chr$(13)+chr$(10)txt$ = txt$ + "Ifexperience."+chr$(13)+chr$(10)
txt$ = txt$ + "If you have any comments or questions then please visit my website at thefollowing"+chr$(13)+chr$(10)txt$ = txt$ + "location:http://www.noblebell.com"+chr$(13)+chr$(10)+chr$(13)+chr$(10)following"+chr$(13)+chr$(10)
txt$ = txt$ + "location: http://www.noblebell.com"+chr$(13)+chr$(10)+chr$(13)+chr$(10)
NOTICE gametitle$+chr$(13)+txt$
Close #m
END
''
**' * FUNCTIONS *
''**
' Specify the number of sides on the die and the number of times to roll and the result will be returned.
FUNCTION RollDice(sides,times)
tmp = 0
FOR x = 1 to times
tmp = tmp + int(rnd(1)*sides)+1
NEXT x
RollDice = tmp
END FUNCTION
' Checks to see if a file that is passed actually exists on the users directory path specified.
FUNCTION fileExists(path$, filename$)
files path$, filename$, info$()
fileExists = val(info$(0, 0)) 'non zero is true
END FUNCTION
' Used to scroll to the bottom of the screen in the textbox.
SUB VerticalScroll handle, ScrollAmount
Calldll #user32,"SendMessageA","SendMessageA", _
handle as Ulong, _
_WM_VSCROLL as Long, _
ScrollAmount as Long, _
0 as Long, _
result as Long
END SUB
''
**' * GUI SETUP *
''**
[Setup.GUI]
ForegroundColor$ ="black""black"
BackgroundColor$ ="buttonface""buttonface"
TextboxColor$ ="white""white"
TexteditorColor$ ="white""white"
ComboboxColor$ ="white""white"
ListboxColor$ ="white""white"
WindowWidth= 792
=792 :WindowHeight =WindowHeight=
595
UpperLeftX=int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((DisplayHeight-WindowHeight)/2)
textbox #m.txtView, 8, 10, 768, 515
textbox #m.txtCommand, 8, 530, 672, 25
stylebits #m.btnGo, _BS_MULTILINE, 0, 0, 0
button #m.default,"GO","GO", [Okay], UL, 688, 530, 88, 25
stylebits #m.txtView, _ES_MULTILINE or _ES_READONLY or _WS_VSCROLL, _ES_AUTOHSCROLL , 0, 0
open"TEXT ADVENTURE""TEXT ADVENTURE" for dialog as #m
#m.txtView"!font"!font arial11"11"
#m.txtCommand"!font"!font arial 11bold"bold"
#m.default"!font"!font arial 11bold"bold"
#m"trapclose [Quit]""trapclose [Quit]"
#m.txtCommand,"!setfocus""!setfocus"
Return
''
**' * GENERAL *
''**
[Setup.General]
' assign starting values to certain variables
score= 0
=0 :maxscore =maxscore=
500 ' current score is 0 and the maximim score can be only 500
turns= 0
=0 :rm =rm=
1 ' total turns taken is 0 and the starting room location is 1
maxinventory= 10
=10 :inventorycount =inventorycount=
0 ' total items that can be carried at once is 10 and they are carrying 0
maxhits = 25 ' the total number of hits you can take before you die.
hits = 25 ' you have 25 hits left before you die.
defense = 9 ' (1-20) : 20-Easy to hit, 1-Near impossible to hit, 0-Can't hit!
offense = 4 ' the amount of damage that can be caused (4,8,10,12,20)
gold = 50 ' starting about of money the player has
maxmp = 15 ' total magic points the player can spend
mp = 15 ' total magic points the player has left to spend
encounter = FALSE ' tells if the player is engaged in a battle (TRUE/FALSE)
lantern = FALSE ' tells if the player's lantern is lit or not (TRUE/FALSE)
needlight = FALSE ' tells if the room needs to have a light or not (TRUE/FALSE)
noun = 0 ' noun action id
verb = 0 ' verb action id
OK = FALSE ' flag (TRUE/FALSE)
' Using anything different from the items below they must be listed as a game object that the user can interact with.
' If the object is to be armor then you need to set the objectproperties defense parameter to the value you want.
' If the object is to be a weapon then you need to set the objectproperties damage parameter to the value you want.
armor$="CLOTH"armor$="CLOTH" ' Starting armor the player is wearing.
weapon$="HANDS"weapon$="HANDS" ' Starting weapon the player is using.
' Add the known commands to the commands$ array. Currently there are 24 known commands. The commands must be
' in UPPER case and only one word. You can add new commands by adding another element to the commands$ array
' with the command and then you will have to add the new element to the [Parser.Verb] module and also to the
' [Logic] module if needed.
commands$(1)="NORTH":commands$(2)="EAST":commands$(3)="SOUTH":commands$(4)="WEST":commands$(5)="UP":commands$(6)="DOWN"commands$(7)="SAVE":commands$(8)="LOAD":commands$(9)="LOOK":commands$(10)="INVENTORY":commands$(11)="SCORE"commands$(12)="INSPECT":commands$(13)="USE":commands$(14)="TAKE":commands$(15)="DROP":commands$(16)="FIGHT"commands$(17)="QUIT":commands$(18)="HELP":commands$(19)="ARM":commands$(20)="UNARM":commands$(21)="WEAR":commands$(22)="REMOVE"commands$(23)="LEARN":commands$(24)="CAST":commands$(25)="TELEPORT":commands$(26)="LIGHT":commands$(27)="EXTINGUISH"commands$(1)="NORTH":commands$(2)="EAST":commands$(3)="SOUTH":commands$(4)="WEST":commands$(5)="UP":commands$(6)="DOWN"
commands$(7)="SAVE":commands$(8)="LOAD":commands$(9)="LOOK":commands$(10)="INVENTORY":commands$(11)="SCORE"
commands$(12)="INSPECT":commands$(13)="USE":commands$(14)="TAKE":commands$(15)="DROP":commands$(16)="FIGHT"
commands$(17)="QUIT":commands$(18)="HELP":commands$(19)="ARM":commands$(20)="UNARM":commands$(21)="WEAR":commands$(22)="REMOVE"
commands$(23)="LEARN":commands$(24)="CAST":commands$(25)="TELEPORT":commands$(26)="LIGHT":commands$(27)="EXTINGUISH"
Return
''
**' * ROOM DESCRIPTIONS, EXITS, ETC. *
''**
[Setup.Rooms]
for x=1 to 100
help$(x) ="Try"Try working it out yourself a littlelonger."longer."
next x
for x=1 to 100
for y = 1 to 15
exits(x,y)=0
next y
next x
for x=1 to 100
rooms$(x)=""rooms$(x)=""
next x
rooms$(1) ="BOTTOM"BOTTOM OFMOUNTAIN"+crlf$+crlf$MOUNTAIN"+crlf$+crlf$
rooms$(1) = rooms$(1) +"You"You are standing at the foot of what appears to be a really largemountain."+crlf$mountain."+crlf$
rooms$(1) = rooms$(1) +"The"The rocks are to steep and slimey to climb. There is however a little windingtrail"+crlf$trail"+crlf$
rooms$(1) = rooms$(1) +"that"that appears to be leading up into the mountain. There is a heavy mist in theair."air."
rooms$(2) ="GAP"GAP IN THEPATH"+crlf$+crlf$PATH"+crlf$+crlf$
rooms$(2) = rooms$(2) +"There"There is a small gap in the pathway here. It appears to be man-made. The air isstarting"+crlf$starting"+crlf$
rooms$(2) = rooms$(2) +"to"to become more chilled and thin. The mist from earlier has all butdisapated."disapated."
rooms$(3) ="MOUNTAIN PASS"+crlf$+crlf$"MOUNTAIN PASS"+crlf$+crlf$
rooms$(3) = rooms$(3) +"This"This is a leveled out area that looks to be a simple camp site. There is nothing useful herethough."though."
rooms$(4) ="HOLE"HOLE IN MOUNTAINSIDE"+crlf$+crlf$SIDE"+crlf$+crlf$
rooms$(4) = rooms$(4) +"There"There is an opening inside one of the large rocks here. It appears to be largeenough"+crlf$enough"+crlf$
rooms$(4) = rooms$(4) +"for"for a person to get inside. It is aweful dark looking in there and you can hearfaint"+crlf$faint"+crlf$
rooms$(4) = rooms$(4) +"sounds"sounds of dripping water in thedistance."distance."
rooms$(5) ="SPLIT"SPLIT IN THEPATH"+crlf$+crlf$PATH"+crlf$+crlf$
rooms$(5) = rooms$(5) +"The"The cavern that you are in seems to split into two different directionshere."+crlf$here."+crlf$
rooms$(5) = rooms$(5) +"There"There is a strange wooden door on the north side of this passage and anopening"+crlf$opening"+crlf$
rooms$(5) = rooms$(5) +"leading"leading off into darkness toward thesouth."south."
rooms$(6) ="LOST TOMB"+crlf$+crlf$"LOST TOMB"+crlf$+crlf$
rooms$(6) = rooms$(6) +"This"This is an oblong chamber where someone or something burries others. Everything is amess"+crlf$mess"+crlf$
rooms$(6) = rooms$(6) +"and"and all the tombs are open with nothing inside. Almost as if the contents werestolen."stolen."
rooms$(7) ="WEST"WEST TOMBCHAMBER"+crlf$+crlf$CHAMBER"+crlf$+crlf$
rooms$(7) = rooms$(7) +"This"This area of the tomb is scattered with shrouds and busted opentombs."tombs."
rooms$(8) ="EAST"EAST TOMBCHAMBER"+crlf$+crlf$CHAMBER"+crlf$+crlf$
rooms$(8) = rooms$(8) +"This"This area of the elongated tomb is covered with busted opentombs."tombs."
rooms$(9) ="WEST"WEST OFRAVINE"+crlf$+crlf$RAVINE"+crlf$+crlf$
rooms$(9) = rooms$(9) +"You"You are standing just to the west of a very large and deep ravine carved into themountain"+crlf$mountain"+crlf$
rooms$(9) = rooms$(9) +"surface."surface. It kind of looks like this is where bad things have taken place in thepast."past."
rooms$(10) ="EAST"EAST OFRAVINE"+crlf$+crlf$RAVINE"+crlf$+crlf$
rooms$(10) = rooms$(10) +"The"The ravine is to the west of you. Things seem oddly different here. More so thannormal."normal."
rooms$(11) ="BONE CHAMBER"+crlf$+crlf$"BONE CHAMBER"+crlf$+crlf$
rooms$(11) = rooms$(11) +"The"The floor in this area is completely covered in unidentifiable bones of all shapes andsizes."sizes."
rooms$(12) ="SWIRLING POOL"+crlf$+crlf$"SWIRLING POOL"+crlf$+crlf$
rooms$(12) = rooms$(12) +"Standing"Standing in the center of this odd and fowl-smelling pool of liquid stands a veryunique"+crlf$unique"+crlf$
rooms$(12) = rooms$(12) +"statue."statue. There is a magical disturbance in the air. Some spells may beaffected."affected."
exits(1,1) = 2
exits(2,1) = 3
exits(2,3) = 1
exits(2,2) = 4
exits(3,3) = 2
exits(4,4) = 2
exits(4,2) = 5
exits(5,4) = 4
exits(5,3) = 6
exits(5,1) = 9
exits(5,7) = 1 'locked
exits(6,1) = 5
exits(6,2) = 8
exits(6,4) = 7
exits(7,2) = 6
exits(8,4) = 6
exits(9,2) = 10
exits(9,3) = 5
exits(9,8) = 1 ' ravine
exits(10,1) = 12
exits(10,3) = 11
exits(10,4) = 9
exits(11,1) = 10
exits(12,3) = 10
roomProperties(12, 1) = 2 'Can't TP to or from room 12
roomProperties(12, 2) = 1 'Need light
Return
''
**' * OBJECTS, OBJECT PROPERTIES, OBJECT DESCRIPTIONS *
''**
[Setup.Objects]
for x = 1 to 100
objects$(x)=""objects$(x)=""
next x
objects$(1) ="ORC""ORC"
objectproperties(1,1)=3
objectproperties(1,2)=FALSE
objectproperties(1,3)=6
objectproperties(1,4)=8
objectproperties(1,5)=4
objectdescriptions$(1) ="A"A massive frame, pig-like head, pale green. Very unfriendlylooking."looking."
objects$(2) ="SKELETON""SKELETON"
objectproperties(2,1)=6
objectproperties(2,2)=FALSE
objectproperties(2,3)=4
objectproperties(2,4)=9
objectproperties(2,5)=4
objectdescriptions$(2) ="An"An animated corpse of bones wielding adagger."dagger."
objects$(3) ="SWORD""SWORD"
objectproperties(3,1)=7
objectproperties(3,2)=TRUE
objectproperties(3,5)= 8
objectdescriptions$(3) ="A"A short sword made of finely crafted steel with a jewel-enlaidhilt."hilt."
objects$(4) ="ROPE""ROPE"
objectproperties(4,1)=7
objectproperties(4,2)=TRUE
objectdescriptions$(4) ="50'"50' of coiledrope"rope"
objects$(5) ="KEY""KEY"
objectproperties(5,1)=8
objectproperties(5,2)=TRUE
objectdescriptions$(5) ="A"A rusted-metal skeleton key. It might be used to unlock more than onedoor."door."
objects$(6) ="STATUE""STATUE"
objectproperties(6,1)=12
objectproperties(6,2)=FALSE
objectdescriptions$(6) ="This"This is just a simple stone statue .. Wait! You feel funny and appear to be feelingbetter."better."
objects$(7) ="LANTERN""LANTERN"
objectproperties(7, 1) = 1
objectproperties(7, 2) = TRUE
objectproperties(7, 7) = TRUE
objectdescriptions$(7) ="A"A rather old lantern, but appears towork."''work."
'
**' * GAME LOGIC BELOW *
''**
[Logic]
OK = TRUE
TOK = TRUE
' Once a fight starts you cannot run from it. You must finish it.
if encounter = TRUE then
if verb=1 or verb=2 or verb=3 or verb=4 or verb=5 or verb=6 then
txt$ ="You"You cannotrun!"run!"
OK = FALSE
return
end if
end if
'Checks if you can TELEPORT to a room
roomnum = val(noun$)
If roomnum > 12 or roomnum < 1 then TOK = FALSE
If roomProperties(roomnum, 1)= 0
=0 or roomProperties(roomnum,1) =1)=
2 then TOK = FALSE
If roomProperties(rm, 1)= 2 then TOK =
=2 then TOK=
FALSE
' Special things that happen in selected rooms.
select case rm
case 12
if verb= 12
=12 andnoun =noun=
6 then
txt$ = objectdescriptions$(6)+crlf$
txt$ = txt$ +"Poof!"Poof! All your damage has been healed, and your magicrestored."restored."
hits = maxhits
mp = maxmp
end if
case 5
if verb=
=1 and exits(5,7)=
1and exits(5,7)=1 thentxt$ = "Thatthen
txt$ = "That doorway appears to be locked orsomething."something."
OK=FALSE
end if
if verb= 1
=1 and exits(5,7)=
0 then
OK=TRUE
end if
if verb
=13 and noun=
5 then
exits(5,7)=0thenOK=TRUEend ifif verb = 13 and noun = 5 thenexits(5,7)=0txt$ = "The
txt$ = "The door has beenunlocked."unlocked."
else
txt$ ="The"The door islocked."locked."
end if
case 9
if verb= 2
=2 andexits(9,8)=1 thentxt$ = "Youexits(9,8)=
1 then
txt$ = "You can't jump that ravine. It is toowide."wide."
OK=FALSE
end if
if verb= 2
=2 andexits(9,8)=0exits(9,8)=
0 then
OK=TRUE
end if
if verb=13 and noun=4 then
txt$ ="You"You string the rope through a hole in the ceiling so that you can swingacross."across."
exits(9,8)=0
else
txt$ ="You"You can't get across thatway."way."
end if
end select
Return
''
**' * THE BATTLE ENGINE *
''**
[Battle]
' We are in a battle so we cannot load or save a game.
encounter = TRUE
txt$ =""txt$ = txt$ + "You""
txt$ = txt$ + "You attack the"" + objects$(noun) +"" using your"" + weapon$ +"..."+crlf$"..."+crlf$
' Player attacks the monster
toHit = RollDice(20,1)
if toHit <= objectproperties(noun,4) then
toDamage = RollDice(offense,1)
txt$ = txt$ +"You"You inflict"" + str$(toDamage) +"" points of damage on the" + objects$(noun)+"."+crlf$" + objects$(noun)+"."+crlf$
objectproperties(noun,3)=objectproperties(noun,3)-toDamage
if objectproperties(noun,3) <= 0 then
txt$ = txt$ +"You"You have slain the"" + objects$(noun)+crlf$
objectproperties(noun,1) = -1
gp = RollDice(6,1) * 10
txt$ = txt$ +"You"You have found"" + str$(gp) +"" goldcoins."+crlf$+crlf$coins."+crlf$+crlf$
gold=gold+gp
score = score + 5
encounter = FALSE
Return
end if
else
txt$ = txt$ +"You"You miss the" + objects$(noun)+"!!"+crlf$" + objects$(noun)+"!!"+crlf$
end if
' Monster attacks the player
txt$ = txt$ +"The ""The " + objects$(noun) +"" attacksyou..."+crlf$you..."+crlf$
toHit = RollDice(20,1)
if toHit <= defense then
toDamage = RollDice(objectproperties(noun,5),1)
txt$=txt$+"The " + objects$(noun)+"txt$=txt$+"The " + objects$(noun)+" inflicts"" + str$(toDamage) +"" points of damage onyou."+crlf$you."+crlf$
hits=hits-toDamage
if hits <=0 then
txt$ = txt$ +"You"You have beenslain!"+crlf$slain!"+crlf$
close #m
end
end if
else
txt$ = txt$ +"The ""The " + objects$(noun) +",", missesyou."+crlf$you."+crlf$
end if
Return
''
**' * DISPLAY TITLE, INTRODUCTION, INSTRUCTIONS *
''**
[Begin]
gametitle$ ="Mysterious"Mysterious Caverns1.00"1.00"
gamedescription$ =""txt$=""""
txt$=""
txt$ = txt$ + gametitle$+crlf$
txt$ = txt$ +"By:"By: Noble D.Bell"+crlf$+crlf$Bell"+crlf$+crlf$
txt$ = txt$ + gamedescription$+crlf$+crlf$
txt$ = txt$ +"To"To play this game you use text commands. The commands must be in the form of [verb][noun].The"+crlf$txt$ = txt$ + "gameThe"+crlf$
txt$ = txt$ + "game understands 24 different commands and quite possibly several differentnouns."+crlf$+crlf$txt$ = txt$ + "Herenouns."+crlf$+crlf$
txt$ = txt$ + "Here are the commands that can be used in thisgame:"+crlf$+crlf$game:"+crlf$+crlf$
for x=1 to 24
txt$=txt$+commands$(x)+","txt$=txt$+commands$(x)+","
next x
txt$=left$(txt$,len(txt$)-1)
txt$ = txt$+crlf$+crlf$
txt$ = txt$ +"Just"Just press [ENTER] tobegin."begin."
'notice gametitle$+crlf$+txt$
#m.txtView txt$
#m.txtCommand"LOOK""LOOK"
wait
Return
'======================================================================================================================
=======
===============================================================================================================
' PROGRAM ENDS HERE
'======================================================================================================================code
=======
===============================================================================================================
thedarkfreak Jan 27, 2008 (Chris Iverson)