Text Adventure!

[Dr_Davenstein]

You should make it like The Godfather. Bill Gates is The Don... You have to become The Don of Software City. :lol:

[RADIUM-V Interactive]

Again, if you have some good ideas, create a file and post it in the FTP site. That's where we should keep our files for the long run.

[Torahteen]

Oh, and may I recommend forumforfree.com? I'm using it for ZoneWar, and have no problems (except right at the beginning).

http://www.forumforfree.com

[RADIUM-V Interactive]

Code:

You wake up in a daze with a horrible, throbbing bump on your head. Looking around, you see you're surrounded by forest. You feel in your pocket for your glasses, but you squint and notice them laying on the ground.

Make it not possible to move until the glasses are picked up.

That could be the first thing. Then, we could go from there.

Code:

Green Number - Gate (multiples for same number)
Blue  Number - Gate Mechanism (multiples for same number)
VioletNumber - Gate/Mechanism Key (Multiples for same number)
Red   Number - Enemy to unlock Gate (Multiples for same number)
Green I      - Item
Red   E      - Enemy
Green W      - Weapon
Blue  L      - Ladder: Lower Level
Red   L      - Line: Upper Level

My idea of planning :normal:

Of course the image is just a floor plan - there won't be any color, it will all be interpreted in text. This is just to see where we are :^_^:

[axipher]

Each room will need a good discription so the user knows what's going on but vague enough so the user's imagination can be used, BTW, i updated some files with my input and added "Characters.txt".

[RADIUM-V Interactive]

Yay! :bounce: Somebody's following it!

I like that, but I think he should be someone in the wrong place in the wrong time, like he shouldn't be there, but great idea!

[axipher]

Hey, I'm just here to help get this thing going, I'm not the only person with ideas, feel free to change it if you want or even everyone make there own folder and keep your modifications in there.

[Torahteen]

Like I had said once before, read Na_th_an's tutorial in QBE. Those will help a lot. And yeah, like axipher said, each room needs a well written description. But you can often make duplicates in places like a forest.

Another thing to think about is are you going to allow 4 or 8 compass directions? Also, now that you have the first room (note that that is a script, not an actual description), can you think past that? I wouldn't suggest having things such as "You feel in your pocket for your glasses, but you squint and notice them laying on the ground." This shouldn't be part of the description. Rather, you could have certain states, such as "blind", "stunned", "sleepy", etc. Here is a way I would make each room be displayed:

IX XXE XOXXXT
***
You are BLIND!
There is a pair of glasses at your feet

- put on glasses

You can see!
IN THE FOREST
You stand in the middle of a forest, with a path slightly east. The sun is barely able to penetrate through the think foliage. The trees tower above you in a striking manner, thier trunks too big for two men to wrap thier arms around it.

-

Perhaps a tad bit elaborate, but still. Notice how there was no description when you were blind, as well as the name of the room was missing a lot of letters. I don't know, just throwing ideas.[/code]

[RADIUM-V Interactive]

I was working a little, and this is what I came up with:

Code:

'Escape from Microsoft Island
'Written by the QBN Forum Members

DECLARE SUB AskQuit ()
DECLARE SUB InventoryDisp ()
DECLARE SUB Setup ()
DECLARE SUB FindWord ()
DECLARE SUB action
DECLARE SUB determine ()
DECLARE SUB pretext

TYPE place
   x AS INTEGER
   y AS INTEGER
   z AS INTEGER
END TYPE

TYPE items
   glasses      AS INTEGER
   rusty_knife  AS INTEGER
   short_sword  AS INTEGER
   long_sword   AS INTEGER
   magic_sword  AS INTEGER
   rope         AS INTEGER
END TYPE

DIM SHARED keywrd(10)
DIM SHARED word(5)
DIM SHARED area AS place
DIM SHARED have AS items
DIM SHARED cmd$, obj$
DIM SHARED visit(9*7*4)
FOR I = 1 TO (4*7*9)
   visit(I) = 1
NEXT I

'Locations relative to bitmap map
area.x = 1 'column
area.y = 1 'row
area.z = 1 'floor
Setup
DO
   Pretext
   FindWord ()
   PRINT
LOOP



SUB Setup ()
   have.glasses = 0

   PRINT "Escape From Microsoft Island"
   PRINT "Written by John Kreitlow with RADIUM-V Interactive"
   PRINT "With Support from the QBASICNews Forums"
   PRINT "http://forum.qbasicnews.com"
   PRINT "http://radiumv.phatcode.net"
   FOR I = 1 TO 16
      PRINT
   NEXT I
END SUB

