home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD1310712272000.psc / modSaveLoad.bas < prev   
Encoding:
BASIC Source File  |  2000-12-25  |  1.9 KB  |  69 lines
  1. Attribute VB_Name = "modSaveLoad"
  2.     
  3.   Public SAVE_MapLoaded As String
  4.   Public SAVE_Midi As String
  5.   Public SAVE_OutsideMidi As String
  6.   Public SAVE_SpeechLoaded As String
  7.   Public SAVE_CharX As Integer
  8.   Public SAVE_CharY As Integer
  9.   Public SAVE_CharFacing As Integer
  10.   Public SAVE_Wood As Integer
  11.   Public SAVE_Coin As Integer
  12.   Public SAVE_Magic As Integer
  13.   Public SAVE_Ticket As Integer
  14.   Public SAVE_Toast As Integer
  15.   Public SAVE_SpellCut As String
  16.   Public SAVE_SpellDestroy As String
  17.   
  18.  
  19.   
  20.  
  21. Public Sub SaveGame()
  22.   
  23.   SAVE_MapLoaded = MapLoaded
  24.   SAVE_Midi = Midi
  25.   SAVE_OutsideMidi = OutsideMidi
  26.   SAVE_SpeechLoaded = SpeechLoaded
  27.   SAVE_CharX = CharX
  28.   SAVE_CharY = CharY
  29.   SAVE_CharFacing = CharFacing
  30.   SAVE_Wood = Wood
  31.   SAVE_Coin = Coin
  32.   SAVE_Magic = Magic
  33.   SAVE_Ticket = Ticket
  34.   SAVE_Toast = Toast
  35.   SAVE_SpellCut = SpellCut
  36.   SAVE_SpellDestroy = SpellDestroy
  37.   
  38.   
  39.   Open App.Path & "\SaveData.txt" For Output As 1
  40.   Write #1, SAVE_MapLoaded, SAVE_Midi, SAVE_OutsideMidi, SAVE_SpeechLoaded, SAVE_CharX, SAVE_CharY, SAVE_CharFacing, SAVE_Wood, SAVE_Coin, SAVE_Magic, SAVE_Ticket, SAVE_Toast, SAVE_SpellCut, SAVE_SpellDestroy
  41.   Close
  42.   MsgBox "Game Saved"
  43.   
  44. End Sub
  45.  
  46. Public Sub LoadGame()
  47.   
  48.   Open App.Path & "\SaveData.txt" For Input As 1
  49.   Input #1, SAVE_MapLoaded, SAVE_Midi, SAVE_OutsideMidi, SAVE_SpeechLoaded, SAVE_CharX, SAVE_CharY, SAVE_CharFacing, SAVE_Wood, SAVE_Coin, SAVE_Magic, SAVE_Ticket, SAVE_Toast, SAVE_SpellCut, SAVE_SpellDestroy
  50.   
  51.     MapLoaded = SAVE_MapLoaded
  52.     OutsideMidi = SAVE_OutsideMidi
  53.     SpeechLoaded = SAVE_SpeechLoaded
  54.     CharX = SAVE_CharX
  55.     CharY = SAVE_CharY
  56.     CharFacing = SAVE_CharFacing
  57.     Wood = SAVE_Wood
  58.     Coin = SAVE_Coin
  59.     Magic = SAVE_Magic
  60.     Ticket = SAVE_Ticket
  61.     Toast = SAVE_Toast
  62.     SpellCut = SAVE_SpellCut
  63.     SpellDestroy = SAVE_SpellDestroy
  64.     frmGame.Show
  65.   Close
  66.   
  67. End Sub
  68.  
  69.