教你用VB制作RPG游戏_第五节.docx

教你用VB制作RPG游戏 第五节战斗系统 Fight System 新建窗体Fight □添加3个按钮 □添加3个按钮 □设置图标与标题 □设置重画和ScaleMode 普通攻击 并写上相关代码〉致命一击 并写上相关代码〉致命一击J 由于是连在一起6勺厂血事件中每换一张图都 要让其他图片消失 新建窗体Fight _ □添加图片框Picturel作为状态栏 □在里面用文字和 图片做上生命槽 普通攻击 致命一击 养精蓄锐 生命 300 □在Src中添加PictureClip2并加载王小虎战 斗图，并设置格数 □ Fight中添加图片框 Role □添加按钮，标题为 画图 按钮中 Cis MSB Role.Picture = Src.PictureClip2.GraphicCell(0) GdiTransparentBIt Fight.hDC,500, 350, Role.Width, Role.Height, Role.hDC, 0, 0, Role.Width, Role.Height, RGB(255, 255, 255) 图 让角色动起来 Dim n As Integer'角色图片 添加timerl,设置时间为100,无效 n = n + 1 Call Commandl_Click If n >= 20 Then Timer l.En abled = False End If 按钮中 Src.PictureClip2?GraphicCell(n) 点击普通攻击和致命一击时 n = 0 Timerl.E nabled = True 让角色会移动 Dim X As Single '角色图片坐标 Dim Y As Single 画图中把坐标换血】 □ Formrioad() : X=500:Y =350 Call Commandl_Click 按钮设置不可见 (为什么用按钮而不用过程，因为这样子更直观) Timerl Timerl_Timer() n = n + 1 Call Commandl_Click If n v 10 Then X = X - 30: Y = Y - 30 If n >17 Then X = X + 50: Y = Y + 50 If n >= 20 Then Timerl.E nabled = False X = 500: Y = 350 Call Commandl_Click End If 完善处理，播放动画甲按钮无效 □声按钮后 Buttonl.Visible = False Button3.Visible = False Butt on 5.Visible = False □ Timer中攻击完成 Butt on 1.Visible = True Button3.Visible = True Button5.Visible = True