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

第六节储存和读取SaveAndLoad 罗培羽 教你用VB制作RPG游戏 罗培羽作品 网名 碧俐千仞QQ 345697666E mail tyxxxx 博客 在菜单中添加一个储存的按钮 PicSavePicSave2PicSave MouseMovePicExit2 Visible FalsePicSave2 Visible TruePicExit MouseMovePicSave2 Visible FalsePicExit2 Visible TrueForm MouseMovePicExit2 Visible FalsePicSave2 Visible False 修改地图结构 用地图数组代替先前的地图结构的好处在于我们可以通过一个编号来控制地图 这样程序不必知道地图的名称 定义地图Publicmap1AsDimmapPublicmap2AsDimmap改为 我们假设游戏有10个地图 定义地图PublicMap 10 AsDimmap GoDimMap 地图的赋值 把map1改为Map 1 把map2改为Map 2 用地图数组取代一个个地图 修改地图启动函数 PublicSubMapStart MapXAsInteger XAsSingle YAsSingle TAsInteger MapNow MapX把所有的mapx改为Map MapX 即通过用调用编号取代直接调用地图名字PublicMapNowAsInteger 标记现在在用那张地图 用整数来表示地图的编号 记录现在的地图编号 修改地图启动的调用 Do Walk LoadCallMapStart map1 500 500 0 改为CallMapStart 1 500 500 0 Do Npc把map1改为1 map2改为1Do Npc型如IfMapNow map1 bottonAndi 0Then改为IfMapNow 1Andi 0Then 用编号 写文件的方法 为了演示生成储存文件的方法 我们新建个工程 添加个按钮 写上 试试 Open c a txt ForOutputAs 1Write 1 ok Close 1 打开c盘下的a txt文件 如果没有就创建一个 并把这个文件作为编号为1的文件 这些编号可以使你一下子打开多个文件 有始有终最后我们要把文件关闭 我们上面写的Write其实只储存在内存中 关闭文件时才写到文件里 在编号为1的文件中写上 ok 试试 Write 1 罗培羽作品 字符串Write 1 网名 碧俐千仞 Write 1 QQ 345697666 Write 1 345697666 数字最后不要忘了把a txt删了 储存文件结构 记录角色信息记录HP 所在地图编号 所在坐标记录地图信息地图1的地图 上层图 通过区域图 音乐所有NPC的图片和坐标地图2的地图 上层图 通过区域图 音乐所有NPC的图片和坐标 写储存函数 添加模块Do SaveLoadPublicSubSave EndSub 记录角色信息 OpenAppDisk save txt ForOutputAs 1 记录角色信息Write 1 Hp 记录角色生命值Write 1 Xn 记录角色坐标xWrite 1 Yn 记录角色坐标yWrite 1 MapNow 记录角色所在地图编号Close 1 记录地图信息Close 1前 记录地图信息Fori 0To9Write 1 Map i BottomWrite 1 Map i TopWrite 1 Map i ThroughWrite 1 Map i Music Forj 0To9 Npc信息Write 1 Map i NpcPicture j Write 1 Map i NpcX j Write 1 Map i NpcY j NextjNexti 储存成功提示Close 1后 储存成功提示Menu CurrentX 650 15Menu CurrentY 450 15Menu ForeColor RGB 0 0 0 Menu FontSize 14Menu Print 储存成功 写读取函数 PublicSubLoadGame EndSubTitle 旧的回忆 中写入CallLoadGame 从文件读入的方法 OpenAppDisk save txt ForInputAs 1Input 1 变量Close 1 LoadGame赋值 重新赋值OpenAppDisk save txt ForInputAs 1 角色信息Input 1 HpInput 1 XnInput 1 YnInput 1 MapNow 地图信息Fori 0To9Input 1 Map i BottomInput 1 Map i TopInput 1 Map i ThroughInput 1 Map i MusicForj 0To9 Npc信息Input 1 Map i NpcPicture j Input 1 Map i NpcX j Input 1 Map i NpcY j NextjNextiClose 1 调用 main Show 调用处理CallMapStart MapNow Xn Yn 0 让NPC消失试试读取的结果 NPC移动函数Do Walk中 PublicSubNpcMove MapXAsInteger NpcIAsInteger NxAsSingle NyAsSingle Map MapX NpcX NpcI Nxmain Npc i Left Map MapX NpcX NpcI Map MapX NpcY NpcI Nymain Npc i Top Map MapX NpcY NpcI CallDraw Xs Ys EndSub 调用试试Do Npc Calltalk 苏媚 我走了 appdist face sm gif CallNpcMove 1 0 100 100 为了储存以后我们要用到的剧情变量 Do Npc中 假设10个变量 PublicP 10 A