La Torre Mágica de Salvar a la Dama Blanca ~ Mi primer código fuente de juego pequeño VB6 + DX8 ~ 9 selección de dibujos animados del editor de mapas

El proyecto completo de la torre mágica para salvar la dirección de descarga de la dama blanca:
"La torre mágica para salvar a la dama blanca" editor de mapas: control de proceso-selección de dibujos animados
Esta lección habla principalmente sobre la elección de dibujos animados. Como se muestra abajo.

Hay 3 tipos de dibujos animados:
① Categoría básica: 25, principalmente pavimento, NPC, puerta, escaleras, etc.
② Cuchillos: 28, principalmente rubíes, botellas de sangre, armas y otros accesorios.
③Categoría de monstruos: 34 tipos de monstruos y fantasmas.
En la lección anterior, después de inicializar los primeros datos del mapa en el control de proceso del editor de mapas, el siguiente paso es inicializar la imagen de dibujos animados. El código de la figura siguiente es:

'地图编辑器
Sub 地图编辑器_初始化()

'绘制一个6*6的区域作为选择绘制图形的地方
  地图编辑器_选择图形Draw

If 地图编辑器界面按钮按下标志1 = False Then

With 储存按钮的图形数组(0)
            '.SetDisplayRect 0, 0, 128, 64
            .SetScale 0.3, 0.3
            .Cell = 1
            .DrawGraph 400, 10
        End With
   Else
   With 储存按钮的图形数组(1)
            '.SetDisplayRect 0, 0, 128, 64
            .SetScale 0.3, 0.3
            .Cell = 1
            .DrawGraph 400, 10
        End With
        地图编辑器界面按钮按下标志2 = False
        地图编辑器界面按钮按下标志3 = False
        
  End If
   
   If 地图编辑器界面按钮按下标志2 = False Then
   
 
    With 储存按钮的图形数组(2)
            '.SetDisplayRect 0, 0, 128, 64
            .SetScale 0.3, 0.3
            .Cell = 1
            .DrawGraph 485, 12
        End With
     Else
     
      With 储存按钮的图形数组(3)
            '.SetDisplayRect 0, 0, 128, 64
            .SetScale 0.3, 0.3
            .Cell = 1
            .DrawGraph 485, 12
        End With
        地图编辑器界面按钮按下标志1 = False
        地图编辑器界面按钮按下标志3 = False
     End If
     
     If 地图编辑器界面按钮按下标志3 = False Then
    
     With 储存按钮的图形数组(4)
            '.SetDisplayRect 0, 0, 128, 64
            .SetScale 0.3, 0.3
            .Cell = 1
            .DrawGraph 570, 10
        End With
             
       Else
       With 储存按钮的图形数组(5)
            '.SetDisplayRect 0, 0, 128, 64
            .SetScale 0.3, 0.3
            .Cell = 1
            .DrawGraph 570, 10
        End With
           地图编辑器界面按钮按下标志1 = False
        地图编辑器界面按钮按下标志2 = False
             
     End If
      If 地图编辑器界面按钮按下标志_清空地图 = False Then

With 储存按钮的图形数组(6)
            '.SetDisplayRect 0, 0, 128, 64
            .SetScale 0.3, 0.3
            .Cell = 1
            .DrawGraph 220, 420
        End With
   Else
   With 储存按钮的图形数组(7)
            '.SetDisplayRect 0, 0, 128, 64
            .SetScale 0.3, 0.3
            .Cell = 1
            .DrawGraph 220, 420
        End With
         End If
  
    If 地图编辑器界面按钮按下标志_保存地图 = False Then

With 储存按钮的图形数组(8)
            '.SetDisplayRect 0, 0, 128, 64
            .SetScale 0.3, 0.3
            .Cell = 1
            .DrawGraph 80, 420
        End With
   Else
   With 储存按钮的图形数组(9)
            '.SetDisplayRect 0, 0, 128, 64
            .SetScale 0.3, 0.3
            .Cell = 1
            .DrawGraph 80, 420
        End With
       End If
    
   If 地图编辑器界面按钮按下标志_载入地图 = False Then

