罗培羽—教你用VB制作RPG游戏分享资料

1、1第六节第六节 储存和读取储存和读取Save And Load罗培羽罗培羽教你用教你用VB制作制作RPG游戏游戏2罗培羽 作品l网名: 碧俐千仞lQQ:345697666lE_mail：l博客：http:/ = FalsePicSave2.Visible = TruePicExit_MouseMovePicSave2.Visible = FalsePicExit2.Visible = TrueForm_MouseMovePicExit2.Visible = FalsePicSave2.Visible = False4修改地图结构修改地图结构l用地图数组代替先前的地图结构的好处在于我们可以通过一

2、个编号来控制地图，这样程序不必知道地图的名称定义地图Public map1 As DimmapPublic map2 As Dimmapl改为-我们假设游戏有10个地图定义地图Public Map(10) As Dimmap5GoDimMap() 地图的赋值地图的赋值l把map1改为Map(1)l把map2改为Map(2)用地图数组取代一个个地图6修改地图启动函数修改地图启动函数Public Sub MapStart(MapX As Integer, X As Single, Y As Single, T As Integer)MapNow = MapX把所有的mapx改为Map(MapX)，

3、即通过用调用编号取代直接调用地图名字Public MapNow As Integer 标记现在在用那张地图用整数来表示地图的编号记录现在的地图编号7修改地图启动的调用修改地图启动的调用lDo_Walk.LoadCall MapStart(map1, 500, 500, 0) 改为Call MapStart(1, 500, 500, 0)lDo_Npcl把map1改为1，map2改为1lDo_Npcl型如lIf MapNow = map1.botton And i = 0 Thenl改为 lIf MapNow = 1 And i = 0 Then用编号8写文件的方法写文件的方法l为了演示生成储存

4、文件的方法，我们新建个工程，添加个按钮，写上：9试试试试Open c:/a.txt For Output As #1Write #1, okClose #1打开c盘下的a.txt文件，如果没有就创建一个，并把这个文件作为编号为1的文件（这些编号可以使你一下子打开多个文件）有始有终最后我们要把文件关闭（我们上面写的Write 其实只储存在内存中，关闭文件时才写到文件里）在编号为1的文件中写上“ok”10试试试试lWrite #1, 罗培羽 作品 字符串lWrite #1, 网名: 碧俐千仞lWrite #1, QQ:345697666lWrite #1, 345697666 数字l最后不要忘了把

5、a.txt删了11储存文件结构储存文件结构l记录角色信息l记录HP，所在地图编号，所在坐标l记录地图信息l地图1的地图、上层图、通过区域图、音乐 所有NPC的图片和坐标l地图2的地图、上层图、通过区域图、音乐 所有NPC的图片和坐标 12写储存函数写储存函数添加模块 Do_SaveLoadPublic Sub Save()End Sub13记录角色信息记录角色信息lOpen AppDisk + save.txt For Output As #1记录角色信息lWrite #1, Hp 记录角色生命值lWrite #1, Xn 记录角色坐标xlWrite #1, Yn 记录角色坐标ylWrite

6、#1, MapNow 记录角色所在地图编号lClose #114记录地图信息记录地图信息 Close #1前前记录地图信息For i = 0 To 9Write #1, Map(i).BottomWrite #1, Map(i).TopWrite #1, Map(i).ThroughWrite #1, Map(i).Music15 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 jNext i16储存成功提示储存成功提示 Clos

7、e #1后后l储存成功提示lMenu.CurrentX = 650 * 15lMenu.CurrentY = 450 * 15lMenu.ForeColor = RGB(0, 0, 0)lMenu.FontSize = 14lMenu.Print 储存成功17写读取函数写读取函数Public Sub LoadGame()End SubTitle “旧的回忆旧的回忆”中写入中写入Call LoadGame18从文件读入的方法从文件读入的方法lOpen AppDisk + save.txt For Input As #1l Input #1, 变量lClose #119LoadGame 赋值赋值重

8、新赋值Open AppDisk + save.txt For Input As #1 角色信息 Input #1, Hp Input #1, Xn Input #1, Yn Input #1, MapNow20 地图信息 For i = 0 To 9 Input #1, Map(i).Bottom Input #1, Map(i).Top Input #1, Map(i).Through Input #1, Map(i).Music For j = 0 To 9 Npc信息 Input #1, Map(i).NpcPicture(j) Input #1, Map(i).NpcX(j) Inpu

9、t #1, Map(i).NpcY(j) Next jNext iClose #121调用调用main.Show调用处理Call MapStart(MapNow, Xn, Yn, 0)22让让NPC消失试试读取的结果消失试试读取的结果lNPC移动函数lDo_Walk中23Public Sub NpcMove(MapX As Integer, NpcI As Integer, Nx As Single, Ny As Single)Map(MapX).NpcX(NpcI) = Nxmain.Npc(i).Left = Map(MapX).NpcX(NpcI)Map(MapX).NpcY(NpcI) = Nymain.Npc(i).Top = Map(MapX).NpcY(NpcI)Call Draw(Xs, Ys)End Sub24调用试试调用试试 Do_NpcCall talk(苏媚, 我走了, appdist + face/sm.gif)Call NpcMove(1, 0, 100, 100)25为了储存以后我们要用到的剧情为了储存以后我们要用到的剧情变量变量 lDo_Npc中 （假设10个变量）Public P(10) As Integ