Help me please! - GameCreators Forum

Author

Message

1337 programm3r

17

Years of Service

User Offline

Joined: 19th Nov 2007

Location: Your MOM

Posted: 24th Feb 2008 23:55 Edited at: 24th Feb 2008 23:57

Link

so, im making a text game, and Im getting along alright(I guess) after reading some turorials ive found that the best way is to use arrays, to store the rooms in. Well, I might as well show you what I have befoer I ask what I need help with.

dim room$(20,10)

room$(1,0) = "You are inside your bunker, there are a couple of"
room$(1,1) = "brown storage boxes around. The exit of the bunker"
room$(1,2) = "is to the north"
room$(1,3) = ""
room(1,0)=2

room$(2,0) = "Even though it is daytime there is no sunlight"
room$(2,1) = "The door into your bunker is to the south, and"
room$(2,2) = "there are woods to the east and a street to the west"

room(2,1)=1
room(2,2)=3
room(2,3)=4

room$(3,0) = "You enter a street, there are ruined buildings everywhere"
room$(3,1) = "To the east there is the area outside you bunker"
room(3,3) = 2

room$(4,0) = "The woods are extremely murky, to the west there is the area"
room$(4,1) = "in front of the bunker"
room(4,2)=2

rem  ---------------------main game code----------------------------

` make the player start at room 1
dim player1(1)
player1(1)=1
do
showroom()
loop
` loop and put the text on top of the screen
function showroom()
cls
for x = 0 to 10
` uses text to print the text
  text 0,x*20,room$(player(1),x)
next t
wait key
getcommand
endfunction

+ Code Snippet

dim room$(20,10)

room$(1,0) = "You are inside your bunker, there are a couple of"
room$(1,1) = "brown storage boxes around. The exit of the bunker"
room$(1,2) = "is to the north"
room$(1,3) = ""
room(1,0)=2

room$(2,0) = "Even though it is daytime there is no sunlight"
room$(2,1) = "The door into your bunker is to the south, and"
room$(2,2) = "there are woods to the east and a street to the west"

room(2,1)=1
room(2,2)=3
room(2,3)=4

room$(3,0) = "You enter a street, there are ruined buildings everywhere"
room$(3,1) = "To the east there is the area outside you bunker"
room(3,3) = 2

room$(4,0) = "The woods are extremely murky, to the west there is the area"
room$(4,1) = "in front of the bunker"
room(4,2)=2



rem  ---------------------main game code----------------------------

` make the player start at room 1
dim player1(1)
player1(1)=1
do
showroom()
loop
` loop and put the text on top of the screen
function showroom()
cls
for x = 0 to 10
` uses text to print the text
  text 0,x*20,room$(player(1),x)
next t
wait key
getcommand
endfunction

I believe it was somewhere on this forum, that I heard a good method is to assign numbers to the north,south,east,and west(which direction each area is in). What I cant figure out how to do is to switch to a different area. I know that the showroom function works nice

. Also, right now im planning that when you move to a new room the text of the previous room just gets deleted, does anyone know how to make it scroll down? Also all the room descriptions are just to fill, Im still writing all the room descriptions.

ps. I dont really get how to identify commands, should I also put them into arrays?

Super Cool

Back to top

Profile PM

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 25th Feb 2008 02:46 Edited at: 25th Feb 2008 03:10

Link

The way you'd move around the world depends on how you would store the world in the array.
If you use a 2D coordinate system, that stores separate values for X and Y positions, you can't simply assign a variable to move. You'd need a conditional statement:

+ Code Snippet

DIM map(9,9)
N=1:S=2:E=3:W=4 :`constant labels for movement
X=0:Y=0 :` player's position
Move=0 :`movement variable

` ~

rem This code would be inside the main loop
Move=0
If upkey()=1 then Move=N
If rightkey()=1 then Move=E
If downkey()=1 then Move=S
If leftkey()=1 then Move=W

Select Move
  case N
    X=X
    Y=Y-1
  endcase
  case S
    X=X
    Y=Y+1
  endcase
  case E
    X=X+1
    Y=Y
  endcase
  case W
    X=X-1
    Y=Y
  endcase
