Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Cobalt on March 15, 2020, 12:37:00 pm

Title: Multi-File-Index program
Post by: Cobalt on March 15, 2020, 12:37:00 pm
For those of you who have downloaded and played any of my games over the past couple years now, You may have noticed I use a MFI file for the games resources, Graphics, Music, Sounds, ect.

Well I've cleaned it up a bit and commented it for ease of use. Version 1.0 allows for 255 files stored. Even my most ambitious game to-date, Dragon Warrior, only has 86 files stored. An idea for Version 2.0 will be to allow 32767 files (honestly though if you have that many resources then you need to rethink things!).

This Code Creates the MFI file:
Code: QB64: [Select]
  1. 'Multi-File-Index Maker Ver. 1.0
  2. 'Release Date: 3/15/2020
  3. 'UniKorn ProDucKions
  4. 'Cobalt (Aka. David)
  5.  
  6. 'FileList.TXT format:
  7. ' line  1: name of MFI file to be made(or what ever extention you want)
  8. ' line  2: number of files
  9. ' line 3+: files to add
  10.  
  11. '--------Setup---------
  12. SCREEN 0: CLS: _DELAY .15
  14. _TITLE "Multi-File-Index Creater V1.0 @2019 UniKorn ProDucKions"
  15. '----------------------
  16.  
  17. IF _FILEEXISTS("filelist.txt") THEN 'check for the file list to use
  18.  'File Compactor
  19.  DIM Size(255) AS LONG, F$(255)
  20.  F1 = FREEFILE
  21.  OPEN "filelist.txt" FOR BINARY AS #F1
  22.  LINE INPUT #F1, MFI_File$
  23.  
  24.  F2 = FREEFILE
  25.  OPEN MFI_File$ FOR BINARY AS #F2
  26.  
  27.  LINE INPUT #F1, files$ 'Number of image files
  28.  c~%% = VAL(files$) ' change to numeric value
  29.  F3 = FREEFILE
  30.  
  31.  '-------Get files Sizes------
  32.  FOR i~%% = 1 TO c~%%
  33.   LINE INPUT #F1, F$(i~%%)
  34.   OPEN F$(i~%%) FOR BINARY AS #F3
  35.   Size(i~%%) = LOF(F3)
  36.   CLOSE #F3
  37.  NEXT i~%%
  38.  '----------------------------
  39.  
  40.  FOffset& = c~%% * 8 + 1 'number of files*(LONG+LONG)+ _BYTE(number of files max-255)
  41.  
  42. '-------Put the File Data into the MFI File-------
  43.  PUT #F2, , c~%%
  44.  FOR i~%% = 1 TO c~%%
  45.   PUT #F2, , FOffset&
  46.   PUT #F2, , Size(i~%%)
  47.   FOffset& = FOffset& + Size(i~%%)
  49. '-------------------------------------------------
  50.  
  51. '--------Add files to the MFI file--------
  52.  FOR i~%% = 1 TO c~%%
  53.   PRINT F$(i~%%); TAB(60); Size(i~%%): TS& = TS& + Size(i~%%)'debuging and informative prints: this can be commented out for speed
  54.   OPEN F$(i~%%) FOR BINARY AS #F3
  55.   dat$ = SPACE$(Size(i~%%))
  56.   GET #F3, , dat$
  57.   PUT #F2, , dat$
  58.   CLOSE #F3
  59.  NEXT i~%%
  60. '-----------------------------------------
  61.  
  63.  PRINT TAB(58); "-----------"
  64.  PRINT "Total bytes output:"; TAB(60); TS&'total bytes added to MFI file
  65.  
  66. ELSE 'No file list found to process, in form user to make one.
  67.  PRINT "FileList.TXT missing. Please make FileList.TXT with the following layout:"
  68.  PRINT "(And make sure FileList.TXT is in correct directory.)"
  70.  PRINT "FileName.MFI"
  71.  PRINT "## (total number of files, Maximum 255 as of V1.0)"
  72.  PRINT "File #1 to include"
  73.  PRINT "File #2 to include"
  74.  PRINT "..."
  75.  PRINT "File #N to include"
  77.  

This Code Loads the files Stored in the MFI file:
Example call:
 MFI_Loader  "DragonWV1.MFI"

