Changeset 447 for trunk/LocalPlayer/Diplomacy.pas

Timestamp:

May 19, 2022, 10:39:34 PM (2 years ago)

Author:

chronos

Message:

• Modified: Use first capital letter in identifiers.

File:

• trunk/LocalPlayer/Diplomacy.pas (modified) (9 diffs)

trunk/LocalPlayer/Diplomacy.pas

@@ -7 +7 @@
 
 function DipCommandToString(pSender, pTarget, Treaty, OppCommand,
-  Command: integer; const OppOffer, Offer: TOffer): string;
+  Command: Integer; const OppOffer, Offer: TOffer): string;
 
 implementation
@@ -16 +16 @@
 function DipCommandToString;
 
-  function PriceToString(p, Price: integer): string;
+  function PriceToString(P, Price: Integer): string;
   begin
     case Price and opMask of
       opChoose:
-        result := Phrases.Lookup('PRICE_CHOOSE');
+        Result := Phrases.Lookup('PRICE_CHOOSE');
       opCivilReport:
-        result := Tribe[p].TPhrase('PRICE_CIVIL');
+        Result := Tribe[P].TPhrase('PRICE_CIVIL');
       opMilReport:
-        result := Tribe[p].TPhrase('PRICE_MIL');
+        Result := Tribe[P].TPhrase('PRICE_MIL');
       opMap:
-        result := Tribe[p].TPhrase('PRICE_MAP');
+        Result := Tribe[P].TPhrase('PRICE_MAP');
       opTreaty:
         { if Price-opTreaty<Treaty then
           case Treaty of
-          trPeace: result:=Phrases.Lookup('FRENDTREATY_PEACE');
-          trFriendlyContact: result:=Phrases.Lookup('FRENDTREATY_FRIENDLY');
-          trAlliance: result:=Phrases.Lookup('FRENDTREATY_ALLIANCE');
-          end
-          else } result := Phrases.Lookup('TREATY', Price - opTreaty);
+          trPeace: Result:=Phrases.Lookup('FRENDTREATY_PEACE');
+          trFriendlyContact: Result:=Phrases.Lookup('FRENDTREATY_FRIENDLY');
+          trAlliance: Result:=Phrases.Lookup('FRENDTREATY_ALLIANCE');
+          end
+          else } Result := Phrases.Lookup('TREATY', Price - opTreaty);
       opShipParts:
         case Price shr 16 and $F of
           0:
