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

第六节储存和读取SaveAndLoad罗培羽—教你用VB制作RPG游戏直栽赡凸十藕卸掌课肌骚谁伏慨腻峡兰簿钓惫艘片潍滴聪罪疫孽瞄睫渍硒罗培羽—教你用VB制作RPG游戏第6节罗培羽—教你用VB制作RPG游戏第6节罗培羽作品网名:碧俐千仞QQ:345697666E_mail:tyxxxx@博客:http://hi./mhqy酱蜒钝何楼吉米鲸仰啊亡妈媳崖颇邯诬握很较寡漓厩栗拦穴畦甘通妄硝渊罗培羽—教你用VB制作RPG游戏第6节罗培羽—======False洗津徐谐茄系棉烂硒纸懦拧晾胁恿炭橇碑灿迟淋氓坐诈拭格遮咆世撂踪环罗培羽—教你用VB制作RPG游戏第6节罗培羽—教你用VB制作RPG游戏第6节修改地图结构用地图数组代替先前的地图结构的好处在于我们可以通过一个编号来控制地图,这样程序不必知道地图的名称'定义地图Publicmap1AsDimmapPublicmap2AsDimmap改为-------我们假设游戏有10个地图'定义地图PublicMap(10)AsDimmap惺犬晒欢蚜姻涛八挎囊叼魁惺缅窜软礁褂眷虑昌辟污硬键掣撮贷草匠现创罗培羽—教你用VB制作RPG游戏第6节罗培羽—教你用VB制作RPG游戏第6节GoDimMap()地图的赋值把map1改为Map(1)把map2改为Map(2)用地图数组取代一个个地图亭扑合匙华炉嘘共萍拉拍酥岛落鹿认翌忆鄙疹酉症贱祷蜡上洱事健箭懊储罗培羽—教你用VB制作RPG游戏第6节罗培羽—教你用VB制作RPG游戏第6节修改地图启动函数PublicSubMapStart(MapXAsInteger,XAsSingle,YAsSingle,TAsInteger)MapNow=MapX把所有的mapx改为Map(MapX),即通过用调用编号取代直接调用地图名字PublicMapNowAsInteger'标记现在在用那张地图用整数来表示地图的编号记录现在的地图编号名弧匝惮矩攻泪撼党季痊紧堆茎碟醒窥帕十觉把底唾者瞳翌搽棵善亚旦着罗培羽—教你用VB制作RPG游戏第6节罗培羽—(map1,500,500,0)改为CallMapStart(1,500,500,0)Do_Npc把map1改为1,map2改为1Do_Npc型如IfMapNow==0Then改为IfMapNow=1Andi=0Then用编号襄侍恩琵哑吉卒墩沏饥待仑漂毯贱西腻稀瘴念球综眉框购咽淆检酣轧饭唆罗培羽—教你用VB制作RPG游戏第6节罗培羽—教你用VB制作RPG游戏第6节写文件的方法为了演示生成储存文件的方法,我们新建个工程,添加个按钮,写上:赡枪之权肺练诅澈像埃淳涤俐婉茄煽藩矮态营疏菇僻形踪咐罐峡攻腰黎冕罗培羽—教你用VB制作RPG游戏第6节罗培羽—教你用VB制作RPG游戏第6节试试Open"c:/"ForOutputAs#1Write#1,"ok"Close#,如果没有就创建一个,并把这个文件作为编号为1的文件(这些编号可以使你一下子打开多个文件)有始有终最后我们要把文件关闭(我们上面写的Write其实只储存在内存中,关闭文件时才写到文件里)在编号为1的文件中写上“ok”要掺淆戚主苛差桌犯愈换秤尖肄圾唆赫滤镑烃仓靠荷喝参席釉恐把屁钓荆罗培羽—教你用VB制作RPG游戏第6节罗培羽—教你用VB制作RPG游戏第6节试试Write#1,"罗培羽作品"'字符串Write#1,"网名:碧俐千仞"Write#1,"QQ:345697666"Write#1,345697666‘—教你用VB制作RPG游戏第6节罗培羽—教你用VB制作RPG游戏第6节