tile-based collisions

Blitz3D Forums/Blitz3D Programming/tile-based collisions

K	(Posted 2012) [#1]

This is going to be the underlying basis for a complicated project.
Typed up in about twenty minutes, so, not well commented, just curious if a few could run the code and maybe provide insights on why diagonal moving fails...

(CONTROLS:
LEFT/RIGHT... Turn.
UP ARROW... Move forward.
)

Graphics 800,600
SetBuffer BackBuffer()

Dim Array(10,10)
Restore DAAT
For x=0To 9
 For y=0To 9
  Read Array(x,y)
   Next
	Next

Type Entity
Field Helth,id,typ
Field XX,YY,hat
Field OX,OY,trans
End Type


;remove later...
e.entity=New entity
e\id=0
e\Helth=10
e\XX=1
e\YY=1
e\typ=0
e\trans=0
e\OX=1
e\OY=1
;end remove



Repeat
Cls
For x=0To 9
 For y=0To 9
  Tile(Array(x,y))
   Rect (x*11),(y*11),10,10,1
	Next
	 Next

UpdateEntities()


Flip
Until KeyHit(1)
End






;---------------VISUAL

Function Tile(Call)
 Select Call
 Case 0 Color 0,100,0;blank
 Case 1 Color 255,0,0;wall
 End Select
End Function

;---------------UNDERLYING

Function UpdateEntities()
For e.entity=Each entity
 If e\typ=0;player
  UpdatePlayer(e)
 ElseIf e\typ=1;npc
  UpdateNPC(e)
 ElseIf e\typ=2;enemy
  UpdateEnemy(e)
 EndIf
Next
End Function


;ACTUALLY USED
Function UpdatePlayer(p.entity)
Text 300,300,p\hat
Text 300,312,p\trans

If 0=1
p\XX=MOVEX(p\XX,p\YY)
p\YY=MOVEY(p\YY,p\XX)
Else
k=KeyHit(200)
p\XX=MOVEHX(p\hat,p\XX,p\YY,k)
p\YY=MOVEHY(p\hat,p\YY,p\XX,k)
p\hat=MOVEHH(p\hat)
EndIf

Color 0,0,255 : Oval p\XX*11,p\YY*11,10,10,1
Color 255,255,0 : Line (p\XX*11)+5,(p\YY*11)+5,((p\XX*11)+5)+Cos(p\hat-90)*5,((p\YY*11)+5)+Sin(p\hat-90)*5

End Function


;NULL
Function UpdateNPC(e.entity)
End Function


;NULL
Function UpdateEnemy(e.entity)
End Function



;IGNORE THESE TWO FUNCTIONS THEY DON'T GET USED ANYMORE|
Function MOVEX%(XX,YY);                                |
XXX=XX;                                				   |
 XX=XX+KeyHit(205)-KeyHit(203);                        |
  If Array(XX,YY)=0 OVERRIDE=True;                     |
If OVERRIDE XXX=XX;                                	   |
Return XXX;                                			   |
End Function;                                		   |
;                                					   |
;                                					   |
Function MOVEY%(YY,XX);                                |
YYY=YY;                                				   |
 YY=YY-KeyHit(200)+KeyHit(208);                        |
  If Array(XX,YY)=0 OVERRIDE=True;                     |
If OVERRIDE YYY=YY;                                	   |
Return YYY;                                			   |
End Function;                                		   |
;------------------------------------------------------|

Function MOVEHX%(H,XX,YY,k)
 If k
  Select H;<<<Change hat angle to xy values
   Case 0;U_
	Y=-1 : X=0
	Case 45;UR
	Y=-1 : X=1
	Case 90;_R
	Y=0 : X=1
	Case 135;DR
	Y=1 : X=1
	Case 180;D_
	Y=1 : X=0
	Case 225;DL
	Y=1 : X=-1
	Case 270;_L
	Y=0 : X=-1
	Case 315;UL
	Y=-1 : X=-1
  End Select
 If Array(XX+X,YY+Y)=0 XX=XX+X;<<<Check collision
 EndIf
Return XX
End Function

;======================IS THE PROBLEM IN HERE?==============
;----------------------ONLY Y EVER GOES WRONG---------------
Function MOVEHY%(H,YY,XX,k)
 If k
  Select H;<<<Change hat angle to xy values
   Case 0;U_
	Y=-1 : X=0
	Case 45;UR
	Y=-1 : X=1
	Case 90;_R
	Y=0 : X=1
	Case 135;DR
	Y=1 : X=1
	Case 180;D_
	Y=1 : X=0
	Case 225;DL
	Y=1 : X=-1
	Case 270;_L
	Y=0 : X=-1
	Case 315;UL
	Y=-1 : X=-1
	Default
	Stop
  End Select
 If Array(XX+X,YY+Y)=0 YY=YY+Y;<<<Check collision
 EndIf
Return YY
End Function
;===========================================================



Function MOVEHH%(H)
If KeyHit(205) H=H+45 ElseIf KeyHit(203) H=H-45
If H>=360 H=H-360;<<<wrap-around
If H<0H=360+H;<<<wrap-around

Return H
End Function







;level template
.DAAT
Data 1,1,1,1,1,1,1,1,1,1
Data 1,0,0,0,1,0,0,1,0,1
Data 1,0,0,0,0,0,0,1,0,1
Data 1,0,0,0,1,1,0,1,0,1
Data 1,0,0,0,1,0,0,0,0,1
Data 1,0,0,0,1,0,0,1,0,1
Data 1,0,0,0,1,0,0,1,0,1
Data 1,0,0,0,1,1,0,1,0,1
Data 1,0,0,0,1,0,0,1,0,1
Data 1,1,1,1,1,1,1,1,1,1

Last edited 2012

K	(Posted 2012) [#2]

Nevermind I fiexed it. Completely logical.

Kryzon

(Posted 2012) [#3]

Good job!

K	(Posted 2012) [#4]

Thanks.For anyone interested, the fix...
Issue was a procedural error in UpdatePlayer() func, namely
p\XX=MOVEHX()
p\YY=MOVEHY() seems logical except that MOVEHY takes p\XX
as a param, which had bean changed by MOVEHX(). Pretty
dumb of me. Oh, well...

(Added shoot with spacebar)

Graphics 800,600
SetBuffer BackBuffer()

Dim Array(30,30)
Restore DAAT
For y=0To 29
 For x=0To 29
  Read Array(x,y)
   Next
	Next

Type Entity
Field Helth,id,typ
Field XX,YY,hat
Field OX,OY,trans
End Type

Type Bullet
Field Power,time,id
Field XX,YY,hat
End Type


;remove later...
e.entity=New entity
e\id=0
e\Helth=10
e\XX=1
e\YY=1
e\typ=0
e\trans=0
e\OX=1
e\OY=1
;end remove



Repeat
Cls
For y=0To 29
 For x=0To 29
  Tile(Array(x,y))
   Rect (x*11),(y*11),10,10,1
	Next
	 Next

UpdateEntities()


Flip
Until KeyHit(1)
End






;---------------VISUAL

Function Tile(Call)
 Select Call
 Case 0 Color 0,100,0;blank
 Case 1 Color 255,0,0;wall
 End Select
End Function

;---------------UNDERLYING

Function UpdateEntities()

 For e.entity=Each entity
  If e\typ=0;player
   UpdatePlayer(e)
  ElseIf e\typ=1;npc
   UpdateNPC(e)
  ElseIf e\typ=2;enemy
   UpdateEnemy(e)
  EndIf
 Next
  For b.bullet=Each bullet
    UpdateBullet(b)
  Next

End Function


;___________ACTUALLY USED
Function UpdatePlayer(p.entity)
Text 300,300,p\hat
Text 300,312,p\trans

If 0=1
p\XX=MOVEX(p\XX,p\YY)
p\YY=MOVEY(p\YY,p\XX)
Else
k=KeyHit(200)
x=p\XX
y=p\YY
p\XX=MOVEHX(p\hat,X,Y,k)
p\YY=MOVEHY(p\hat,Y,X,k)
p\hat=MOVEHH(p\hat)
If KeyHit(57) Shoot(p\XX,p\YY,p\hat,1,30)
EndIf

Color 0,0,255 : Oval p\XX*11,p\YY*11,10,10,1
Color 255,255,0 : Line (p\XX*11)+5,(p\YY*11)+5,((p\XX*11)+5)+Cos(p\hat-90)*5,((p\YY*11)+5)+Sin(p\hat-90)*5

End Function
;___________


;NULL
Function UpdateNPC(e.entity)
End Function


;NULL
Function UpdateEnemy(e.entity)
End Function


Function Shoot.Bullet(X,Y,H,power=1,time=1)
b.bullet=New bullet
b\XX=X
b\YY=Y
b\hat=H
b\power=power
b\time=time

End Function


Function UpdateBullet(b.bullet)
 x=b\XX
  y=b\YY
   b\YY=MOVEHY(b\hat,b\YY,b\XX,1)
	b\XX=MOVEHX(b\hat,b\XX,b\YY,1)
	 b\time=b\time-1 : If b\time=0 k=1
	  If (b\XX=x)And (b\YY=y) b\time=1
 For e.entity=Each entity
  If (e\XX=b\XX) And (e\YY=b\YY) e\helth=e\helth-b\power : k=1
   Next
Color 245,210,190 : Line (b\XX*11)+5,(b\YY*11)+5,((b\XX*11)+5)+Cos(b\hat-90)*5,((b\YY*11)+5)+Sin(b\hat-90)*5
Color 200,200,200 : Oval ((b\XX*11)+5)+Cos(b\hat-90)*5,((b\YY*11)+5)+Sin(b\hat-90)*5,3,3,0

If k=1 Delete b
End Function


;IGNORE THESE TWO FUNCTIONS THEY DON'T GET USED ANYMORE|
Function MOVEX%(XX,YY);                                |
XXX=XX;                                				   |
 XX=XX+KeyHit(205)-KeyHit(203);                        |
  If Array(XX,YY)=0 OVERRIDE=True;                     |
If OVERRIDE XXX=XX;                                	   |
Return XXX;                                			   |
End Function;                                		   |
;                                					   |
;                                					   |
Function MOVEY%(YY,XX);                                |
YYY=YY;                                				   |
 YY=YY-KeyHit(200)+KeyHit(208);                        |
  If Array(XX,YY)=0 OVERRIDE=True;                     |
If OVERRIDE YYY=YY;                                	   |
Return YYY;                                			   |
End Function;                                		   |
;------------------------------------------------------|

Function MOVEHX%(H,XX,YY,k)
 If k
  Select H;<<<Change hat angle to xy values
   Case 0;U_
	Y=-1 : X=0
	Case 45;UR
	Y=-1 : X=1
	Case 90;_R
	Y=0 : X=1
	Case 135;DR
	Y=1 : X=1
	Case 180;D_
	Y=1 : X=0
	Case 225;DL
	Y=1 : X=-1
	Case 270;_L
	Y=0 : X=-1
	Case 315;UL
	Y=-1 : X=-1
  End Select
 If Array(XX+X,YY+Y)=0 XX=XX+X;<<<Check collision
 EndIf
Return XX
End Function


Function MOVEHY%(H,YY,XX,k)
 If k
  Select H;<<<Change hat angle to xy values
   Case 0;U_
	Y=-1 : X=0
	Case 45;UR
	Y=-1 : X=1
	Case 90;_R
	Y=0 : X=1
	Case 135;DR
	Y=1 : X=1
	Case 180;D_
	Y=1 : X=0
	Case 225;DL
	Y=1 : X=-1
	Case 270;_L
	Y=0 : X=-1
	Case 315;UL
	Y=-1 : X=-1
	Default;Triggers if error on hat
	Stop
  End Select
 If Array(XX+X,YY+Y)=0 YY=YY+Y;<<<Check collision
 EndIf
Return YY
End Function


Function MOVEHH%(H)
If KeyHit(205) H=H+45 ElseIf KeyHit(203) H=H-45
If H>=360 H=H-360;<<<wrap-around
If H<0H=360+H;<<<wrap-around

Return H
End Function







;level template
.DAAT
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
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,1,1,1,1,1,1,1,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,1;5
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,1
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,1,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1;10
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1;15
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,1,1,1,1,1,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,1,1,1,1,1,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1;20
Data 1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1;25
Data 1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,1,1,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,1,1,1,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
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,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;30

Last edited 2012