Hola. Desde luego, lo siento por mi español que puede no ser el mejor. Es que soy portugués. Pero intentaré hacer mi mejor.
Estoy teniendo problemas con la función MAP_CopyRects.
Uso el siguiente código:
Public Sub StartGame()
Dim tRegion(0) As GFX_Rect
Dim tVertice(0) As Vertex
Dim X As Integer
Dim Y As Integer
cMap.LoadMap HOENN, 0, 9
lTileSet = cGFX.MAP_Load("H:\Data\TileSets\Hoenn\tile" & cMap.TileSet1 & "_" & cMap.TileSet2 & ".bmp", 0)
tRegion(0).Height = 16
tRegion(0).Width = 16
tRegion(0).X = 16
tRegion(0).Y = 16
tVertice(0).X = 0
tVertice(0).Y = 0
tVertice(0).Color = cGFX.ARGB_Set(255, 255, 255, 255)
Debug.Print cGFX.MAP_CopyRects(lTileSet, lMap, tRegion, tVertice)
bRun = True
While bRun
If cInput.Key_Hit(Key_Escape) = True Then
bRun = False
EndGame
End If
'cGFX.DRAW_Map lTileSet, 256, 0, 0, 128, 2048
cGFX.DRAW_Map lMap, 0, 0, 0, 128, 2048
cGFX.Frame
Wend
End Sub
El problema es que el Debug.Print me sale "False" y se copia el Map lTileSet todo a lMap cuando lo que quiero es que copie un único tile. Es que estoy usando la función de forma errada? Es necesario hacer MAP_Create de lMap primero? Espero que me puedan ayudar.
Saludos.