魔塔之拯救白娘子 完整工程下载地址： 《魔塔之拯救白娘子》~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本段代码虽然长，但结构非常清晰，当然写 也很随意，但还是很好懂的，在此不多说。
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
