Global GFX_Rx = 1024
Global GFX_Ry = 768

Graphics(GFX_Rx, GFX_Ry, 16, 1)

Global PLAYER_PosX#, PLAYER_PosY#

Type Box
	Field PosX, PosY
	Field Width, Height
End Type
Global b.Box

Function DrawBox()
	For b = Each Box
		Rect(b\PosX + GFX_Rx / 2 - 16 - PLAYER_PosX, b\PosY + GFX_Ry / 2 - 16 - PLAYER_PosY, b\Width, b\Height, 1)
	Next
End Function

Function CheckCollision()
	For b = Each Box
		If(RectsOverlap(b\PosX, b\PosY, b\Width, b\Height, PLAYER_PosX, PLAYER_PosY, 32, 32)) Return(True)
	Next
End Function 

b = New Box
b\PosX = 64
b\PosY = 0
b\Width = 200
b\Height = 100

b = New Box
b\PosX = 300
b\PosY = 200
b\Width = 100
b\Height = 150

SetBuffer(BackBuffer())
While(KeyDown(1) = False)
	
	OLD_PosX = PLAYER_PosX
	OLD_PosY = PLAYER_PosY
	
	If(KeyDown(205)) PLAYER_PosX = PLAYER_PosX + 1
	If(KeyDown(203)) PLAYER_PosX = PLAYER_PosX - 1
	If(KeyDown(208)) PLAYER_PosY = PLAYER_PosY + 1
	If(KeyDown(200)) PLAYER_PosY = PLAYER_PosY - 1
	
	If(CheckCollision())
		SAVE_PosX = PLAYER_PosX
		PLAYER_PosX = OLD_PosX
	EndIf
	
	If(CheckCollision())
		PLAYER_PosX = SAVE_PosX
		PLAYER_PosY = OLD_PosY
	EndIf
	
	Cls
	
	DrawBox()
	Rect(GFX_Rx / 2 - 16, GFX_Ry / 2 - 16, 32, 32, 1)
	
	Flip(True)
Wend
End