-            result := Format(Phrases.Lookup('PRICE_SHIPCOMP'),
+            Result := Format(Phrases.Lookup('PRICE_SHIPCOMP'),
               [Price and $FFFF]);
           1:
-            result := Format(Phrases.Lookup('PRICE_SHIPPOW'),
+            Result := Format(Phrases.Lookup('PRICE_SHIPPOW'),
               [Price and $FFFF]);
           2:
-            result := Format(Phrases.Lookup('PRICE_SHIPHAB'),
+            Result := Format(Phrases.Lookup('PRICE_SHIPHAB'),
               [Price and $FFFF]);
         end;
       opMoney:
-        result := Format('%d%%c', [Price - opMoney]);
+        Result := Format('%d%%c', [Price - opMoney]);
       opTribute:
-        result := Format(Phrases.Lookup('PRICE_TRIBUTE'), [Price - opTribute]);
+        Result := Format(Phrases.Lookup('PRICE_TRIBUTE'), [Price - opTribute]);
       opTech:
-        result := Phrases.Lookup('ADVANCES', Price - opTech);
+        Result := Phrases.Lookup('ADVANCES', Price - opTech);
       opAllTech:
-        result := Tribe[p].TPhrase('PRICE_ALLTECH');
+        Result := Tribe[P].TPhrase('PRICE_ALLTECH');
       opModel:
-        result := Tribe[p].ModelName[Price - opModel];
+        Result := Tribe[P].ModelName[Price - opModel];
       opAllModel:
-        result := Tribe[p].TPhrase('PRICE_ALLMODEL');
+        Result := Tribe[P].TPhrase('PRICE_ALLMODEL');
       { opCity:
-        result:=Format(TPhrase('PRICE_CITY',p),[CityName(Price-opCity)]); }
+        Result:=Format(TPhrase('PRICE_CITY',P),[CityName(Price-opCity)]); }
     end
   end;
 
 var
-  i: integer;
+  I: Integer;
   sAdd, sDeliver, sCost: string;
-  DoIntro: boolean;
+  DoIntro: Boolean;
 begin
   DoIntro := OppCommand = scDipStart;
@@ -75 +75 @@
         case Treaty of
           trPeace:
-            result := Phrases.Lookup('FRCANCELTREATY_PEACE');
+            Result := Phrases.Lookup('FRCANCELTREATY_PEACE');
           trFriendlyContact:
-            result := Phrases.Lookup('FRCANCELTREATY_FRIENDLY');
+            Result := Phrases.Lookup('FRCANCELTREATY_FRIENDLY');
           trAlliance:
-            result := Phrases.Lookup('FRCANCELTREATY_ALLIANCE');
-        end;
-        DoIntro := false;
+            Result := Phrases.Lookup('FRCANCELTREATY_ALLIANCE');
+        end;
+        DoIntro := False;
       end;
     scDipNotice:
-      result := Phrases.Lookup('FRNOTICE');
+      Result := Phrases.Lookup('FRNOTICE');
     scDipAccept:
       begin
         if (OppOffer.nDeliver + OppOffer.nCost = 1) and
           (OppOffer.Price[0] and opMask = opTreaty) and
-          (integer(OppOffer.Price[0] - opTreaty) > Treaty) then
+          (Integer(OppOffer.Price[0] - opTreaty) > Treaty) then
         // simple treaty offer
           { if OppOffer.Price[0]-opTreaty=trCeaseFire then
-            result:=Tribe[pTarget].TPhrase('FRACCEPTCEASEFIRE')
-            else } result := Tribe[pTarget].TPhrase('FRACCEPTTREATY')
+            Result:=Tribe[pTarget].TPhrase('FRACCEPTCEASEFIRE')
+            else } Result := Tribe[pTarget].TPhrase('FRACCEPTTREATY')
         else if OppOffer.nDeliver = 0 then
-          result := Tribe[pSender].TPhrase('FRACCEPTDEMAND_STRONG')
+          Result := Tribe[pSender].TPhrase('FRACCEPTDEMAND_STRONG')
         else if OppOffer.nCost = 0 then
-          result := Tribe[pSender].TPhrase('FRACCEPTPRESENT')
+          Result := Tribe[pSender].TPhrase('FRACCEPTPRESENT')
         else
-          result := Tribe[pSender].TPhrase('FRACCEPTOFFER');
+          Result := Tribe[pSender].TPhrase('FRACCEPTOFFER');
       end;
     scDipBreak:
       begin
-        result := Tribe[pTarget].TPhrase('FRBREAK');
-        DoIntro := false;
+        Result := Tribe[pTarget].TPhrase('FRBREAK');
+        DoIntro := False;
       end;
     scDipOffer:
       begin
-        result := '';
+        Result := '';
         if (OppCommand = scDipOffer) and
           ((OppOffer.nDeliver > 0) or (OppOffer.nCost > 0)) and
@@ -115 +115 @@
           if (OppOffer.nDeliver + OppOffer.nCost = 1) and
             (OppOffer.Price[0] and opMask = opTreaty) and
-            (integer(OppOffer.Price[0] - opTreaty) > Treaty) then
+            (Integer(OppOffer.Price[0] - opTreaty) > Treaty) then
           // simple treaty offer
-            result := Tribe[pSender].TPhrase('FRNOTACCEPTTREATY') + '\'
+            Result := Tribe[pSender].TPhrase('FRNOTACCEPTTREATY') + '\'
           else if OppOffer.nDeliver = 0 then
-            result := Tribe[pSender].TPhrase('FRNOTACCEPTDEMAND_STRONG') + '\'
+            Result := Tribe[pSender].TPhrase('FRNOTACCEPTDEMAND_STRONG') + '\'
           else if OppOffer.nCost = 0 then
-            result := Tribe[pSender].TPhrase('FRNOTACCEPTPRESENT') + '\';
+            Result := Tribe[pSender].TPhrase('FRNOTACCEPTPRESENT') + '\';
         end;
 
         sDeliver := '';
-        for i := 0 to Offer.nDeliver - 1 do
-        begin
-          sAdd := PriceToString(pSender, Offer.Price[i]);
-          if i = 0 then
+        for I := 0 to Offer.nDeliver - 1 do
+        begin
+          sAdd := PriceToString(pSender, Offer.Price[I]);
+          if I = 0 then
             sDeliver := sAdd
           else
@@ -134 +134 @@
         end;
         sCost := '';
-        for i := 0 to Offer.nCost - 1 do
-        begin
-          sAdd := PriceToString(pTarget, Offer.Price[Offer.nDeliver + i]);
-          if i = 0 then
+        for I := 0 to Offer.nCost - 1 do
+        begin
+          sAdd := PriceToString(pTarget, Offer.Price[Offer.nDeliver + I]);
+          if I = 0 then
             sCost := sAdd
           else
@@ -147 +147 @@
           if (OppCommand = scDipOffer) and
             ((OppOffer.nDeliver = 0) and (OppOffer.nCost = 0)) then
-            result := Tribe[pTarget].TPhrase('FRBYE')
+            Result := Tribe[pTarget].TPhrase('FRBYE')
           else
           begin
-            if (result = '') and (OppCommand = scDipOffer) and
+            if (Result = '') and (OppCommand = scDipOffer) and
               ((OppOffer.nDeliver > 0) or (OppOffer.nCost > 0)) then
             begin
               if (OppOffer.nDeliver = 1) and (OppOffer.Price[0] = opChoose) and
                 not Phrases2FallenBackToEnglish then
-                result := Tribe[pSender].TString
+                Result := Tribe[pSender].TString
                   (Phrases2.Lookup('FRNOTACCEPTANYOFFER')) + ' '
               else if (OppOffer.nCost = 1) and
                 (OppOffer.Price[OppOffer.nDeliver] = opChoose) and not Phrases2FallenBackToEnglish
               then
-                result := Tribe[pSender].TString
+                Result := Tribe[pSender].TString
                   (Phrases2.Lookup('FRNOTACCEPTANYWANT')) + ' '
               else
-                result := Tribe[pSender].TPhrase('FRNOTACCEPTOFFER') + ' ';
+                Result := Tribe[pSender].TPhrase('FRNOTACCEPTOFFER') + ' ';
             end;
-            result := result + Phrases.Lookup('FRDONE');
-            DoIntro := false
+            Result := Result + Phrases.Lookup('FRDONE');
+            DoIntro := False
           end
         end
         else if (Offer.nDeliver + Offer.nCost = 1) and
           (Offer.Price[0] and opMask = opTreaty) and
-          (integer(Offer.Price[0] - opTreaty) > Treaty) then
+          (Integer(Offer.Price[0] - opTreaty) > Treaty) then
         // simple treaty offer
         begin
@@ -177 +177 @@
             // trCeaseFire: result:=result+Tribe[pTarget].TPhrase('FRCEASEFIRE');
             trPeace:
-              result := result + Tribe[pTarget].TPhrase('FRPEACE');
+              Result := Result + Tribe[pTarget].TPhrase('FRPEACE');
             trFriendlyContact:
-              result := result + Tribe[pTarget].TPhrase('FRFRIENDLY');
+              Result := Result + Tribe[pTarget].TPhrase('FRFRIENDLY');
             trAlliance:
-              result := result + Tribe[pTarget].TPhrase('FRALLIANCE');
+              Result := Result + Tribe[pTarget].TPhrase('FRALLIANCE');
           end
         end
@@ -188 +188 @@
           if (Treaty >= trFriendlyContact) and not Phrases2FallenBackToEnglish
           then
-            result := result +
+            Result := Result +
               Format(Tribe[pTarget].TString(Phrases2.Lookup('FRDEMAND_SOFT')
               ), [sCost])
           else
           begin
-            result := result +
+            Result := Result +
               Format(Tribe[pTarget].TPhrase('FRDEMAND_STRONG'), [sCost]);
-            DoIntro := false
+            DoIntro := False
           end
         end
         else if Offer.nCost = 0 then // present
-          result := result + Format(Tribe[pTarget].TPhrase('FRPRESENT'),
+          Result := Result + Format(Tribe[pTarget].TPhrase('FRPRESENT'),
             [sDeliver])
         else if (Offer.nDeliver = 1) and (Offer.Price[0] = opChoose) then
-          result := result + Format(Phrases.Lookup('FRDELCHOICE'), [sCost])
+          Result := Result + Format(Phrases.Lookup('FRDELCHOICE'), [sCost])
         else if (Offer.nCost = 1) and (Offer.Price[Offer.nDeliver] = opChoose)
         then
-          result := result + Format(Phrases.Lookup('FRCOSTCHOICE'), [sDeliver])
+          Result := Result + Format(Phrases.Lookup('FRCOSTCHOICE'), [sDeliver])
         else
-          result := result + Format(Phrases.Lookup('FROFFER'),
+          Result := Result + Format(Phrases.Lookup('FROFFER'),
             [sDeliver, sCost]);
       end;
@@ -213 +213 @@
   if DoIntro then
     if Treaty < trPeace then
-      result := Tribe[pSender].TPhrase('FRSTART_NOTREATY') + ' ' + result
+      Result := Tribe[pSender].TPhrase('FRSTART_NOTREATY') + ' ' + Result
     else
-      result := Tribe[pSender].TPhrase('FRSTART_PEACE') + ' ' + result
+      Result := Tribe[pSender].TPhrase('FRSTART_PEACE') + ' ' + Result
 end;