VB Mario Contest

[William]

Crap, this is what I made:

Code:

Public Function CanMoveRight() As Long
CanMoveRight = 1000
Dim x As Long
For x = CharX + 32 To frmGame.Map1.Width
    If GetPixel(frmGame.Map1.hdc, x, CharY + 16) = 0 Then
        CanMoveRight = x
        Exit Function
    End If
Next x
End Function

I keep changing my ways of doing things in my game, so I think I will have to start all over again cause it all gets to messy.