魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~11地图编辑器-鼠标点击

gosub60

于 2021-01-19 18:27:04 发布

阅读量225

点赞数

分类专栏：我的程序文章标签： vb6 2d游戏 3d渲染 dx 游戏开发

本文链接：https://blog.csdn.net/gosub60/article/details/112849241

版权

我的程序专栏收录该内容

24 篇文章 0 订阅

订阅专栏

魔塔之拯救白娘子完整工程下载地址：
《魔塔之拯救白娘子》~11地图编辑器-地图编辑界面鼠标点击判断:
鼠标点击判断：
①点击的对象是卡通图片切换：完成对3种类型的卡通切换并显示
②点击的对象是某个卡通图片：获得该开通的编号，显示相应的信息，比如怪物属性
③点击的是地图界面：根据②的在地图界面绘制②的卡通并显示
④其他选择，比如退出编辑，清空地图等等。

Sub 地图编辑界面鼠标点击判断()
If Running <> 8 Then Exit Sub
If Xi.MouseKey(xgL_BUTTON) Then
    鼠标X坐标 = Xi.MouseX

    鼠标Y坐标 = Xi.MouseY

If 鼠标X坐标 = 497 Or 鼠标X坐标 > 497 And 鼠标X坐标 < 573 Then

   If 鼠标Y坐标 = 44 Or 鼠标Y坐标 > 44 And 鼠标Y坐标 < 67 Then
       地图编辑器界面按钮按下标志1 = True
       地图编辑器界面按钮按下标志2 = False
       地图编辑器界面按钮按下标志3 = False
地图编辑器界面_选择图形编号 = 1
End If
 
 End If
 
 If 鼠标X坐标 = 582 Or 鼠标X坐标 > 582 And 鼠标X坐标 < 656 Then

   If 鼠标Y坐标 = 44 Or 鼠标Y坐标 > 44 And 鼠标Y坐标 < 67 Then
       地图编辑器界面按钮按下标志1 = False
       地图编辑器界面按钮按下标志2 = True
       地图编辑器界面按钮按下标志3 = False
地图编辑器界面_选择图形编号 = 1
End If
 
 End If
 
 If 鼠标X坐标 = 666 Or 鼠标X坐标 > 666 And 鼠标X坐标 < 742 Then

   If 鼠标Y坐标 = 44 Or 鼠标Y坐标 > 44 And 鼠标Y坐标 < 67 Then
       地图编辑器界面按钮按下标志1 = False
       地图编辑器界面按钮按下标志2 = False
       地图编辑器界面按钮按下标志3 = True
地图编辑器界面_选择图形编号 = 1
End If
 
 End If
 '以上判断是否按下编辑器界面的3个选项按钮
 '以下判断是否按下清空地图，保存地图和载入地图
  

 If 鼠标X坐标 = 174 Or 鼠标X坐标 > 174 And 鼠标X坐标 < 252 Then

   If 鼠标Y坐标 = 455 Or 鼠标Y坐标 > 455 And 鼠标Y坐标 < 478 Then
       地图编辑器界面按钮按下标志_保存地图 = True

End If
 
 End If
 
 If 鼠标X坐标 = 318 Or 鼠标X坐标 > 318 And 鼠标X坐标 < 395 Then

   If 鼠标Y坐标 = 455 Or 鼠标Y坐标 > 455 And 鼠标Y坐标 < 478 Then
       地图编辑器界面按钮按下标志_清空地图 = True

End If
 
 End If
 
 
 If 鼠标X坐标 = 34 Or 鼠标X坐标 > 34 And 鼠标X坐标 < 115 Then

   If 鼠标Y坐标 = 455 Or 鼠标Y坐标 > 455 And 鼠标Y坐标 < 480 Then
      If 地图编辑器界面按钮按下标志_载入地图 = False Then
       地图编辑器界面按钮按下标志_载入地图 = True
      Else
      地图编辑器界面按钮按下标志_载入地图 = False
'
       End If
       
     

End If
 
 End If
 '退出地图编辑器，返回游戏第一页
 If 鼠标X坐标 = 543 Or 鼠标X坐标 > 543 And 鼠标X坐标 < 613 Then

   If 鼠标Y坐标 = 462 Or 鼠标Y坐标 > 462 And 鼠标Y坐标 < 484 Then
      If MsgBox("你是否放弃地图编辑，返回主菜单？如果没有保存地图，请点否！", vbQuestion Or vbYesNo, Me.Caption) = vbYes Then
       Running = 9: 读档标志 = False: 判断running状态_初始化: BackPic.LoadGraph "image\魔塔背景\魔塔背景1.jpg", xgBLACK
       End If
