anchor.diff:  
   {Reveal whole map to max value}
   procedure TKMFogOfWar.RevealEverything;
  -var I,K: Word;
  +var
  +  I,K: Word;
   begin
     for I := 0 to MapY - 1 do
       for K := 0 to MapX - 1 do
  
positive.code:   Result := 255;
  end;
  
  
  function TKMFogOfWarOpen.CheckTileRenderRev(const X, Y: Word): Byte;
  begin
    Result := 255;
  
negative.code: begin
    for I := 0 to MapY - 1 do
      for K := 0 to MapX - 1 do
        Revelation[I, K] := Max(Revelation[I, K], aFOW.Revelation[I, K]);
  end;
  
  
  