Sorry your browser is not supported!

hide mouse `we don't need it for this

rem let's make some images for our 'map' and player

cls rgb(0,255,0) `green land block
get image 1,0,0,64,64,1

cls rgb(0,0,255) `blue water block
get image 2,0,0,64,64,1

cls rgb(255,0,0) `red player block
get image 3,0,0,16,16,1


rem make a "map" for us to explore. here's a 20x20 grid
dim map(20,20)
for x = 1 to 20
   for y = 1 to 20
      map(x,y) = (rnd(1)+1) `50/50 chance each block will be land or water
   next y
next x

rem let's offset the start point to somewhere near the center of the "map"
xoffset = 320 : yoffset = 320

rem for this example, i'm locking the player near the center of the screen.
sprite 1, screen width()/2, screen height()/2,3

color backdrop 0
do

rem some basic movement using arrow keys. the x and y offsets are adjusted if player 'moves'.
if leftkey() and lastmove + 10 < timer()
   xoffset = xoffset - 1
   lastmove = timer()
endif

if rightkey() and lastmove + 10 < timer()
   xoffset = xoffset + 1
   lastmove = timer()
endif

if upkey() = 1 and lastmove + 10 < timer()
   yoffset = yoffset - 1
   lastmove = timer()
endif

if downkey() and lastmove + 10 < timer()
   yoffset = yoffset + 1
   lastmove = timer()
endif

rem draw the map images (land and water blocks made earlier)
gosub _drawmap:



set cursor 0,0
print "Use Arrow Keys to Move"
print "X and Y Offsets: ", xoffset, ", ", yoffset

loop

_drawmap:

rem note the image blocks are pasted using the x and y offsets generated from the arrow key 'movement' code above
for x = 1 to 20
   for y = 1 to 20
      paste image map(x,y), (x-1)*64-xoffset, (y-1)*64-yoffset,0 `remember our "map blocks" are 64x64 pixels
   next y
next x

return

`load your background
load bitmap "background image.bmp",1
load image "jet lee aka main character.bmp"
`get a partof the background or whole thing
get image 1,400,400,600,800
get image 2,200,200,200,111
` set current bitmap to 0 to make sprites visible
set current bitmap 0
`create and posision your sprites/background
sprite 1,50,50,1
`main character witch will stay in one spot for the entire game
sprite 2,x,y,2
do
xpos#=sprite x(1)
ypos#=sprite y(1)

`up down movment setting up  function/variables
if upkey()=1
ypos#=ypos#+1
endif

If downkey()=1
ypos#=ypos#-1
endif
sync
`left and right movement
if rightkey()=1
xpos#=xpos#+1
endif
if leftkey()=1
xpos#=xpos#-1
endif
`now simple buy putting xpos# and ypos#
`in for your sprite positions for your background or other units thell all move together
`from their current position nicely i recon
sprite 1,xpos#,ypos#,1
` and assuming you might want monsters/enemys that move independantly of key movement just use somthign like this
`sprite 2 rem "aka monster" remend
sprite 2,["x"movements commands variable#]+xpos#,[ "y" movements commands variable#]+ypos#
`that will allow mobs pre. programmed to move around independently to still move accordingly to  ur main char position
`but you will have to use screen width height commands in order to keep stuff from going of screen witch
`u will have to do pretty much reguardless anyhow for random enemy movements
loop