index 18b14209101baf408fb40ff20c023eb0a0145220..9fa586aee5beb8782268231b0d02be8bc1996352 100644 (file)
procedure r_Render_StepLoading (incval: Integer);
procedure r_Render_DrawLoading (force: Boolean);
+ {$IFDEF ENABLE_HOLMES}
+ function pmsCurMapX (): Integer;
+ function pmsCurMapY (): Integer;
+ function r_Render_HolmesViewIsSet (): Boolean;
+ {$ENDIF}
+
implementation
uses
g_system,
{$ENDIF}
{$IFDEF ENABLE_HOLMES}
- g_holmes,
+ r_holmes,
{$ENDIF}
SysUtils, Classes, Math,
g_basic,
{$IFDEF ENABLE_HOLMES}
if p = gPlayer1 then
begin
- g_Holmes_plrViewPos(x, y);
- g_Holmes_plrViewSize(w, h);
+ r_Holmes_plrViewPos(x, y);
+ r_Holmes_plrViewSize(w, h);
end;
{$ENDIF}
r_Map_Draw(x, y, w, h, xx, yy, p);
r_Render_DrawMiniMap(0, 0, 160);
{$IFDEF ENABLE_HOLMES}
- if g_holmes_enabled then
- g_Holmes_Draw;
+ r_Holmes_Draw;
{$ENDIF}
if MessageText <> '' then
// TODO draw profilers
{$IFDEF ENABLE_HOLMES}
- g_Holmes_DrawUI;
+ r_Holmes_DrawUI;
{$ENDIF}
// TODO draw touch screen controls
r_Common_DrawLoading(force);
end;
+{$IFDEF ENABLE_HOLMES}
+ function pmsCurMapX (): Integer;
+ begin
+ result := r_holmes.pmsCurMapX();
+ end;
+
+ function pmsCurMapY (): Integer;
+ begin
+ result := r_holmes.pmsCurMapY();
+ end;
+
+ function r_Render_HolmesViewIsSet (): Boolean;
+ begin
+ result := vpSet;
+ end;
+{$ENDIF}
+
end.