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

第六节 储存和读取 Save And Load 罗培羽 作品 网名: 碧俐千仞 QQ:345697666 E_mail：tyxxxx@ 博客：/mhqy 在菜单中添加一个储存的按钮 PicSave PicSave2 PicSave_MouseMove PicExit2.Visible = False PicSave2.Visible = True PicExit_MouseMove PicSave2.Visible = False PicExit2.Visible = True Form_MouseMove PicExit2.Visible = False PicSave2.Visible = False 修改地图结构 用地图数组代替先前的地图结构的好处在于我们可以通过一个编号来控制地图，这样程序不必知道地图的名称 定义地图 Public map1 As Dimmap Public map2 As Dimmap 改为-------我们假设游戏有10个地图 定义地图 Public Map(10) As Dimmap GoDimMap() 地图的赋值 把map1改为Map(1) 把map2改为Map(2) 修改地图启动函数 Public Sub MapStart(MapX As Integer, X As Single, Y As Single, T As Integer) MapNow = MapX 把所有的mapx改为Map(MapX)，即通过用调用编号取代直接调用地图名字 Public MapNow As Integer 标记现在在用那张地图 修改地图启动的调用 Do_Walk.Load Call MapStart(map1, 500, 500, 0) 改为 Call MapStart(1, 500, 500, 0) Do_Npc 把map1改为1，map2改为1 Do_Npc 型如 If MapNow = map1.botton And i = 0 Then 改为 If MapNow = 1 And i = 0 Then 写文件的方法 为了演示生成储存文件的方法，我们新建个工程，添加个按钮，写上： 试试 Open c:/a.txt For Output As #1 Write #1, ok Close #1 试试 Write #1, 罗培羽 作品 字符串 Write #1, 网名: 碧俐千仞 Write #1, QQ:345697666 Write #1, 345697666 ‘数字 最后不要忘了把a.txt删了 储存文件结构 记录角色信息 记录HP，所在地图编号，所在坐标 记录地图信息 地图1的地图、上层图、通过区域图、音乐 所有NPC的图片和坐标 地图2的地图、上层图、通过区域图、音乐 所有NPC的图片和坐标 ………… 写储存函数 添加模块 Do_SaveLoad Public Sub Save() End Sub 记录角色信息 Open AppDisk + save.txt For Output As #1记录角色信息 Write #1, Hp 记录角色生命值 Write #1, Xn 记录角色坐标x Write #1, Yn 记录角色坐标y Write #1, MapNow 记录角色所在地图编号 Close #1 记录地图信息 Close #1前 记录地图信息 For i = 0 To 9 Write #1, Map(i).Bottom Write #1, Map(i).Top Write #1, Map(i).Through Write #1, Map(i).Music For j = 0 To 9 Npc信息 Write #1, Map(i).NpcPicture(j) Write #1, Map(i).NpcX(j) Write #1, Map(i).NpcY(j) Next j Next i 储存成功提示 Close #1后 储存成功提示 Menu.CurrentX = 650 * 15 Menu.CurrentY = 450 * 15 Menu.ForeColor = RGB(0, 0, 0) Menu.FontSize = 14 Menu.Print 储存成功 写读取函数 Public Sub LoadGame() End Sub Title “旧的回忆”中写入 Call LoadGame 从文件读入的方法 Open AppDisk + save.txt For Input As #1 Input #1, 变量 Close #1 Lo