Public Function DrawLayer(DDSDest As cSurface, DDSTiles As cSurface, Layer As LayerEnum) As Boolean
#If APP_RELEASE Then
On Error GoTo Err:
#End If
Dim L As Long
Dim X As Long
Dim Y As Long
Dim oRect As RECT

For L = 0 To LayerMax
For X = 0 To Header.Width
For Y = 0 To Header.Height
Let oRect.Left = Tiles(L, X, Y).ResourceX * TILE_WIDTH
Let oRect.Right = oRect.Left + TILE_WIDTH
Let oRect.Top = Tiles(L, X, Y).ResourceY * TILE_HEIGHT
Let oRect.Bottom = oRect.Top + TILE_HEIGHT

Call DDSTiles.BlitFast(DDSDest, X * TILE_WIDTH + (Y And 2) * (TILE_WIDTH / 2), Y * (BASE_HEIGHT / 2 + 2) - (TILE_HEIGHT - BASE_HEIGHT), oRect)
Next Y
Next X
Next L

DrawLayer = True
Err:
End Function

doesnt seem to work it only draws one tile with larger sized maps.