Endselect

Quite a lot of code is needed and each direction has to be hard-coded into the program. Say you later wanted to be able to move diagonally NW, NE, SE or SW; you'd have to hard-code those extra movements.

The way I would do it would be to have a 1D co-ordinate system.
I explain how to do this in another thread 1D Co-ordinates
Since you are using an array you don't have his "0" problem, you can use field 0 in arrays.

This way of storing the world makes moving in any direction easy.
Here is a diagram to help you understand how it would work

+ Code Snippet

00  01  02  03  04  05  06  07  08  09

10  11  12  13  14  15  16  17  18  19

20  21  22  23  24  25  26  27  28  29

30  31  32  33  34  35  36  37  38  39

40  41  42  43  44  45  46  47  48  49

50  51  52  53  54  55  56  57  58  59

60  61  62  63  64  65  66  67  68  69

70  71  72  73  74  75  76  77  78  79

80  81  82  83  84  85  86  87  88  89

90  91  92  93  94  95  96  97  98  99

Each number on the "map" represents a room (I'm not expecting you to make 100 rooms

) and a field in your array.

Choose a point on the "map" to start from (preferably near the middle).
Move your finger north one place, your room number has just decreased by 10. Move your finger east and it will increase by 1. West decreases by 1 and South increases by 10.
Try this anywhere on the board and the difference is the same.

Therefore, North=-10, South=+10, East=+1 and West=-1

Now lets see how we'd move with this type of array

+ Code Snippet

DIM map(99)
N=-10:S=+10:E=+1:W=-1
Pos=0 :`player's position
Move=0 :`movement variable

` ~

rem This code would be inside the main loop
Move=0
If upkey()=1 then Move=Move+N
If rightkey()=1 then Move=Move+E
If downkey()=1 then Move=Move+S
If leftkey()=1 then Move=Move+W

If Move <> 0 then Pos=Pos+Move

We've condensed the adjustment into a single line!
and we could also move diagonally by pressing two keys.

Back to top

Profile PM Email

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 25th Feb 2008 03:16 Edited at: 25th Feb 2008 03:18

Link

I was working on a text adventure a while back, unfortunately lost the code to a virus, but I still remember how I worked the typing (text parser) and the movements.

First, motion:

I used a coordinate system in which going north would add 10 to your location value and right would be 1. That way you could just reference one number to figure out what message to display (I used file commands to get info about each map and the descriptions for each).

Text parser:
This was kinda complicated but after about a week and a half of solid coding I finally got it to work perfectly.

Here is the algorith:
1. Divide the statement into words
2. Store words into an array
3. Check each word against a master word bank (downloaded) for spelling issues
4. Check each word until the verb (go, walk, search, look) is found
5. Assign a number to an action variable to determine what to do
6. Scan the words again for the noun/direction (north, forward, chair, cup, etc)
8. Make sure that the noun exists in the environment (file exist command)
7. That word directly effects the path of the file it references for a description (C:/...Game/map/LOCATION/VERB/NOUN.txt)
8. Perform the action (Move, look, pull, etc)

The master word list can be downloaded free. I would post it as a download, but again, lost it to a virus.

Let me know if this makes sense or if you need anymore clarification as to my file structure.

Hope this helps!

Back to top

Profile PM

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 25th Feb 2008 03:25

Link

@BN2
That is an interesting way of using file structure, would work well with my 1D map too

Back to top

Profile PM Email

1337 programm3r

17

Years of Service

User Offline

Joined: 19th Nov 2007

Location: Your MOM

Posted: 25th Feb 2008 04:01

Link

@obese, are you able to assign arrays to data statements? Wouldnt the way that you showed me mean that I would have to organize my map in an even square? Also would I need to asign each array that I have so that room1 one is west and room 10 is south?

for example

+ Code Snippet

dim room$(100,10)
room$(1,0)="This is the first room, room2 is east, room3 is south"

room$(2,0)="This is room 2, room 1 is west, and room4 is south"

room$(10,0)="this is room3,room one is north, and room4 is east"

room(11,0)="this is room 4,room3 is west, and room 2 is north"

is that what you mean?

Super Cool

Back to top

Profile PM

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 26th Feb 2008 01:46 Edited at: 26th Feb 2008 02:46

Link

Quote: "@obese, are you able to assign arrays to data statements?"

not really sure what you mean.
You can assign the data in data statements to arrays
e.g.

+ Code Snippet

DIM Map$(99)

Read Map$(1)
Data "Dungeon"

Quote: "Wouldnt the way that you showed me mean that I would have to organize my map in an even square?"

No, the shape of the map depends on its width, but it would have to be rectangular. Why is that a problem though? If you don't want to use certain squares then leave them blank

16 rooms, width=4

+ Code Snippet

00  01  02  03  

04  05  06  07

08  09  10  11  

12  13  14  15

16 rooms, width=8

+ Code Snippet

00  01  02  03  04  05  06  07

08  09  10  11  12  13  14  15

16 rooms, width=2

+ Code Snippet

If you use a width that isn't a factor of the total number of rooms the last row will be uneven.

16 rooms, width=5

+ Code Snippet

00  01  02  03  04  

05  06  07  08  09  

10  11  12  13  14

15

Maybe you want it like that but in my eyes it doesn't look too good.

Quote: "Also would I need to assign each array that I have so that room1 one is west and room 10 is south?
"

I don't really understand you there

You don't need to change the room numbers, if you are at room 12, then going south would take you to room 22, you don't have to travel in a straight line through all the rooms.
This is a free-roaming RPG right?

I'm making a short example to show you how to move between the rooms...

[edit]
Haven't finished the movement part yet but it hints at how it would work.

rem Obese's 1D Map Example
rem **********************

`Initialise the program
gosub Setup
gosub MakeArrays

