From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Tue, 22 Aug 2017 19:15:15 +0000 (+0300)
Subject: some cosmetic cleanup
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=487e04991bdf82d82a690011784a9735c0f60060;p=d2df-sdl.git

some cosmetic cleanup
---

diff --git a/src/game/g_player.pas b/src/game/g_player.pas
index 1c9996d..8720e07 100644
--- a/src/game/g_player.pas
+++ b/src/game/g_player.pas
@@ -2305,10 +2305,25 @@ end;
 
 procedure TPlayer.DrawAim();
   procedure drawCast (sz: Integer; ax0, ay0, ax1, ay1: Integer);
+
+    function monsCollector (mon: TMonster; tag: Integer): Boolean;
+    var
+      ex, ey: Integer;
+      mx, my, mw, mh: Integer;
+    begin
+      result := false;
+      mon.getMapBox(mx, my, mw, mh);
+      e_DrawQuad(mx, my, mx+mw-1, my+mh-1, 255, 255, 0, 96);
+      if lineAABBIntersects(ax0, ay0, ax1, ay1, mx, my, mw, mh, ex, ey) then
+      begin
+        e_DrawPoint(8, ex, ey, 0, 255, 0);
+      end;
+    end;
+
   var
     ex, ey: Integer;
-    mon: TMonster;
-    mx, my, mw, mh: Integer;
+    //mon: TMonster;
+    //mx, my, mw, mh: Integer;
   begin
     e_DrawLine(sz, ax0, ay0, ax1, ay1, 255, 0, 0, 96);
     if g_Map_traceToNearestWall(ax0, ay0, ax1, ay1, @ex, @ey) then
@@ -2321,13 +2336,14 @@ procedure TPlayer.DrawAim();
       e_DrawLine(sz, ax0, ay0, ex, ey, 0, 0, 255, 96);
     end;
 
+    {
     mon := g_Mons_ByIdx(0);
     mon.getMapBox(mx, my, mw, mh);
     ax1 := mx+mw div 2;
     ay1 := my+mh div 2;
     e_DrawLine(2, ax0, ay0, ax1, ay1, 0, 96, 96, 96);
 
-    if lineAABBIntersects(ax0, ay0, ax1, ay1,  mx, my, mw, mh, ex, ey) then
+    if lineAABBIntersects(ax0, ay0, ax1, ay1, mx, my, mw, mh, ex, ey) then
     begin
       e_DrawLine(2, ax0, ay0, ex, ey, 255, 255, 0, 96);
     end
@@ -2335,6 +2351,9 @@ procedure TPlayer.DrawAim();
     begin
       e_DrawLine(2, ax0, ay0, ex, ey, 255, 127, 0, 96);
     end;
+    }
+
+    g_Mons_alongLine(ax0, ay0, ax1, ay1, monsCollector);
   end;
 
 var
diff --git a/src/game/g_weapons.pas b/src/game/g_weapons.pas
index fc9db75..88670fd 100644
--- a/src/game/g_weapons.pas
+++ b/src/game/g_weapons.pas
@@ -179,21 +179,24 @@ var
   wgunHitTimeUsed: Integer = 0;
 
 
-function hitTimeCompare (a, b: Integer): Boolean;
+function hitTimeLess (a, b: Integer): Boolean;
+var
+  hta, htb: PHitTime;
 begin
-  if (wgunHitTime[a].distSq < wgunHitTime[b].distSq) then begin result := true; exit; end;
-  if (wgunHitTime[a].distSq > wgunHitTime[b].distSq) then begin result := false; exit; end;
-  if (wgunHitTime[a].mon <> nil) then
+  hta := @wgunHitTime[a];
+  htb := @wgunHitTime[b];
+  if (hta.distSq <> htb.distSq) then begin result := (hta.distSq < htb.distSq); exit; end;
+  if (hta.mon <> nil) then
   begin
     // a is monster
-    if (wgunHitTime[b].mon = nil) then begin result := false; exit; end; // players first
-    result := (wgunHitTime[a].mon.UID < wgunHitTime[b].mon.UID); // why not?
+    if (htb.mon = nil) then begin result := false; exit; end; // players first
+    result := (hta.mon.UID < htb.mon.UID); // why not?
   end
   else
   begin
     // a is player
