20
20
------- INDEXING ------------------------------------------------------------------------------------------------------
21
21
EndRem
22
22
23
+ 'Embed palette file for standalone exe
24
+ Incbin " assets/palette.act "
25
+
23
26
Type TBitmapIndex
24
27
'Color Value Bytes
25
28
Global palR:Byte [256 ]
@@ -30,10 +33,10 @@ Type TBitmapIndex
30
33
Global dataStream:TStream
31
34
32
35
'Load color table file
33
- Function FLoadPalette (paletteFile: String )
36
+ Function FLoadPalette ()
34
37
Local index:Int
35
- If FileSize(paletteFile ) = 768
36
- Local paletteStream:TStream = ReadFile(paletteFile )
38
+ If IncbinLen( " assets/palette.act " ) = 768
39
+ Local paletteStream:TStream = ReadFile(" Incbin::assets/palette.act " )
37
40
For index = 0 To 255
38
41
palR[ index] = ReadByte(paletteStream)
39
42
palG[ index] = ReadByte(paletteStream)
230
233
------- OUTPUT ELEMENTS -----------------------------------------------------------------------------------------------
231
234
EndRem
232
235
236
+ 'Embed logo image for standalone exe
237
+ Incbin " assets/logo-image "
238
+
233
239
Type TAppOutput
234
240
'Output Window
235
241
Global outputWindow:TGraphics
@@ -241,7 +247,7 @@ Type TAppOutput
241
247
Const UPPER_BONE:Int = 0
242
248
Const LOWER_BONE:Int = 1
243
249
'Graphic Assets
244
- Global logoImage:TImage = LoadImage(" assets/logo-image" ,MASKEDIMAGE)
250
+ Global logoImage:TImage = LoadImage(" Incbin:: assets/logo-image" ,MASKEDIMAGE) '
245
251
Global sourceImage:TImage
246
252
Global boneImage:TImage [BONES]
247
253
'Output Settings
@@ -555,7 +561,7 @@ Type TAppGUI
555
561
If Not mainToEdit And importedFile <> Null Then
556
562
FAppEditor()
557
563
TAppOutput.FOutputBoot()
558
- TBitmapIndex.FLoadPalette(" assets/palette.act " )
564
+ TBitmapIndex.FLoadPalette()
559
565
mainToEdit = True
560
566
EndIf
561
567
EndFunction
0 commit comments