SUB FindWord ()
   INPUT ">",userinput$
   userinput$ = " " + userinput$
   'Find Word One------------------------------------------------------  
   FOR I = 1 TO LEN(userinput$)-1
      IF MID$(userinput$,I,1) = " " THEN
         word(1) = I + 1
         I = LEN(userinput$)
      END IF
   NEXT I
   cmd$ = lcase$(MID$(userinput$, word(1), 3))
  
   'Find Word Two------------------------------------------------------
   FOR I = 2 TO LEN(userinput$)-1
      IF MID$(userinput$,I,1) = " " THEN
         word(2) = I + 1
         I = LEN(userinput$)
      END IF
   NEXT I
  
   obj$ = lcase$(MID$(userinput$, word(2), 3))
  
   Determine
END SUB

SUB Determine ()
   PRINT
   'Universal Commands-------------------------------------------------
   'fun easter eggs
   IF cmd$ = "j2k" THEN PRINT "Yeah, I <INSERT ACTION>ed your <INSERT FAMILY MEMEBER> last <DAY OF WEEK>. Wooh!"
  
   IF cmd$ = "inv" THEN InventoryDisp
   IF cmd$ = "exi" OR cmd$ = "qui" OR cmd$ = "lea" THEN AskQuit
  
  
  
   SELECT CASE area.z
   CASE 1
      SELECT CASE area.x
         CASE 1
            SELECT CASE area.y
               CASE 2
                  visit(2) = 0
                  IF cmd$ = "nor" THEN area.y = 1
                  IF cmd$ = "sou" THEN area.y = 3
               CASE 1
                  visit(1) = 0
                  IF have.glasses = 1 THEN
                     IF cmd$ = "nor" THEN PRINT "You can't go north! You'll get lost in the foliage!"
                     IF cmd$ = "sou" THEN area.y = 2
                     IF cmd$ = "loo" THEN visit(1) = 2
                     IF cmd$ = "kil" THEN PRINT "There's nothing to kill here!"
                     IF cmd$ = "tak" THEN PRINT "I can't take that! It's only part of the imaginative scenery!"
                     IF cmd$ = "rad" AND obj$ = "int" THEN PRINT "THIS IS NOT AN EASTER EGG. THIS GAME CONTAINS NO EASTER EGGS. GO AWAY."
                  ELSE
                     IF cmd$ = "tak" AND obj$ = "gla" THEN
                        have.glasses = 1
                        LOCATE ,6: PRINT "You stumble around and slowly kneel your way to the shiny specticles"
                        PRINT "lying on the ground. You clean them off and place them on your large head. As"
                        PRINT "you look around with a new sense of realism, you see a huge sign that doesn't"
                        PRINT "look like it should be there. It looks movable, in fact."
                     END IF
                  END IF
            END SELECT
      END SELECT
   END SELECT
END SUB

SUB Pretext
   SELECT CASE area.z
   CASE 1
      SELECT CASE area.x
      CASE 1
         SELECT CASE area.y
         CASE 2
            IF visit(2) = 1 THEN
               LOCATE ,6: PRINT "Your current trail leads north, south, and east. On the edge, over"
               PRINT "by a huge fern tree, you see a sparkle and you are intrigued. You can't quite"
               PRINT "tell what it is, but maybe you could examine the sparkle closer."
            ELSE
               LOCATE ,6: PRINT "South of Sign"
            END IF
         CASE 1
            IF visit(1) = 1 THEN
               LOCATE ,6: PRINT "You wake up in a daze with a horrible, throbbing bump on your head."
               PRINT "Looking around, you see you're surrounded by forest.  You feel in your pocket"
               PRINT "for your glasses, but you squint and notice them laying on the ground."
            ELSE
               IF visit(1) = 2 THEN
                  PRINT "you see a huge sign that doesn't"
                  PRINT "look like it should be there. It looks movable, in fact."
                  visit(1) = 0
               END IF
               IF have.glasses = 1 THEN
                  LOCATE ,6: PRINT "West of Sign"
               ELSE
                  LOCATE ,6: PRINT "No Idea of Location"
               END IF
            END IF
         END SELECT
      END SELECT
   END SELECT
END SUB

SUB AskQuit
   PRINT "Are you sure you want to leave?"
   INPUT ">", userinput$
   IF LCASE$(MID$(userinput$,1,1)) = "y" THEN
      STOP
   ELSE
      EXIT SUB
   END IF
END SUB

SUB InventoryDisp
END SUB

I think it's inefficient, but it does work, for the most part.

[Torahteen]

Aye! Don't hardcode it. Make an engine that reads the descriptions, exits, etc. from a file. Then have another file with all of the items (their starting locations rather) so that you can keep track of those. Hardcoding makes your code VERY difficult to read, and if you want any complexity at all, you best not do it.