Tile engine

[Fox]

hrrr I took the time to correct your code:

If GetAsyncKeyState(vbKeyRight) <> 0 Then
    If intMap(intTmpY, intTmpX + 1) = 0 And intMap(intTmpY2, intTmpX + 1) = 0 Then
        intPX = intPX + 20 'Still dunno what's this..
 
        intSclX  = intSclX +1
        if intSclX >20 then
           intSclX =0
           intScrollX =intScrollX +1
        endif
    End If
End If

intMap(intTmpY, intTmpX + 1)

not sure how this'll work though.. it means your tiles are 1x1 pixel in size! If you had 20x20 tiles you'd need to do collision it like this:

intMap(int(intTmpY/20), int(intTmpX/20) + 1)

etc.