End If
 
 End If
 
 
 '以下判断是否选择了某个土块
 '检测第1行1-9
 Dim 地图编辑器界面_鼠标选择范围X坐标 As Single
 
 Dim 地图编辑器界面_鼠标选择范围y坐标 As Single

  Dim j As Integer
 
 地图编辑器界面_鼠标选择范围X坐标 = 474
 地图编辑器界面_鼠标选择范围y坐标 = 102
 
 For j = 0 To 8
 
  
   If 鼠标X坐标 = 地图编辑器界面_鼠标选择范围X坐标 + j * 32 Or 鼠标X坐标 > 地图编辑器界面_鼠标选择范围X坐标 + j * 32 And 鼠标X坐标 < 地图编辑器界面_鼠标选择范围X坐标 + j * 32 + 26 Then

   If 鼠标Y坐标 = 地图编辑器界面_鼠标选择范围y坐标 Or 鼠标Y坐标 > 地图编辑器界面_鼠标选择范围y坐标 And 鼠标Y坐标 < 地图编辑器界面_鼠标选择范围y坐标 + 32 Then
   
                 地图编辑器界面_选择图形编号 = j + 1
                
       
End If
End If

Next
'检测第2行10-19
 地图编辑器界面_鼠标选择范围X坐标 = 474
 地图编辑器界面_鼠标选择范围y坐标 = 146
'
 For j = 0 To 8
   
 If 鼠标X坐标 = 地图编辑器界面_鼠标选择范围X坐标 + j * 32 Or 鼠标X坐标 > 地图编辑器界面_鼠标选择范围X坐标 + j * 32 And 鼠标X坐标 < 地图编辑器界面_鼠标选择范围X坐标 + j * 32 + 26 Then

   If 鼠标Y坐标 = 地图编辑器界面_鼠标选择范围y坐标 Or 鼠标Y坐标 > 地图编辑器界面_鼠标选择范围y坐标 And 鼠标Y坐标 < 地图编辑器界面_鼠标选择范围y坐标 + 32 Then
   
                 地图编辑器界面_选择图形编号 = j + 1 + 9
                
       
End If
End If

 Next
 '检测第3行20-29
 地图编辑器界面_鼠标选择范围X坐标 = 474
 地图编辑器界面_鼠标选择范围y坐标 = 185
'
 For j = 0 To 8
   
 If 鼠标X坐标 = 地图编辑器界面_鼠标选择范围X坐标 + j * 32 Or 鼠标X坐标 > 地图编辑器界面_鼠标选择范围X坐标 + j * 32 And 鼠标X坐标 < 地图编辑器界面_鼠标选择范围X坐标 + j * 32 + 26 Then

   If 鼠标Y坐标 = 地图编辑器界面_鼠标选择范围y坐标 Or 鼠标Y坐标 > 地图编辑器界面_鼠标选择范围y坐标 And 鼠标Y坐标 < 地图编辑器界面_鼠标选择范围y坐标 + 32 Then
   
                 地图编辑器界面_选择图形编号 = j + 1 + 18
                 If 地图编辑器界面按钮按下标志1 = True And 地图编辑器界面_选择图形编号 > 25 Then 地图编辑器界面_选择图形编号 = 25: Exit For
                 
End If
End If

 Next

'检测第4行30-39
地图编辑器界面_鼠标选择范围X坐标 = 474
 地图编辑器界面_鼠标选择范围y坐标 = 225
'
 For j = 0 To 6
   
 If 鼠标X坐标 = 地图编辑器界面_鼠标选择范围X坐标 + j * 32 Or 鼠标X坐标 > 地图编辑器界面_鼠标选择范围X坐标 + j * 32 And 鼠标X坐标 < 地图编辑器界面_鼠标选择范围X坐标 + j * 32 + 26 Then

   If 鼠标Y坐标 = 地图编辑器界面_鼠标选择范围y坐标 Or 鼠标Y坐标 > 地图编辑器界面_鼠标选择范围y坐标 And 鼠标Y坐标 < 地图编辑器界面_鼠标选择范围y坐标 + 32 Then
   
                 地图编辑器界面_选择图形编号 = j + 1 + 27
                If 地图编辑器界面按钮按下标志2 = True And 地图编辑器界面_选择图形编号 > 28 Then 地图编辑器界面_选择图形编号 = 28: Exit For
       
End If
End If

 Next

''检测第5行40-49
'地图编辑器界面_鼠标选择范围X坐标 = 474
' 地图编辑器界面_鼠标选择范围y坐标 = 225
''
' For j = 0 To 6
'
' If 鼠标X坐标 = 地图编辑器界面_鼠标选择范围X坐标 + j * 32 Or 鼠标X坐标 > 地图编辑器界面_鼠标选择范围X坐标 + j * 32 And 鼠标X坐标 < 地图编辑器界面_鼠标选择范围X坐标 + j * 32 + 26 Then
'
'   If 鼠标Y坐标 = 地图编辑器界面_鼠标选择范围y坐标 Or 鼠标Y坐标 > 地图编辑器界面_鼠标选择范围y坐标 And 鼠标Y坐标 < 地图编辑器界面_鼠标选择范围y坐标 + 32 Then
'
'                 地图编辑器界面_选择图形编号 = j + 1 + 27
'
'
'End If
'End If
'
' Next






'以上判断是否选择绘图图形快
 '以下判断选择了图形快以后进行绘图工作
