Changeset 92

Timestamp:

May 18, 2024, 7:39:30 PM (7 weeks ago)

Author:

chronos

Message:

• Fixed: Check player houses minimal distance to not overlap them.

File:

• trunk/Engine.pas (modified) (6 diffs)

trunk/Engine.pas

@@ -112 +112 @@
     function HideTankProc(Item1, Item2: Byte): Byte;
     function DigProc(Item1, Item2: Byte): Byte;
+    function CheckMinStartPositionDistance: Boolean;
   public
     Name: string;
@@ -293 +294 @@
 
 uses
-  Platform, FastPixel, UITypes2;
+  Platform, FastPixel, UITypes2, Geometric;
 
 resourcestring
@@ -747 +748 @@
     Position.Y := Position.Y + Direction.Y;
     Distance := Distance + Sqrt(Sqr(Direction.X) + Sqr(Direction.Y));
-    //ShowMessage(FloatToStr(Distance));
     if (Distance > MaxDistance) and (MaxDistance >= 0) then begin
       Bullets.Delete(I);
@@ -917 +917 @@
 end;
 
+function TPlayer.CheckMinStartPositionDistance: Boolean;
+var
+  I: Integer;
+  MinDistance: Integer;
+begin
+  MinDistance := Trunc(Sqrt(Sqr(2 * PlayerHouseSize) + Sqr(2 * PlayerHouseSize)));
+  Result := False;
+  for I := 0 to Engine.Players.Count - 1 do
+  if Engine.Players[I] <> Self then
+  if Distance(Engine.Players[I].StartPosition, StartPosition) < MinDistance then begin
+    Result := True;
+    Break;
+  end;
+end;
+
 procedure TPlayer.ResetTank;
 begin
@@ -932 +947 @@
 
 procedure TPlayer.Init;
+var
+  I: Integer;
 begin
   with Engine do
+  for I := 0 to 100 do begin
     StartPosition := Point(Round(World.Surface.Count.X * 0.2) + Random(Round(World.Surface.Count.X * 0.6)),
       Round(World.Surface.Count.Y * 0.2) + Random(Round(World.Surface.Count.Y * 0.6)));
+    if not CheckMinStartPositionDistance then Break;
+  end;
   Position := StartPosition;
   PlaceHouse;
@@ -1290 +1310 @@
     end;
     Inc(PByte(PixelRowPtr), BytePerRow * SubPixelSizeY);
-      end;
+  end;
 end;