source: trunk/Forms/FormHelp.pas

Last change on this file was 362, checked in by chronos, 6 months ago
  • Added: Close button on more forms for better touch screen devices support.
File size: 2.5 KB
Line 
1unit FormHelp;
2
3interface
4
5uses
6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
7 FormEx;
8
9type
10
11 { TFormHelp }
12
13 TFormHelp = class(TFormEx)
14 ButtonClose: TButton;
15 Memo1: TMemo;
16 procedure FormCreate(Sender: TObject);
17 end;
18
19
20implementation
21
22resourcestring
23 SContent = 'xTactics is a risk based strategic game. Main focus of the game ' +
24 'is to offer player various possibilities to configure game conditions. ' +
25 'Map for game is generated randomly for each play. Game is multiplayer so ' +
26 'single player can play with other human opponents or with many computer ' +
27 'opponents.' + LineEnding + LineEnding +
28 'Each cell has defined number of units which can be instructed to attack ' +
29 'enemy or neutral adjacent cells. Units can also defend against enemy attach from adjacent cells. ' +
30 'You can move units inside your territory. ' + LineEnding +
31 'Number of units in cells grows by square root of number of units. More units cell contains, more ' +
32 'units is added each turn. Maximum number to which units grow is 99. Cell can ' +
33 'have more units but excessive cells will die gradually every turn to balance to number 99.' +
34 LineEnding + LineEnding +
35 'Resolution of attack of units is determined by rule similar to one which is ' +
36 'used in Risk game. Battle consist of several fights. Each fight attacker can use ' +
37 'up to 3 units and defender up to 2 units. Number of units for each side determine ' +
38 'number of dices. Both sides roll their dices and order them in descending order. ' +
39 'Each side takes one dice with highest value. One who has dice with higher value wins. ' +
40 'In case of tie, defender wins. Loser lose its unit and another pair of dices is evaluated. ' +
41 'This process is calculated automatically and for each planned attack win ' +
42 'probability is displayed.' +
43 LineEnding + LineEnding +
44 'Units can be moved by clicking on owned cell and then by clicking on target neutral ' +
45 'or enemy cell. Moves can be set to be repeated every turn with defined number of units. ' +
46 'Repeated unit moves can be set in Unit move dialog or simply by holding Control key while selecting target cell. ' +
47 'If there are multiple unit moves from one cell to more other cells and ' +
48 'you want to move all available cells to target cell, then you can do so by holding Shift key while selecting target cell.';
49
50{$R *.lfm}
51
52{ TFormHelp }
53
54procedure TFormHelp.FormCreate(Sender: TObject);
55begin
56 Memo1.Lines.Text := SContent;
57end;
58
59end.
60
Note: See TracBrowser for help on using the repository browser.