魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~9地图编辑器-卡通选择

魔塔之拯救白娘子完整工程下载地址：
《魔塔之拯救白娘子》地图编辑器：流程控制-卡通选择
本课主要讲一下，卡通图片的选择。如下图所示。

卡通图片由3种：
①基础类：25个，主要是路面、NPC、门、楼梯之类。
②刀具类：28个，主要是红宝石、血瓶、武器等道具。
③怪物类：34种，各种妖魔鬼怪。
前一课，在地图编辑器流程控制第一项地图数据初始化后，接着就是，卡通图片初始化。下图的代码就是：

'地图编辑器
Sub 地图编辑器_初始化()'绘制一个6*6的区域作为选择绘制图形的地方地图编辑器_选择图形DrawIf 地图编辑器界面按钮按下标志1 = False ThenWith 储存按钮的图形数组(0)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 400, 10End WithElseWith 储存按钮的图形数组(1)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 400, 10End With地图编辑器界面按钮按下标志2 = False地图编辑器界面按钮按下标志3 = FalseEnd IfIf 地图编辑器界面按钮按下标志2 = False ThenWith 储存按钮的图形数组(2)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 485, 12End WithElseWith 储存按钮的图形数组(3)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 485, 12End With地图编辑器界面按钮按下标志1 = False地图编辑器界面按钮按下标志3 = FalseEnd IfIf 地图编辑器界面按钮按下标志3 = False ThenWith 储存按钮的图形数组(4)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 570, 10End WithElseWith 储存按钮的图形数组(5)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 570, 10End With地图编辑器界面按钮按下标志1 = False地图编辑器界面按钮按下标志2 = FalseEnd IfIf 地图编辑器界面按钮按下标志_清空地图 = False ThenWith 储存按钮的图形数组(6)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 220, 420End WithElseWith 储存按钮的图形数组(7)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 220, 420End WithEnd IfIf 地图编辑器界面按钮按下标志_保存地图 = False ThenWith 储存按钮的图形数组(8)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 80, 420End WithElseWith 储存按钮的图形数组(9)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 80, 420End WithEnd IfIf 地图编辑器界面按钮按下标志_载入地图 = False ThenWith 储存按钮的图形数组(10)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph -70, 420End WithElseWith 储存按钮的图形数组(11)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph -70, 420End WithEnd IfEnd Sub

地图编辑器_选择图形Draw：这个子程序的作用，就是3种卡通图片之间的切换（根据你的点击类型来判断），由于卡通数目不一样，所以在这里进行了分行显示。

Sub 地图编辑器_选择图形Draw()Dim j As IntegerDim k As IntegerDim 偏移值 As Integer图片X坐标 = 440图片Y坐标 = 100If 地图编辑器界面按钮按下标志1 = True ThenFor j = 1 To 25If j < 10 Then 偏移值 = j * 32If j > 9 And j < 19 Then 偏移值 = (j - 9) * 32If j > 18 And j < 29 Then 偏移值 = (j - 18) * 32With 储存基本的物体图形数组(j).Cell = 1.DrawGraph 图片X坐标 + 偏移值, 图片Y坐标End WithIf j = 9 Then 图片Y坐标 = 图片Y坐标 + 40If j = 18 Then 图片Y坐标 = 图片Y坐标 + 40Next jEnd IfIf 地图编辑器界面按钮按下标志2 = True ThenFor j = 1 To 28If j < 10 Then 偏移值 = j * 32If j > 9 And j < 19 Then 偏移值 = (j - 9) * 32If j > 18 And j < 29 Then 偏移值 = (j - 18) * 32If j > 27 And j < 37 Then 偏移值 = (j - 27) * 32'If J > 34 Then 偏移值 = (J - 34) * 32With 储存基本的物体图形数组(29 + j).Cell = 1.DrawGraph 图片X坐标 + 偏移值, 图片Y坐标End WithIf j = 9 Then 图片Y坐标 = 图片Y坐标 + 40If j = 18 Then 图片Y坐标 = 图片Y坐标 + 40If j = 27 Then 图片Y坐标 = 图片Y坐标 + 40'If J = 33 Then 图片Y坐标 = 图片Y坐标 + 40' 图片Y坐标 = 图片Y坐标 + 32NextEnd IfIf 地图编辑器界面按钮按下标志3 = True ThenFor j = 1 To 36If j < 10 Then 偏移值 = j * 32If j > 9 And j < 19 Then 偏移值 = (j - 9) * 32If j > 18 And j < 29 Then 偏移值 = (j - 18) * 32If j > 27 And j < 37 Then 偏移值 = (j - 27) * 32'If J > 34 Then 偏移值 = (J - 34) * 32With 储存基本的物体图形数组(80).Cell = j.DrawGraph 图片X坐标 + 偏移值, 图片Y坐标End WithIf j = 9 Then 图片Y坐标 = 图片Y坐标 + 40If j = 18 Then 图片Y坐标 = 图片Y坐标 + 40If j = 27 Then 图片Y坐标 = 图片Y坐标 + 40'If J = 33 Then 图片Y坐标 = 图片Y坐标 + 40' 图片Y坐标 = 图片Y坐标 + 32NextEnd IfEnd Sub