`Randomize the map (uh-oh!)
for sq = 0 to 63
   Map(sq)=rnd(5)
next sq

`Player Position
P=rnd(63)

`-------------------
` Main Loop
`-------------------
Do
   gosub DrawMap
   gosub Info

sync:cls rgb(128,64,0)
Loop

End

`-------------------
` Gosubs
`-------------------
Setup:
   set display mode 1024,768,32
   hide mouse
   sync on
   sync rate 60
   randomize timer()
Return
`----
MakeArrays:
   `Define some colours for the different areas
   Dim Colour(5)
   Colour(0)=0 :`empty square (black)
   Colour(1)=rgb(220,200,64) :`desert (yellow)
   Colour(2)=rgb(20,128,0) :`jungle (dark green)
   Colour(3)=rgb(128,224,0) :`grassland (light green)
   Colour(4)=rgb(0,64,128) :`sea (blue)
   Colour(5)=rgb(240,240,240) :`town (white)

`Make some strings to describe the areas
   Dim Info$(5)
   Info$(0)="private land"
   Info$(1)="a vast desert (mmm... desert!)"
   Info$(2)="a deep jungle"
   Info$(3)="a grassy plain"
   Info$(4)="the briny deep"
   Info$(5)="a pleasant town"

`Create a 64-roomed map
   MapArea=63 :`it's really 64 as 0 is also a square
   MapWidth=8 :`I like square maps :P
   MapScale=32 :`used when scaling up the map for display
   MapPosX=100 :`the map's X position on the screen
   MapPosY=100 :`the map's Y position on the screen
   Dim Map(MapArea)
Return
`----
DrawMap:
   For sq = 0 to 63
      ink Colour(Map(sq)),0
      `Get square's 2D position
      y = sq/MapWidth
      x = sq-(y*MapWidth)
      `Draw square
      box MapPosX+(x*MapScale),MapPosY+(y*MapScale),MapPosX+(x*MapScale)+MapScale,MapPosY+(y*MapScale)+MapScale

