Map Animations for EA 3.0.21

[WiseRock]

How would I convert [http://www.touchofdeathforums.com/community/index.php?/topic/127116-map-tile-animations-client-does-all-the-work/unread/](http://www.touchofdeathforums.com/community/index.php?/topic/127116-map-tile-animations-client-does-all-the-work/unread/) to DX8

[WiseRock]

bump?

[abhi2011]

We won't spoon-feed you. We can help if you have something like a base. (A basic knowledge of DX8 with VB or some basic code set up)

Go learn DX8 if you haven't. (Try some basic rendering of pictures on to the screen. Any random pic would do.)

[WiseRock]

I got it up to this but when i put the code

```

If GetTickCount Mod 1000 < 500 Then

' skip tile?

If (.Layer(MapLayer.MaskAnim).Tileset > 0 And .Layer(MapLayer.MaskAnim).Tileset <= NumTileSets) And (.Layer(MapLayer.MaskAnim).x > 0 Or .Layer(MapLayer.MaskAnim).y > 0) Then

If Autotile(x, y).Layer(i).renderState = RENDER_STATE_NORMAL Then

' Draw normally

RenderTexture Tex_Tileset(.Layer(i).Tileset), ConvertMapX(x * PIC_X), ConvertMapY(y * PIC_Y), .Layer(i).x * 32, .Layer(i).y * 32, 32, 32, 32, 32, -1

ElseIf Autotile(x, y).Layer(i).renderState = RENDER_STATE_AUTOTILE Then

' Draw autotiles

DrawAutoTile i, ConvertMapX(x * PIC_X), ConvertMapY(y * PIC_Y), 1, x, y

DrawAutoTile i, ConvertMapX((x * PIC_X) + 16), ConvertMapY(y * PIC_Y), 2, x, y

DrawAutoTile i, ConvertMapX(x * PIC_X), ConvertMapY((y * PIC_Y) + 16), 3, x, y

DrawAutoTile i, ConvertMapX((x * PIC_X) + 16), ConvertMapY((y * PIC_Y) + 16), 4, x, y

End If

End If

```

I placed this code in DrawMapTile after

```

RenderTexture Tex_Tileset(.layer(i).Tileset), ConvertMapX(x * PIC_X), ConvertMapY(y * PIC_Y), .layer(i).x * 32, .layer(i).y * 32, 32, 32, 32, 32, -1

ElseIf Autotile(x, y).layer(i).RenderState = RENDER_STATE_AUTOTILE Then

' Draw autotiles

DrawAutoTile i, ConvertMapX(x * PIC_X), ConvertMapY(y * PIC_Y), 1, x, y

DrawAutoTile i, ConvertMapX((x * PIC_X) + 16), ConvertMapY(y * PIC_Y), 2, x, y

DrawAutoTile i, ConvertMapX(x * PIC_X), ConvertMapY((y * PIC_Y) + 16), 3, x, y

DrawAutoTile i, ConvertMapX((x * PIC_X) + 16), ConvertMapY((y * PIC_Y) + 16), 4, x, y

End If

```