Changeset 442 for trunk


Ignore:
Timestamp:
May 18, 2022, 10:43:27 PM (2 years ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
Location:
trunk
Files:
33 edited

Legend:

Unmodified
Added
Removed
  • trunk/AI/StdAI/AI.pas

    r328 r442  
    176176  LeaveOutValue: array[0..nAdv - 1] of integer;
    177177
    178 
    179178constructor TAI.Create(Nation: integer);
    180179begin
     
    209208  Result := Data.BehaviorFlags and bBarbarina <> 0;
    210209end;
    211 
    212210
    213211//-------------------------------
     
    653651      Result := ad;
    654652end;
    655 
    656653
    657654//-------------------------------
     
    11451142        end;
    11461143      end;
    1147 end; // ProcessSettlers
    1148 
     1144end;
    11491145
    11501146//-------------------------------
     
    13501346  SetAdvanceValues;
    13511347
    1352 
    13531348{$IFDEF DEBUG}
    13541349(*for p1:=0 to nPl-1 do
     
    13801375    end;
    13811376end;
    1382 
    13831377{$ENDIF}
    1384 
    13851378
    13861379procedure TAI.CheckGender;
     
    14161409  end;
    14171410end;
    1418 
    14191411
    14201412procedure TAI.SetAdvanceValues;
     
    17851777end;
    17861778
    1787 
    17881779procedure TAI.MoveUnitsHome;
    17891780const
     
    20552046            Dec(UnitLack[District[Loc], ModelCat[mix]])
    20562047        end;
    2057 end; // MoveUnitsHome
    2058 
     2048end;
    20592049
    20602050procedure TAI.CheckAttack(uix: integer);
     
    21762166    until Exhausted;
    21772167  end;
    2178 end; // CheckAttack
    2179 
     2168end;
    21802169
    21812170procedure TAI.Patrol(uix: integer);
     
    22822271    until Exhausted;
    22832272  end;
    2284 end; // Patrol
     2273end;
    22852274
    22862275procedure TAI.AttackAndPatrol;
     
    23422331          Patrol(uix);
    23432332      end;
    2344 end; // AttackAndPatrol
    2345 
     2333end;
    23462334
    23472335function TAI.HavePort: boolean;
     
    23692357      end;
    23702358end;
    2371 
    23722359
    23732360procedure TAI.SetCityProduction;
     
    28362823
    28372824  ChangeHomeCities;
    2838 end; // SetCityProduction
    2839 
     2825end;
    28402826
    28412827function TAI.ChooseGovernment: integer;
     
    28552841    Result := gDespotism;
    28562842end;
    2857 
    28582843
    28592844//-------------------------------
     
    29272912    end;
    29282913end;
    2929 
    29302914
    29312915function TAI.WantNegotiation(Nation: integer; NegoTime: TNegoTime): boolean;
     
    31533137    end;
    31543138  end;
    3155 end; // Negotiation
    3156 
     3139end;
    31573140
    31583141procedure SetLeaveOutValue;
  • trunk/AI/StdAI/Barbarina.pas

    r328 r442  
    833833  if Result then
    834834    Moved[uix] := True;
    835 end; // ProcessMove
     835end;
    836836
    837837procedure TBarbarina.AttackAndPatrol;
     
    12051205            end
    12061206  until not BackToStart;
    1207 end; // AttackAndPatrol
     1207end;
    12081208
    12091209procedure TBarbarina.Barbarina_SetCityProduction;
  • trunk/AI/StdAI/ToolAI.pas

    r328 r442  
    106106  end;
    107107
    108 
    109108const
    110109  // no-formations
     
    132131  mxAdjacent = $00000001;
    133132
    134 
    135133var
    136134  nContinent, nOcean, nDistrict: integer;
     
    145143// total number of prerequisites for each advance
    146144
    147 
    148145implementation
    149146
     
    166163  TurnsAfterLoad: array[0..lxmax * lymax - 1] of shortint;
    167164
    168 
    169165procedure ReplaceD(Start, Stop: pinteger; Raider, Twix: integer);
    170166begin
     
    183179  Result := Start;
    184180end;
    185 
    186181
    187182function TToolAI.CenterOfEmpire: integer;
     
    263258end;
    264259
    265 
    266260//------------------------------------------------------------------------------
    267261// City Tiles Processing
     
    311305      end;
    312306end;
    313 
    314307
    315308//------------------------------------------------------------------------------
     
    469462          Unit_StartJob(uix, TileJob[JobLocOfSettler[uix]]);
    470463      end;
    471 end; // JobAssignment_Go
    472 
     464end;
    473465
    474466//------------------------------------------------------------------------------
     
    594586  end;
    595587end;
    596 
    597588
    598589//------------------------------------------------------------------------------
     
    898889      Result := csForbiddenTile;
    899890  end;
    900 end; // CheckStep
     891end;
    901892
    902893(*
     
    10201011end;
    10211012
    1022 
    10231013//------------------------------------------------------------------------------
    10241014// Oversea Transport
     
    11081098  Pile.Free;
    11091099end;
    1110 
    11111100
    11121101function TToolAI.SeaTransport_MakeGroupPlan(
     
    14721461end;
    14731462
    1474 
    14751463//------------------------------------------------------------------------------
    14761464// Misc
     
    14931481      end;
    14941482end;
    1495 
    14961483
    14971484//------------------------------------------------------------------------------
  • trunk/Database.pas

    r328 r442  
    171171function DoSpyMission(p, pCity, cix, Mission: integer): Cardinal;
    172172
     173
    173174implementation
    174175
     
    247248          if Tiles and (1 shl V21) <> 0 then
    248249            assert(UsedByCity[Radius[V21]] = Loc);
    249       end
     250      end;
    250251{$ENDIF}
    251252  end;
    252 end; // CompactLists
     253end;
    253254
    254255{
     
    265266    result := $10000000
    266267  else
    267     result := trunc(c0)
     268    result := trunc(c0);
    268269end;
    269270
     
    281282        else
    282283          result := result * 4;
    283   end
     284  end;
    284285end;
    285286
     
    363364        end;
    364365        inc(RW[p].nModel);
    365       end
     366      end;
    366367    end;
    367368end;
     
    380381        Built := 0;
    381382        Lost := 0;
    382         ID := p shl 12 + nModel
     383        ID := p shl 12 + nModel;
    383384      end;
    384385      inc(nModel);
    385       inc(Researched[p])
    386     end
     386      inc(Researched[p]);
     387    end;
    387388end;
    388389
     
    392393  RW[p].Tech[ad] := tsSeen;
    393394  // inc(nTech[p]);
    394   inc(Researched[p])
     395  inc(Researched[p]);
    395396end;
    396397
     
    403404      for uix := 0 to RW[p1].nUn - 1 do
    404405        if RW[p1].Model[RW[p1].Un[uix].mix].Kind = mkSlaves then
    405           RW[p1].Un[uix].Job := jNone
     406          RW[p1].Un[uix].Job := jNone;
    406407end;
    407408
     
    475476        GWonder[Wonder].EffectiveOwner := -1;
    476477        if Wonder = woPyramids then
    477           FreeSlaves
    478       end
     478          FreeSlaves;
     479      end;
    479480end;
    480481
     
    542543        inc(VicinityLoc[2], lx0);
    543544        inc(VicinityLoc[4], lx0);
    544       end
    545     end
     545      end;
     546    end;
    546547  end
    547548  else
     
    552553      dec(VicinityLoc[0], lx0);
    553554      dec(VicinityLoc[6], lx0);
    554     end
     555    end;
    555556  end;
    556557end;
     
    612613    if (MapSize + 1) mod i = 0 then
    613614      primitive := 0;
    614     inc(i)
     615    inc(i);
    615616  end;
    616617
     
    622623      repeat
    623624        inc(j);
    624         i := i * primitive mod (MapSize + 1)
     625        i := i * primitive mod (MapSize + 1);
    625626      until (i = 1) or (j = MapSize + 1);
    626627    until j = MapSize;
     
    629630function MapGeneratorAvailable: boolean;
    630631begin
    631   result := (primitive > 0) and (lx >= 20) and (ly >= 40)
     632  result := (primitive > 0) and (lx >= 20) and (ly >= 40);
    632633end;
    633634
     
    666667    ca[x] := cos(v) / ly;
    667668    f1[x] := 2 * pi * exp(Detail * (x - 1));
    668     f2[x] := exp(-x * Smooth)
     669    f2[x] := exp(-x * Smooth);
    669670  end;
    670671
     
    688689      else
    689690        Elevation[x + lx * y] := Round((v + 4) * 20);
    690       inc(ElCount[Elevation[x + lx * y]])
     691      inc(ElCount[Elevation[x + lx * y]]);
    691692    end;
    692693end;
     
    709710      for i := a to Stop do
    710711        if Continent[i] = a then
    711           Continent[i] := b
     712          Continent[i] := b;
    712713  end;
    713714
     
    736737            ReplaceCont(Continent[Loc - 1], Continent[Loc], Loc);
    737738        if Continent[Loc] = -1 then
    738           Continent[Loc] := Loc
    739       end
     739          Continent[Loc] := Loc;
     740      end;
    740741    end;
    741742
     
    754755        Wrong := Continent[lx - 1 + lx * (y + 1)];
    755756      if Wrong >= 0 then
    756         ReplaceCont(Wrong, Continent[lx * y], MapSize - 1)
     757        ReplaceCont(Wrong, Continent[lx * y], MapSize - 1);
    757758    end;
    758759end;
     
    797798                inc(AreaCount[xBlock, yBlock]);
    798799                if DelphiRandom(AreaCount[xBlock, yBlock]) = 0 then
    799                   RareByArea[xBlock, yBlock] := Loc0
    800               end
     800                  RareByArea[xBlock, yBlock] := Loc0;
     801              end;
    801802            end;
    802803          end;
    803         end
     804        end;
    804805    end;
    805806    totalrare := 0;
     
    848849              inc(RareAdjacent[(x + 7) mod 8, y + 1]);
    849850            end;
    850           end
     851          end;
    851852        end;
    852853    xworst := 0;
     
    862863            xworst := x;
    863864            yworst := y;
    864             Cnt := 1
     865            Cnt := 1;
    865866          end
    866867          else if (RareAdjacent[x, y] = RareAdjacent[xworst, yworst]) then
     
    871872              xworst := x;
    872873              yworst := y;
    873             end
     874            end;
    874875          end;
    875876        end;
    876877    AreaCount[xworst, yworst] := 0;
    877     dec(totalrare)
     878    dec(totalrare);
    878879  end;
    879880
     
    884885      begin
    885886        RareLoc[Cnt] := RareByArea[x, y];
    886         inc(Cnt)
     887        inc(Cnt);
    887888      end;
    888889  for i := 0 to 11 do
     
    897898          if (Loc1 >= 0) and (RealMap[Loc1] and fTerrain = fMountains) then
    898899            RealMap[Loc1] := RealMap[Loc1] and not fTerrain or fHills;
    899         end
     900        end;
    900901  end;
    901902  for i := 0 to 11 do
     
    921922                begin
    922923                  iBest := i;
    923                   jbest := j
    924                 end
    925               end
     924                  jbest := j;
     925                end;
     926              end;
    926927            end
    927928            else if (Cnt = 0) or (Dist[i, j] > Dist[iBest, jbest]) then
     
    938939    RareLoc[jbest] := -1;
    939940  end;
    940 end; // RarePositions
     941end;
    941942
    942943function CheckShore(Loc: integer): boolean;
     
    10971098  begin
    10981099    dec(bMountains);
    1099     inc(plus, ElCount[bMountains])
     1100    inc(plus, ElCount[bMountains]);
    11001101  end;
    11011102  Count := plus;
     
    11051106  begin
    11061107    dec(bHills);
    1107     inc(plus, ElCount[bHills])
     1108    inc(plus, ElCount[bHills]);
    11081109  end;
    11091110  inc(Count, plus);
     
    11121113  begin
    11131114    dec(bLand);
    1114     inc(Count, ElCount[bLand])
     1115    inc(Count, ElCount[bLand]);
    11151116  end;
    11161117
     
    11381139      end;
    11391140      if Count = 8 then
    1140         RealMap[Loc0] := fOcean
     1141        RealMap[Loc0] := fOcean;
    11411142    end;
    11421143
     
    12021203        Loc1 := CopyFrom[Loc1];
    12031204      RealMap[Loc0] := RealMap[Loc0] and not fTerrain or
    1204         RealMap[Loc1] and fTerrain
     1205        RealMap[Loc1] and fTerrain;
    12051206    end;
    12061207
     
    12251226          if Loc1 >= 0 then
    12261227            if RealMap[Loc1] and fTerrain < fGrass then
    1227               inc(Count, 2)
     1228              inc(Count, 2);
    12281229        end;
    12291230      end;
    12301231      if Count >= 4 then
    1231         RealMap[Loc0] := RealMap[Loc0] and not fTerrain or fPrairie
     1232        RealMap[Loc0] := RealMap[Loc0] and not fTerrain or fPrairie;
    12321233    end;
    12331234
     
    12411242        if Loc1 >= 0 then
    12421243          if RealMap[Loc1] and fTerrain <> fDesert then
    1243             inc(Count)
     1244            inc(Count);
    12441245      end;
    12451246      if Count >= 4 then
    1246         RealMap[Loc0] := RealMap[Loc0] and not fTerrain or fPrairie
     1247        RealMap[Loc0] := RealMap[Loc0] and not fTerrain or fPrairie;
    12471248    end;
    12481249
     
    12571258      RealMap[x + lx * (ly - 2)] := RealMap[x + lx * (ly - 2)] and
    12581259        not fTerrain or fTundra;
    1259     RealMap[x + lx * (ly - 1)] := fArctic
     1260    RealMap[x + lx * (ly - 1)] := fArctic;
    12601261  end;
    12611262
     
    13551356        if p1 < nAlive + 1 then
    13561357          sc[p1] := sc[p1 - 1];
    1357         dec(p1)
     1358        dec(p1);
    13581359      end;
    13591360      if p1 < nAlive + 1 then
     
    13701371      Break; // even least crowded continent is more crowded than smallest
    13711372    inc(sccount[c]);
    1372     dec(nsc)
     1373    dec(nsc);
    13731374  until sccount[nsc] > 1;
    13741375
     
    13801381    begin
    13811382      inc(CountGood);
    1382       MinGood := 6
     1383      MinGood := 6;
    13831384    end;
    13841385    FillChar(nCityLoc, SizeOf(nCityLoc), 0);
     
    14011402              Loc1 := Radius[V21];
    14021403              if (Loc1 >= 0) and (Loc1 < MapSize) and IsGoodTile(Loc1) then
    1403                 inc(CntGood)
     1404                inc(CntGood);
    14041405            end;
    14051406          if CntGood >= MinGood then
    14061407          begin
    14071408            CityLoc[c, nCityLoc[c]] := Loc;
    1408             inc(nCityLoc[c])
     1409            inc(nCityLoc[c]);
    14091410          end;
    14101411        end;
     
    14491450            TestDist := Distance(TestStartLoc[i], TestStartLoc[j]);
    14501451            if TestDist < MinDist then
    1451               MinDist := TestDist
     1452              MinDist := TestDist;
    14521453          end;
    14531454          if i = sccount[c] - 1 then
     
    15951596      end;
    15961597    end;
    1597 end; { StartPositions }
     1598end;
    15981599
    15991600procedure PredefinedStartPositions(Human: integer);
     
    16541655      end;
    16551656  SaveMapCenterLoc := StartLoc[0];
    1656 end; { PredefinedStartPositions }
     1657end;
    16571658
    16581659procedure InitGame;
     
    17681769            Model[nModel].ID := p shl 12 + nModel;
    17691770            SetModelFlags(Model[nModel]);
    1770             inc(nModel)
     1771            inc(nModel);
    17711772          end;
    17721773        nUn := 0;
     
    17901791  TerritoryCount[nPl] := MapSize;
    17911792  // fillchar(NewContact, sizeof(NewContact), false);
    1792 end; // InitGame
     1793end;
    17931794
    17941795procedure InitRandomGame;
     
    18971898    if (NewTile and fTerImp = tiIrrigation) or (NewTile and fTerImp = tiFarm)
    18981899    then
    1899       NewTile := NewTile and not fTerImp
     1900      NewTile := NewTile and not fTerImp;
    19001901  end;
    19011902  if (Terrain[NewTile and fTerrain].MineEff = 0) and
     
    19211922      RealMap[Loc1] := RealMap[Loc1] or ($F shl 27);
    19221923      RW[0].Map[Loc1] := RealMap[Loc1] and $07FFFFFF or fObserved;
    1923     end
     1924    end;
    19241925  end;
    19251926  // RealMap[Loc]:=RealMap[Loc] and not fSpecial;
     
    20532054  end;
    20542055  result := eOK;
    2055 end; { GetTileInfo }
     2056end;
    20562057
    20572058procedure Strongest(Loc: integer; var uix, Strength, Bonus, Cnt: integer);
     
    21362137      if Health < 100 then
    21372138        result := ((result - 250) * Health div 5000) * 50 + 250;
    2138     end
    2139   end
     2139    end;
     2140  end;
    21402141end;
    21412142
     
    23142315            (1 shl trPeace or 1 shl TrFriendlyContact) <> 0 then
    23152316            AddFlags := AddFlags or fPeace;
    2316         end
     2317        end;
    23172318      end;
    23182319
     
    23632364                if (Loc1 >= 0) and (Loc1 < MapSize) then
    23642365                  Map[Loc1] := Map[Loc1] or fInEnemyZoC
    2365               end
     2366              end;
    23662367            end;
    23672368            if EnableContact and (mox.Domain = dGround) then
     
    24372438      Cardinal(Level) shl (2 * pTell);
    24382439  end;
    2439 end; // DiscoverTile
     2440end;
    24402441
    24412442function Discover9(Loc, p, Level: integer;
     
    25742575          begin
    25752576            RW[pTell].EnemyCity[ecix].Loc := -1;
    2576             RW[pTell].Map[Loc] := RW[pTell].Map[Loc] and not fCity
     2577            RW[pTell].Map[Loc] := RW[pTell].Map[Loc] and not fCity;
    25772578          end;
    25782579        end;
     
    26952696          begin
    26962697            Tile1^ := Tile1^ or fInEnemyZoC;
    2697             Break
     2698            Break;
    26982699          end;
    26992700        end;
     
    27252726          Loc1 := Adjacent[V8];
    27262727          if (Loc1 >= 0) and (Loc1 < MapSize) then
    2727             RW[p].Map[Loc1] := RW[p].Map[Loc1] or fInEnemyZoC
     2728            RW[p].Map[Loc1] := RW[p].Map[Loc1] or fInEnemyZoC;
    27282729        end;
    27292730      end;
     
    29442945{$IFOPT O-} if OriginLoc <> -2 then
    29452946    CheckBorders(-2); {$ENDIF} // check: single pass should do!
    2946 end; // CheckBorders
     2947end;
    29472948
    29482949procedure LogCheckBorders(p, cix, PlayerLosingCity: integer);
     
    29762977      begin
    29772978        Fuel := Model[mix].Cap[mcFuel];
    2978         Flags := Flags or unBombsLoaded
     2979        Flags := Flags or unBombsLoaded;
    29792980      end;
    29802981      Job := jNone;
     
    29993000    Job := jNone;
    30003001    Flags := Flags and not(unFortified or unMountainDelay);
    3001     Loc0 := Loc
     3002    Loc0 := Loc;
    30023003  end;
    30033004  if Occupant[Loc0] >= 0 then
     
    30143015          begin
    30153016            ZoC := true;
    3016             Break
    3017           end
     3017            Break;
     3018          end;
    30183019        end;
    30193020    if not Occ then
     
    30913092      if Enemy >= 0 then
    30923093        CountLost(p, RW[p].Un[uix].mix, Enemy);
    3093       RW[p].Un[uix].Loc := -1
     3094      RW[p].Un[uix].Loc := -1;
    30943095    end;
    30953096  Occupant[Loc] := -1;
     
    31413142      (fTerrain or fSpecial or fRiver or nPl shl 27) or fCity;
    31423143
    3143     ChangeTerritory(Loc, p)
     3144    ChangeTerritory(Loc, p);
    31443145  end;
    31453146end;
     
    31793180              Distance(RW[p].City[nearest].Loc, Loc))) then
    31803181              nearest := cix1;
    3181           Home := nearest
     3182          Home := nearest;
    31823183        end
    31833184        else
     
    33743375          fPoll) or RealMap[Loc] and (fTerrain or fSpecial or fTerImp or
    33753376          fRoad or fRR or fCanal or fPoll);
    3376 end; // CompleteJob
     3377end;
    33773378
    33783379{
     
    35953596        begin
    35963597          if execute then
    3597             GiveCivilReport(pTarget, pSender)
     3598            GiveCivilReport(pTarget, pSender);
    35983599        end
    35993600        else if RW[pSender].EnemyReport[pSubject].TurnOfCivilReport < 0 then
     
    36103611        begin
    36113612          if execute then
    3612             GiveMilReport(pTarget, pSender)
     3613            GiveMilReport(pTarget, pSender);
    36133614        end
    36143615        else if RW[pSender].EnemyReport[pSubject].TurnOfMilReport < 0 then
    36153616          result := false
    36163617        else if execute then
    3617           CopyMilReport(pSender, pTarget, pSubject)
     3618          CopyMilReport(pSender, pTarget, pSubject);
    36183619      end;
    36193620    opMap:
     
    36283629        begin // agreed treaty end
    36293630          if execute then
    3630             CancelTreaty(pSender, pTarget, false)
     3631            CancelTreaty(pSender, pTarget, false);
    36313632        end
    36323633        else
     
    37323733      begin
    37333734        if execute then
    3734           CopyModel(pSender, pTarget, Price - opModel)
     3735          CopyModel(pSender, pTarget, Price - opModel);
    37353736      end
    37363737      else
     
    37473748      result:=false
    37483749      end; }
    3749   end
     3750  end;
    37503751end;
    37513752
     
    38953896          begin // make p1 and p2 know each other
    38963897            if RW[p1].Treaty[p2] = trNoContact then
    3897               IntroduceEnemy(p1, p2)
     3898              IntroduceEnemy(p1, p2);
    38983899          end;
    38993900
     
    39413942var
    39423943  i, p1: integer;
    3943 
    39443944begin
    39453945  if Mode = moPlaying then
     
    40324032            DiscoverViewAreas(Player);
    40334033            DiscoverViewAreas(Subject);
    4034             Break
    4035           end
     4034            Break;
     4035          end;
    40364036      end;
    40374037
    40384038    sIntSetDevModel:
    40394039      if Mode < moPlaying then
    4040         move(Data, RW[Player].DevModel.Kind, sIntSetDevModel and $F * 4);
     4040        Move(Data, RW[Player].DevModel.Kind, sIntSetDevModel and $F * 4);
    40414041
    40424042    sIntSetModelStatus:
     
    40714071        RW[Player].EnemyCity[Subject].Status := integer(Data);
    40724072      end;
    4073 
    4074   end; { case command }
    4075 end; { IntServer }
     4073  end;
     4074end;
    40764075
    40774076end.
  • trunk/GameServer.pas

    r435 r442  
    958958  if Mode >= moMovie then
    959959    Notify(ntEndInfo);
    960 end; { StartGame }
     960end;
    961961
    962962procedure EndGame;
     
    13241324  Inform(pTurn);
    13251325  ChangeClientWhenDone(cResume, 0, nil^, 0);
    1326 end; // LoadGame
     1326end;
    13271327
    13281328procedure InsertTerritoryUpdateCommands;
     
    19081908  end;
    19091909  // CheckContact;
    1910 end; { BeforeTurn }
     1910end;
    19111911
    19121912procedure AfterTurn;
     
    20352035          CheckWin(p1);
    20362036  end;
    2037 end; // Afterturn
     2037end;
    20382038
    20392039procedure NextPlayer;
     
    22892289        end;
    22902290  end;
    2291 end; // ExecuteMove
     2291end;
    22922292
    22932293function ExecuteAttack(p, uix, ToLoc: integer; var MoveInfo: TMoveInfo;
     
    25592559    end;
    25602560  end;
    2561 end; // ExecuteAttack
     2561end;
    25622562
    25632563function MoveUnit(p, uix, dx, dy: integer; TestOnly: boolean): integer;
     
    44904490    LastEndClientCommand := Command;
    44914491{$IFOPT O-}dec(nHandoverStack, 2); {$ENDIF}
    4492 end; { <<<server }
     4492end;
    44934493
    44944494
  • trunk/IPQ.pas

    r290 r442  
    88
    99type
    10 
    1110  TIntegerArray = array [0 .. $40000000 div sizeof(integer)] of integer;
    1211  PIntegerArray = ^TIntegerArray;
     
    158157    Ix[last.Item] := i;
    159158  end;
    160   result := True
     159  result := True;
    161160end;
    162161
  • trunk/Inp.pas

    r408 r442  
    2626var
    2727  InputDlg: TInputDlg;
     28
    2829
    2930implementation
  • trunk/LocalPlayer/Battle.pas

    r437 r442  
    200200  IsoMap.PaintUnit(1, 0, UnitInfo, 0);
    201201  BitBltCanvas(ca, xm - 8 - 4 - 66, ym + 8 + 12, 66, 48, Buffer.Canvas, 0, 0);
    202 end; { PaintBattleOutcome }
     202end;
    203203
    204204procedure TBattleDlg.FormCreate(Sender: TObject);
  • trunk/LocalPlayer/CityScreen.pas

    r432 r442  
    10271027
    10281028  MarkUsedOffscreen(ClientWidth, ClientHeight);
    1029 end; { OffscreenPaint }
     1029end;
    10301030
    10311031procedure TCityDlg.FormShow(Sender: TObject);
     
    14081408      end;
    14091409    end;
    1410 end; { FormMouseDown }
     1410end;
    14111411
    14121412procedure TCityDlg.ChooseProject;
  • trunk/LocalPlayer/CityType.pas

    r432 r442  
    189189  end;
    190190  MarkUsedOffscreen(InnerWidth, InnerHeight);
    191 end; { MainPaint }
     191end;
    192192
    193193procedure TCityTypeDlg.LoadType(NewType: integer);
  • trunk/LocalPlayer/ClientTools.pas

    r397 r442  
    316316    UnitInfo := MyRO.EnemyUn[uix];
    317317  end;
    318 end; { GetUnitInfo }
     318end;
    319319
    320320procedure GetCityInfo(Loc: integer; var cix: integer; var CityInfo: TCityInfo);
     
    756756initialization
    757757
    758   Assert(nImp < 128);
    759   CalculateAdvValues;
     758Assert(nImp < 128);
     759CalculateAdvValues;
    760760
    761761end.
  • trunk/LocalPlayer/Diagram.pas

    r431 r442  
    273273    end;
    274274  MarkUsedOffscreen(InnerWidth, InnerHeight);
    275 end; // OffscreenPaint
     275end;
    276276
    277277procedure TDiaDlg.FormPaint(Sender: TObject);
  • trunk/LocalPlayer/Draft.pas

    r437 r442  
    55
    66uses
    7   Protocol, ClientTools, Term, ScreenTools, BaseWin,
    8 
    9   LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
    10   ButtonA,
    11   ButtonB, Area;
     7  Protocol, ClientTools, Term, ScreenTools, BaseWin, LCLIntf, LCLType, SysUtils,
     8  Classes, Graphics, Controls, Forms, ExtCtrls, ButtonA, ButtonB, Area;
    129
    1310type
  • trunk/LocalPlayer/Enhance.pas

    r432 r442  
    55
    66uses
    7   ScreenTools, BaseWin, Protocol, ClientTools, Term, LCLIntf, LCLType,
    8 
    9   SysUtils, Classes, Graphics, Controls, Forms, IsoEngine,
    10   ButtonB, ButtonC, Menus;
     7  ScreenTools, BaseWin, Protocol, ClientTools, Term, LCLIntf, LCLType, SysUtils,
     8  Classes, Graphics, Controls, Forms, IsoEngine, ButtonB, ButtonC, Menus;
    119
    1210type
     
    299297
    300298  MarkUsedOffscreen(InnerWidth, InnerHeight);
    301 end; { OffscreenPaint }
     299end;
    302300
    303301procedure TEnhanceDlg.CloseBtnClick(Sender: TObject);
  • trunk/LocalPlayer/IsoEngine.pas

    r401 r442  
    55
    66uses
    7   Protocol, ClientTools, ScreenTools, Tribes,
    8   LCLIntf, LCLType, SysUtils, Classes, Graphics, UPixelPointer, UGraphicSet;
     7  Protocol, ClientTools, ScreenTools, Tribes, LCLIntf, LCLType, SysUtils,
     8  Classes, Graphics, UPixelPointer, UGraphicSet;
    99
    1010const
     
    719719      end;
    720720    end;
    721 end; { PaintUnit }
     721end;
    722722
    723723procedure TIsoMap.PaintCity(x, y: integer; const CityInfo: TCityInfo;
     
    804804    Textout(xShield + 2, yShield - 1, LabelTextColor, s);
    805805  end;
    806 end; { PaintCity }
     806end;
    807807
    808808function PoleTile(Loc: integer): integer;
     
    13001300      Textout(x + xxt - 16, y + yyt - 9, $00E0FF,
    13011301        IntToStr(integer(DebugMap[Loc])))
    1302 end; { PaintTileObjects }
     1302end;
    13031303
    13041304procedure TIsoMap.PaintGrid(x, y, nx, ny: integer);
     
    16871687
    16881688  // frame(FOutput.Canvas,x+1,y+1,x+nx*33+33-2,y+ny*16+32-2,$FFFF,$FFFF);
    1689 end; { Paint }
     1689end;
    16901690
    16911691procedure TIsoMap.AttackBegin(const ShowMove: TShowMove);
  • trunk/LocalPlayer/MessgEx.pas

    r438 r442  
    55
    66uses
    7   Messg, Protocol, ScreenTools, Platform, DateUtils,
    8   LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms, ButtonA,
    9   ButtonB, StdCtrls, DrawDlg;
     7  Messg, Protocol, ScreenTools, Platform, DateUtils, LCLIntf, LCLType, Messages,
     8  SysUtils, Classes, Graphics, Controls, Forms, ButtonA, ButtonB, StdCtrls,
     9  DrawDlg;
    1010
    1111type
  • trunk/LocalPlayer/NatStat.pas

    r431 r442  
    4848  NatStatDlg: TNatStatDlg;
    4949
     50
    5051implementation
    5152
     
    394395
    395396  MarkUsedOffscreen(ClientWidth, ClientHeight);
    396 end; { OffscreenPaint }
     397end;
    397398
    398399procedure TNatStatDlg.CloseBtnClick(Sender: TObject);
  • trunk/LocalPlayer/Nego.pas

    r432 r442  
    9696  NegoDlg: TNegoDlg;
    9797
     98
    9899implementation
    99100
     
    476477                (ButtonPrice[Tag and $FF] shr 24 in MyAllowed);
    477478              Lit := Delivers[Tag and $FF] <> $FFFFFFFF;
    478             end
     479            end;
    479480        end;
    480481end;
     
    630631
    631632  MarkUsedOffscreen(ClientWidth, ClientHeight);
    632 end; { OffscreenPaint }
     633end;
    633634
    634635procedure TNegoDlg.Initiate;
     
    784785          if a > MaxShipPartPrice then
    785786            a := MaxShipPartPrice;
    786           inc(Price, a)
     787          inc(Price, a);
    787788        end;
    788789      opAllTech:
     
    843844    begin
    844845      SimpleMessage(Phrases.Lookup('MAX2OFFERS'));
    845       exit
     846      exit;
    846847    end;
    847848    Price := ButtonPrice[TButtonN(Sender).Tag and $FF];
     
    886887          if a > MaxShipPartPrice then
    887888            a := MaxShipPartPrice;
    888           inc(Price, a)
     889          inc(Price, a);
    889890        end;
    890891      opAllTech:
     
    906907            Price := opAllModel
    907908          else
    908             Price := OpModel + ModalSelectDlg.result
     909            Price := OpModel + ModalSelectDlg.result;
    909910        end;
    910911      opTreaty:
  • trunk/LocalPlayer/PVSB.pas

    r346 r442  
    55
    66uses
    7   {$IFDEF WINDOWS}
    8   Windows,
    9   {$ENDIF}
     7  {$IFDEF WINDOWS}Windows,{$ENDIF}
    108  Classes, Controls, Forms, LCLIntf, LCLType, LMessages, Messages, SysUtils,
    119  StdCtrls, Math;
  • trunk/LocalPlayer/Rates.pas

    r431 r442  
    55
    66uses
    7   Protocol, ScreenTools, BaseWin, LCLIntf, LCLType,
    8 
    9   SysUtils, Classes, Graphics, Controls, Forms,
    10   ButtonB, ButtonC;
     7  Protocol, ScreenTools, BaseWin, LCLIntf, LCLType, SysUtils, Classes, Graphics,
     8  Controls, Forms, ButtonB, ButtonC;
    119
    1210type
     
    2826var
    2927  RatesDlg: TRatesDlg;
     28
    3029
    3130implementation
  • trunk/LocalPlayer/Select.pas

    r439 r442  
    15191519      Lines[2] := 0;
    15201520    end;
    1521 end; // InitLines
     1521end;
    15221522
    15231523function TListDlg.OnlyChoice(TestKind: TListKind): integer;
  • trunk/LocalPlayer/Term.pas

    r441 r442  
    20822082            s := Tribe[me].TPhrase('AGE0');
    20832083            MessgText :=
    2084               Format(s, [TurnToString(MyRO.Turn), CityName(MyCity[0].ID)])
     2084              Format(s, [TurnToString(MyRO.Turn), CityName(MyCity[0].ID)]);
    20852085          end
    20862086          else
     
    20882088            s := Tribe[me].TString(Phrases2.Lookup('AGE0'));
    20892089            MessgText := Format(s, [TurnToString(MyRO.Turn)]);
    2090           end
     2090          end;
    20912091        end
    20922092        else
     
    83028302end;
    83038303
    8304 initialization
    8305 
    83068304end.
    83078305
  • trunk/LocalPlayer/UnitStat.pas

    r431 r442  
    695695    (ClientWidth - BiColorTextWidth(offscreen.Canvas, Caption)) div 2,
    696696    yCaption, Caption);
    697 end; { OffscreenPaint }
     697end;
    698698
    699699procedure TUnitStatDlg.ModelBoxChange(Sender: TObject);
  • trunk/LocalPlayer/Wonders.pas

    r432 r442  
    281281
    282282  MarkUsedOffscreen(ClientWidth, ClientHeight);
    283 end; { OffscreenPaint }
     283end;
    284284
    285285procedure TWondersDlg.CloseBtnClick(Sender: TObject);
  • trunk/Log.pas

    r438 r442  
    110110        s := s + Tribe[SlotNo[Y, X]].TPhrase('SHORTNAME') + ' | ';
    111111      end;
    112     List.Lines.Add(s)
     112    List.Lines.Add(s);
    113113  end;
    114114  PostMessage(List.Handle, WM_VSCROLL, SB_BOTTOM, 0);
  • trunk/NoTerm.pas

    r417 r442  
    5252procedure Client(Command, Player: integer; var Data); stdcall;
    5353
     54
    5455implementation
    5556
    5657uses
    57   GameServer, log;
     58  GameServer, Log;
    5859
    5960{$R *.lfm}
  • trunk/Packages/CevoComponents/BaseWin.pas

    r440 r442  
    513513MainFormKeyDown := nil;
    514514
    515 finalization
    516 
    517515end.
  • trunk/Packages/CevoComponents/ScreenTools.pas

    r424 r442  
    16441644
    16451645procedure Gtk2Fix;
     1646{$IFDEF UNIX}
    16461647var
    16471648  I: Integer;
     1649{$ENDIF}
    16481650begin
    16491651  {$IFDEF UNIX}
  • trunk/Platform.pas

    r423 r442  
    99
    1010function NowPrecise: TDateTime;
     11
    1112
    1213implementation
  • trunk/Start.pas

    r429 r442  
    19281928end;
    19291929
    1930 
    19311930end.
  • trunk/UBrain.pas

    r424 r442  
    204204end;
    205205
    206 
    207206end.
    208207
  • trunk/UMiniMap.pas

    r381 r442  
    328328end;
    329329
    330 
    331330end.
    332331
  • trunk/UnitProcessing.pas

    r290 r442  
    4343procedure InitGame;
    4444procedure ReleaseGame;
     45
    4546
    4647implementation
     
    132133        begin // p observes tile
    133134          result := coKnown or coTrue;
    134           exit
     135          exit;
    135136        end
    136137        else
    137138          result := coTrue; // p does not observe tile
    138139    end;
    139   end
     140  end;
    140141end;
    141142
     
    187188                  MoveCost := Speed;
    188189                  result := eMountains;
    189                   exit
     190                  exit;
    190191                end;
    191192            end;
     
    207208      dAir:
    208209        MoveCost := 50 * MoveLength; { always valid move }
    209     end
    210   end
     210    end;
     211  end;
    211212end;
    212213
     
    266267        begin
    267268          result := eTreaty;
    268           exit
     269          exit;
    269270        end; // keep peace treaty!
    270271      end;
     
    280281          begin
    281282            result := eNoCapturer;
    282             exit
     283            exit;
    283284          end;
    284285          MoveInfo.MoveType := mtCapture;
     
    289290          begin
    290291            result := eDomainMismatch;
    291             exit
     292            exit;
    292293          end
    293294          else if (PModel.Attack = 0) and
     
    296297          begin
    297298            result := eNoBombarder;
    298             exit
     299            exit;
    299300          end
    300301          else if Movement < 100 then
    301302          begin
    302303            result := eNoTime_Bombard;
    303             exit
     304            exit;
    304305          end;
    305306          MoveInfo.MoveType := mtBombard;
    306307          result := eBombarded;
    307         end
     308        end;
    308309    end;
    309310
     
    328329        MoveInfo.EndHealth := BattleForecast.EndHealthAtt;
    329330        MoveInfo.EndHealthDef := BattleForecast.EndHealthDef;
    330       end
     331      end;
    331332    end
    332333    else // if MoveInfo.MoveType in [mtMove,mtCapture,mtSpyMission] then
     
    382383              then
    383384                Break;
    384             end
     385            end;
    385386      end;
    386387      if result < rExecuted then
     
    401402        begin
    402403          result := eZOC;
    403           exit
     404          exit;
    404405        end
    405406        else if not TestOnly and (DestControlled >= coTrue) then
    406407        begin
    407408          result := eZOC_EnemySpotted;
    408           exit
    409         end
     409          exit;
     410        end;
    410411      end;
    411412      if (Movement = 0) and (ServerVersion[p] >= $0100F1) or
     
    414415        begin
    415416          result := eNoTime_Load;
    416           exit
     417          exit;
    417418        end
    418419        else
    419420        begin
    420421          result := eNoTime_Move;
    421           exit
     422          exit;
    422423        end;
    423424      if (MoveInfo.EndHealth <= 0) or (MoveInfo.MoveType = mtSpyMission) then
     
    433434      MoveInfo.Defender := RealMap[ToLoc] shr 27;
    434435      SearchCity(ToLoc, MoveInfo.Defender, MoveInfo.Dcix);
    435     end
    436   end
    437 end; // CalculateMove
     436    end;
     437  end;
     438end;
    438439
    439440function GetBattleForecast(Loc: integer; var BattleForecast: TBattleForecast;
     
    449450    begin
    450451      result := eOK;
    451       exit
     452      exit;
    452453    end; // no attack, simple move
    453454
     
    459460      EndHealthDef := RW[Defender].Un[Duix].Health;
    460461      result := eOK;
    461       exit
     462      exit;
    462463    end;
    463464
     
    482483      begin
    483484        result := eDomainMismatch;
    484         exit
     485        exit;
    485486      end; // can't attack plane
    486487    end;
     
    492493    begin
    493494      result := eDomainMismatch;
    494       exit
     495      exit;
    495496    end;
    496497    if (PModel.Attack = 0) and not((PModel.Cap[mcBombs] > 0) and
     
    498499    begin
    499500      result := eInvalid;
    500       exit
     501      exit;
    501502    end;
    502503
     
    504505    begin
    505506      result := eNoTime_Attack;
    506       exit
     507      exit;
    507508    end;
    508509
     
    577578        DBaseDamage := 1;
    578579      if DBaseDamage > RW[Defender].Un[Duix].Health then
    579         DBaseDamage := RW[Defender].Un[Duix].Health
     580        DBaseDamage := RW[Defender].Un[Duix].Health;
    580581    end;
    581582
     
    589590        ABaseDamage := 1;
    590591      if ABaseDamage > HealthAtt then
    591         ABaseDamage := HealthAtt
     592        ABaseDamage := HealthAtt;
    592593    end;
    593594
     
    625626      result := eWon
    626627    else
    627       result := eBloody
    628   end
    629 end; // GetBattleForecast
     628      result := eBloody;
     629  end;
     630end;
    630631
    631632function LoadUnit(p, uix: integer; TestOnly: boolean): integer;
     
    654655              begin
    655656                ToMaster := uix1;
    656                 Break
     657                Break;
    657658              end
    658659              else if ToMaster < 0 then
     
    679680          Master := ToMaster;
    680681          UpdateUnitMap(Loc);
    681         end
    682       end
    683     end
    684   end
     682        end;
     683      end;
     684    end;
     685  end;
    685686end;
    686687
     
    721722        UpdateUnitMap(Loc);
    722723      end;
    723     end
     724    end;
    724725end;
    725726
     
    802803  begin
    803804    result := eInvalid;
    804     exit
     805    exit;
    805806  end;
    806807  if (a.ToLoc <> maNextCity) and (Map[a.ToLoc] and fTerrain = fUNKNOWN) then
    807808  begin
    808809    result := eNoWay;
    809     exit
     810    exit;
    810811  end;
    811812
     
    816817        begin
    817818          result := eDomainMismatch;
    818           exit
     819          exit;
    819820        end
    820821        else
     
    843844        begin
    844845          result := eDomainMismatch;
    845           exit
     846          exit;
    846847        end
    847848        else
     
    859860          maxmov := Speed;
    860861          initmov := 0;
    861         end
     862        end;
    862863    end;
    863864
     
    873874    begin
    874875      Loc := -1;
    875       Break
     876      Break;
    876877    end;
    877878    FromTile := Map[Loc];
     
    10291030                From[Loc1] := Loc;
    10301031                Damage[Loc1] := Damage[Loc] + AddDamage;
    1031               end
    1032           end
    1033         end
    1034       end
    1035     end
     1032              end;
     1033          end;
     1034        end;
     1035      end;
     1036    end;
    10361037  end;
    10371038  FreeAndNil(Q);
     
    10741075
    10751076  // QueryPerformanceCounter(tt);{time in s is: (tt-tt0)/PerfFreq}
    1076 end; // GetMoveAdvice
     1077end;
    10771078
    10781079function CanPlaneReturn(p, uix: integer;
     
    11291130    begin
    11301131      result := false;
    1131       Break
     1132      Break;
    11321133    end;
    11331134    if MapFlags[Loc] and mfEnd <> 0 then
    11341135    begin
    11351136      result := true;
    1136       Break
     1137      Break;
    11371138    end;
    11381139    FromTile := Map[Loc];
     
    11611162            T1 := T + MoveCost shl 8;
    11621163          Q.Put(Loc1, T1);
    1163         end
    1164       end
    1165     end
     1164        end;
     1165      end;
     1166    end;
    11661167  end;
    11671168  FreeAndNil(Q);
    1168 end; // CanPlaneReturn
     1169end;
    11691170
    11701171{
     
    11951196              inc(JobWork, RoadBridgeWork) { across river }
    11961197            else
    1197               result := eNoBridgeBuilding
     1198              result := eNoBridgeBuilding;
    11981199        end
    11991200        else
     
    12231224          if (IrrEff = 0) or (RealMap[Loc] and fTerImp = tiIrrigation) or
    12241225            (RealMap[Loc] and fTerImp = tiFarm) then
    1225             result := eInvalid
     1226            result := eInvalid;
    12261227        end;
    12271228      jFarm:
     
    12321233          JobWork := IrrClearWork * FarmWork;
    12331234          if (JobWork <= 0) or (RealMap[Loc] and fTerImp = tiFarm) then
    1234             result := eInvalid
     1235            result := eInvalid;
    12351236        end;
    12361237      jAfforest:
     
    12431244          JobWork := MineAfforestWork;
    12441245          if (MineEff = 0) or (RealMap[Loc] and fTerImp = tiMine) then
    1245             result := eInvalid
     1246            result := eInvalid;
    12461247        end;
    12471248      jFort:
     
    12601261          JobWork := TransWork;
    12611262          if JobWork <= 0 then
    1262             result := eInvalid
     1263            result := eInvalid;
    12631264        end;
    12641265      jPoll:
     
    12781279          result := eInvalid;
    12791280    end;
    1280 end; // CalculateJobWork
     1281end;
    12811282
    12821283function StartJob(p, uix, NewJob: integer; TestOnly: boolean): integer;
     
    12911292    begin
    12921293      result := eNotChanged;
    1293       exit
     1294      exit;
    12941295    end;
    12951296    if NewJob = jNone then
     
    12971298      if not TestOnly then
    12981299        Job := jNone;
    1299       exit
     1300      exit;
    13001301    end;
    13011302    Loc0 := Loc;
     
    13041305    begin
    13051306      result := eDeadLands;
    1306       exit
     1307      exit;
    13071308    end;
    13081309    TerrType := RealMap[Loc0] and fTerrain;
     
    13141315    begin
    13151316      result := eInvalid;
    1316       exit
     1317      exit;
    13171318    end;
    13181319    if (JobPreq[NewJob] <> preNone) and
     
    13201321    begin
    13211322      result := eNoPreq;
    1322       exit
     1323      exit;
    13231324    end;
    13241325
     
    13471348    begin
    13481349      RemoveUnit_UpdateMap(p, uix);
    1349       result := eCity
     1350      result := eCity;
    13501351    end
    13511352    else if Health <= 0 then
     
    13611362        Discover21(Loc0, p, lObserveUnhidden, true, true);
    13621363        // CheckContact;
    1363       end
    1364     end
    1365   end; // with
    1366 end; // StartJob
     1364      end;
     1365    end;
     1366  end;
     1367end;
    13671368
    13681369function Work(p, uix: integer): boolean;
     
    14221423        end
    14231424    end
    1424 end; // work
     1425end;
    14251426
    14261427function GetJobProgress(p, Loc: integer;
     
    14381439      else
    14391440        JobProgressData[Job].Done := JobProgressData[Job].Required -
    1440           ToWork[Loc, Job]
     1441          ToWork[Loc, Job];
    14411442    end
    14421443    else
Note: See TracChangeset for help on using the changeset viewer.