jackcartersmith/rerogue
2
0
Fork 0
mirror of https://github.com/dpethes/rerogue.git synced 2025-06-07 18:58:32 +02:00
Code Issues Releases Wiki Activity

hmp2obj - synchronize rs_world with terrain viewer at least a bit

Browse Source
This commit is contained in:
dpethes 2017-02-04 18:28:57 +01:00
parent 86ea3565a4
commit b21148ca13
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
hmp2obj/rs_world.pas
View File

@ -20,13 +20,14 @@ type
TTile = packed record TTile = packed record
texture_index: word; texture_index: word;
unknown_attrib: byte; unknown_attrib: byte;
unknown_lo: byte; height_lo: byte;
unknown_hi: byte; height_hi: byte;
unknown: array[0..24] of byte; heights: array[0..24] of byte;
end; end;
PTile = ^TTile; PTile = ^TTile;
THeightmap = record THeightmap = record
y_scale: single;
width, height: word; width, height: word;
blk: pword; blk: pword;
tile_count: integer; tile_count: integer;
@ -101,7 +102,7 @@ Begin
CloseFile (f); CloseFile (f);
end; end;
procedure convert_4bit_to_32bit(const indices: PByte; const w, h: Word; const image: PByte; const pal: TPalette_4bit); procedure convert_4bit_to_24bit(const indices: PByte; const w, h: Word; const image: PByte; const pal: TPalette_4bit);
var var
i: Integer; i: Integer;
index: integer; index: integer;
@ -172,7 +173,7 @@ begin
image := getmem(TEX_WIDTH * TEX_HEIGHT * 3); image := getmem(TEX_WIDTH * TEX_HEIGHT * 3);
Blockread(f, buf^, tex_size); Blockread(f, buf^, tex_size);
Blockread(f, palette, palette_size); Blockread(f, palette, palette_size);
convert_4bit_to_32bit(buf, TEX_WIDTH, TEX_HEIGHT, image, palette); convert_4bit_to_24bit(buf, TEX_WIDTH, TEX_HEIGHT, image, palette);
heightmap.textures[i] := image; heightmap.textures[i] := image;
end; end;
freemem(buf); freemem(buf);
@ -202,9 +203,10 @@ begin
reset(f, 1); reset(f, 1);
//header //header
Blockread(f, buffer, 16); //15xB + 0x3f Blockread(f, buffer, 12);
Blockread(f, buffer, 4);
Blockread(f, heightmap.y_scale, 4);
Blockread(f, buffer, 4); Blockread(f, buffer, 4);
Blockread(f, buffer, 4); //0x3f
Blockread(f, tile_count, 2); //tile count Blockread(f, tile_count, 2); //tile count
Blockread(f, buffer, 2); //2B? Blockread(f, buffer, 2); //2B?
Blockread(f, tile_offset, 4); //tile offset Blockread(f, tile_offset, 4); //tile offset
@ -276,7 +278,7 @@ begin
for x := 0 to heightmap.width - 1 do begin for x := 0 to heightmap.width - 1 do begin
tile_idx := heightmap.blk[y * heightmap.width + x]; tile_idx := heightmap.blk[y * heightmap.width + x];
CopyTileToXY(image, @(heightmap.tiles[tile_idx].unknown), CopyTileToXY(image, @(heightmap.tiles[tile_idx].heights),
x * TILE_WIDTH, (heightmap.height - y - 1) * TILE_WIDTH, heightmap.width * TILE_WIDTH); x * TILE_WIDTH, (heightmap.height - y - 1) * TILE_WIDTH, heightmap.width * TILE_WIDTH);
end; end;
end; end;