Sorry your browser is not supported!

`autocam off

sync rate 60
global sw
global sh
global wall
wall=10
`global color
sw= screen height()
sh= screen width()
`backdrop off
set display mode 1024,768,32
autocam off
position camera 0,grid/10,10,grid/2-5
point camera 0,0,0
global grid as integer
grid=20



create bitmap 1,grid*grid,grid*grid+40
ink rgb (255,255,255,),0
box 0,0,grid*grid,grid*grid+40
ink rgb(0,0,0),0
text grid*(grid/2)-30,grid*grid+20,"Test me!"
for i= 1 to grid*grid
   line b,1,b,grid*grid
   line 1,b,grid*grid,b
   inc b,grid
next
`text 100,10, "draw map"
get image 1,0,0,grid*grid,grid*grid+40,1
create bitmap 2,40,grid
box 0,0,grid,grid
ink rgb(255,255,255),0
box 21,0,40,20
get image 2,0,0,20,20,1
get image 3,21,1,40,20,1
create bitmap  4,40,40
ink RGB(0,128,255),0
box 0,0,20,20
box 20,20,40,40


ink RGB(0,64,128),0
box 20,0,40,20
box 0,20,20,40
get image 4,0,0,40,40,1
set current bitmap 0
create=0
do
while play=0
paste image 1,0,0
if mousey()< grid*grid
sprite 2,mousex()/grid*grid,mousey()/grid*grid,2
set sprite 2,1,0
endif

if mouseclick()=1 and mousey()< grid*grid
   set current bitmap 1
   text 100,420,str$(mousex()/grid*grid)
   paste image 2,mousex()/grid*grid,mousey()/grid*grid
   get image 1,0,0,grid*grid,grid*grid+40,1
   set current bitmap 0
endif

if mouseclick()=2
   set current bitmap 1
   paste image 3,mousex()/grid*grid+1,mousey()/grid*grid+1
   get image 1,0,0,grid*grid,grid*grid+40,1
   set current bitmap 0
endif
if mouseclick()=1
   if mousey()>grid*grid and mousex()> grid*(grid/2)-40 and mousex()<grid*(grid/2)+40
   setuplevel()
      play=1
   endif
   endif
endwhile


