羅培羽—教你用VB制作RPG游戲分享資料

1、1第六節(jié)第六節(jié) 儲存和讀取儲存和讀取Save And Load羅培羽羅培羽教你用教你用VB制作制作RPG游戲游戲2羅培羽 作品l網(wǎng)名: 碧俐千仞lQQ:345697666lE_mail：l博客：http:/ = FalsePicSave2.Visible = TruePicExit_MouseMovePicSave2.Visible = FalsePicExit2.Visible = TrueForm_MouseMovePicExit2.Visible = FalsePicSave2.Visible = False4修改地圖結(jié)構(gòu)修改地圖結(jié)構(gòu)l用地圖數(shù)組代替先前的地圖結(jié)構(gòu)的好處在于我們可以通過一

2、個編號來控制地圖，這樣程序不必知道地圖的名稱定義地圖Public map1 As DimmapPublic map2 As Dimmapl改為-我們假設(shè)游戲有10個地圖定義地圖Public Map(10) As Dimmap5GoDimMap() 地圖的賦值地圖的賦值l把map1改為Map(1)l把map2改為Map(2)用地圖數(shù)組取代一個個地圖6修改地圖啟動函數(shù)修改地圖啟動函數(shù)Public Sub MapStart(MapX As Integer, X As Single, Y As Single, T As Integer)MapNow = MapX把所有的mapx改為Map(MapX)，

3、即通過用調(diào)用編號取代直接調(diào)用地圖名字Public MapNow As Integer 標(biāo)記現(xiàn)在在用那張地圖用整數(shù)來表示地圖的編號記錄現(xiàn)在的地圖編號7修改地圖啟動的調(diào)用修改地圖啟動的調(diào)用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文件，如果沒有就創(chuàng)建一個，并把這個文件作為編號為1的文件（這些編號可以使你一下子打開多個文件）有始有終最后我們要把文件關(guān)閉（我們上面寫的Write 其實(shí)只儲存在內(nèi)存中，關(guān)閉文件時才寫到文件里）在編號為1的文件中寫上“ok”10試試試試lWrite #1, 羅培羽 作品 字符串lWrite #1, 網(wǎng)名: 碧俐千仞lWrite #1, QQ:345697666lWrite #1, 345697666 數(shù)字l最后不要忘了把

5、a.txt刪了11儲存文件結(jié)構(gòu)儲存文件結(jié)構(gòu)l記錄角色信息l記錄HP，所在地圖編號，所在坐標(biāo)l記錄地圖信息l地圖1的地圖、上層圖、通過區(qū)域圖、音樂 所有NPC的圖片和坐標(biāo)l地圖2的地圖、上層圖、通過區(qū)域圖、音樂 所有NPC的圖片和坐標(biāo) 12寫儲存函數(shù)寫儲存函數(shù)添加模塊 Do_SaveLoadPublic Sub Save()End Sub13記錄角色信息記錄角色信息lOpen AppDisk + save.txt For Output As #1記錄角色信息lWrite #1, Hp 記錄角色生命值lWrite #1, Xn 記錄角色坐標(biāo)xlWrite #1, Yn 記錄角色坐標(biāo)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寫讀取函數(shù)寫讀取函數(shù)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調(diào)用調(diào)用main.Show調(diào)用處理Call MapStart(MapNow, Xn, Yn, 0)22讓讓NPC消失試試讀取的結(jié)果消失試試讀取的結(jié)果lNPC移動函數(shù)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調(diào)用試試調(diào)用試試 Do_NpcCall talk(蘇媚, 我走了, appdist + face/sm.gif)Call NpcMove(1, 0, 100, 100)25為了儲存以后我們要用到的劇情為了儲存以后我們要用到的劇情變量變量 lDo_Npc中 （假設(shè)10個變量）Public P(10) As Integ