Sorry your browser is not supported!

TYPE ROOMS
  exitN as integer
  exitNE as integer
  exitE as integer
  exitSE as integer
  exitS as integer
  exitSW as integer
  exitW as integer
  exitNW as integer
  exitU as integer
  exitD as integer
ENDTYPE

DIM room(100) as ROOMS

Type Item
  ID as int      (i.e AlphaNumeric ID )
  Name as string (i.e A Blue Potion)
  owner as int (meaning Player/NPC/Mob/etc  ID)
  effect as int (1 = heal, 2 = damage, 3 = stat buff etc..)
  uses as int (how many times can it be used)
EndType
(ok you get the idea)

Dim Table(10) 
Table(0) = ((Some newly generated object, either named directly as its ID, or searchable by its ID field from the type declaration.  I haven't thought how I need to do that))
Next item
Next item
and so on up to max objects allowed by array size

As far as the game sees  table might contain
[
$12A72
$12B85
$7AB16
]

Or whatever.. as being "on the table", with a print routine obviously pulling the necessary name strings out of those objects to display them like in my above example Pawn Shop.

dim Room(100,13)   ` Room Exits
dim RoomT$(100,10) ` Room Text

-> ROOM DATA   ROOM.TXT

0 (N) Note: Negative numbers in directions
1 (S)       mean there are movement blocks like
2 (W)       doors, unusual walls, cliffs to death,
3 (E)       and various other things to show a
4 (NW)      better story.
5 (NE)		  e.g.: -1  The door is shut.
6 (SW)			-2  You try to go up the ramp but
7 (SE)				you slide back down.
8 (UP)			-3  { Death #2 }
9 (DOWN)		-4  You step into the teleporter
10 (IN)				{ RoomNumber = 7 }
11 (OUT)
12 (lighted? 0=dark 1=lighted) 
13 Note: The last piece of data not there shows weather or not
         the room has been visited.  0=Not Visited  1=Visited
(ROOM NAME)
(DESCRIPTION OF ROOM)  Up to 10 lines.

2 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 1
Forest Clearing  ( Room 1 )
All around you are tall trees blocking out the sun.  The ground is littered with
leaves and branches.  In the middle of the clearing is a massive stump with a
heavy chain around it.  Attached to the chain is a tractor.  The only exit
appears to be north.  In the distance you can hear machinery rumbling.

3 1 -1 -1 -1 -1 -1 -1 0 0 0 0 1
Forest Path  ( Room 2 )
This is a narrow path through the forest.  You can go north or south.

0 2 0 0 4 6 0 0 0 0 0 0 1
South of Round House  ( Room 3 )
Your standing in somebodys backyard.  Several lawn chairs are scattered about
the area.  A small pool is nearby full of water.  To the north is a odd
shaped house.  It's round and orange colored.  You can go around the house to
the northwest and northeast.  A foreboding forest is to the south.

0 0 7 0 0 5 0 3 0 0 0 0 1
West of Round House  ( Room 4 )
From here you can see a window in the round house.  The window has been painted
over with orange colored paint.  To the west though an ivy covered archway is a
dirt path.  The way around the house continues to the northeast.

0 -2 0 0 0 0 4 6 0 0 0 0 1
North of Round House  ( Room 5 )
You're in front of a strange looking round house colored orange.  The house
has a front porch with a few steps going up to it.  The front door is also
rounded.  Next to the front door is a doorbell and a small mailbox.  

dim Item(100,8)    ` Item Data
dim ItemT$(100,6)  ` Item Text

-> Item Data    ITEM.TXT

0 (object location)    -objectnumber of container  (if this object is in another object)
1 (Can be Moved?)           0=no  1=yes   (0 Items are not shown on the floor)
2 (Object Weight)
3 (Wearable?)               0=No  1=Yes but not worn  2=Yes and worn
4 (Container?)              0=No  1=Yes and closed  2=Yes and opened
5 (Container Weight Limit)
6 (Current Weight of items inside)  
7 (Can item produce light?           0=No  1=Yes but off  2=Yes and is on  3=Yes but spent
8 (Number of turns the item can produce light)   -1 = Unlimited
(ITEM NAME... THE TEXT IT WILL RECOGNIZE)
(text for inventory viewing)
(text for item on floor in room)
(text for looking at the item)  Up to 5 lines.

0 1 2 1 2 20 0 0 0
BACKPACK
a small backpack
Your small backpack is on the ground.
The small light blue colored backpack has been a lifesaver.  Without it you
wouldn't have lived very long against that bear.

0 1 1 1 0 0 0 2 200
HARDHAT
a hardhat
A miners hardhat is on the ground.
This is a typical hardhat used by miners.  It has a flashlight on the top of
the hat.  It seems like it's been used a lot so it might not have very much
juice left in the battery.

1 1 1 0 1 5 2 0 0
SACK
a paper sack
A paper sack is on the floor.
It's a plain paper sack.  On the sack is the name "Joey" written in crayon.

3 1 1 0 0 1 1 0 0
TORCH
a welding torch
A laser welding torch is covered in dust on the top shelf.
It's a standard laser welding torch.  It can burn through just about anything.

-3 1 1 0 0 0 0 0 0
PAPER
a piece of paper
A small piece of paper is lying on the floor.
It's got some writing on it... perhaps you should read it.

dim Room(100,13)   ` Room Exits
` Room(RoomNumber,0) = North
` Room(RoomNumber,1) = South
` Room(RoomNumber,2) = West
` Room(RoomNumber,3) = East
` Room(RoomNumber,4) = NorthWest
` Room(RoomNumber,5) = NorthEast
` Room(RoomNumber,6) = SouthWest
` Room(RoomNumber,7) = SouthEast
` Room(RoomNumber,8) = Up
` Room(RoomNumber,9) = Down
` Room(RoomNumber,10) = In
` Room(RoomNumber,11) = Out
` Room(RoomNumber,12) = Light in room?  0=Dark  1=Light
` Room(RoomNumber,13) = Visited Already  0=No  1=Yes

``Key``````````Value```
``1x1A  =>  Array(x,y)`
``1x1D  =>  Array(x,y)`
```````````````````````
`And so on and so forth

REM - Adventure Example

REM - Item types, these can be created dynamically... these constants are just for a quick example.
#constant ITEM_HEALPOT  1
#constant ITEM_MANAPOT  2
#constant ITEM_SWORD    3

REM - Owner IDs to describe what type of owner an item has.
#constant OWNER_PLAYER  1
#constant OWNER_ROOM    2
#constant OWNER_OBJECT  3
#constant OWNER_MOB     4

REM - Info about rooms.
type ROOM_TYPE
    north   as integer
    south   as integer
    east    as integer
    west    as integer
    desc    as string
endtype

REM - NonMoveable objects like tables, windows, and other props.
type OBJECT_TYPE
    room    as integer
    desc    as string
endtype

REM - Info about an instanced item.
type ITEM_TYPE
    itemtype    as integer  REM - This is the actual item type that is instanced.
    owner       as integer  REM - This describes the TYPE of owner. Could be a player, a mob, or even an object like a table.
    ownerid     as integer  REM - This describes the specific owner withing the TYPE of owners.
endtype

REM - Set up some globals to keep track of all our rooms, objects, and items.
global dim room() as ROOM_TYPE
global NumRooms as integer
NumRooms = 0
global dim object() as OBJECT_TYPE
global NumObjects as integer
NumObjects = 0
global dim item() as ITEM_TYPE
global NumItems as integer
NumItems = 0

REM - 1. Create a room...
room1 = NewRoom(-1, 1, -1, 2, "An old dusty wine-cellar...")

REM - 2. Create some objects... (props)
table1 = NewObject(room1, "a wooden table")
chest1 = NewObject(room1, "a sturdy chest")

REM - 3. Create some items. Some are placed in the room, others are placed "inside" objects...
item1 = NewItem(ITEM_HEALPOT, OWNER_ROOM, room1)
item2 = NewItem(ITEM_MANAPOT, OWNER_OBJECT, table1)
item3 = NewItem(ITEM_SWORD, OWNER_ROOM, room1)
item4 = NewItem(ITEM_HEALPOT, OWNER_OBJECT, chest1)
 
REM - MAIN LOOP
repeat
    cls

    print "Adventure OBJECTS example..."
    print ""    
    print "YOU ARE IN:"
    print room(room1).desc
    print ""
    print "OBJECTS IN THE ROOM: (and the items 'inside' them)"
    REM - Loop through the objects and check if they are assigned to this room.
    for i=0 to NumObjects-1
        if object(i).room = room1
            print object(i).desc
            REM - Loop through the items and check if the belong to this object.
            for j=0 to NumItems-1
                if item(j).owner = OWNER_OBJECT and item(j).ownerid = i
                    print " - "; : ItemDescription(item(j).itemtype)
                endif
            next j
        endif
    next i
    print ""
    print "ITEMS IN THE ROOM: (not on/in objects)"
    REM - Loop through the items and see if the are in this room.
    for i=0 to NumItems-1
        if item(i).owner = OWNER_ROOM and item(i).ownerid = room1 then ItemDescription(item(i).itemtype)
    next i
    print ""
    print "YOU CAN GO:"
    if room(room1).north <> -1 then print "North"
    if room(room1).south <> -1 then print "South"
    if room(room1).east <> -1 then print "East"
    if room(room1).west <> -1 then print "West"
    
    sync
until spacekey()

end

REM - Prints an item-description, based on the ItemType number.
function ItemDescription(ItemType as integer)
    select ItemType
        case ITEM_HEALPOT
            print "a healing potion"
        endcase
        case ITEM_MANAPOT
            print "a mana potion"
        endcase
        case ITEM_SWORD
            print "a rusty sword"
        endcase
    endselect
endfunction

REM - Create a new Room, specifying what rooms are in other directions.
REM - Input -1 in any direction if you can't go there.
function NewRoom(North as integer, South as integer, East as integer, West as integer, Desc as string)
    Index as integer
    Index = 0
    array insert at bottom room()
    room().north = North
    room().south = South
    room().east = East
    room().west = West
    room().desc = Desc
    Index = NumRooms
    inc NumRooms, 1
endfunction Index

REM - Deletes a Room specified by its array index.
function DeleteRoom(Index as integer)
    if NumRooms > 0 and Index >= 0 and Index < NumRooms
        array delete element room(), Index
        dec NumRooms, 1
    endif
endfunction

REM - Create a new Object.
function NewObject(Room as integer, Desc as string)
    Index as integer
    Index = 0
    array insert at bottom object()
    object().room = Room
    object().desc = Desc
    Index = NumObjects
    inc NumObjects, 1
endfunction Index

REM - Delete an Object.
function DeleteObject(Index as integer)
    if NumObjects > 0 and Index >= 0 and Index < NumObjects
        array delete element object(), Index
        dec NumObjects, 1
    endif
endfunction

REM - Instances a new Item.
function NewItem(ItemType as integer, Owner as integer, OwnerID as integer)
    Index as integer
    Index = 0
    array insert at bottom item()
    item().itemtype = ItemType
    item().owner = Owner
    item().ownerid = OwnerID
    Index = NumItems
    inc NumItems, 1
endfunction Index

REM - Deletes an instanced Item, specified by its array index.
function DeleteItem(Index as integer)
    if NumItems > 0 and Index >= 0 and Index < NumItems
        array delete element item(), Index
        dec NumItems, 1
    endif
endfunction

` We're giving the user 2000 lines of buffer space to scroll back ` on.  And what we will do is display the final 20 lines
` (1979 - 1999) and insert each new line to print at the bottom
` after shifting all elements to the left by 1 index.

DIM Array$(1999)

Display_Our_Text_To_The_Screen(`basically 20 PRINT statements)
`No more  FOR/NEXT loop!

Magic_Updating_Function()
`To update screen, call our magic-shift-all-by-1-index  command
`and then call an ARRAY INSERT AT BOTTOM.

set display mode 640,480,32

global CLine=30    ` Current top line of backbuffer
global MaxLine     ` Max number of lines in backbuffer

` Check if the buffer doesn't exist
if file exist("Buffer.dat")=0
 ` Create the file
 open datafile to write 1,"Buffer.dat"
 close datafile 1
endif

` Open the buffer datafile
open datafile to update 1,"Buffer.dat"

` Calculate the max number of lines in the buffer
MaxLine=(datafile size(1)/202)+1

do
   
 ` Get the user input
 Com$=GetText(0,460,Com$)
 
 ` Add the user input to the buffer file
 WriteB(Com$)
 
 ` Calculate the new number of lines in the buffer file
 MaxLine=(datafile size(1)/202)+1

loop
end


function WriteB(Tex$)
 
 ` Write the string to the buffer file (200 characters)
 write datafile string 1,padright$(Tex$,200)
  
endfunction


function ShowScreen()
  
 cls
 
 ` Get the size of the datafile (bytes)
 CByte=datafile size(1)
  
 ` Show the text buffer
 for t=CLine to CLine-29 step -1

  ` Move current position in datafile back t lines
  set datafile position 1,CByte-(202*t) 

  ` Read the buffer string from the file
  Tex$=datafile string$(1)

  ` Show the file byte and text (for debugging)
  `text 0,y,"Byte "+padright$(str$(CByte-(202*t)),5)+" = "+Tex$
  ` Show the current top line (for debugging)
  `text 540,0,"CLine = "+str$(CLine)
  
  ` Show the buffer line
  text 5,y,Tex$
  
  ` Increase y to write next line
  inc y,15

 next t

 ` Reset datafile position to end of file
 set datafile position 1,CByte

endfunction


function GetText(x,y,Tex$)

 ` Clear the buffer (so no previous keys are added to the string)
 clear entry buffer

 ` Create a timer
 tim=timer()

 do

  ` Update the screen
  ShowScreen() 
 
  ` Show the prompt and user input
  text x,y,"> "+Com$+"| "
  ` Get the user input
  a$=entry$(1)
  ` Clear the entry$() buffer
  clear entry buffer
  
  ` Check if it's time to accept a keypress
  if timer()>tim+100
   
   ` Check for backspace
   if keystate(14)
    ` Remove last character from the input string
    Com$ = left$(Com$,len(Com$)-1)
    ` Clear a$
    a$=""
   endif

   ` Move the buffer down one line
   if keystate(208) and CLine-1=>30 then dec CLine
   
   ` Move the buffer up one line
   if keystate(200) and CLine+1<MaxLine then inc CLine
   
   ` Move the buffer one full page up
   if keystate(201)
    inc CLine,30
    ` Check if it went over the limit
    if CLine>MaxLine then CLine=MaxLine-1
   endif 
  
   ` Move the buffer one full page down
   if keystate(209)
    dec CLine,30
    ` Check if it went over the limit
    if CLine<30 then CLine=30
   endif

   ` Check for enter key
   if keystate(28) then exit

   ` Reset timer
   tim=timer()

  endif
   
  ` Add a$ to input string if it's more than nothing
  if a$<>"" then Com$ = Com$ + a$
 
 loop

endfunction Com$