Changeset 135 for trunk/Forms/UFormHelp.pas

Timestamp:

Jul 5, 2017, 9:56:03 PM (7 years ago)

Author:

chronos

Message:

• Modified: More detailed help.

File:

• trunk/Forms/UFormHelp.pas (modified) (2 diffs)

trunk/Forms/UFormHelp.pas

@@ -24 +24 @@
   FormHelp: TFormHelp;
 
+
 implementation
+
+uses
+  UCore;
+
+resourcestring
+  SContent = 'xTactics is a risk based strategic game. Main focus of the game ' +
+    'is to offer player various possibilities to configure game conditions. ' +
+    'Map for game is generated randomly for each play. Game is multiplayer so ' +
+    'single player can play with other human opponents or with many computer ' +
+    'opponents.' + LineEnding + LineEnding +
+    'Each cell has defined number of units which can be instructed to attack ' +
+    'enemy or neutral adjecent cells. Units can also defend against enemy attach from adjecent cells. ' +
+    'You can move units inside your territory. ' + LineEnding +
+    'Number of units in cells grows by square root of number of units. More units cell contains, more ' +
+    'units is added each turn. Maximum number to which units grow is 99. Cell can ' +
+    'have more units but excessive cells will die gradually every turn to balance to number 99.' +
+    LineEnding + LineEnding +
+    'Resolution of attach of units is determined by rule similar to one which is ' +
+    'used in Risk game. Battle consist of several fights. Each fight attacker can use ' +
+    'up to 3 units and defender up to 2 units. Number of units for each side determine ' +
+    'number of dices. Both sides roll their dices and order them in descending order.' +
+    'Each side takes one dice with highest value. One who has dice with higher value wins. ' +
+    'In case of tie, defender wins. Loser lose its unit and another pair of dices is evaluated. ' +
+    'This process is calculated automatically and for each planned attack win ' +
+    'probability is displayed.';
 
 {$R *.lfm}
@@ -32 +58 @@
 procedure TFormHelp.FormCreate(Sender: TObject);
 begin
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
+  Memo1.Lines.Text := SContent;
 end;