From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Wed, 23 Aug 2017 21:07:32 +0000 (+0300)
Subject: no more raycasting thru the walls if the wall is in the starting cell
X-Git-Url: https://deadsoftware.ru/gitweb?a=commitdiff_plain;h=1f2ea3a9df39acfd47b880dc954789a73b2c4656;p=d2df-sdl.git

no more raycasting thru the walls if the wall is in the starting cell
---

diff --git a/src/game/g_grid.pas b/src/game/g_grid.pas
index 19c4d0d..647a45d 100644
--- a/src/game/g_grid.pas
+++ b/src/game/g_grid.pas
@@ -1352,20 +1352,24 @@ begin
   dx2 -= dy2;
 
   // first move, to skip starting point
+  // DON'T DO THIS! loop will take care of that
   if (xd = term) then exit;
   prevx := xptr^+minx;
   prevy := yptr^+miny;
+  (*
   // move coords
   if (e >= 0) then begin yd += sty; e -= dx2; end else e += dy2;
   xd += stx;
   // done?
   if (xd = term) then exit;
+  *)
 
   {$IF DEFINED(D2F_DEBUG)}
   if (xptr^ < 0) or (yptr^ < 0) or (xptr^ >= gw*tsize) and (yptr^ >= gh*tsize) then raise Exception.Create('raycaster internal error (0)');
   {$ENDIF}
-  lastGA := (yptr^ div tsize)*gw+(xptr^ div tsize);
-  ccidx := mGrid[lastGA];
+  // DON'T DO THIS! loop will take care of that
+  //lastGA := (yptr^ div tsize)*gw+(xptr^ div tsize);
+  //ccidx := mGrid[lastGA];
 
   {$IF DEFINED(D2F_DEBUG_RAYTRACE)}
   //if assigned(dbgRayTraceTileHitCB) then e_WriteLog('1:TRACING!', MSG_NOTIFY);