Fix: No cargaba Grh's > 32767

ao-libre · Jul 20, 2020 · 8d96da0 · 8d96da0
1 parent 64a10e3
commit 8d96da0
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/Codigo/clsDX8Engine.bas b/Codigo/clsDX8Engine.bas
@@ -388,7 +388,7 @@ Function InMapBounds(X As Integer, Y As Integer) As Boolean
 
 End Function
 
-Public Sub Draw_GrhIndexMiniMap(ByVal grh_index As Integer, _
+Public Sub Draw_GrhIndexMiniMap(ByVal grh_index As Long, _
                                 ByVal X As Integer, _
                                 ByVal Y As Integer, _
                                 ByVal PixelWidth As Long, _

diff --git a/Codigo/modEdicion.bas b/Codigo/modEdicion.bas
@@ -259,7 +259,7 @@ Public Sub Superficie_Azar()
 
             If frmConfigSup.MOSAICO.Value = vbChecked Then
 
-                Dim aux As Integer
+                Dim aux As Long
 
                 Dim dy  As Integer
 
@@ -357,7 +357,7 @@ Public Sub Superficie_Bordes()
 
                 If frmConfigSup.MOSAICO.Value = vbChecked Then
 
-                    Dim aux As Integer
+                    Dim aux As Long
 
                     aux = Val(frmMain.cGrh.Text) + ((Y Mod frmConfigSup.mLargo) * frmConfigSup.mAncho) + (X Mod frmConfigSup.mAncho)
 
@@ -444,7 +444,7 @@ Public Sub Superficie_Todo()
 
             If frmConfigSup.MOSAICO.Value = vbChecked Then
 
-                Dim aux As Integer
+                Dim aux As Long
 
                 aux = Val(frmMain.cGrh.Text) + ((Y Mod frmConfigSup.mLargo) * frmConfigSup.mAncho) + (X Mod frmConfigSup.mAncho)
                 MapData(X, Y).Graphic(Val(frmMain.cCapas.Text)).GrhIndex = aux
@@ -1063,7 +1063,7 @@ Sub ClickEdit(Button As Integer, tX As Integer, tY As Integer)
 
             If frmConfigSup.MOSAICO.Value = vbChecked Then
 
-                Dim aux As Integer
+                Dim aux As Long
 
                 Dim dy  As Integer