Changeset 135 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

• Modified: More detailed help.

Location:

trunk/Forms

Files:

• UFormHelp.lfm (modified) (1 diff)
• UFormHelp.pas (modified) (2 diffs)

trunk/Forms/UFormHelp.lfm

@@ -1 +1 @@
 object FormHelp: TFormHelp
-  Left = 560
-  Height = 223
-  Top = 144
-  Width = 424
+  Left = 566
+  Height = 663
+  Top = 237
+  Width = 1012
   Caption = 'Help'
-  ClientHeight = 223
-  ClientWidth = 424
+  ClientHeight = 663
+  ClientWidth = 1012
   Constraints.MinHeight = 223
   Constraints.MinWidth = 424
   OnCreate = FormCreate
   Position = poMainFormCenter
-  LCLVersion = '1.4.4.0'
+  LCLVersion = '1.6.4.0'
   object Memo1: TMemo
     Left = 6
-    Height = 211
+    Height = 651
     Top = 6
-    Width = 412
+    Width = 1000
     Align = alClient
     BorderSpacing.Around = 6
-    Lines.Strings = (
-      '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.'
-    )
     ReadOnly = True
     ScrollBars = ssAutoBoth

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;