' 当前K=1当前J=0当前图片编号：0图片  X坐标：0图片Y坐标：32
'当前K=1当前J=1当前图片编号：1图片   X坐标：32图片Y坐标：32
'当前K=1当前J=2当前图片编号：1图片   X坐标：64图片Y坐标：32
'当前K=1当前J=3当前图片编号：1图片   X坐标：96图片Y坐标：32
'当前K=1当前J=4当前图片编号：1图片   X坐标：128图片Y坐标：32
'当前K=1当前J=5当前图片编号：1图片   X坐标：160图片Y坐标：32
'当前K=1当前J=6当前图片编号：1图片   X坐标：192图片Y坐标：32
'当前K=1当前J=7当前图片编号：1图片   X坐标：224图片Y坐标：32
'当前K=1当前J=8当前图片编号：1图片   X坐标：256图片Y坐标：32
'当前K=1当前J=9当前图片编号：1图片   X坐标：288图片Y坐标：32
'当前K=1当前J=10当前图片编号：1图片  X坐标：320图片Y坐标：32
'当前K=1当前J=11当前图片编号：1图片  X坐标：352图片Y坐标：32
'当前K=1当前J=12当前图片编号：0图片  X坐标：384图片Y坐标：32
 ''1-29为基本道具；'30-79为道具 ；'80-99为怪物
 Dim tempX As Integer '地图X边界判断
 'Dim tempY As Integer '地图y边界判断
 
 Dim m() As String
 Dim k As Integer
 
 For k = 1 To 11
 '判断第一行
 地图编辑器界面_鼠标选择范围X坐标 = 32
 地图编辑器界面_鼠标选择范围y坐标 = 32 * k
 
For j = 0 To 10
   
 If 鼠标X坐标 = 地图编辑器界面_鼠标选择范围X坐标 + j * 32 Or 鼠标X坐标 > 地图编辑器界面_鼠标选择范围X坐标 + j * 32 And 鼠标X坐标 < 地图编辑器界面_鼠标选择范围X坐标 + j * 32 + 32 Then

   If 鼠标Y坐标 = 地图编辑器界面_鼠标选择范围y坐标 Or 鼠标Y坐标 > 地图编辑器界面_鼠标选择范围y坐标 And 鼠标Y坐标 < 地图编辑器界面_鼠标选择范围y坐标 + 32 Then
   
                 '地图编辑器界面_选择图形编号 = j + 1 + 27
                ' 地图编辑器界面_图形说明
                '地图数据(1) = "0,1,1,1,1,1,1,1,1,1,1,1,0"
                m = Split(地图数据(k), ",")
                
                
                tempX = 鼠标X坐标 / 32
                If tempX > 11 Then tempX = 11
                
                m(tempX) = 地图编辑器界面_选择图形编号
                
                If 地图编辑器界面按钮按下标志2 = True Then
                m(tempX) = m(tempX) + 29
'                地图编辑器界面_选择图形编号 = 地图编辑器界面_选择图形编号 + 29
               End If
                If 地图编辑器界面按钮按下标志3 = True Then
                    m(tempX) = m(tempX) + 79
'                地图编辑器界面_选择图形编号 = 地图编辑器界面_选择图形编号 + 79

                End If
                
                
                
 地图数据(k) = m(0) & "," & m(1) & "," & m(2) & "," & m(3) & "," & m(4) & "," & m(5) & "," & m(6) & "," & m(7) & "," & m(8) & "," & m(9) & "," & m(10) & "," & m(11) & "," & m(12)
   
       写临时地图数据 (0)
  
       地图编辑器界面_临时地图标志 = True
        
        
       
End If
End If

 Next j
 
Next k


'以下处理载入地图操作
Dim 偏移量X As Integer '地图X边界判断
 Dim 偏移量Y As Integer '地图y边界判断

 '判断第一行32-43,503-511
' 地图编辑器界面_鼠标选择范围X坐标 = 32
' 地图编辑器界面_鼠标选择范围y坐标 = 503
 
For j = 1 To 地图最大层号

   If j < 30 Then
   
   偏移量X = 10 + 20 * j: 偏移量Y = 503
Else
偏移量X = 10 + 20 * (j - 29): 偏移量Y = 530

End If
   
   
 If 鼠标X坐标 = 偏移量X Or 鼠标X坐标 > 偏移量X And 鼠标X坐标 < 偏移量X + 15 Then

   If 鼠标Y坐标 = 偏移量Y Or 鼠标Y坐标 > 偏移量Y And 鼠标Y坐标 < 偏移量Y + 15 Then
   
                 '处理点击加载地图事件
              当前正在编辑的地图编号 = j: 地图编辑器界面_修正地图 = True
              
                       If 地图编辑器界面_修正地图 = True And 当前正在编辑的地图编号 > 0 And 地图编辑器界面按钮按下标志_载入地图 = True Then
       读取地图数据 (当前正在编辑的地图编号)
       写临时地图数据 (0)
       End If
              
Exit For

End If
End If
 Next j
 'Next k
End If
End Sub