Changeset 220 for trunk/UGame.pas

Timestamp:

Jun 10, 2018, 12:18:28 PM (6 years ago)

Author:

chronos

Message:

• Added: Allow to toggle Fog of war in debug mode from Debug menu.

File:

• trunk/UGame.pas (modified) (3 diffs)

trunk/UGame.pas

@@ -207 +207 @@
     CellLinks: TCellLinks;
     Areas: TMapAreas;
+    Cyclic: Boolean;
     function IsOutsideShape(Coord: TPoint): Boolean; virtual;
     function IsCellsNeighbor(Cell1, Cell2: TCell): Boolean; virtual;
@@ -946 +947 @@
         else Pen.Width := 1;
       Angle := ArcTan((PosTo.Y - PosFrom.Y) / (PosTo.X - PosFrom.X));
+      if (Angle > +Pi) or (Angle < -Pi) then
+        raise Exception.Create('Wrong arrow angle ' + FloatToStr(Angle));
+
       if Sign(PosTo.X - PosFrom.X) = -1 then Angle := Angle + Pi;
       ArrowCenter := View.CellToCanvasPos(TPoint.Create(Trunc(PosFrom.X + (PosTo.X - PosFrom.X) / 2),
@@ -3246 +3250 @@
     for I := 0 to Cells.Count - 1 do begin
       if I = 0 then Player := Cells[I].Player;
-      if not Assigned(Cells[I].Player) or (Cells[I].Player <> Player) then begin
+      if not Assigned(Cells[I].Player) then begin
+        R := False;
+        Break;
+      end;
+      if (Cells[I].Player <> Player) then begin
         R := False;
         Break;