罗培羽—教你用VB制作RPG游戏 第2节.pptVIP

罗培羽—教你用VB制作RPG游戏 QQ:345697666 E_mail：tyxxxx@ 博客：/mhqy 罗培羽 作品 上一节回顾 通过上一节 创造梦想中的主角 的学习，我们学会了如何使我们的角色动起来 这一节 封装代码 代码太乱怎么办 封装你的代码 把代码移到模块中 新建模块Do_Walk 把角色坐标的定义移动到模块中 把Form_MouseDown事件放到过程SetPosition(x As Single, y As Single)中，并调用 再调试一下试试 把TIMER1里的代码放到DoWalk()中 同样也要修改控件名 还要在Timer1事件里调用 把FormLoad中的代码放到过程Load中 也要修改相关代码，调试试试 封装资源 界面太乱怎么办 封装你的控件 把控件移到其他窗体中 新建一个窗体Src 把PictureClip1移到这个窗体中 再调试 Role的图片已经没有作用了，删了 背景图在上一节中也只是为了美观，删了 为了能容易看得清，我们设置背景颜色 定义我们的地图 TYPE …… END TYPR 我们新建一个模块Do_Map来处理地图事件 定义地图变量 Public Type Dimmap Bottom As String Top As String Through As String End Type 地图实例化 定义地图 Public map1 As Dimmap Public map2 As Dimmap 执行初始化定义 定义一个过程GoDimMap() Public Sub GoDimMap() 执行初始化定义 地图1 map1.Bottom = AppDisk + map/Map1_b.bmp map1.Top = AppDisk + map/Map1_Top.bmp map1.Through = AppDisk + map/Map1_Through.bmp 地图2 map2.Bottom = AppDisk + map/Map2_b.bmp map2.Top = AppDisk + map/Map2_Top.bmp map2.Through = AppDisk + map/Map2_Through.bmp End Sub 在Do_Walk中 定义路径 Public AppDisk As String 地图启动函数 MapStart（） Public Sub MapStart(mapx As Dimmap) ‘地图启动函数……End sub MapStart main.MapB.Picture = LoadPicture(mapx.Bottom) main.MapT.Picture = LoadPicture(mapx.Top) main.MapTh.Picture = LoadPicture(mapx.Through) 我们还要绘图 在Draw()中画主角上面加上（在其上面就是先画地图，再话主角。这样主角才能在地图上边） 画地图 GdiTransparentBlt main.hDC, 0, 0, main.MapB.Width, main.MapB.Height, main.MapB.hDC, 0, 0, main.MapB.Width, main.MapB.Height, RGB(255, 255, 255) 画图 地图跟随 分段函数 定义（在Do_Map）定义地图位置变量Public Xm As SinglePublic Ym As Single 写一个处理位置的过程MapMove() 解释下 在中间时 同理 纵坐标 If Yn = main.Height / 30 Then Ys = Yn Else If Yn = main.MapB.Height - main.Height / 30 Then Ys = Yn + Ym Else Ys = main.Height / 30 Ym = Ys - Yn End If End if 调用 在DoWalk()后‘行走动画处理后加上 Call MapMove 在Draw()中‘画地图后的 0,0 改为Xm,Ym 在Draw的调用中（Xn,Yn）换成（Xs,Ys）因为我们的显示是相对屏幕而言的 在SetPosition中把 目标位置转换为相对地图的位置 ‘坐标、移动速度计算 Xt= Yt= 换成 Xt = x - Xm - main.Role.Width / 2 其中- Role.Width / 2是让鼠标指定的坐标处于角色中心 Yt = y - Ym - main.Role.Height / 2 其中- Role.Height / 2是让鼠标指定的坐标处于角色中心 成功 我们在L