[bb] scrolling platformer with movable blocks by Pakz [ 1+ years ago ]

[BlitzBot]

Title : scrolling platformer with movable blocks
Author : Pakz
Posted : 1+ years ago

Description : Use left shift and cursor left and right to pull blocks. Also move into the blocks to move them. Controls are left cursor = left, right cursur = righ, space = jump.

It took me a while to get this example working. I tried to keep the code as simple as possible.

Code :

Code (blitzbasic) Select Expand

;
; Platformer with movable blocks
; By Pakz / Rudy van Etten

Graphics 640,480,32,2
SetBuffer BackBuffer()

Const mapwidth = 39
Const mapheight = 29
Const tilewidth = 32
Const tileheight = 32

Dim map(mapwidth,mapheight)

Global mapx = 0
Global mapy = 0
Global mapsx = 0
Global mapsy = 0
Global maprealx = 0
Global maprealy = 0

Global playerx = 2*tilewidth
Global playery = 10*tileheight
Const playerwidth = tilewidth
Const playerheight = tileheight

Global playerjumping = False
Global playerfalling = False
Global pfs# = 0.0 ; player falling speed
Global pjs# = 0.0 ; player jumping speed

; Movable blocks
Const mbwidth = tilewidth
Const mbheight = tileheight

Type mb
Field num,x,y,isfalling
Field fs# ; falling speed of block
End Type

readleveldata()

While KeyDown(1) = False
Cls
For i=0 To 5
moveplayer()
movemap()
Next
For i=0 To 1
playergravity()
blockgravity()
Next
drawmap()
drawmb()
drawplayer()
Flip
Wend
End

Function blockgravity()
For this.mb = Each mb
If thisisfalling= False
If mbmapcol(this
um,0,1) = False And mbmbcol(this
um,0,1) = False
thisisfalling = True
thisfs=0
End If
End If
If thisisfalling = True
If thisfs < 3 Then thisfs = thisfs + .1
For i=0 To thisfs
If mbmapcol(this
um,0,1) = False And mbmbcol(this
um,0,1) = False
thisy = thisy + 1
Else
thisfs = 0
thisisfalling = False
Exit
End If

Next
End If
Next
End Function

Function mbmapcol(num,movex,movey)
For this.mb = Each mb
If num = this
um
pcx = thisx / tilewidth
pcy = thisy / tileheight
For y=-2 To 2
For x=-2 To 2
If pcx+x > 0 And pcx+x < mapwidth And pcy+y > 0 And pcy+y < mapheight
If map(pcx+x,pcy+y) = 1
If RectsOverlap(thisx+movex,thisy+movey,tilewidth,tileheight,(pcx+x)*tilewidth,(pcy+y)*tileheight,tilewidth,tileheight)
Return True
End If
End If
End If
Next
Next
End If
Next
End Function

Function mbmbcol(num,movex,movey)
For this.mb = Each mb
If this
um = num
For that.mb = Each mb
If Not that
um = num
If RectsOverlap(thisx+movex,thisy+movey,tilewidth,tileheight,thatx,thaty,tilewidth,tileheight)
Return True
End If
End If
Next
End If
Next
End Function

Function moveblock(num,move)
For this.mb = Each mb
If this
um = num
thisx = thisx+move
End If
Next
End Function

Function playermbcol(px,py)
For this.mb = Each mb
xx = thisx-(mapx*tilewidth)+mapsx-tilewidth
yy = thisy-(mapy*tileheight)+mapsy-tileheight
If RectsOverlap(px,py,playerwidth,playerheight,xx,yy,tilewidth,tileheight)
Return this
um
End If
Next
End Function

Function drawmb()
Color 255,255,0 ; yellow
For this.mb = Each mb
Rect thisx-(mapx*tilewidth)+mapsx-tilewidth,thisy-(mapy*tileheight)+mapsy-tileheight,tilewidth,tileheight,True
Next
End Function

Function playergravity()
If playerfalling = False And playerjumping = False
If pmapcollision(playerx,playery+1) = False And playermbcol(playerx,playery+1) = False
playerfalling = True
pfs = 0.0
End If
End If
If playerfalling = True
If pfs < 3 Then pfs = pfs + 0.1
For i=0 To pfs
If pmapcollision(playerx,playery+1) = False And playermbcol(playerx,playery+1) = False
playery = playery + 1
Else
playerfalling = False
Exit
End If
Next
End If
If playerjumping = True
pjs = pjs - 0.1
If pjs < 0
playerjumping = False
playerfalling = True
pfs = 0.0
End If
For i=0 To pjs
If pmapcollision(playerx,playery-1) = False
playery = playery - 1
Else
playerfalling = True
pfs = 0.0
Exit
End If
Next
End If
End Function

