diff --git a/loadhexpalette.bm b/loadhexpalette.bm index 3069a17..da3f4a3 100644 --- a/loadhexpalette.bm +++ b/loadhexpalette.bm @@ -1,9 +1,6 @@ SUB LoadHexPalette (Filename$, palettearray() AS _UNSIGNED LONG) DIM i AS INTEGER DIM ff AS INTEGER - DIM r AS _UNSIGNED _BYTE - DIM g AS _UNSIGNED _BYTE - DIM b AS _UNSIGNED _BYTE DIM Colorload AS STRING i = LBOUND(palettearray) - 1 ff = FREEFILE @@ -11,15 +8,12 @@ SUB LoadHexPalette (Filename$, palettearray() AS _UNSIGNED LONG) OPEN Filename$ FOR INPUT AS ff DO UNTIL EOF(ff) LINE INPUT #ff, Colorload - r = VAL("&H" + MID$(Colorload, 1, 2)) - g = VAL("&H" + MID$(Colorload, 3, 2)) - b = VAL("&H" + MID$(Colorload, 5, 2)) i = i + 1 IF i > UBOUND(palettearray) THEN REDIM _PRESERVE palettearray(i) AS _UNSIGNED LONG END IF - palettearray(i) = _RGB32(r, g, b) + palettearray(i) = Val("&HFF" + Colorload) LOOP CLOSE ff END IF -END SUB \ No newline at end of file +END SUB