-    if (wgunHitTime[b].mon <> nil) then begin result := true; exit; end; // players first
-    result := (wgunHitTime[a].plridx < wgunHitTime[b].plridx); // why not?
+    if (htb.mon <> nil) then begin result := true; exit; end; // players first
+    result := (hta.plridx < htb.plridx); // why not?
   end;
 end;
 
@@ -1163,7 +1166,7 @@ begin
   g_Texture_CreateWADEx('TEXTURE_SHELL_SHELL', GameWAD+':TEXTURES\ESHELL');
 
   //wgunMonHash := hashNewIntInt();
-  wgunHitHeap := TBinaryHeapHitTimes.Create(hitTimeCompare);
+  wgunHitHeap := TBinaryHeapHitTimes.Create(hitTimeLess);
 end;
 
 procedure g_Weapon_FreeData();
@@ -1381,6 +1384,7 @@ end;
 //!!!FIXME!!!
 procedure g_Weapon_gun (const x, y, xd, yd, v, dmg: Integer; SpawnerUID: Word; CheckTrigger: Boolean);
 var
+  x0, y0: Integer;
   x2, y2: Integer;
   xi, yi: Integer;
   wallDistSq: Integer = $3fffffff;
@@ -1450,10 +1454,10 @@ var
   begin
     result := false; // don't stop
     mon.getMapBox(mx, my, mw, mh);
-    if lineAABBIntersects(x, y, x2, y2, mx, my, mw, mh, inx, iny) then
+    if lineAABBIntersects(x0, y0, x2, y2, mx, my, mw, mh, inx, iny) then
     begin
-      distSq := distanceSq(x, y, inx, iny);
-      if (distSq < wallDistSq) then appendHitTimeMon(distanceSq(x, y, inx, iny), mon, inx, iny);
+      distSq := distanceSq(x0, y0, inx, iny);
+      if (distSq < wallDistSq) then appendHitTimeMon(distSq, mon, inx, iny);
     end;
   end;
 
@@ -1479,6 +1483,8 @@ begin
   end;
   *)
 
+  if (xd = 0) and (yd = 0) then exit;
+
   //wgunMonHash.reset(); //FIXME: clear hash on level change
   wgunHitHeap.clear();
   wgunHitTimeUsed := 0;
@@ -1490,16 +1496,16 @@ begin
   if Abs(s) < 0.01 then s := 0;
   if Abs(c) < 0.01 then c := 0;
 
+  x0 := x;
+  y0 := y;
   x2 := x+Round(c*gMapInfo.Width);
   y2 := y+Round(s*gMapInfo.Width);
 
   dx := x2-x;
   dy := y2-y;
 
-  if (xd = 0) and (yd = 0) then exit;
-
-  if dx > 0 then xi := 1 else if dx < 0 then xi := -1 else xi := 0;
-  if dy > 0 then yi := 1 else if dy < 0 then yi := -1 else yi := 0;
+  if (dx > 0) then xi := 1 else if (dx < 0) then xi := -1 else xi := 0;
+  if (dy > 0) then yi := 1 else if (dy < 0) then yi := -1 else yi := 0;
 
   {$IF DEFINED(D2F_DEBUG)}
   e_WriteLog(Format('GUN TRACE: (%d,%d) to (%d,%d)', [x, y, x2, y2]), MSG_NOTIFY);
@@ -1525,12 +1531,13 @@ begin
   g_Mons_alongLine(x, y, x2, y2, sqchecker);
 
   // here, we collected all monsters and players in `wgunHitHeap` and `wgunHitTime`
-  // also, if `wallWasHit` >= 0, then `wallHitX` and `wallHitY` contains spark coords
+  // also, if `wallWasHit` is `true`, then `wallHitX` and `wallHitY` contains spark coords
   while (wgunHitHeap.count > 0) do
   begin
     // has some entities to check, do it
     i := wgunHitHeap.front;
     wgunHitHeap.popFront();
+    // hitpoint
     xe := wgunHitTime[i].x;
     ye := wgunHitTime[i].y;
     // check if it is not behind the wall