Function pmapcollision(px,py)
Local pcx = mapx + (px/tilewidth)
Local pcy = mapy + (py/tileheight)
For y=-2 To 2
For x=-2 To 2
If pcx+x > 0 And pcx + x < mapwidth And pcy + y > 0 And pcy + y < mapheight
If map(pcx+x,pcy+y) = 1
xx = ((pcx-mapx)+x)*tilewidth+mapsx-tilewidth
yy = ((pcy-mapy)+y)*tileheight+mapsy-tileheight
If RectsOverlap(px,py,playerwidth,playerheight,xx,yy,tilewidth,tileheight)
Return True
End If
End If
End If
Next
Next
End Function

Function movemap()
If playerx > GraphicsWidth() / 2
If mapx < mapwidth - GraphicsWidth() / tilewidth
mapsx = mapsx - 1
playerx = playerx - 1
If mapsx < 0
mapsx = tilewidth-1
mapx = mapx + 1
End If
End If
End If
If playerx < GraphicsWidth() / 2
If mapx > 0
mapsx = mapsx + 1
playerx = playerx + 1
If mapsx > tilewidth-1
mapsx = 0
mapx = mapx - 1
End If
End If
End If
If playery > GraphicsHeight() / 2
If mapy < mapheight - GraphicsHeight() / tileheight
mapsy = mapsy - 1
playery = playery - 1
If mapsy < 0
mapsy = tileheight-1
mapy = mapy + 1
End If
End If
End If
If playery < GraphicsHeight() / 2
If mapy > 0
mapsy = mapsy + 1
playery = playery + 1
If mapsy > tileheight-1
mapsy = 0
mapy = mapy - 1
End If
End If
End If
End Function

Function moveplayer();42=shiftleft
If KeyDown(42) ; if pulling block shift plus cursur l and r
If KeyDown(203) And pmapcollision(playerx-1,playery) = False
a = playermbcol(playerx+1,playery)
If a>0
playerx = playerx - 1
moveblock(a,-1)
End If
End If
If KeyDown(205) And pmapcollision(playerx+1,playery) = False
a = playermbcol(playerx-1,playery)
If a>0
playerx = playerx + 1
moveblock(a,1)
End If
End If
End If
If KeyDown(42) = False ; if not pulling
If KeyDown(203) And pmapcollision(playerx-1,playery) = False ; left
mp = -1
a = playermbcol(playerx-1,playery)
If a>0
If mbmbcol(a,-1,0) = False And mbmapcol(a,-1,0) = False
moveblock(a,-1)
Else
mp = 0
End If
End If
playerx = playerx + mp
End If
If KeyDown(205) And pmapcollision(playerx+1,playery) = False ; right
mp = 1
a = playermbcol(playerx+1,playery)
If a>0
If mbmbcol(a,1,0) = False And mbmapcol(a,1,0) = False
moveblock(a,1)
Else
mp = 0
End If
End If
playerx = playerx + mp
End If
End If
If KeyDown(57)
If playerjumping = False And playerfalling = False
playerjumping = True
pjs = 5.0
End If
End If
End Function

Function drawplayer()
Color 255,0,0
Rect playerx,playery,playerwidth,playerheight,True
End Function

Function drawmap()
Color 255,255,255
For y=0 To GraphicsHeight() / tileheight
For x=0 To GraphicsWidth() / tilewidth
Select map(x+mapx,y+mapy)
Case 1
Rect x*tilewidth+mapsx-tilewidth,y*tileheight+mapsy-tileheight,tilewidth,tileheight,True
End Select
Next
Next
End Function

Function readleveldata()
Local blocknum = 1
Restore leveldata
For y=0 To mapheight
For x=0 To mapwidth
Read a
If a=1
map(x,y) = 1
End If
If a=2
this.mb = New mb
this
um = blocknum
blocknum=blocknum+1
thisx = x*tilewidth
thisy = y*tileheight

End If
Next
Next
End Function

.leveldata
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 0,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,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,1,0,0,2,0,1,0,2,0,0,1,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,0,0,2,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,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,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,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,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0
Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,1,1,1,1,1,1,0
Data 0,1,0,0,0,0,0,0,0,0,2,2,2,0,0,2,2,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0
Data 0,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,0
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1

Comments :


Chalky(Posted 1+ years ago)

 Very nice!


BlitzSupport(Posted 1+ years ago)

 Agreed, very nice, but I think I must have vsync turned off as it's too fast to play comfortably here... works very well, though.