2DGameBorderWallExample2

This is my second attempt at creating 2D level walls or borders. This time I am using sprites. The movement is very primitive, but I hope to add animation in my next attempt. You need the images below copied into your Liberty BASIC folder.

  'basic 2d game level wall/border example 2
  'using sprites
  'programmed by Ben Jimenez
  '8=up 6=right 2=down 4=left 7=up/left
  '9=up/right 1=down/left 3=down/right
  'July 22,2011
 
 
    nomainwin
 
    WindowWidth = 470
    WindowHeight = 500
 
    open "Cave dude eat food" for graphics_nsb_nf as #main
 
    print #main, "font ms_sans_serif 0 16"
 
    loadbmp "sprite1","cave1.bmp"
    loadbmp "tree","tree.bmp"
    loadbmp "food","food.bmp"
 
    print #main, "addsprite sprite1 sprite1";
 
 
   dim pxy$(22,22)
 
    'start postion of first wall piece
    x=10
    y=20
 
 
    for r=1 to 22 'first row
        for c=1 to 22 'current row column loop
        read d$
        pxy$(r,c)=d$
        if d$="t" then  'if border piece then draw it
           tcnt=tcnt+1
           #main,"addsprite tree";tcnt;" tree"
           #main,"spritexy tree";tcnt;" ";x;" ";y
 
        end if
 
 
         if d$="f" then  'if border piece then draw it
          fcnt=fcnt+1
           #main,"addsprite food";fcnt;" food"
           #main,"spritexy food";fcnt;" ";x+5;" ";y+10
           food=food+1
 
        end if
 
        if d$="s" then
            #main,"spritexy sprite1 ";x;" ";y
            #main,"spritescale sprite1 40"
            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,"when characterInput [checkkey]"
 
 
[main.inputLoop]   'wait here for input event
#main,"setfocus"
#main,"drawsprites"
 
 if pxy$(ar,ac)="e" and food=0 then
 notice "You collected all the food and escaped!"
 end if
 if pxy$(ar,ac)="e" and food>0 then
 notice "You need to collect more food!"
 end if
    wait
 
[checkkey]
 
'player move loop
'player can move as long as his path
'is not blocked by tree
key$ = Inkey$
 
    if len(key$) < 2 then
 
 
       if key$="2" then 'down
 
 
       if pxy$(ar+1,ac)<>"t"  then 'if next space is not a tree
        py=py+20
        #main,"spritexy sprite1 ";px;" ";py
       ar=ar+1
 
       end if
 
       end if
 
       if key$="6" then 'right
       if pxy$(ar,ac+1)<>"t"  then 'if next space is not a tree
 
       px=px+20
 
       #main,"spritexy sprite1 ";px;" ";py
       ac=ac+1
 
       end if
       end if
 
       if key$="4" then 'left
       if pxy$(ar,ac-1)<>"t"  then 'if next space is not a tree
 
       px=px-20
 
       #main,"spritexy sprite1 ";px;" ";py
       ac=ac-1
 
       end if
 
       end if
 
       if key$="8" then 'up
       if pxy$(ar-1,ac)<>"t"   then 'if next space is not a tree
 
       py=py-20
 
       #main,"spritexy sprite1 ";px;" ";py
       ar=ar-1
 
       end if
       end if
 
 
       if key$="3" then 'down,right
       if pxy$(ar+1,ac+1)<>"t"   then 'if next space is not a tree
 
       px=px+20
       py=py+20
 
       #main,"spritexy sprite1 ";px;" ";py
       ac=ac+1
       ar=ar+1
       end if
       end if
 
       if key$="1" then 'down,left
       if pxy$(ar+1,ac-1)<>"t"  then 'if next space is not a tree
 
       px=px-20
       py=py+20
 
       #main,"spritexy sprite1 ";px;" ";py
       ac=ac-1
       ar=ar+1
       end if
       end if
 
       if key$="9" then 'up,right
       if pxy$(ar-1,ac+1)<>"t"  then 'if next space is not a tree
 
       px=px+20
       py=py-20
 
       #main,"spritexy sprite1 ";px;" ";py
       ac=ac+1
       ar=ar-1
       end if
       end if
 
       if key$="7" then 'up,left
       if pxy$(ar-1,ac-1)<>"t"  then 'if next space is not a tree
 
       px=px-20
       py=py-20
 
       #main,"spritexy sprite1 ";px;" ";py
       ac=ac-1
       ar=ar-1
        end if
       end if
 
 
 
    end if
 
      if pxy$(ar,ac)="f" then
      #main,"spritecollides sprite1";
      input #main,list$
      #main,"spritevisible ";word$(list$,1);" off";
      pxy$(ar,ac)="x"
      food=food-1
      end if
 
 
 
 
   goto [main.inputLoop]
 
 
 
    'map data
    data  t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t
    data  t,x,x,x,x,x,x,x,t,f,x,t,x,t,x,t,x,x,x,x,x,t
    data  t,x,t,t,x,x,t,x,t,x,t,t,t,x,x,x,t,t,x,f,x,t
    data  t,t,t,t,x,x,x,x,x,t,x,x,t,t,x,t,x,t,t,x,x,t
    data  t,x,f,x,x,x,x,x,x,x,t,x,t,t,t,x,x,x,t,x,x,t
    data  t,x,x,t,x,x,x,t,x,t,t,t,x,t,t,x,x,t,t,t,x,t
    data  t,x,t,t,x,x,t,x,t,x,x,t,x,x,x,t,t,t,t,t,x,t
    data  t,x,x,x,x,t,x,f,t,t,x,x,x,t,x,t,t,t,t,t,x,t
    data  t,x,x,t,x,x,t,t,t,x,x,t,x,t,t,x,x,x,x,t,f,t
    data  t,x,t,t,x,t,x,x,x,t,t,x,x,x,x,t,x,x,x,x,t,t
    data  t,x,x,t,x,x,x,x,t,x,s,t,x,x,x,x,x,x,t,t,x,t
    data  t,x,x,x,t,t,x,t,x,t,t,t,x,t,x,t,t,x,x,x,x,t
    data  t,x,x,t,x,x,x,t,x,x,t,x,x,x,t,x,x,x,x,x,x,t
    data  t,x,t,x,x,t,x,t,t,x,x,x,x,x,x,x,x,t,t,t,x,t
    data  t,t,x,x,x,x,x,x,t,x,x,t,x,x,t,t,x,t,t,t,x,t
    data  t,x,t,t,x,x,t,x,x,x,t,x,x,t,t,t,x,t,t,t,t,t
    data  t,x,x,t,x,t,t,x,t,x,t,x,x,t,x,x,x,x,x,t,t,t
    data  t,t,x,t,x,x,t,x,f,t,x,x,t,x,x,t,t,x,t,t,x,e
    data  t,t,f,t,x,x,x,x,x,t,x,x,x,t,x,x,t,x,t,t,x,t
    data  t,x,t,x,x,t,x,t,x,t,t,x,t,t,x,x,t,x,x,x,x,t
    data  t,x,t,x,x,x,t,x,x,x,x,x,t,f,t,x,x,t,x,x,x,t
    data  t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t