Roof Tile addon.

[Jacob]

Code:

Public LookUpTileRec(MAX_INTEGER) As DxVBLib.RECT

Code:

Dim i As Long
Dim tempRec As DxVBLib.RECT

    For i = 0 To MAX_INTEGER
        With tempRec
            .Top = (i \ 13) * PIC_Y
            .Bottom = .Top + PIC_Y
            .Left = (i Mod 13) * PIC_X
            .Right = .Left + PIC_X
        End With
        LookUpTileRec(i) = tempRec
    Next

Code:

Ground = Map.Tile(X, Y).Ground

DD_BackBuffer.BltFast ConvertMapX(X) * PIC_X, ConvertMapY(Y) * PIC_Y, DD_TileSurf, LookUpTileRec(Ground), DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY

There's a look up table for your tiles. Modify it for MS4.