if upkey()=1
`position camera 0,grid/10,10,grid/2-5
position camera 0,0,40,camera position z(0)+.01
point camera 0,0,0,0
endif








for h=6 to 9
`automatic object collision h,.1,1
`rotate object h,0,rnd(90),0
   if b=>1
      rotate object h,0,object angle y(h)+rnd(4)*90,0
      inc b
      if b>=5
         change=0
         b=0
       endif
   endif
   move object h,.05
next





inc change
if change>100
b=1
endif

`if object hit (h,



for collision= 10 to wall-1
h=6
for h=6 to 9
if object collision (h,collision)=1
move object h,-.1
rotate object h,0,object angle y(h)+rnd(4)*90,0
if object collision (h,collision)=0
move object h,.1
endif
endif

next
next




loop


function setuplevel()

make object box 1,grid+1,1,grid+1
texture object 1,4
scale object texture 1,20,20
position object 1,10,0,-grid/2
`cls
`create bitmap 10,sw,sh
set current bitmap 1
`set cursor 10,10


for col=0 to grid
`set current bitmap 1
`global stepp
`global columb
stepp=2

i=0
for i= 0 to grid-1
set current bitmap 1
 color=point(stepp,(col*20)+2)
inc stepp,20
if rgbr(color)=0
set current bitmap 0
make object box wall,1,1,1
position object wall,i,1,-col,
set object collision to boxes wall
inc wall,1.0

endif
next
`inc columb,20
next

get image 1,0,0,grid*grid,grid*grid,1




set current bitmap 0
sprite 10,0,0,1
for h=6 to 9
make object box h,.5,1,.5
position object h,grid/2,1,-grid/2
color object h,rgb(rnd(255),rnd(255),rnd(255))
set object collision to boxes h
next
endfunction

The Lone Ninja
 Written in DBpro: 500 lines or “20”compressed, 190kb media

 This is a Nintendo, Zelda style dungeon crawler with a cinematic storyline.
 The storyline ate most of the (game engine) code but I still think its fun to watch and play.
 Took me about 3-4 days part time to make the bit art, and program. Programs used Paint and DBpro.
 I had much bigger plans for it, but hey, 20 lines is 20 lines. Hope you enjoy it. 
Ps. Might want to turn your volume down to half when starting the game.

Spoiler Alert: Basic storyline
 There’s two groups of ninjas the white and the black “how original”. The Black Ninja’s are the scourge of the earth and wreak havoc whenever and wherever they can. The White Ninjas are good and their sole duty is to protect the royal family.

 The Princess is kidnapped buy the Black Ninjas while the White Ninja is sleeping on the job. She is taken deep underground to the Dark Ninja Master. It is your job as the White Ninja to travel into the dark catacombs and rescue the Princess fighting enemies along the way.

How to play:
 Find chests, don’t get to lost, kill ninjas, avoid Chinese stars, and find the key

 (W, A, S, D,) Movement
 (Space) Sword.
 (E) To advance the storyline and interact with objects.
 (R) To buy potions with gold.
 (Q) To use potions

 If you die, “god forbid”, and you wish to get right back to action skipping the cinematics, just put
“Sceneplay=2 “above the loop and a, “If music playing (3) =1: stopmusic 3: endif,” below line 256. 

Known bugs:
 1. Occasionally there is an empty chest. But don’t worry because the key will always appear.
 2. On occasion movement was still limited by invisible enemy. Pretty sure I fixed it though.
 3. Very rare occasion enemy stops shooting
 4. Some people can’t figure out how to get through the door. Try centering the character.

Changing it up: Hard mode
 If you would like to change the difficulty level the game speed is limited only by the sync rate.
 Line 445 and 441 can be changed from 2.8 to any positive integer to increase enemy attack speed and frequency. Health and actual damage control are more difficult to alter. Frequency of the ninjas appearance can be increase by changing line 430 by adding 
 "text= 0" and or ”textt= 3” to "If textt=2 or textt=1".
 Its set rnd(3) so 0,1,2,3 1&2 would be 50% of the time, 0,1,2 would be 75% & 0,1,2,3, would be 100% of the time.

Side notes: More dungeon levels can very easily be added with almost changing nothing in the code, the maps are not limited to a specific size or quality and can be easily changed and or added as long as the dimensions are a multiple or dividend of the original bitmap. For example if the map is
 400pixles and sprite size=600 then keep them in proportion “200px size=1200”,” 800px size=300”, ect. 
 Also changing the character is cake as long as the collision sprite size is maintained
 If you would like the original unaltered code neatly with comments and functions let me know, I quit commenting about half way through and compacted functions to save space.

#constant mapSpeed   4
#constant TileSize   32

box 0, 0, TileSize, TileSize
get image 1, 0, 0, TileSize, TileSize
cls
circle TileSize/2, TileSize/2, TileSize/2-1
get image 2, 0, 0, TileSize, TileSize

viewWidth = screen width()/TileSize
viewHeight = screen height()/TileSize

restore MapData

read mapWidth
read mapHeight

dim Map(mapWidth-1, mapHeight-1) as integer

for i=0 to mapHeight-1
   for j=0 to mapWidth-1
      read Map(j, i)
   next j
next i

maxX = mapWidth*TileSize-viewWidth*TileSize
maxY = mapHeight*TileSize-viewHeight*TileSize

sync on
sync rate 60

backdrop on
color backdrop 0

do
   gosub Controls
   gosub DrawMap

   sync
loop

end

Controls:
   if rightkey() and x<maxX
      inc x, mapSpeed
   endif

   if leftkey() and x>0
      dec x, mapSpeed
   endif

   if upkey() and y>0
      dec y, mapSpeed
   endif

   if downkey() and y<maxY
      inc y, mapSpeed
   endif
return

DrawMap:
   sx = x/Tilesize
   sy = y/Tilesize

   ox = x mod Tilesize
   oy = y mod Tilesize

   for i=sx to sx+viewWidth
      for j=sy to sy+viewHeight
         if i<mapWidth and j<mapHeight
            img = map(i, j)
            if img>0
               ix = (i-sx)*Tilesize-ox
               iy = (j-sy)*Tilesize-oy
               paste image img, ix, iy
            endif
         endif
      next j
   next i
return

MapData:
data 40, 30
data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1
data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1