X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_holmes.pas;h=75e03bb30ec82a3a6509fc830fc790992a384103;hb=d354cd7a11af564156b13568eac5b4ff94a2c4a3;hp=6683922d9084abed7d7024a525b69fbce17fc1fb;hpb=81a68b9ff71207e598bed6f0d7c5fe8df5d7daae;p=d2df-sdl.git

diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas
index 6683922..75e03bb 100644
--- a/src/game/g_holmes.pas
+++ b/src/game/g_holmes.pas
@@ -73,6 +73,10 @@ procedure g_Holmes_plrView (viewPortX, viewPortY, viewPortW, viewPortH: Integer)
 procedure g_Holmes_plrLaser (ax0, ay0, ax1, ay1: Integer);
 
 
+var
+  g_holmes_enabled: Boolean = {$IF DEFINED(D2F_DEBUG)}true{$ELSE}false{$ENDIF};
+
+
 implementation
 
 uses
@@ -204,6 +208,9 @@ procedure plrDebugDraw ();
   procedure drawMonsterInfo (mon: TMonster);
   var
     mx, my, mw, mh: Integer;
+    emx, emy, emw, emh: Integer;
+    enemy: TMonster;
+    eplr: TPlayer;
   begin
     if (mon = nil) then exit;
     mon.getMapBox(mx, my, mw, mh);
@@ -228,6 +235,26 @@ procedure plrDebugDraw ();
     drawText6(mx, my, Format('TgtUID:%u', [mon.MonsterTargetUID]), 255, 127, 0); my -= 8;
     drawText6(mx, my, Format('TgtTime:%d', [mon.MonsterTargetTime]), 255, 127, 0); my -= 8;
 
+    mon.getMapBox(mx, my, mw, mh);
+    if (g_GetUIDType(mon.MonsterTargetUID) = UID_PLAYER) then
+    begin
+      eplr := g_Player_Get(mon.MonsterTargetUID);
+      if (eplr <> nil) then
+      begin
+        eplr.getMapBox(emx, emy, emw, emh);
+        drawLine(mx+mw div 2, my+mh div 2, emx+emw div 2, emy+emh div 2, 255, 0, 0, 128);
+      end;
+    end
+    else if (g_GetUIDType(mon.MonsterTargetUID) = UID_MONSTER) then
+    begin
+      enemy := g_Monsters_ByUID(mon.MonsterTargetUID);
+      if (enemy <> nil) then
+      begin
+        enemy.getMapBox(emx, emy, emw, emh);
+        drawLine(mx+mw div 2, my+mh div 2, emx+emw div 2, emy+emh div 2, 255, 0, 0, 128);
+      end;
+    end;
+
     {
     property MonsterRemoved: Boolean read FRemoved write FRemoved;
     property MonsterPain: Integer read FPain write FPain;