`Square Number
      i = Map(sq)+1 : if i>5 then i=0
      ink Colour(i),0
      text MapPosX+(x*MapScale)+2,MapPosY+(y*MapScale),Str$(sq)
   Next sq
Return
`----
Info:
   Ink rgb(255,220,0),0
   Tx = MapPosX+(MapWidth*MapScale)+20
   Text Tx,40,Str$(P)+". You are standing in "+Info$(Map(P))
   `North
   If (P-MapWidth) >= 0
      Text Tx,60,"To the north is "+Info$(Map(P-MapWidth))
   Endif
   `South
   If (P+MapWidth) <= MapArea
      Text Tx,80,"To the south is "+Info$(Map(P+MapWidth))
   Endif
   `East
   If P/MapWidth=(P+1)/MapWidth
      Text Tx,100,"To the east is "+Info$(Map(P+1))
   Endif
   `West
   If P/MapWidth=(P-1)/MapWidth
      Text Tx,120,"To the west is "+Info$(Map(P-1))
   Endif
Return

+ Code Snippet

rem Obese's 1D Map Example
rem **********************

`Initialise the program
gosub Setup
gosub MakeArrays

`Randomize the map (uh-oh!)
for sq = 0 to 63
   Map(sq)=rnd(5)
next sq

`Player Position
P=rnd(63)

`-------------------
` Main Loop
`-------------------
Do
   gosub DrawMap
   gosub Info

   sync:cls rgb(128,64,0)
Loop

End

`-------------------
` Gosubs
`-------------------
Setup:
   set display mode 1024,768,32
   hide mouse
   sync on
   sync rate 60
   randomize timer()
Return
`----
MakeArrays:
   `Define some colours for the different areas
   Dim Colour(5)
   Colour(0)=0 :`empty square (black)
   Colour(1)=rgb(220,200,64) :`desert (yellow)
   Colour(2)=rgb(20,128,0) :`jungle (dark green)
   Colour(3)=rgb(128,224,0) :`grassland (light green)
   Colour(4)=rgb(0,64,128) :`sea (blue)
   Colour(5)=rgb(240,240,240) :`town (white)

   `Make some strings to describe the areas
   Dim Info$(5)
   Info$(0)="private land"
   Info$(1)="a vast desert (mmm... desert!)"
   Info$(2)="a deep jungle"
   Info$(3)="a grassy plain"
   Info$(4)="the briny deep"
   Info$(5)="a pleasant town"

   `Create a 64-roomed map
   MapArea=63 :`it's really 64 as 0 is also a square
   MapWidth=8 :`I like square maps :P
   MapScale=32 :`used when scaling up the map for display
   MapPosX=100 :`the map's X position on the screen
   MapPosY=100 :`the map's Y position on the screen
   Dim Map(MapArea)
Return
`----
DrawMap:
   For sq = 0 to 63
      ink Colour(Map(sq)),0
      `Get square's 2D position
      y = sq/MapWidth
      x = sq-(y*MapWidth)
      `Draw square
      box MapPosX+(x*MapScale),MapPosY+(y*MapScale),MapPosX+(x*MapScale)+MapScale,MapPosY+(y*MapScale)+MapScale

      `Square Number
      i = Map(sq)+1 : if i>5 then i=0
      ink Colour(i),0
      text MapPosX+(x*MapScale)+2,MapPosY+(y*MapScale),Str$(sq)
   Next sq
Return
`----
Info:
   Ink rgb(255,220,0),0
   Tx = MapPosX+(MapWidth*MapScale)+20
   Text Tx,40,Str$(P)+". You are standing in "+Info$(Map(P))
   `North
   If (P-MapWidth) >= 0
      Text Tx,60,"To the north is "+Info$(Map(P-MapWidth))
   Endif
   `South
   If (P+MapWidth) <= MapArea
      Text Tx,80,"To the south is "+Info$(Map(P+MapWidth))
   Endif
   `East
   If P/MapWidth=(P+1)/MapWidth
      Text Tx,100,"To the east is "+Info$(Map(P+1))
   Endif
   `West
   If P/MapWidth=(P-1)/MapWidth
      Text Tx,120,"To the west is "+Info$(Map(P-1))
   Endif
Return

Back to top

Profile PM Email

1337 programm3r

17

Years of Service

User Offline

Joined: 19th Nov 2007

Location: Your MOM

Posted: 26th Feb 2008 02:49 Edited at: 26th Feb 2008 02:49

Link

Lol I know I can be a little hard to understand sometimes, but im pretty sure I understand what your saying now. Thanks, and ill love to see that example you say your making

Super Cool

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / Help me please!