index 568b8b893e6c0b27a22445d5f19a5bdd18f08fc2..2a385a15b4724838172a520fb0d2bf0ed2214b13 100644 (file)
glColor4ub(255, 255, 255, 255);
glColor4ub(255, 255, 255, 255);
- e_LogWritefln('r_render_draw: %sx%s', [gScreenWidth, gScreenHeight]);
+ //e_LogWritefln('r_render_draw: %sx%s', [gScreenWidth, gScreenHeight]);
if gGameOn or (gState = STATE_FOLD) then
begin
if gGameOn or (gState = STATE_FOLD) then
begin
// TODO setup player view siz
// TODO draw player view + setup screen coords
// TODO setup player view siz
// TODO draw player view + setup screen coords
- r_Map_Draw(0, 0, gScreenWidth, gScreenHeight, gPlayer1.obj.x + 32, gPlayer1.obj.y + 32); // !!! remove unnamed consts
+ r_Map_Draw(0, 0, gScreenWidth, gScreenHeight, gPlayer1.obj.x + 32, gPlayer1.obj.y + 32, gPlayer1); // !!! remove unnamed consts
// TODO draw holmes inspector
// TODO draw holmes inspector
{$IFDEF ENABLE_GIBS}
function r_Render_GetGibRect (m, id: Integer): TRectWH;
begin
{$IFDEF ENABLE_GIBS}
function r_Render_GetGibRect (m, id: Integer): TRectWH;
begin
- Result.X := 16;
- Result.Y := 16;
- Result.Width := 16;
- Result.Height := 16;
+ result := r_Map_GetGibSize(m, id);
end;
{$ENDIF}
{$IFDEF ENABLE_GFX}
procedure r_Render_QueueEffect (AnimType, X, Y: Integer);
begin
end;
{$ENDIF}
{$IFDEF ENABLE_GFX}
procedure r_Render_QueueEffect (AnimType, X, Y: Integer);
begin
+ r_Map_NewGFX(AnimType, X, Y);
end;
{$ENDIF}
end;
{$ENDIF}