Multi-File-Index program

[Cobalt]

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
13. _SCREENMOVE 10, 10
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~%%)
48.  NEXT
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.  
62.  CLOSE
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.)"
69.  PRINT: PRINT
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"
76. END IF
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"
28. END SUB
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)
41. END FUNCTION
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")
52. END FUNCTION
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")
63. END FUNCTION
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
78. END SUB
79.