2DGameWallBorderExample

Hi,

Just wanted to share a simple one level game that shows a simple way to create walls/borders in your 2d game. The game has only 1 level, but it shouldn't be too hard to add more. I want to make another version using sprites, but time will determine that (free time that is).

I created this game to show an easy way to create borders or walls for your 2D games in BASIC. This game only has one level, but it should not be too hard to create more. I want to create a version using sprites, since the sprites commands do not have an easy way to create walls for your games I am attempting to come up with something that will work for me. I'd like to share what I come up with. I know this is very basic, but it's just a starting point. With the sprite version I want to try to add a more fluent movement to the sprite.

Note: Now updated so you can use your arrow keys to move the player

 'basic 2d game level wall/border example 
 'using native graphic commands 
 'programmed by Ben Jimenez 
 '8=up 6=right 2=down 4=left 'use your arrow keys to move the player 
 'July 20,2011 
 'upadted Oct 15,2011 
 
 
 nomainwin 
 
 WindowWidth = 470 
 WindowHeight = 500 
 
 open "Border/Wall Example" for graphics_nsb_nf as #main 
 print #main, "fill white; flush" 
 print #main, "font ms_sans_serif 0 16" 
 #main,"up;goto 20 30;size 3;down" 
 
 dim pxy$(22,22) 
 
 up$= chr$(_VK_UP) 
 lft$=chr$(_VK_LEFT) 
 rht$=chr$(_VK_RIGHT) 
 dwn$=chr$(_VK_DOWN) 
 
 
 
 'start postion of first wall piece 
 x=10 
 y=20 
 
 'draw border walls 
 for r=1 to 22 'first row 
 for c=1 to 22 'current row column loop 
 read d$ 
 pxy$(r,c)=d$ 
 if d$="B" then 'if border piece then draw it 
 #main,"up;goto ";x+20;" ";y+20;";down;backcolor blue;color blue" 
 #main,"boxfilled ";x;" ";y 
 
 end if 
 
 if d$="s" then 'save player start position 
 px=x 'set current pen x position to player start x 
 py=y ' set current pen y position to player start y 
 ar=r 'remember current row location 
 ac=c 'remember current column locaton 
 end if 
 
 x=x+20 'increase column x location by 20 
 next c 
 x=10 
 y=y+20 'increase row y location by 20 
 next r 
 
 #main,"flush" 'save drawn board as segment 
 #main,"flush" 'save a 2nd copy of board as segment 
 
 'draw player 
 #main,"up;goto ";px+10;" ";py+10;";down;backcolor brown;color brown" 
 #main,"circlefilled 6" 
 
 #main,"when characterInput [checkkey]" 
 
 
 
 [main.inputLoop] 'wait here for input event 
 #main,"setfocus" 
 wait 
 
 [checkkey] 
 
 
 key$ = Inkey$ if len(key$) < 2 then left$(Inkey$, 2) 
 
 select case right$(key$,1) 
 'if wall/boarder found for next movement then no movement will be done. 
 
 if key$="2" then case dwn$ 'down 
 
 
 if pxy$(ar+1,ac)<>"B" then 'if next location is not a wall/border then move player 
 #main,"up;goto ";px+10;" ";py+10;";down;backcolor white;color white" 
 #main,"circlefilled 6" 
 
 py=py+20 
 #main,"up;goto ";px+10;" ";py+10;";down;backcolor brown;color brown" 
 #main,"circlefilled 6" 
 
 ar=ar+1 
 
 end if 
 
 end if if key$="6" then 'right case rht$ 
 
 
 if pxy$(ar,ac+1)<>"B" then 'if next location is not a wall/border then move player 
 #main,"up;goto ";px+10;" ";py+10;";down;backcolor white;color white" 
 #main,"circlefilled 6" 
 px=px+20 
 #main,"up;goto ";px+10;" ";py+10;";down;backcolor brown;color brown" 
 #main,"circlefilled 6" 
 ac=ac+1 
 
 end if 
 
 
 
 end if if key$="4" then 'left case lft$ 
 
 
 if pxy$(ar,ac-1)<>"B" then 'if next location is not a wall/border then move player 
 #main,"up;goto ";px+10;" ";py+10;";down;backcolor white;color white" 
 #main,"circlefilled 6" 
 px=px-20 
 #main,"up;goto ";px+10;" ";py+10;";down;backcolor brown;color brown" 
 #main,"circlefilled 6" 
 ac=ac-1 
 
 end if 
 
 end if if key$="8" then 'up 
 case up$ 
 if pxy$(ar-1,ac)<>"B" then 'if next location is not a wall/border then move player 
 #main,"up;goto ";px+10;" ";py+10;";down;backcolor white;color white" 
 #main,"circlefilled 6" 
 py=py-20 
 #main,"up;goto ";px+10;" ";py+10;";down;backcolor brown;color brown" 
 #main,"circlefilled 6" 
 ar=ar-1 
 
 end if 
 
 
 end if end if select 
 #main,"flush" 
 #main,"segment n" 
 #main,"delsegment ";n-2 
 if pxy$(ar,ac)="e" then 
 notice "You escaped the maze!" 
 end if 
 goto [main.inputLoop] 
 
 
 
 'maze data 
 data B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B 
 data B,s,B,x,x,x,B,x,B,x,x,x,x,x,B,x,x,x,x,x,x,B 
 data B,x,B,x,B,x,B,x,B,x,B,B,B,x,B,x,B,x,B,B,B,B 
 data B,x,B,x,B,x,B,x,B,x,B,x,B,x,B,x,B,x,B,x,x,e 
 data B,x,x,x,B,x,B,x,x,x,B,x,B,x,B,x,B,x,B,x,B,B 
 data B,x,B,x,B,x,B,x,B,x,B,x,B,x,x,x,B,x,B,x,x,B 
 data B,x,B,x,B,x,x,x,B,x,B,x,B,B,B,B,B,x,B,B,x,B 
 data B,x,B,x,B,x,B,B,B,x,B,x,x,B,x,x,x,x,B,B,x,B 
 data B,x,B,x,B,B,B,x,B,x,B,B,x,B,x,B,B,B,B,x,x,B 
 data B,x,B,x,x,x,x,x,B,x,B,x,x,x,x,B,x,x,x,B,x,B 
 data B,x,B,B,B,x,B,x,B,x,B,x,B,B,B,B,x,B,B,B,x,B 
 data B,x,x,x,x,x,B,x,x,x,B,x,x,x,x,x,x,B,x,B,x,B 
 data B,x,B,x,B,x,B,B,x,B,B,B,B,B,B,B,B,B,x,B,x,B 
 data B,x,B,x,B,x,B,x,x,B,x,B,x,x,x,x,B,x,x,B,x,B 
 data B,x,B,x,B,x,B,B,x,B,x,B,x,B,B,x,B,x,B,x,x,B 
 data B,x,B,x,B,x,x,x,x,B,x,x,x,x,B,x,B,x,B,x,B,B 
 data B,x,B,x,B,B,B,B,B,B,x,B,B,x,B,x,B,x,B,x,B,B 
 data B,x,B,x,x,x,B,x,x,x,x,x,B,x,B,x,x,x,B,x,x,B 
 data B,x,B,B,B,B,B,B,B,B,B,x,B,x,B,B,B,B,B,B,x,B 
 data B,x,B,x,x,x,B,x,x,x,B,x,B,x,x,x,B,x,x,x,x,B 
 data B,x,x,x,B,x,x,x,B,x,x,x,B,x,B,x,x,x,B,x,B,B 
 data B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B,B