Help me with Rpg!!!!!

[Fox]

Just check all directions.. you can make something like this to define collidable sides:

tTile
   CollideLeft as Boolean
   CollideTop as Boolean
   ...
End Type

Map(W,H) as tTile

MoveChar()
   If Map(Player.x / TileWidth, Player.y / TileHeight).CollideLeft = True Then
      'Collide left
   EndIf

   If Map(Player.x / TileWidth, Player.y / TileHeight).CollideTop = True Then
      'Collide top
   EndIf

   ...
End Sub

See the idea?