Code: QB64: [Select]
  1. SUB MFI_Loader (FN$)
  2.  'FN$: Name of the MFI file.
  3.  DIM MFI_Size(255) AS LONG, MFI_FOffset(255) AS LONG
  4.  MFI = FREEFILE 'file number for MFI file to load from, this value must be passed to SUBs.
  5.  '               This avoids issues with user already having the file number open
  6.  OPEN FN$ FOR BINARY AS #MFI
  7.  GET #MFI, , c~%% 'retrieve number of files
  8.  FOR I~%% = 1 TO c~%%
  9.   GET #MFI, , MFI_FOffset(I~%%)
  10.   GET #MFI, , MFI_Size(I~%%)
  11.   MFI_FOffset&(I~%%) = MFI_FOffset&(I~%%) + 1
  12.  NEXT I~%%
  13.  
  14.  REM Loading Example Lines***************************************************************
  15.  '-----------Load the files where they go here----------
  16.  ' Layer(2) = LoadGFX(MFI_FOffset(4), MFI_Size(4), MFI) '_LOADIMAGE("YahtzeeSplash.BMP", 32)
  17.  '
  18.  ' FFX& = LoadFFX(MFI_FOffset(8), MFI_Size(8), 24, MFI) '_LOADFONT("OBGB.ttf", 24, "MONOSPACE")
  19.  '
  20.  ' BGM(1) = LoadSFX(MFI_FOffset(16), MFI_Size(16), MFI) 'Splash\Title Screen Music
  21.  '
  22.  ' SFX(1) = LoadSFX(MFI_FOffset(13), MFI_Size(13), MFI) 'rolling dice'
  23.  '
  24.  '--------------------------------------------------------
  25.  REM *************************************************************************************
  26.  CLOSE #MFI
  27.  IF _FILEEXISTS("MFI_temp.dat") THEN KILL "MFI_temp.dat"
  29.  
  30.  
  31.  
  32. FUNCTION LoadGFX& (MFI_Foff&, MFI_Size&, MFI)
  33.  IF _FILEEXISTS("MFI_temp.dat") THEN KILL "MFI_temp.dat"
  34.  MFIData = FREEFILE
  35.  OPEN "MFI_temp.dat" FOR BINARY AS #MFIData
  36.  dat$ = SPACE$(MFI_Size&)
  37.  GET #MFI, MFI_Foff&, dat$
  38.  PUT #MFIData, , dat$
  39.  CLOSE #MFIData
  40.  LoadGFX& = _LOADIMAGE("MFI_temp.dat", 32)
  42.  
  43. FUNCTION LoadFFX& (MFI_Foff&, MFI_Size&, MFI_Fize%%, MFI)
  44.  IF _FILEEXISTS("MFI_temp.dat") THEN KILL "MFI_temp.dat"
  45.  MFIData = FREEFILE
  46.  OPEN "MFI_temp.dat" FOR BINARY AS #MFIData
  47.  dat$ = SPACE$(MFI_Size&)
  48.  GET #MFI, MFI_Foff&, dat$
  49.  PUT #MFIData, , dat$
  50.  CLOSE #MFIData
  51.  LoadFFX& = _LOADFONT("MFI_temp.dat", MFI_Fize%%, "monospace")
  53.  
  54. FUNCTION LoadSFX& (MFI_Foff&, MFI_Size&, MFI)
  55.  IF _FILEEXISTS("MFI_temp.dat") THEN KILL "MFI_temp.dat"
  56.  MFIData = FREEFILE
  57.  OPEN "MFI_temp.dat" FOR BINARY AS #MFIData
  58.  dat$ = SPACE$(MFI_Size&)
  59.  GET #MFI, MFI_Foff&, dat$
  60.  PUT #MFIData, , dat$
  61.  CLOSE #MFIData
  62.  LoadSFX& = _SNDOPEN("MFI_temp.dat")
  64.  
  65. SUB LoadData (MFI_Foff&, MFI_Size&, MFI)
  66.  IF _FILEEXISTS("MFI_temp.dat") THEN KILL "MFI_temp.dat"
  67.  MFIData = FREEFILE
  68.  OPEN "MFI_temp.dat" FOR BINARY AS #MFIData
  69.  dat$ = SPACE$(MFI_Size&)
  70.  GET #MFI, MFI_Foff&, dat$
  71.  PUT #MFIData, , dat$
  72.  CLOSE #MFIData
  73.  
  74.  F1 = FREEFILE
  75.  OPEN "MFI_temp.dat" FOR BINARY AS #F1
  76.  'Load stored data here
  77.  CLOSE #F1
  79.  
Text Only | Text with Attachments