AppTitle "GetColor Collision Example by Eikon"
Graphics 320, 240, 16, 2
SetBuffer BackBuffer()

Local PX = 150, PY = 110
While Not KeyDown(1)

; Wall Area
Color 128, 64, 0: Rect 0, 0, 320, 240, 1	

; Grass Area
Color 0, 128, 0: Rect 20, 20, 280, 200, 1

; Player
Color 255, 255, 0: Rect PX, PY, 20, 20, 1

If KeyDown(203) Then ; Left
	GetColor PX - 1, PY + 10 
	If ColorGreen() > 100 Then PX = PX - 1 ; Allowed
ElseIf KeyDown(205) Then ; Right
	GetColor PX + 20, PY + 10
	If ColorGreen() > 100 Then PX = PX + 1 ; Allowed
ElseIf KeyDown(200) Then ; Up
	GetColor PX + 10, PY - 1
	If ColorGreen() > 100 Then PY = PY - 1 ; Allowed
ElseIf KeyDown(208) Then ; Down
	GetColor PX + 10, PY + 20
	If ColorGreen() > 100 Then PY = PY + 1 ; Allowed
EndIf

Flip: Cls
Wend: End