Ignore:
Timestamp:
Nov 5, 2014, 9:51:30 AM (10 years ago)
Author:
chronos
Message:
  • Added: New game option "Fog of war" which cause map to be covered to black and only explored cells will be visible.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormMain.pas

    r79 r82  
    128128begin
    129129  DrawStart := Now;
    130   if Assigned(Core.Game.CurrentPlayer) then
    131   with Core.Game.CurrentPlayer do begin
     130  if Assigned(Core.Player) then
     131  with Core.Player do begin
    132132    View.DestRect := Bounds(0, 0, PaintBox1.Width, PaintBox1.Height);
    133133    if csOpaque in PaintBox1.ControlStyle then begin
     
    151151procedure TFormMain.PaintBox1Resize(Sender: TObject);
    152152begin
    153   if Assigned(Core.Game.CurrentPlayer) then
    154   with Core.Game.CurrentPlayer do
     153  if Assigned(Core.Player) then
     154  with Core.Player do
    155155    View.DestRect := Bounds(0, 0, PaintBox1.Width, PaintBox1.Height);
    156156  Redraw;
     
    240240  MapRect: TRect;
    241241begin
    242   with Core.Game, CurrentPlayer, View do begin
     242  with Core, Game, Player, View do begin
    243243    MapRect := Map.GetPixelRect;
    244244    Factor := FloatPoint((DestRect.Right - DestRect.Left) / (MapRect.Right - MapRect.Left),
     
    271271procedure TFormMain.AZoomInExecute(Sender: TObject);
    272272begin
    273   with Core.Game.CurrentPlayer do begin
     273  with Core.Player do begin
    274274    View.Zoom := View.Zoom * ZoomFactor;
    275275  end;
     
    281281  D: TPoint;
    282282begin
    283   with Core.Game.CurrentPlayer do begin
     283  with Core.Player do begin
    284284    //D := Point(Trunc(MousePos.X - View.Left / ViewZoom),
    285285    //  Trunc(MousePos.Y - View.Top / ViewZoom));
Note: See TracChangeset for help on using the changeset viewer.