接下来就是程序关键的一环：动态显示地图上的卡通！

魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~9地图编辑器-卡通选择相关推荐

魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~10地图编辑器-卡通绘制
魔塔之拯救白娘子完整工程下载地址: <魔塔之拯救白娘子>地图编辑器-背景绘制:这个子程序绘制的背景是静态的,如果绘制动态的可参考完整工程里的动态背景Draw 子程序: Sub 背景Dr ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~8地图编辑器-处理流程
魔塔之拯救白娘子完整工程下载地址: <魔塔之拯救白娘子>处理流程: ①在主游戏窗口里添加一个timer控件,名称为:timerDraw 作用:根据running状态绘制不同的背景 Ena ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~6地图编辑器-初始化
魔塔之拯救白娘子完整工程下载地址: 从今天开始我将写一下<魔塔之拯救白娘子>的游戏地图编辑器,俗话说,事半功倍.把地图编辑器搞好,基本一个游戏就写好了三分之一了.可以说,魔塔的地图是相对 ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~7地图编辑器-地图格式
魔塔之拯救白娘子完整工程下载地址: <魔塔之拯救白娘子>地图编辑器2:确定地图格式魔塔这个游戏很经典,网上大把源码以及地图之类的,但是DX8做的比较少,源码也没有,因此,我决定自己写一 ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~11地图编辑器-鼠标点击
魔塔之拯救白娘子完整工程下载地址: <魔塔之拯救白娘子>~11地图编辑器-地图编辑界面鼠标点击判断: 鼠标点击判断: ①点击的对象是卡通图片切换:完成对3种类型的卡通切换并显示 ②点击的 ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~20开始游戏-对话处理
魔塔之拯救白娘子完整工程下载地址: <魔塔之拯救白娘子>流程分析6:对话处理游戏的对话处理比较简单,仅仅是根据游戏流程提供简单的对话系统,没有涉及复杂的东西.下边是设计的窗体: Opt ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~1游戏引擎
魔塔之拯救白娘子完整工程下载地址: 前边学习了DX8的相关知识后,想做一个游戏试试看.这里我选取了魔塔这个比较大众化的小游戏.主要是魔塔的游戏画面比较固定,也很简单,似乎很容易做.下边就开始做吧. ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~24开始游戏-屏幕截图
魔塔之拯救白娘子完整工程下载地址: 魔塔之拯救白娘子>流程分析8:屏幕截图和通用申明有网友问我主窗口设计界面是什么样子?下图就是:frmMain.frm 设计界面非常清爽,只有一个tiemr ...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~18开始游戏-物体碰撞检测
魔塔之拯救白娘子完整工程下载地址: <魔塔之拯救白娘子>流程分析4:物体碰撞检测处理方式分2步,第一步是游戏时主角显示处理:当主角移动时需要擦除上一个坐标位的主角,然后在新位置上放置主 ...

魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~9地图编辑器-卡通选择

魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~9地图编辑器-卡通选择相关推荐

最新文章

热门文章