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

魔塔之拯救白娘子 完整工程下载地址:
《魔塔之拯救白娘子》~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

本段代码虽然长,但结构非常清晰,当然写 也很随意,但还是很好懂的,在此不多说。

### 回答1: CocosCreator是一款功能强大的游戏开发引擎,而魔塔游戏源码则是指使用CocosCreator开发的一款魔塔游戏的源代码。 CocosCreator魔塔游戏源码通常包含游戏的各个模块,包括角色控制、战斗系统、地图生成以及游戏UI等。在这个源码中,开发者可以看到一套完整的魔塔游戏框架和逻辑。 角色控制是魔塔游戏源码中的重要部分。开发者可以看到玩家角色的移动、攻击以及技能释放等代码。通过阅读源码开发者可以了解到游戏角色的行为逻辑,比如怪物移动的规则、装备系统的实现等。 另外,战斗系统是魔塔游戏源码中的关键内容。开发者可以通过查看源码,了解到游戏的攻击和防御计算方式、技能释放和效果表现等细节。这对于学习游戏战斗系统的设计与实现非常有帮助。 地图生成也是源码中的一个重要模块。通过阅读源码开发者可以了解到地图生成的算法、随机事件的处理、宝箱、商店等游戏元素的放置和生成等细节。 游戏的UI设计也是魔塔游戏源码中不可缺少的一部分。开发者可以通过查看源码,了解到游戏UI的布局、按钮点击事件的处理、弹窗的实现等细节。 总之,通过研究CocosCreator魔塔游戏源码开发者可以学习到游戏开发中常用的算法和设计思路,同时也可以培养自己的开发能力和创造力。在学习和借鉴源码的基础上,开发者还可以根据自身需求进行二次开发和优化,创作出属于自己的魔塔游戏作品。 ### 回答2: CocosCreator魔塔游戏源码是指使用CocosCreator开发魔塔游戏的程序代码。CocosCreator是一款基于Javascript的游戏开发引擎,通过它可以轻松创建多平台的游戏魔塔游戏源码通常包含了游戏的一些基本组成部分,如场景、角色、道具、怪物等。它们通过CocosCreator的节点和组件系统进行组织和管理。在源码中,开发者可以了解到游戏的逻辑、界面设计以及各个功能模块的实现方式。 通过使用CocosCreator魔塔游戏源码开发者可以学习到如何实现一个完整的魔塔游戏。他们可以了解到游戏场景的搭建,通过编辑器创建地图和设置场景元素。他们可以学习到如何处理游戏角色的移动、攻击和受伤等操作,并实现相应的动画效果。另外,他们还可以了解到如何处理游戏道具的使用和怪物的生成与AI行为等。 魔塔游戏源码可以帮助开发者迅速上手游戏开发,节省大量的开发时间。通过对源码的学习和理解,开发者可以根据自己的需要进行二次开发和扩展,实现独具创意的魔塔游戏。 ### 回答3: CocosCreator魔塔游戏源码是基于CocosCreator游戏引擎开发的一种魔塔游戏的代码。魔塔游戏是一种以策略和冒险为主题的角色扮演游戏,玩家需要在迷宫中探索、寻找宝物、打败敌人,最终达到最深层并击败最终BOSS。 CocosCreator魔塔游戏源码包含了游戏的基本逻辑、界面设计、角色控制、敌人AI、道具系统等各个方面的代码实现。通过阅读源码,我们可以了解到游戏是如何实现地图的生成与呈现、角色的移动和战斗、敌人的行为规则、道具的获取和使用等功能。同时,源码还提供了一些基本的游戏美术资源,如角色、地图瓷砖、敌人等,可以用于快速搭建游戏。 在实际使用源码的时候,我们可以根据自己的需求进行修改和扩展,比如添加新的关卡、设计新的敌人、增加新的道具等。同时,我们也可以根据源码学习到CocosCreator游戏开发的一些基本技巧与规范,例如场景管理、碰撞检测、UI设计等。 总之,CocosCreator魔塔游戏源码是一个可以让我们了解和学习魔塔游戏开发的实际案例,可以通过对源码的学习和修改,快速搭建自己的游戏项目,并且还可以帮助我们掌握CocosCreator游戏引擎的使用。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

gosub60

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值