Changeset 304


Ignore:
Timestamp:
Mar 9, 2021, 10:05:19 AM (4 years ago)
Author:
chronos
Message:
  • Modified: Show configured homepage and contact page in C-evo start screen menu and help.
Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • trunk/Global.pas

    r301 r304  
    77  CevoMapExt = '.cevo map';
    88  CevoTribeExt = '.tribe.txt';
    9   CevoHomepage = 'https://app.zdechov.net/c-evo';
    10   CevoContact = 'https://app.zdechov.net/c-evo#Contact';
     9  CevoHomepageShort = 'app.zdechov.net/c-evo';
     10  CevoHomepage = 'https://' + CevoHomepageShort;
     11  CevoContactShort = 'app.zdechov.net/c-evo#Contact';
     12  CevoContact = 'https://' + CevoContactShort;
    1113  CevoContactBug = 'https://app.zdechov.net/c-evo/report/1';
    1214  AppRegistryKey = '\SOFTWARE\C-evo';
    13   AITemplateFileName = 'AI Template' + DirectorySeparator + 'AI development manual.html';
     15  AITemplateManual = 'AI development manual';
     16  AITemplateFileName = 'AI Template' + DirectorySeparator + AITemplateManual + '.html';
    1417
    1518
  • trunk/Language2.txt

    r20 r304  
    3535#ACTIONHEADER_AIDEV AI Development
    3636#ACTION_AIDEV Learn how to code your own AI for this game
    37 #ACTIONHEADER_WEB On the web: c-evo.org
     37#ACTIONHEADER_WEB On the web: %s
    3838
    3939'Message Text
  • trunk/LocalPlayer/Help.pas

    r290 r304  
    241241
    242242  nSeeAlso = 14;
    243   SeeAlso: array [0 .. nSeeAlso - 1] of record Kind, no, SeeKind,
    244     SeeNo: integer end = ((Kind: hkImp; no: imWalls; SeeKind: hkFeature;
     243  SeeAlso: array [0 .. nSeeAlso - 1] of record
     244    Kind: Integer;
     245    no: Integer;
     246    SeeKind: Integer;
     247    SeeNo: Integer;
     248  end = ((Kind: hkImp; no: imWalls; SeeKind: hkFeature;
    245249    SeeNo: mcArtillery), (Kind: hkImp; no: imHydro; SeeKind: hkImp;
    246250    SeeNo: woHoover), (Kind: hkImp; no: imWalls; SeeKind: hkImp;
     
    358362    Line(Canvas, Sel, false);
    359363    Sel := -1
    360   end
     364  end;
    361365end;
    362366
     
    436440    if (Kind = hkMisc) and (no = miscMain) then
    437441      ca.Font.Assign(UniFont[ftNormal]);
    438   end
     442  end;
    439443end;
    440444
     
    984988  procedure AddTextual(s: string);
    985989  var
    986     i, p, l, ofs, CurrentFormat, FollowFormat, Picpix, LinkCategory, LinkIndex,
    987       RightMargin: integer;
     990    i: Integer;
     991    p: Integer;
     992    l: Integer;
     993    ofs: Integer;
     994    CurrentFormat: Integer;
     995    FollowFormat: Integer;
     996    Picpix: Integer;
     997    LinkCategory: Integer;
     998    LinkIndex: Integer;
     999    RightMargin: Integer;
    9881000    Name: string;
     1001    Text: string;
    9891002  begin
    9901003    RightMargin := InnerWidth - 16 - GetSystemMetrics(SM_CXVSCROLL);
     
    11331146            Break;
    11341147        until (p >= Length(s)) or (s[l + 1] = '\');
    1135         MainText.AddLine(Copy(s, 1, l), CurrentFormat, Picpix, LinkCategory,
     1148        Text := Copy(s, 1, l);
     1149        if LinkCategory and $3f = hkInternet then begin
     1150          if LinkIndex = 1 then Text := AITemplateManual
     1151          else if LinkIndex = 2 then Text := CevoHomepageShort
     1152          else if LinkIndex = 3 then Text := CevoContactShort;
     1153        end;
     1154        MainText.AddLine(Text, CurrentFormat, Picpix, LinkCategory,
    11361155          LinkIndex);
    11371156        if (l < Length(s)) and (s[l + 1] = '\') then
  • trunk/Localization/cs/Language2.txt

    r64 r304  
    3535#ACTIONHEADER_AIDEV Vývoj AI
    3636#ACTION_AIDEV Jak naprogramovat vlastní AI pro tuto hru
    37 #ACTIONHEADER_WEB Na webu: c-evo.org
     37#ACTIONHEADER_WEB Na webu: %s
    3838
    3939'Message Text
  • trunk/Localization/it/Language2.txt

    r77 r304  
    3535#ACTIONHEADER_AIDEV Sviluppo I.A.
    3636#ACTION_AIDEV Impara a programmare la tua I.A. per questo gioco
    37 #ACTIONHEADER_WEB Sul web: c-evo.org
     37#ACTIONHEADER_WEB Sul web: %s
    3838
    3939'Message Text
  • trunk/Start.pas

    r295 r304  
    873873              // Canvas.Font.Style:=Canvas.Font.Style+[fsUnderline];
    874874              RisedTextOut(Canvas, xActionIcon + 99, y,
    875                 Phrases2.Lookup('ACTIONHEADER_WEB'));
     875                Format(Phrases2.Lookup('ACTIONHEADER_WEB'), [CevoHomepageShort]));
    876876              Canvas.Font.Assign(UniFont[ftNormal]);
    877877              // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it
Note: See TracChangeset for help on using the changeset viewer.