With 储存按钮的图形数组(10)
            '.SetDisplayRect 0, 0, 128, 64
            .SetScale 0.3, 0.3
            .Cell = 1
            .DrawGraph -70, 420
        End With
   Else
   With 储存按钮的图形数组(11)
            '.SetDisplayRect 0, 0, 128, 64
            .SetScale 0.3, 0.3
            .Cell = 1
            .DrawGraph -70, 420
        End With
     End If
 End Sub

Map Editor_Select Graphics Draw : La función de esta subrutina es cambiar entre 3 tipos de dibujos animados (juzgados según el tipo de clic) Dado que el número de dibujos animados es diferente, la visualización de la rama se realiza aquí.

Sub 地图编辑器_选择图形Draw()
   
    Dim j As Integer
    
    Dim k As Integer
    Dim 偏移值 As Integer
         图片X坐标 = 440
    图片Y坐标 = 100
    

 If 地图编辑器界面按钮按下标志1 = True Then

   For j = 1 To 25
   
      If j < 10 Then 偏移值 = j * 32
      If j > 9 And j < 19 Then 偏移值 = (j - 9) * 32
      If j > 18 And j < 29 Then 偏移值 = (j - 18) * 32
             With 储存基本的物体图形数组(j)
            .Cell = 1
            .DrawGraph 图片X坐标 + 偏移值, 图片Y坐标
        End With
        
        If j = 9 Then 图片Y坐标 = 图片Y坐标 + 40
        
        If j = 18 Then 图片Y坐标 = 图片Y坐标 + 40
        
    Next j
  End If
  
   If 地图编辑器界面按钮按下标志2 = True Then
  
  For j = 1 To 28
  
  If j < 10 Then 偏移值 = j * 32
      If j > 9 And j < 19 Then 偏移值 = (j - 9) * 32
      If j > 18 And j < 29 Then 偏移值 = (j - 18) * 32
      If j > 27 And j < 37 Then 偏移值 = (j - 27) * 32
     'If J > 34 Then 偏移值 = (J - 34) * 32
      
  With 储存基本的物体图形数组(29 + j)
            .Cell = 1
            .DrawGraph 图片X坐标 + 偏移值, 图片Y坐标
        End With
        
       If j = 9 Then 图片Y坐标 = 图片Y坐标 + 40
        
        If j = 18 Then 图片Y坐标 = 图片Y坐标 + 40
       If j = 27 Then 图片Y坐标 = 图片Y坐标 + 40
       
      'If J = 33 Then 图片Y坐标 = 图片Y坐标 + 40
       
       ' 图片Y坐标 = 图片Y坐标 + 32
  Next
   End If
  
  If 地图编辑器界面按钮按下标志3 = True Then
  
  For j = 1 To 36
  
  If j < 10 Then 偏移值 = j * 32
      If j > 9 And j < 19 Then 偏移值 = (j - 9) * 32
      If j > 18 And j < 29 Then 偏移值 = (j - 18) * 32
      If j > 27 And j < 37 Then 偏移值 = (j - 27) * 32
     'If J > 34 Then 偏移值 = (J - 34) * 32
      
  With 储存基本的物体图形数组(80)
            .Cell = j
            .DrawGraph 图片X坐标 + 偏移值, 图片Y坐标
        End With
        
       If j = 9 Then 图片Y坐标 = 图片Y坐标 + 40
        
        If j = 18 Then 图片Y坐标 = 图片Y坐标 + 40
       If j = 27 Then 图片Y坐标 = 图片Y坐标 + 40
       
      'If J = 33 Then 图片Y坐标 = 图片Y坐标 + 40
       
       ' 图片Y坐标 = 图片Y坐标 + 32
  Next
   End If
  End Sub

El siguiente paso es la parte clave del programa: ¡visualización dinámica de dibujos animados en el mapa!