Changeset 304
- Timestamp:
- Mar 9, 2021, 10:05:19 AM (4 years ago)
- Location:
- trunk
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Global.pas
r301 r304 7 7 CevoMapExt = '.cevo map'; 8 8 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; 11 13 CevoContactBug = 'https://app.zdechov.net/c-evo/report/1'; 12 14 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'; 14 17 15 18 -
trunk/Language2.txt
r20 r304 35 35 #ACTIONHEADER_AIDEV AI Development 36 36 #ACTION_AIDEV Learn how to code your own AI for this game 37 #ACTIONHEADER_WEB On the web: c-evo.org37 #ACTIONHEADER_WEB On the web: %s 38 38 39 39 'Message Text -
trunk/LocalPlayer/Help.pas
r290 r304 241 241 242 242 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; 245 249 SeeNo: mcArtillery), (Kind: hkImp; no: imHydro; SeeKind: hkImp; 246 250 SeeNo: woHoover), (Kind: hkImp; no: imWalls; SeeKind: hkImp; … … 358 362 Line(Canvas, Sel, false); 359 363 Sel := -1 360 end 364 end; 361 365 end; 362 366 … … 436 440 if (Kind = hkMisc) and (no = miscMain) then 437 441 ca.Font.Assign(UniFont[ftNormal]); 438 end 442 end; 439 443 end; 440 444 … … 984 988 procedure AddTextual(s: string); 985 989 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; 988 1000 Name: string; 1001 Text: string; 989 1002 begin 990 1003 RightMargin := InnerWidth - 16 - GetSystemMetrics(SM_CXVSCROLL); … … 1133 1146 Break; 1134 1147 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, 1136 1155 LinkIndex); 1137 1156 if (l < Length(s)) and (s[l + 1] = '\') then -
trunk/Localization/cs/Language2.txt
r64 r304 35 35 #ACTIONHEADER_AIDEV Vývoj AI 36 36 #ACTION_AIDEV Jak naprogramovat vlastní AI pro tuto hru 37 #ACTIONHEADER_WEB Na webu: c-evo.org37 #ACTIONHEADER_WEB Na webu: %s 38 38 39 39 'Message Text -
trunk/Localization/it/Language2.txt
r77 r304 35 35 #ACTIONHEADER_AIDEV Sviluppo I.A. 36 36 #ACTION_AIDEV Impara a programmare la tua I.A. per questo gioco 37 #ACTIONHEADER_WEB Sul web: c-evo.org37 #ACTIONHEADER_WEB Sul web: %s 38 38 39 39 'Message Text -
trunk/Start.pas
r295 r304 873 873 // Canvas.Font.Style:=Canvas.Font.Style+[fsUnderline]; 874 874 RisedTextOut(Canvas, xActionIcon + 99, y, 875 Phrases2.Lookup('ACTIONHEADER_WEB'));875 Format(Phrases2.Lookup('ACTIONHEADER_WEB'), [CevoHomepageShort])); 876 876 Canvas.Font.Assign(UniFont[ftNormal]); 877 877 // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it
Note:
See TracChangeset
for help on using the changeset viewer.