罗培羽—教你用VB制作RPG游戏.ppt

罗培羽—教你用VB制作RPG游戏 罗培羽 作品 QQ:345697666 E_mail：tyxxxx@ 我们的目标 看看这一节我们会做到怎么样的效果 显示一张图试试 Public Declare Function GdiTransparentBlt Lib gdi32 (ByVal hdc1 As Long, ByVal x1 As Long, ByVal y1 As Long, ByVal W1 As Long, ByVal H1 As Long, ByVal Hdc2 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal W2 As Long, ByVal H2 As Long, ByVal Color As Long) As Long 画图 GdiTransparentBlt 目的位置.hDC, X, Y, W, H, 源.hDC, 0, 0, W, H, RGB(255, 255, 255) GdiTransparentBlt main.hDC, 0, 0, main.Role.Width, main.Role.Height, main.Role.hDC, 0, 0, main.Role.Width, main.Role.Height, RGB(255, 255, 255) 画图 但是如何变成一张一张的呢 属性：Cols--裁剪列数（形如皿）；Rows--裁剪行数（形如目）。GraphicCell属性：存放各个裁剪图的数组，通过引用格式： pictureclip1.graphiccell(下标) 来引用每一幅经过裁剪得到的图片（其下标从0开始）。 我要动起来 我们做个鼠标控制系统 用Form_MouseDown事件做个控制层 控制层 显示层 第一步：鼠标点哪里我们的角色就到哪里 我们先在Draw过程中添加参数，来控制图片的位置 在Form_MouseDown事件中我们调用过程Draw Form_MouseDown事件就是当鼠标在在窗体上按下时，程序执行事件里的内容 我们把按钮中的内容复制到事件中，加以简单的修改 Call Draw(X, Y) 在Form_MouseDown事件中：X代表鼠标的横坐标，而Y代表纵坐标 第二步：一步一步走到目的地 向量算法 我们开始制作 定义函数 为了能让n自动变化，我们添加一个timer控件 设置： Timer1.Enabled = False Timer1. Interval=5 但我们要的是每次走一定的距离而不是一定的比例怎么办呢？那我们每次就都来算一次位移的比例，使每次走的位移都一样。我们来定义两个变量 第三步：走到目的地自动停下 我们在Timer1的代码中加上以下代码 到达目的地 If Sqr((Xt - Xn) ^ 2 + (Yt - Yn) ^ 2) = 5 Then Timer1.Enabled = False End If 第四步：让角色有不同的面向 线性规划 我要行走 第五步：让角色行走起来 其实说白了就是多换图片 我们再定义两个变量Rpic、Ri Dim Rpic As Integer, Ri As Integer 用于行走动画判断 我们在面向判断中每一句 Role.Picture = PictureClip1.GraphicCell(下标) 下面加上这一句 Rpic = 下标 来记录我们的图片要从哪里调用起 我们在Timer1_Timer中加上 行走动画处理 Role.Picture = PictureClip1.GraphicCell(Rpic + Int(Ri / 4)) Ri = Ri + 1 If Ri = 16 Then Ri = 0 完善 让角色停止行走是都处于站立状态 完善 让鼠标指定的坐标处于角色中心 在 坐标、移动速度计算中我们修改 Xt = X - Role.Width / 2  ‘其中- Role.Width / 2是让鼠标指定的坐标处于角色中心 Yt = Y - Role.Height / 2  其中- Role.Height / 2是让鼠标指定的坐标处于角色中心 我们在窗体上添加张背景图 最后，我们让角色在运行程序时就出现 我们还要让地图的某些地方可以通过，某些地方不能，地图的遮挡，地图随角色的运动而移动（使角色走在屏幕中央）。怎么办呢？ 不要忘记了我们的目标 谢谢支持 Timer1.Enabled = False 坐标、移动速度计算i Xt = X Yt = Y X0 = Xn Y0 = Yn n = 0 Tim