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

1、1第六節(jié)第六節(jié) 儲(chǔ)存和讀取儲(chǔ)存和讀取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、個(gè)編號(hào)來控制地圖，這樣程序不必知道地圖的名稱定義地圖Public map1 As DimmapPublic map2 As Dimmapl改為-我們假設(shè)游戲有10個(gè)地圖定義地圖Public Map(10) As Dimmap5GoDimMap() 地圖的賦值地圖的賦值l把map1改為Map(1)l把map2改為Map(2)用地圖數(shù)組取代一個(gè)個(gè)地圖6修改地圖啟動(dòng)函數(shù)修改地圖啟動(dòng)函數(shù)Public Sub MapStart(MapX As Integer, X As Single, Y As Single, T As Integer)MapNow = MapX把所有的mapx改為Map(MapX)，

3、即通過用調(diào)用編號(hào)取代直接調(diào)用地圖名字Public MapNow As Integer 標(biāo)記現(xiàn)在在用那張地圖用整數(shù)來表示地圖的編號(hào)記錄現(xiàn)在的地圖編號(hào)7修改地圖啟動(dòng)的調(diào)用修改地圖啟動(dòng)的調(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用編號(hào)8寫文件的方法寫文件的方法l為了演示生成儲(chǔ)存

4、文件的方法，我們新建個(gè)工程，添加個(gè)按鈕，寫上：9試試試試Open c:/a.txt For Output As #1Write #1, okClose #1打開c盤下的a.txt文件，如果沒有就創(chuàng)建一個(gè)，并把這個(gè)文件作為編號(hào)為1的文件（這些編號(hào)可以使你一下子打開多個(gè)文件）有始有終最后我們要把文件關(guān)閉（我們上面寫的Write 其實(shí)只儲(chǔ)存在內(nèi)存中，關(guān)閉文件時(shí)才寫到文件里）在編號(hào)為1的文件中寫上“ok”10試試試試lWrite #1, 羅培羽 作品 字符串lWrite #1, 網(wǎng)名: 碧俐千仞lWrite #1, QQ:345697666lWrite #1, 345697666 數(shù)字l最后不要忘了把

5、a.txt刪了11儲(chǔ)存文件結(jié)構(gòu)儲(chǔ)存文件結(jié)構(gòu)l記錄角色信息l記錄HP，所在地圖編號(hào)，所在坐標(biāo)l記錄地圖信息l地圖1的地圖、上層圖、通過區(qū)域圖、音樂 所有NPC的圖片和坐標(biāo)l地圖2的地圖、上層圖、通過區(qū)域圖、音樂 所有NPC的圖片和坐標(biāo) 12寫儲(chǔ)存函數(shù)寫儲(chǔ)存函數(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 記錄角色所在地圖編號(hào)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儲(chǔ)存成功提示儲(chǔ)存成功提示 Clos

7、e #1后后l儲(chǔ)存成功提示lMenu.CurrentX = 650 * 15lMenu.CurrentY = 450 * 15lMenu.ForeColor = RGB(0, 0, 0)lMenu.FontSize = 14lMenu.Print 儲(chǔ)存成功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移動(dòng)函數(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為了儲(chǔ)存以后我們要用到的劇情為了儲(chǔ)存以后我們要用到的劇情變量變量 lDo_Npc中 （假設(shè)10個(gè)變量）Public P(10) As Integ