Sorry your browser is not supported!

data ##########
data #......@.#
data #--..---|#
data #.@@@...|#
data #.---@|--#
data #|@@#--###
data #|--@@@@@#
data #|..-----#
data #|@@@@@@@#
data ##########

dim room$(10,10)

restore Room
for y=1 to 10
 For x=1 to 10
  read room$(x,y)
 next x
next y


for y=1 to 10
 For x=1 to 10
  print room$(x,y);
 next x
 print ""
next y

wait key
end


Room:
data "#" , "#" , "#" , "#" , "#" , "#" , "#" , "#" , "#" , "#"
data "#" , "." , "." , "." , "." , "." , "." , "@" , "." , "#"
data "#" , "-" , "-" , "." , "." , "-" , "-" , "-" , "|" , "#"
data "#" , "." , "@" , "@" , "@" , "." , "." , "." , "|" , "#"
data "#" , "." , "-" , "-" , "-" , "@" , "|" , "-" , "-" , "#"
data "#" , "|" , "@" , "@" , "#" , "-" , "-" , "#" , "#" , "#"
data "#" , "|" , "-" , "-" , "@" , "@" , "@" , "@" , "@" , "#"
data "#" , "|" , "." , "." , "-" , "-" , "-" , "-" , "-" , "#"
data "#" , "|" , "@" , "@" , "@" , "@" , "@" , "@" , "@" , "#"
data "#" , "#" , "#" , "#" , "#" , "#" , "#" , "#" , "#" , "#"

dim room#(10,10)
Set Display Mode 1024,768,32
Hide Mouse
Sync On
Autocam Off
box 0,0,30,30
get image 1,0,0,30,30,1
cls
make matrix 1,120,120,10,10
Prepare Matrix Texture 1,1,1,1
Fill Matrix 1,10,1
Position Matrix 1, 6,-12,6
g = get ground height(1,100,100)
do
Restore wall1
For roomy = 1 To 10
For roomx = 1 To 10
Read room
room#(roomy,roomx) = room
If room = 1
Inc roomwall
Make Object Cube roomwall,12
Color Object roomwall, Rgb(0,160,160)
Position Object roomwall,(roomx * 12), g, (roomy * 12)
show object roomwall
Endif
if room = 2
   `code
endif
if room = 3
   `code
endif
if room = 4
   `code
endif
if room = 5
   `code
endif
next x
next y
   Position Camera 87, 150, 87
   Point Camera 87,0,87
   Sync
   for i = 1 to 100
   if object exist(i) then delete object i
   next i
   sync
if mouseclick() then exit
Loop
wall1:
data 1,1,1,1,1,1,1,1,1,1
data 1,2,2,2,2,2,2,3,2,1
data 1,4,4,2,2,4,4,4,5,1
data 1,2,3,3,3,2,2,2,5,1
data 1,2,4,4,4,3,5,4,4,1
data 1,5,3,3,1,4,4,1,1,1
data 1,5,4,4,3,3,3,3,3,1
data 1,5,2,2,4,4,4,4,4,1
data 1,5,3,3,3,3,3,3,3,1
data 1,1,1,1,1,1,1,1,1,1

   Sync
   for i = 1 to 100
   if object exist(i) then delete object i
   next i
   sync

`Ok, heres so you know what all the objects are for:
`1 - the tealish colored cubes are the walls and floors
`2 - the red cylinders are the ladders
`3 - the small yellow spheres are coins
`4 - the small yellow cube is where you have to go (after you
` collect all the coins required for the next level) to win
`5 - this will be a different color of coin that represents a 5 point coin
`6 - this invisible box will be placed wherever the player will start
` Ok here it is:
` i set the graphics mode to 16 bit, my computer wont run 32 bit

set display mode 1024,768,16
hide mouse
autocam off
sync on : sync rate 30

dim level#(10,10)

ladder = 2
wall = 3
coin = 4
victory = 5

do
restore level1
For levely = 1 To 10
For levelx = 1 To 10
Read levelv
level#(levely,levelx) = levelv
If levelv = 1

Inc wall,5
Make Object Cube wall,1
Color Object wall, Rgb(0,160,160)
Position Object wall,levelx,levely ,1
show object wall

Endif
if levelv = 2

inc ladder,5
 make object cylinder ladder,1
 color object ladder,rgb(255,0,0)
 position object ladder,levelx,levely ,1
 show object ladder

endif
if levelv = 3
   inc coin,5
   make object sphere coin,.5
   position object coin,levelx,levely ,1
   color object coin,rgb(160,240,40)

endif
if levelv = 4
   inc victory,5
   make object cube victory,.5
   color object victory,rgb(255,255,0)
   position object victory,levelx,levely,1
endif
if level = 5
   `This will be 5 point coins
endif
if level = 6
   inc starting,5
   make object cube starting,1
   position object starting,levelx,levely,1
   hide object starting
endif


next x
next y
   position camera 5, 5, -10
   point camera 5,5,1
   sync
   for o = 1 to 500
   if object exist(o) then delete object o
   next o


Loop

level1:
data 1,1,1,1,1,1,1,1,1,1
data 1,4,3,3,3,3,3,0,2,1
data 1,3,0,1,1,1,1,1,2,1
data 1,3,2,0,3,3,3,3,0,1
data 1,3,2,1,1,1,1,3,1,1
data 1,3,0,3,3,3,3,0,2,1
data 1,3,1,1,1,1,0,0,2,1
data 1,3,3,3,3,3,1,1,2,1
data 1,3,0,0,0,0,3,3,0,1
data 1,1,1,1,1,1,1,1,1,1