Changeset 304 for trunk

Timestamp:

Mar 9, 2021, 10:05:19 AM (3 years ago)

Author:

chronos

Message:

• Modified: Show configured homepage and contact page in C-evo start screen menu and help.

Location:

trunk

Files:

• Global.pas (modified) (1 diff)
• Language2.txt (modified) (1 diff)
• LocalPlayer/Help.pas (modified) (5 diffs)
• Localization/cs/Language2.txt (modified) (1 diff)
• Localization/it/Language2.txt (modified) (1 diff)
• Start.pas (modified) (1 diff)

trunk/Global.pas

@@ -7 +7 @@
   CevoMapExt = '.cevo map';
   CevoTribeExt = '.tribe.txt';
-  CevoHomepage = 'https://app.zdechov.net/c-evo';
-  CevoContact = 'https://app.zdechov.net/c-evo#Contact';
+  CevoHomepageShort = 'app.zdechov.net/c-evo';
+  CevoHomepage = 'https://' + CevoHomepageShort;
+  CevoContactShort = 'app.zdechov.net/c-evo#Contact';
+  CevoContact = 'https://' + CevoContactShort;
   CevoContactBug = 'https://app.zdechov.net/c-evo/report/1';
   AppRegistryKey = '\SOFTWARE\C-evo';
-  AITemplateFileName = 'AI Template' + DirectorySeparator + 'AI development manual.html';
+  AITemplateManual = 'AI development manual';
+  AITemplateFileName = 'AI Template' + DirectorySeparator + AITemplateManual + '.html';
 
 

trunk/Language2.txt

@@ -35 +35 @@
 #ACTIONHEADER_AIDEV AI Development
 #ACTION_AIDEV Learn how to code your own AI for this game
-#ACTIONHEADER_WEB On the web: c-evo.org
+#ACTIONHEADER_WEB On the web: %s
 
 'Message Text

trunk/LocalPlayer/Help.pas

@@ -241 +241 @@
 
   nSeeAlso = 14;
-  SeeAlso: array [0 .. nSeeAlso - 1] of record Kind, no, SeeKind,
-    SeeNo: integer end = ((Kind: hkImp; no: imWalls; SeeKind: hkFeature;
+  SeeAlso: array [0 .. nSeeAlso - 1] of record
+    Kind: Integer;
+    no: Integer;
+    SeeKind: Integer;
+    SeeNo: Integer;
+  end = ((Kind: hkImp; no: imWalls; SeeKind: hkFeature;
     SeeNo: mcArtillery), (Kind: hkImp; no: imHydro; SeeKind: hkImp;
     SeeNo: woHoover), (Kind: hkImp; no: imWalls; SeeKind: hkImp;
@@ -358 +362 @@
     Line(Canvas, Sel, false);
     Sel := -1
-  end
+  end;
 end;
 
@@ -436 +440 @@
     if (Kind = hkMisc) and (no = miscMain) then
       ca.Font.Assign(UniFont[ftNormal]);
-  end
+  end;
 end;
 
@@ -984 +988 @@
   procedure AddTextual(s: string);
   var
-    i, p, l, ofs, CurrentFormat, FollowFormat, Picpix, LinkCategory, LinkIndex,
-      RightMargin: integer;
+    i: Integer;
+    p: Integer;
+    l: Integer;
+    ofs: Integer;
+    CurrentFormat: Integer;
+    FollowFormat: Integer;
+    Picpix: Integer;
+    LinkCategory: Integer;
+    LinkIndex: Integer;
+    RightMargin: Integer;
     Name: string;
+    Text: string;
   begin
     RightMargin := InnerWidth - 16 - GetSystemMetrics(SM_CXVSCROLL);
@@ -1133 +1146 @@
             Break;
         until (p >= Length(s)) or (s[l + 1] = '\');
-        MainText.AddLine(Copy(s, 1, l), CurrentFormat, Picpix, LinkCategory,
+        Text := Copy(s, 1, l);
+        if LinkCategory and $3f = hkInternet then begin
+          if LinkIndex = 1 then Text := AITemplateManual
+          else if LinkIndex = 2 then Text := CevoHomepageShort
+          else if LinkIndex = 3 then Text := CevoContactShort;
+        end;
+        MainText.AddLine(Text, CurrentFormat, Picpix, LinkCategory,
           LinkIndex);
         if (l < Length(s)) and (s[l + 1] = '\') then

trunk/Localization/cs/Language2.txt

@@ -35 +35 @@
 #ACTIONHEADER_AIDEV Vývoj AI
 #ACTION_AIDEV Jak naprogramovat vlastní AI pro tuto hru
-#ACTIONHEADER_WEB Na webu: c-evo.org
+#ACTIONHEADER_WEB Na webu: %s
 
 'Message Text

trunk/Localization/it/Language2.txt

@@ -35 +35 @@
 #ACTIONHEADER_AIDEV Sviluppo I.A.
 #ACTION_AIDEV Impara a programmare la tua I.A. per questo gioco
-#ACTIONHEADER_WEB Sul web: c-evo.org
+#ACTIONHEADER_WEB Sul web: %s
 
 'Message Text

trunk/Start.pas

@@ -873 +873 @@
               // Canvas.Font.Style:=Canvas.Font.Style+[fsUnderline];
               RisedTextOut(Canvas, xActionIcon + 99, y,
-                Phrases2.Lookup('ACTIONHEADER_WEB'));
+                Format(Phrases2.Lookup('ACTIONHEADER_WEB'), [CevoHomepageShort]));
               Canvas.Font.Assign(UniFont[ftNormal]);
               // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it