Context Navigation

source: branches/delphi/LocalPlayer/Help.pas

Last change on this file was 6, checked in by chronos, 7 years ago
Modified: Formated all project source files using Delphi formatter as original indentation and other formatting was really bad.
File size: 75.2 KB

Line
1	{$INCLUDE switches}
2	unit Help;
3
4	interface
5
6	uses
7	Protocol, ScreenTools, BaseWin, StringTables,
8
9	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
10	ExtCtrls, ButtonB, PVSB, ButtonBase;
11
12	const
13	MaxHist = 16;
14
15	{ link categories }
16	hkNoLink = 0;
17	hkAdv = 1;
18	hkImp = 2;
19	hkTer = 3;
20	hkFeature = 4;
21	hkInternet = 5;
22	hkModel = 6;
23	hkMisc = 7;
24	hkCrossLink = $40;
25	hkText = $80;
26
27	liInvalid = $3FFF; // link index indicates invalid link
28
29	{ link indices for category hkMisc }
30	miscMain = 0;
31	miscCredits = 1;
32	miscGovList = 2;
33	miscJobList = 3;
34	miscSearchResult = 7;
35
36	fJungle = 8; // pseudo terrain
37
38	type
39	THyperText = class(TStringList)
40	procedure AddLine(s: String = ''; Format: integer = 0; Picpix: integer = 0;
41	LinkCategory: integer = 0; LinkIndex: integer = 0);
42	procedure LF;
43	end;
44
45	THelpDlg = class(TFramedDlg)
46	CloseBtn: TButtonB;
47	BackBtn: TButtonB;
48	TopBtn: TButtonB;
49	SearchBtn: TButtonB;
50	procedure FormCreate(Sender: TObject);
51	procedure FormDestroy(Sender: TObject);
52	procedure FormPaint(Sender: TObject);
53	procedure CloseBtnClick(Sender: TObject);
54	procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState;
55	x, y: integer);
56	procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
57	Shift: TShiftState; x, y: integer);
58	procedure BackBtnClick(Sender: TObject);
59	procedure TopBtnClick(Sender: TObject);
60	procedure FormClose(Sender: TObject; var Action: TCloseAction);
61	procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
62	procedure SearchBtnClick(Sender: TObject);
63	public
64	Difficulty: integer;
65	procedure ShowNewContent(NewMode, Category, Index: integer);
66	procedure ClearHistory;
67	function TextIndex(Item: string): integer;
68	protected
69	procedure OffscreenPaint; override;
70	private
71	Kind, no, Sel, nHist, CaptionColor: integer;
72	hADVHELP, hIMPHELP, hFEATUREHELP, hGOVHELP, hSPECIALMODEL,
73	hJOBHELP: integer;
74	SearchContent, NewSearchContent: string;
75	CaptionFont: TFont;
76	MainText, SearchResult: THyperText;
77	HelpText: TStringTable;
78	ExtPic, TerrIcon: TBitmap;
79	sb: TPVScrollbar;
80	x0: array [-2 .. 18] of integer;
81	HistKind: array [0 .. MaxHist - 1] of integer;
82	HistNo: array [0 .. MaxHist - 1] of integer;
83	HistPos: array [0 .. MaxHist - 1] of integer;
84	HistSearchContent: array [0 .. MaxHist - 1] of shortstring;
85	procedure line(ca: TCanvas; i: integer; lit: boolean);
86	procedure Prepare(sbPos: integer = 0);
87	procedure WaterSign(x0, y0, iix: integer);
88	procedure Search(SearchString: string);
89	procedure OnScroll(var m: TMessage); message WM_VSCROLL;
90	procedure OnMouseWheel(var m: TMessage); message WM_MOUSEWHEEL;
91	procedure OnMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
92	end;
93
94	var
95	HelpDlg: THelpDlg;
96
97	implementation
98
99	uses
100	Directories, ClientTools, Term, Tribes, ShellAPI, Inp, Messg;
101
102	{$R *.DFM}
103
104	type
105	THelpLineInfo = packed record
106	Format, Picpix: Byte;
107	Link: Word;
108	end;
109
110	procedure THyperText.AddLine(s: String; Format: integer; Picpix: integer;
111	LinkCategory: integer; LinkIndex: integer);
112	var
113	HelpLineInfo: THelpLineInfo;
114	begin
115	if LinkIndex < 0 then
116	LinkIndex := liInvalid;
117	HelpLineInfo.Format := Format;
118	HelpLineInfo.Picpix := Picpix;
119	HelpLineInfo.Link := LinkCategory shl 8 + LinkIndex;
120	AddObject(s, TObject(HelpLineInfo));
121	end;
122
123	procedure THyperText.LF;
124	begin
125	AddLine;
126	end;
127
128	const
129	{ text formats }
130	pkNormal = 0;
131	pkCaption = 1;
132	pkSmallIcon = 2;
133	pkBigIcon = 3;
134	pkAdvIcon = 4;
135	pkTer = 5;
136	pkBigTer = 6;
137	pkFeature = 7;
138	pkDot = 8;
139	pkNormal_Dot = 9;
140	pkDomain = 10;
141	pkSection = 11;
142	pkBigFeature = 12;
143	pkExp = 13;
144	pkAITStat = 14;
145	pkExternal = 15;
146	pkModel = 16;
147	pkNormal_64 = 17;
148	pkIllu = 18;
149	pkLogo = 19;
150	pkTerImp = 20;
151	pkRightIcon = 21;
152	pkAdvIcon_AsPreq = 22;
153	pkSmallIcon_AsPreq = 23;
154	pkSpecialIcon = 24;
155	pkGov = 25;
156
157	nSeeAlso = 14;
158	SeeAlso: array [0 .. nSeeAlso - 1] of record Kind, no, SeeKind,
159	SeeNo: integer end = ((Kind: hkImp; no: imWalls; SeeKind: hkFeature;
160	SeeNo: mcArtillery), (Kind: hkImp; no: imHydro; SeeKind: hkImp;
161	SeeNo: woHoover), (Kind: hkImp; no: imWalls; SeeKind: hkImp;
162	SeeNo: imGrWall), (Kind: hkImp; no: imHighways; SeeKind: hkAdv;
163	SeeNo: adWheel), (Kind: hkImp; no: imCathedral; SeeKind: hkImp;
164	SeeNo: woBach), (Kind: hkImp; no: imBank; SeeKind: hkImp; SeeNo: imStockEx),
165	(Kind: hkImp; no: imShipComp; SeeKind: hkImp; SeeNo: imSpacePort),
166	(Kind: hkImp; no: imShipPow; SeeKind: hkImp; SeeNo: imSpacePort),
167	(Kind: hkImp; no: imShipHab; SeeKind: hkImp; SeeNo: imSpacePort),
168	(Kind: hkFeature; no: mcSub; SeeKind: hkFeature; SeeNo: mcRadar),
169	(Kind: hkFeature; no: mcDefense; SeeKind: hkAdv; SeeNo: adSteel),
170	(Kind: hkFeature; no: mcSE; SeeKind: hkFeature; SeeNo: mcNP), (Kind: hkAdv;
171	no: adWheel; SeeKind: hkImp; SeeNo: imHighways), (Kind: hkAdv; no: adSteel;
172	SeeKind: hkFeature; SeeNo: mcDefense));
173
174	nTerrainHelp = 14;
175	TerrainHelp: array [0 .. nTerrainHelp - 1] of integer = (fGrass, fGrass + 12,
176	fPrairie, fForest, fJungle, fHills, fMountains, fSwamp, fTundra, fArctic,
177	fDesert, 3 * 12 { DeadLands } , fShore, fOcean);
178
179	nJobHelp = 8;
180	JobHelp: array [0 .. nJobHelp - 1] of integer = (jRoad, jRR, jCanal, jIrr,
181	jFarm, jMine, jFort, jBase);
182
183	procedure THelpDlg.FormCreate(Sender: TObject);
184	begin
185	inherited;
186	CaptionLeft := BackBtn.Left + BackBtn.Width;
187	CaptionRight := SearchBtn.Left;
188	inc(ModalFrameIndent, 29);
189	MainText := THyperText.Create;
190	SearchResult := THyperText.Create;
191	CreatePVSB(sb, Handle, 36, 551, 36 + 432);
192
193	HelpText := TStringTable.Create;
194	HelpText.LoadFromFile(LocalizedFilePath('Help\help.txt'));
195	hADVHELP := HelpText.Gethandle('ADVHELP');
196	hIMPHELP := HelpText.Gethandle('IMPHELP');
197	hFEATUREHELP := HelpText.Gethandle('FEATUREHELP');
198	hGOVHELP := HelpText.Gethandle('GOVHELP');
199	hSPECIALMODEL := HelpText.Gethandle('SPECIALMODEL');
200	hJOBHELP := HelpText.Gethandle('JOBHELP');
201
202	CaptionFont := Font.Create;
203	CaptionFont.Assign(UniFont[ftNormal]);
204	CaptionFont.Style := CaptionFont.Style + [fsItalic, fsBold];
205	InitButtons();
206
207	TopBtn.Hint := Phrases.Lookup('BTN_CONTENTS');
208	BackBtn.Hint := Phrases.Lookup('BTN_BACK');
209	SearchBtn.Hint := Phrases.Lookup('BTN_SEARCH');
210
211	ExtPic := TBitmap.Create;
212	TerrIcon := TBitmap.Create;
213	TerrIcon.PixelFormat := pf24bit;
214	TerrIcon.Width := xSizeBig;
215	TerrIcon.Height := ySizeBig;
216	SearchContent := '';
217	nHist := -1;
218	end;
219
220	procedure THelpDlg.ClearHistory;
221	begin
222	nHist := -1;
223	end;
224
225	procedure THelpDlg.FormDestroy(Sender: TObject);
226	begin
227	MainText.Free;
228	SearchResult.Free;
229	ExtPic.Free;
230	TerrIcon.Free;
231	HelpText.Free;
232	// CaptionFont.Free;
233	end;
234
235	procedure THelpDlg.CloseBtnClick(Sender: TObject);
236	begin
237	Close
238	end;
239
240	procedure THelpDlg.OnScroll(var m: TMessage);
241	begin
242	if ProcessPVSB(sb, m) then
243	begin
244	Sel := -1;
245	SmartUpdateContent(true)
246	end
247	end;
248
249	procedure THelpDlg.OnMouseWheel(var m: TMessage);
250	begin
251	if ProcessMouseWheel(sb, m) then
252	begin
253	Sel := -1;
254	SmartUpdateContent(true);
255	PaintBox1MouseMove(nil, [], m.lParam and $FFFF - Left,
256	m.lParam shr 16 - Top);
257	end
258	end;
259
260	procedure THelpDlg.OnMouseLeave(var Msg: TMessage);
261	begin
262	if Sel <> -1 then
263	begin
264	line(Canvas, Sel, false);
265	Sel := -1
266	end
267	end;
268
269	procedure THelpDlg.FormPaint(Sender: TObject);
270	begin
271	inherited;
272	Canvas.Font.Assign(UniFont[ftNormal]);
273	end;
274
275	procedure THelpDlg.line(ca: TCanvas; i: integer; lit: boolean);
276	var
277	TextColor, x, y: integer;
278	TextSize: TSize;
279	s: string;
280	begin
281	s := MainText[sb.si.npos + i];
282	if s = '' then
283	exit;
284	x := x0[i];
285	y := 2 + i * 24;
286	if ca = Canvas then
287	begin
288	x := x + SideFrame;
289	y := y + WideFrame
290	end;
291	if THelpLineInfo(MainText.Objects[sb.si.npos + i]).Format
292	in [pkCaption, pkBigTer, pkRightIcon, pkBigFeature] then
293	begin
294	ca.Font.Assign(CaptionFont);
295	{ ca.brush.color:=CaptionColor;
296	ca.FillRect(rect(x,i24,x+24,i24+24));
297	ca.brush.color:=$FFFFFF;
298	ca.FrameRect(rect(x+1,i24+1,x+24-1,i24+24-1));
299	ca.Brush.Style:=bsClear; }
300	BitBlt(ca.Handle, x, y - 4, 24, 24, GrExt[HGrSystem].Data.Canvas.Handle, 1,
301	146, SRCCOPY);
302	BiColorTextOut(ca, $FFFFFF, $7F007F, x + 10 - ca.Textwidth(s[1]) div 2,
303	y - 3, s[1]);
304	BiColorTextOut(ca, CaptionColor, $7F007F, x + 24, y - 3, copy(s, 2, 255));
305	ca.Font.Assign(UniFont[ftNormal]);
306	end
307	else if THelpLineInfo(MainText.Objects[sb.si.npos + i]).Format = pkSection
308	then
309	begin
310	ca.Font.Assign(CaptionFont);
311	BiColorTextOut(ca, CaptionColor, $7F007F, x, y - 3, s);
312	ca.Font.Assign(UniFont[ftNormal]);
313	end
314	else
315	begin
316	if (Kind = hkMisc) and (no = miscMain) then
317	ca.Font.Assign(CaptionFont);
318	TextColor := Colors.Canvas.Pixels[clkMisc, cliPaperText];
319	if ca = Canvas then
320	begin
321	TextSize.cx := BiColorTextWidth(ca, s);
322	TextSize.cy := ca.TextHeight(s);
323	if y + TextSize.cy >= WideFrame + InnerHeight then
324	TextSize.cy := WideFrame + InnerHeight - y;
325	FillSeamless(ca, x, y, TextSize.cx, TextSize.cy, -SideFrame,
326	sb.si.npos * 24 - WideFrame, Paper);
327	end;
328	BiColorTextOut(ca, TextColor, $7F007F, x, y, s);
329	if lit then
330	with ca do
331	begin
332	assert(ca = Canvas);
333	pen.color := TextColor;
334	moveto(x + 1, y + TextSize.cy - 2);
335	lineto(x + TextSize.cx, y + TextSize.cy - 2);
336	end;
337	if (Kind = hkMisc) and (no = miscMain) then
338	ca.Font.Assign(UniFont[ftNormal]);
339	end
340	end;
341
342	procedure THelpDlg.WaterSign(x0, y0, iix: integer);
343	const
344	nHeaven = 28;
345	maxsum = 9 * 9 * 255 * 75 div 100;
346	type
347	TLine = array [0 .. 649, 0 .. 2] of Byte;
348	var
349	x, y, dx, dy, xSrc, ySrc, sum, xx: integer;
350	Heaven: array [0 .. nHeaven] of integer;
351	PaintLine, CoalLine: ^TLine;
352	ImpLine: array [-1 .. 1] of ^TLine;
353	begin
354	// assume eiffel tower has free common heaven
355	for dy := 0 to nHeaven - 1 do
356	Heaven[dy] := BigImp.Canvas.Pixels[woEiffel mod 7 * xSizeBig,
357	(SystemIconLines + woEiffel div 7) * ySizeBig + dy];
358
359	xSrc := iix mod 7 * xSizeBig;
360	ySrc := (iix div 7 + 1) * ySizeBig;
361	for y := 0 to ySizeBig * 2 - 1 do
362	if (y0 + y >= 0) and (y0 + y < InnerHeight) then
363	begin
364	PaintLine := OffScreen.ScanLine[y0 + y];
365	CoalLine := Templates.ScanLine[yCoal + y];
366	for dy := -1 to 1 do
367	if ((y + dy) shr 1 >= 0) and ((y + dy) shr 1 < ySizeBig) then
368	ImpLine[dy] := BigImp.ScanLine[ySrc + (y + dy) shr 1];
369	for x := 0 to xSizeBig * 2 - 1 do
370	begin
371	sum := 0;
372	for dx := -1 to 1 do
373	begin
374	xx := xSrc + (x + dx) shr 1;
375	for dy := -1 to 1 do
376	if ((y + dy) shr 1 < 0) or ((y + dy) shr 1 >= ySizeBig) or
377	((x + dx) shr 1 < 0) or ((x + dx) shr 1 >= xSizeBig) or
378	((y + dy) shr 1 < nHeaven) and
379	(ImpLine[dy, xx, 0] shl 16 + ImpLine[dy, xx, 1] shl 8 +
380	ImpLine[dy, xx, 2] = Heaven[(y + dy) shr 1]) then
381	sum := sum + 9 * 255
382	else
383	sum := sum + ImpLine[dy, xx, 0] + 5 * ImpLine[dy, xx, 1] + 3 *
384	ImpLine[dy, xx, 2];
385	end;
386	if sum < maxsum then
387	begin // no saturation
388	sum := 1 shl 22 - (maxsum - sum) * (256 - CoalLine[xCoal + x, 0] * 2);
389	PaintLine[x0 + x, 0] := PaintLine[x0 + x, 0] * sum shr 22;
390	PaintLine[x0 + x, 1] := PaintLine[x0 + x, 1] * sum shr 22;
391	PaintLine[x0 + x, 2] := PaintLine[x0 + x, 2] * sum shr 22;
392	end
393	end
394	end;
395	end;
396
397	procedure THelpDlg.OffscreenPaint;
398
399	procedure PaintTerrIcon(x, y, xSrc, ySrc: integer);
400	begin
401	Frame(OffScreen.Canvas, x - 1, y - 1, x + xSizeBig, y + ySizeBig,
402	$000000, $000000);
403	if 2 * yyt < 40 then
404	begin
405	Sprite(OffScreen, HGrTerrain, x, y, 56, 2 * yyt, xSrc, ySrc);
406	Sprite(OffScreen, HGrTerrain, x, y + 2 * yyt, 56, 40 - 2 * yyt,
407	xSrc, ySrc);
408	end
409	else
410	Sprite(OffScreen, HGrTerrain, x, y, 56, 40, xSrc, ySrc);
411	Sprite(OffScreen, HGrTerrain, x, y, xxt, yyt, xSrc + xxt, ySrc + yyt);
412	Sprite(OffScreen, HGrTerrain, x, y + yyt, xxt, 40 - yyt, xSrc + xxt, ySrc);
413	Sprite(OffScreen, HGrTerrain, x + xxt, y, 56 - xxt, yyt, xSrc, ySrc + yyt);
414	Sprite(OffScreen, HGrTerrain, x + xxt, y + yyt, 56 - xxt, 40 - yyt,
415	xSrc, ySrc);
416	end;
417
418	var
419	i, j, yl, srcno, ofs, cnt, y: integer;
420	s: string;
421	HelpLineInfo: THelpLineInfo;
422	begin
423	inherited;
424	CaptionColor := Colors.Canvas.Pixels[clkMisc, cliPaperCaption];
425	FillSeamless(OffScreen.Canvas, 0, 0, InnerWidth, InnerHeight, 0,
426	sb.si.npos * 24, Paper);
427	with OffScreen.Canvas do
428	begin
429	Font.Assign(UniFont[ftNormal]);
430	for i := -sb.si.npos to InnerHeight div 24 do
431	if sb.si.npos + i < MainText.Count then
432	begin
433	HelpLineInfo := THelpLineInfo(MainText.Objects[sb.si.npos + i]);
434	if HelpLineInfo.Format = pkExternal then
435	begin
436	yl := ExtPic.Height;
437	if 4 + i * 24 + yl > InnerHeight then
438	yl := InnerHeight - (4 + i * 24);
439	BitBlt(Handle, 8, 4 + i * 24, ExtPic.Width, yl, ExtPic.Canvas.Handle,
440	0, 0, SRCCOPY);
441	end
442	end;
443	for i := -2 to InnerHeight div 24 do
444	if (sb.si.npos + i >= 0) and (sb.si.npos + i < MainText.Count) then
445	begin
446	HelpLineInfo := THelpLineInfo(MainText.Objects[sb.si.npos + i]);
447	if HelpLineInfo.Link <> 0 then
448	begin
449	if (Kind = hkMisc) and (no = miscSearchResult) then
450	Sprite(OffScreen, HGrSystem, 18, 9 + i * 24, 8, 8, 90, 16)
451	else if HelpLineInfo.Format in [pkSmallIcon_AsPreq, pkAdvIcon_AsPreq]
452	then
453	Sprite(OffScreen, HGrSystem, 12, i * 24 + 5, 14, 14, 65, 20)
454	else if HelpLineInfo.Link and (hkCrossLink shl 8) <> 0 then
455	Sprite(OffScreen, HGrSystem, 12, i * 24 + 5, 14, 14, 80, 1)
456	else if not((Kind = hkMisc) and (no = miscMain)) then
457	Sprite(OffScreen, HGrSystem, 10, i * 24 + 6, 14, 14, 65, 1);
458	x0[i] := 24;
459	end
460	else
461	x0[i] := 0;
462	case HelpLineInfo.Format of
463	pkLogo:
464	begin
465	Server(sGetVersion, 0, 0, j);
466	s := Format('%d.%d.%d', [j shr 16 and $FF, j shr 8 and $FF,
467	j and $FF]);
468	PaintLogo(OffScreen.Canvas, (InnerWidth - 122) div 2, i * 24 + 1,
469	GrExt[HGrSystem].Data.Canvas.Pixels[95, 1], $000000);
470	Font.Assign(UniFont[ftSmall]);
471	BiColorTextOut(OffScreen.Canvas, $000000, $7F007F,
472	(InnerWidth - Textwidth(s)) div 2, i * 24 + 26, s);
473	Font.Assign(UniFont[ftNormal]);
474	end;
475	pkSmallIcon, pkSmallIcon_AsPreq:
476	begin
477	Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24,
478	8 + xSizeSmall + x0[i], 2 + 20 + i * 24, $000000, $000000);
479	if HelpLineInfo.Picpix = imPalace then
480	BitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24,
481	xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle,
482	0 * xSizeSmall, 1 * ySizeSmall, SRCCOPY)
483	else
484	BitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24,
485	xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle,
486	HelpLineInfo.Picpix mod 7 * xSizeSmall,
487	(HelpLineInfo.Picpix + SystemIconLines * 7) div 7 *
488	ySizeSmall, SRCCOPY);
489	x0[i] := x0[i] + (8 + 8 + 36);
490	end;
491	pkBigIcon:
492	begin
493	FrameImage(OffScreen.Canvas, BigImp, x0[i] + 12, i * 24 - 7, 56,
494	40, HelpLineInfo.Picpix mod 7 * xSizeBig,
495	HelpLineInfo.Picpix div 7 * ySizeBig);
496	x0[i] := 64 + 8 + 8 + x0[i];
497	end;
498	pkSpecialIcon:
499	begin
500	case HelpLineInfo.Picpix of
501	0:
502	FrameImage(OffScreen.Canvas, GrExt[HGrSystem2].Data,
503	12 + x0[i], -7 + i * 24, 56, 40, 137, 127);
504	1:
505	begin
506	PaintTerrIcon(12 + x0[i], -7 + i * 24,
507	1 + 3 * (xxt * 2 + 1), 1 + yyt);
508	if 2 * yyt < 40 then
509	Sprite(OffScreen, HGrTerrain, 12 + x0[i], -7 + 4 + i * 24,
510	56, 2 * yyt, 1 + 3 * (xxt * 2 + 1) + xxt - 28,
511	1 + yyt + 1 * (yyt * 3 + 1))
512	else
513	Sprite(OffScreen, HGrTerrain, 12 + x0[i],
514	-7 + 4 + i * 24 - 4, 56, 40, 1 + 3 * (xxt * 2 + 1) + xxt
515	- 28, 1 + yyt + 1 * (yyt * 3 + 1) + yyt - 20);
516	end;
517	2:
518	begin
519	PaintTerrIcon(12 + x0[i], -7 + i * 24,
520	1 + 7 * (xxt * 2 + 1), 1 + yyt + 4 * (yyt * 3 + 1));
521	if 2 * yyt < 40 then
522	Sprite(OffScreen, HGrTerrain, 12 + x0[i], -7 + 4 + i * 24,
523	56, 32, 1 + 4 * (xxt * 2 + 1) + xxt - 28,
524	1 + yyt + 12 * (yyt * 3 + 1) + yyt - 16)
525	else
526	Sprite(OffScreen, HGrTerrain, 12 + x0[i], -7 + 4 + i * 24,
527	56, 32, 1 + 4 * (xxt * 2 + 1) + xxt - 28,
528	1 + yyt + 12 * (yyt * 3 + 1) + yyt - 16)
529	end;
530	end;
531	x0[i] := 64 + 8 + 8 + x0[i];
532	end;
533	pkDomain:
534	begin
535	Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24,
536	8 + 36 + x0[i], 2 + 20 + i * 24, $000000, $000000);
537	Dump(OffScreen, HGrSystem, 8 + x0[i], 2 + i * 24, 36, 20,
538	75 + HelpLineInfo.Picpix * 37, 295);
539	x0[i] := x0[i] + (8 + 8 + 36);
540	end;
541	pkAdvIcon, pkAdvIcon_AsPreq:
542	begin
543	Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24,
544	8 + xSizeSmall + x0[i], 2 + ySizeSmall + i * 24,
545	$000000, $000000);
546	if AdvIcon[HelpLineInfo.Picpix] < 84 then
547	BitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24,
548	xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle,
549	(AdvIcon[HelpLineInfo.Picpix] + SystemIconLines * 7) mod 7 *
550	xSizeSmall, (AdvIcon[HelpLineInfo.Picpix] + SystemIconLines *
551	7) div 7 * ySizeSmall, SRCCOPY)
552	else
553	Dump(OffScreen, HGrSystem, 8 + x0[i], 2 + i * 24, 36, 20,
554	1 + (AdvIcon[HelpLineInfo.Picpix] - 84) mod 8 * 37,
555	295 + (AdvIcon[HelpLineInfo.Picpix] - 84) div 8 * 21);
556	j := AdvValue[HelpLineInfo.Picpix] div 1000;
557	BitBlt(Handle, x0[i] + 4, 4 + i * 24, 14, 14,
558	GrExt[HGrSystem].Mask.Canvas.Handle, 127 + j * 15, 85, SRCAND);
559	Sprite(OffScreen, HGrSystem, x0[i] + 3, 3 + i * 24, 14, 14,
560	127 + j * 15, 85);
561	x0[i] := x0[i] + (8 + 8 + 36);
562	end;
563	pkRightIcon:
564	begin
565	if Imp[HelpLineInfo.Picpix].Kind <> ikWonder then
566	ImpImage(OffScreen.Canvas, InnerWidth - (40 + xSizeBig), i * 24,
567	HelpLineInfo.Picpix, gDespotism)
568	else
569	WaterSign(InnerWidth - (40 + 2 * xSizeBig), i * 24 - 8,
570	HelpLineInfo.Picpix + 7);
571	x0[i] := x0[i] + 8;
572	end;
573	pkIllu:
574	WaterSign(8, i * 24 - 8, HelpLineInfo.Picpix);
575	pkBigFeature:
576	begin
577	cnt := 0;
578	for j := nDomains - 1 downto 0 do
579	if 1 shl j and Feature[HelpLineInfo.Picpix].Domains <> 0 then
580	begin
581	inc(cnt);
582	Dump(OffScreen, HGrSystem, InnerWidth - 38 - 38 * cnt,
583	i * 24 + 1, 36, 20, 75 + j * 37, 295);
584	Frame(OffScreen.Canvas, InnerWidth - 39 - 38 * cnt, i * 24,
585	InnerWidth - 2 - 38 * cnt, i * 24 + 21, $000000, $000000);
586	end;
587	DarkGradient(OffScreen.Canvas, InnerWidth - 38 - 38 * cnt,
588	i * 24 + 23, cnt * 38 - 2, 1);
589	ofs := InnerWidth - (39 + 7) - 19 * cnt;
590	with OffScreen.Canvas do
591	begin
592	Brush.color := $C0C0C0;
593	FrameRect(Rect(ofs, 1 + 23 + i * 24, ofs + 14,
594	15 + 23 + i * 24));
595	Brush.Style := bsClear;
596	Sprite(OffScreen, HGrSystem, ofs + 2, 3 + 23 + i * 24, 10, 10,
597	66 + HelpLineInfo.Picpix mod 11 * 11,
598	137 + HelpLineInfo.Picpix div 11 * 11);
599	end;
600	x0[i] := x0[i] + 8;
601	end;
602	pkTer, pkBigTer:
603	begin
604	if HelpLineInfo.Format = pkBigTer then
605	y := i * 24 - 3 + yyt
606	else
607	y := i * 24 + 13;
608	if HelpLineInfo.Picpix >= 3 * 12 then
609	srcno := 2 * 9 + 6
610	else if HelpLineInfo.Picpix mod 12 = fJungle then
611	srcno := 18 * 9
612	else if HelpLineInfo.Picpix mod 12 < fJungle then
613	srcno := HelpLineInfo.Picpix mod 12
614	else
615	srcno := 27 + (HelpLineInfo.Picpix mod 12 - 9) * 18;
616	if HelpLineInfo.Format = pkTer then
617	begin
618	ofs := x0[i] + 8;
619	x0[i] := 2 * xxt + 8 + ofs;
620	end
621	else
622	begin
623	ofs := InnerWidth - (2 * xxt + 38);
624	x0[i] := x0[i] + 8;
625	end;
626	if srcno >= fJungle then
627	begin
628	Sprite(OffScreen, HGrTerrain, ofs + 4, y - yyt + 2, xxt * 2 - 8,
629	yyt * 2 - 4, 5 + 2 * (xxt * 2 + 1),
630	3 + yyt + 2 * (yyt * 3 + 1));
631	Sprite(OffScreen, HGrTerrain, ofs, y - 2 * yyt, xxt * 2,
632	yyt * 3 - 2, 1 + srcno mod 9 * (xxt * 2 + 1),
633	1 + srcno div 9 * (yyt * 3 + 1));
634	end
635	else
636	Sprite(OffScreen, HGrTerrain, ofs + 4, y - yyt + 2, xxt * 2 - 8,
637	yyt * 2 - 4, 5 + srcno mod 9 * (xxt * 2 + 1),
638	3 + yyt + srcno div 9 * (yyt * 3 + 1));
639	if HelpLineInfo.Picpix >= 3 * 12 then { rare resource }
640	Sprite(OffScreen, HGrTerrain, ofs, y - 2 * yyt, xxt * 2,
641	yyt * 3, 1 + 8 * (xxt * 2 + 1),
642	1 + (HelpLineInfo.Picpix - 2 * 12) * (yyt * 3 + 1))
643	else if HelpLineInfo.Picpix >= 12 then { special tile }
644	begin
645	if HelpLineInfo.Picpix mod 12 = fJungle then
646	srcno := 17 * 9 + 8
647	else if HelpLineInfo.Picpix mod 12 < fJungle then
648	srcno := HelpLineInfo.Picpix mod 12
649	else
650	srcno := 18 + 8 + (HelpLineInfo.Picpix mod 12 - 9) * 18;
651	srcno := srcno + HelpLineInfo.Picpix div 12 * 9;
652	Sprite(OffScreen, HGrTerrain, ofs, y - 2 * yyt, xxt * 2,
653	yyt * 3, 1 + srcno mod 9 * (xxt * 2 + 1),
654	1 + srcno div 9 * (yyt * 3 + 1));
655	end;
656	end;
657	pkTerImp:
658	begin
659	ofs := 8;
660	if HelpLineInfo.Picpix = 5 then
661	begin // display mine on hills
662	Sprite(OffScreen, HGrTerrain, ofs + 4, i * 24 + 13 - yyt,
663	xxt * 2 - 8, yyt * 2 - 4, 5 + 2 * (xxt * 2 + 1),
664	3 + yyt + 2 * (yyt * 3 + 1));
665	srcno := 45
666	end
667	else
668	srcno := fPrairie; // display on prairie
669	Sprite(OffScreen, HGrTerrain, ofs + 4, i * 24 + 13 - yyt,
670	xxt * 2 - 8, yyt * 2 - 4, 5 + srcno mod 9 * (xxt * 2 + 1),
671	3 + yyt + srcno div 9 * (yyt * 3 + 1));
672	if HelpLineInfo.Picpix = 12 then { river }
673	Sprite(OffScreen, HGrTerrain, ofs, i * 24 + 11 - yyt, xxt * 2,
674	yyt * 2, 1 + 5 * (xxt * 2 + 1), 1 + yyt + 13 * (yyt * 3 + 1))
675	else if HelpLineInfo.Picpix >= 3 then { improvement 2 }
676	begin
677	if HelpLineInfo.Picpix = 6 then
678	Sprite(OffScreen, HGrTerrain, ofs, i * 24 + 11 - 2 * yyt,
679	xxt * 2, yyt * 3, 1 + 7 * (xxt * 2 + 1),
680	1 + 12 * (yyt * 3 + 1));
681	Sprite(OffScreen, HGrTerrain, ofs, i * 24 + 11 - 2 * yyt,
682	xxt * 2, yyt * 3, 1 + (HelpLineInfo.Picpix - 3) *
683	(xxt * 2 + 1), 1 + 12 * (yyt * 3 + 1))
684	end
685	else { improvement 1 }
686	begin
687	Sprite(OffScreen, HGrTerrain, ofs, i * 24 + 11 - 2 * yyt,
688	xxt * 2, yyt * 3, 1 + 2 * (xxt * 2 + 1),
689	1 + (9 + HelpLineInfo.Picpix) * (yyt * 3 + 1));
690	Sprite(OffScreen, HGrTerrain, ofs, i * 24 + 11 - 2 * yyt,
691	xxt * 2, yyt * 3, 1 + 5 * (xxt * 2 + 1),
692	1 + (9 + HelpLineInfo.Picpix) * (yyt * 3 + 1))
693	end;
694	x0[i] := x0[i] + 8;
695	end;
696	pkModel:
697	begin
698	FrameImage(OffScreen.Canvas, BigImp, x0[i] + 12, i * 24 - 7,
699	56, 40, 0, 0);
700	Sprite(OffScreen, HGrStdUnits, x0[i] + 8, i * 24 - 11, 64, 44,
701	1 + HelpLineInfo.Picpix mod 10 * 65,
702	1 + HelpLineInfo.Picpix div 10 * 49);
703	x0[i] := 64 + 8 + 8 + x0[i];
704	end;
705	pkFeature:
706	begin
707	DarkGradient(OffScreen.Canvas, x0[i] + 8 - 1,
708	7 + i * 24 - 3, 16, 1);
709	Frame(OffScreen.Canvas, x0[i] + 8, 7 + i * 24 - 2, x0[i] + 8 + 13,
710	7 + i * 24 - 2 + 13, $C0C0C0, $C0C0C0);
711	Sprite(OffScreen, HGrSystem, x0[i] + 8 + 2, 7 + i * 24, 10, 10,
712	66 + HelpLineInfo.Picpix mod 11 * 11,
713	137 + HelpLineInfo.Picpix div 11 * 11);
714	x0[i] := x0[i] + 8 + 8 + 2 + 13;
715	end;
716	pkExp:
717	begin
718	Frame(OffScreen.Canvas, 20 - 1, 8 - 4 + i * 24, 20 + 12,
719	8 + 11 + i * 24, $000000, $000000);
720	Dump(OffScreen, HGrSystem, 20, 8 - 3 + i * 24, 12, 14,
721	121 + HelpLineInfo.Picpix * 13, 28);
722	x0[i] := 20 + 8 + 11;
723	end;
724	pkAITStat:
725	begin
726	Sprite(OffScreen, HGrSystem, 20, 6 + i * 24, 14, 14,
727	1 + HelpLineInfo.Picpix * 15, 316);
728	x0[i] := 20 + 8 + 11;
729	end;
730	pkGov:
731	begin
732	Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24,
733	8 + xSizeSmall + x0[i], 2 + 20 + i * 24, $000000, $000000);
734	BitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24, xSizeSmall,
735	ySizeSmall, SmallImp.Canvas.Handle, (HelpLineInfo.Picpix - 1) *
736	xSizeSmall, ySizeSmall, SRCCOPY);
737	x0[i] := x0[i] + (8 + 8 + 36);
738	end;
739	pkDot:
740	begin
741	Sprite(OffScreen, HGrSystem, x0[i] + 18, 9 + i * 24, 8,
742	8, 81, 16);
743	x0[i] := 20 + 8 + 4;
744	end;
745	pkNormal_Dot:
746	x0[i] := 20 + 8 + 4;
747	pkNormal_64:
748	x0[i] := 64 + 8 + 8;
749	else
750	x0[i] := x0[i] + 8
751	end;
752	line(OffScreen.Canvas, i, false)
753	end
754	end;
755	MarkUsedOffscreen(InnerWidth, InnerHeight + 13 + 48);
756	end; { OffscreenPaint }
757
758	procedure THelpDlg.Prepare(sbPos: integer = 0);
759	var
760	i, j, special, Domain, Headline, TerrType, TerrSubType: integer;
761	s: string;
762	ps: pchar;
763	List: THyperText;
764	CheckSeeAlso: boolean;
765
766	procedure AddAdv(i: integer);
767	begin
768	MainText.AddLine(Phrases.Lookup('ADVANCES', i), pkAdvIcon, i,
769	hkAdv + hkCrossLink, i);
770	end;
771
772	procedure AddPreqAdv(i: integer);
773	begin
774	MainText.AddLine(Phrases.Lookup('ADVANCES', i), pkAdvIcon_AsPreq, i,
775	hkAdv + hkCrossLink, i);
776	end;
777
778	procedure AddImp(i: integer);
779	begin
780	MainText.AddLine(Phrases.Lookup('IMPROVEMENTS', i), pkSmallIcon, i,
781	hkImp + hkCrossLink, i);
782	end;
783
784	procedure AddPreqImp(i: integer);
785	begin
786	MainText.AddLine(Phrases.Lookup('IMPROVEMENTS', i), pkSmallIcon_AsPreq, i,
787	hkImp + hkCrossLink, i);
788	end;
789
790	procedure AddTer(i: integer);
791	begin
792	if MainText.Count > 1 then
793	begin
794	MainText.LF;
795	end;
796	MainText.AddLine(Phrases.Lookup('TERRAIN', i), pkTer, i, hkTer, i);
797	end;
798
799	procedure AddFeature(i: integer);
800	begin
801	MainText.AddLine(Phrases.Lookup('FEATURES', i), pkFeature, i,
802	hkFeature + hkCrossLink, i);
803	end;
804
805	procedure AddModel(i: integer);
806	var
807	pix: integer;
808	Name: string;
809	begin
810	if MainText.Count > 1 then
811	MainText.LF;
812	FindStdModelPicture(SpecialModelPictureCode[i], pix, Name);
813	MainText.AddLine(Name, pkModel, pix, hkModel + hkCrossLink, i)
814	end;
815
816	procedure AddStandardBlock(Item: string);
817	var
818	i: integer;
819	begin
820	with MainText do
821	begin
822	if Item = 'LOGO' then
823	begin
824	AddLine('', pkLogo);
825	LF;
826	end
827	else if Item = 'TECHFORMULA' then
828	begin
829	i := Difficulty;
830	if i = 0 then
831	i := 2;
832	AddLine(Format(HelpText.Lookup('TECHFORMULA'), [TechFormula_M[i],
833	TechFormula_D[i]]))
834	end
835	else if Item = 'EXPERIENCE' then
836	for i := 0 to nExp - 1 do
837	AddLine(Phrases.Lookup('EXPERIENCE', i), pkExp, i)
838	else if Item = 'MODERN' then
839	for i := 1 to 3 do
840	begin
841	LF;
842	AddLine(Phrases.Lookup('TERRAIN', 3 * 12 + i), pkTer, 3 * 12 + i);
843	end
844	else if Item = 'SAVED' then
845	AddLine(DataDir + 'Saved', pkNormal)
846	else if Item = 'AITSTAT' then
847	for i := 0 to 3 do
848	AddLine(Phrases2.Lookup('AITSTAT', i), pkAITStat, i)
849	end
850	end;
851
852	procedure DecodeItem(s: string; var Category, Index: integer);
853	var
854	i: integer;
855	begin
856	if (length(s) > 0) and (s[1] = ':') then
857	begin
858	Category := hkMisc;
859	Index := 0;
860	for i := 3 to length(s) do
861	Index := Index * 10 + ord(s[i]) - 48;
862	case s[2] of
863	'A':
864	Category := hkAdv;
865	'B':
866	Category := hkImp;
867	'T':
868	Category := hkTer;
869	'F':
870	Category := hkFeature;
871	'E':
872	Category := hkInternet;
873	'S':
874	Category := hkModel;
875	'C':
876	Index := miscCredits;
877	'J':
878	Index := miscJobList;
879	'G':
880	Index := miscGovList;
881	end;
882	if (Category <> hkMisc) and (Index = 0) then
883	Index := 200;
884	end
885	else
886	begin
887	Category := hkText;
888	Index := HelpText.Gethandle(copy(s, 1, 255));
889	end;
890	end;
891
892	procedure AddText(s: string);
893	var
894	i, p, l, ofs, CurrentFormat, FollowFormat, Picpix, LinkCategory, LinkIndex,
895	RightMargin: integer;
896	Name: string;
897	begin
898	RightMargin := InnerWidth - 16 - GetSystemMetrics(SM_CXVSCROLL);
899	FollowFormat := pkNormal;
900	while s <> '' do
901	begin
902	Picpix := 0;
903	LinkCategory := 0;
904	LinkIndex := 0;
905	if s[1] = '$' then
906	begin // window caption
907	p := 1;
908	repeat
909	inc(p)
910	until (p > length(s)) or (s[p] = '\');
911	Caption := copy(s, 2, p - 2);
912	Delete(s, 1, p);
913	end
914	else if s[1] = '&' then
915	begin // standard block
916	p := 1;
917	repeat
918	inc(p)
919	until (p > length(s)) or (s[p] = '\');
920	AddStandardBlock(copy(s, 2, p - 2));
921	Delete(s, 1, p);
922	end
923	else if s[1] = '@' then
924	begin // image
925	if (length(s) >= 2) and (s[2] = '@') then
926	begin // generate from icon
927	Picpix := 0;
928	p := 3;
929	while (p <= length(s)) and (s[p] <> '\') do
930	begin
931	Picpix := Picpix * 10 + ord(s[p]) - 48;
932	inc(p)
933	end;
934	if (Picpix < 0) or (Picpix >= nImp) then
935	Picpix := 0;
936	MainText.AddLine('', pkIllu, Picpix);
937	MainText.LF;
938	MainText.LF;
939	end
940	else
941	begin // external image
942	p := 1;
943	repeat
944	inc(p)
945	until (p > length(s)) or (s[p] = '\');
946	if LoadLocalizedGraphicFile(ExtPic, 'Help\' + copy(s, 2, p - 2)) then
947	begin
948	MainText.AddLine('', pkExternal);
949	for i := 0 to (ExtPic.Height - 12) div 24 do
950	MainText.LF;
951	end;
952	end;
953	Delete(s, 1, p);
954	end
955	else
956	begin
957	case s[1] of
958	':', ';':
959	begin // link
960	p := 1;
961	repeat
962	inc(p)
963	until (p > length(s)) or (s[p] = '\') or (s[p] = ' ');
964	DecodeItem(copy(s, 2, p - 2), LinkCategory, LinkIndex);
965	CurrentFormat := 0;
966	if (LinkCategory <> hkText) and (LinkIndex < 200) then
967	// show icon
968	case LinkCategory of
969	hkAdv:
970	begin
971	CurrentFormat := pkAdvIcon;
972	Picpix := LinkIndex
973	end;
974	hkImp:
975	begin
976	CurrentFormat := pkSmallIcon;
977	Picpix := LinkIndex
978	end;
979	hkTer:
980	begin
981	CurrentFormat := pkTer;
982	Picpix := LinkIndex
983	end;
984	hkFeature:
985	begin
986	CurrentFormat := pkFeature;
987	Picpix := LinkIndex
988	end;
989	hkModel:
990	begin
991	CurrentFormat := pkModel;
992	FindStdModelPicture(SpecialModelPictureCode[LinkIndex],
993	Picpix, Name);
994	end;
995	end;
996	if s[1] = ':' then
997	LinkCategory := LinkCategory + hkCrossLink;
998	if (p > length(s)) or (s[p] = ' ') then
999	Delete(s, 1, p)
1000	else
1001	Delete(s, 1, p - 1)
1002	end;
1003	'!': // highlited
1004	if (length(s) >= 2) and (s[2] = '!') then
1005	begin
1006	if MainText.Count > 1 then
1007	MainText.LF;
1008	FollowFormat := pkCaption;
1009	CurrentFormat := pkCaption;
1010	Delete(s, 1, 2);
1011	end
1012	else
1013	begin
1014	FollowFormat := pkSection;
1015	CurrentFormat := pkSection;
1016	Delete(s, 1, 1);
1017	end;
1018	'-':
1019	begin // list
1020	FollowFormat := pkNormal_Dot;
1021	CurrentFormat := pkDot;
1022	Delete(s, 1, 1);
1023	end;
1024	else
1025	CurrentFormat := FollowFormat;
1026	end;
1027	if FollowFormat = pkNormal_Dot then
1028	ofs := 20 + 4 + 8
1029	else
1030	ofs := 8;
1031	p := 0;
1032	repeat
1033	repeat
1034	inc(p)
1035	until (p > length(s)) or (s[p] = ' ') or (s[p] = '\');
1036	if (BiColorTextWidth(OffScreen.Canvas, copy(s, 1, p - 1)) <=
1037	RightMargin - ofs) then
1038	l := p - 1
1039	else
1040	Break;
1041	until (p >= length(s)) or (s[l + 1] = '\');
1042	MainText.AddLine(copy(s, 1, l), CurrentFormat, Picpix, LinkCategory,
1043	LinkIndex);
1044	if (l < length(s)) and (s[l + 1] = '\') then
1045	FollowFormat := pkNormal;
1046	Delete(s, 1, l + 1);
1047	end
1048	end
1049	end;
1050
1051	procedure AddItem(Item: string);
1052	begin
1053	AddText(HelpText.Lookup(Item));
1054	end;
1055
1056	procedure AddModelText(i: integer);
1057	var
1058	pix: integer;
1059	s: string;
1060	begin
1061	with MainText do
1062	begin
1063	if Count > 1 then
1064	begin
1065	LF;
1066	LF;
1067	end;
1068	FindStdModelPicture(SpecialModelPictureCode[i], pix, s);
1069	AddLine(s, pkSection);
1070	AddLine(Format(HelpText.Lookup('STRENGTH'), [SpecialModel[i].Attack,
1071	SpecialModel[i].Defense]), pkNormal_64);
1072	AddLine(Format(HelpText.Lookup('SPEED'),
1073	[MovementToString(SpecialModel[i].Speed)]), pkModel, pix);
1074	if Difficulty = 0 then
1075	AddLine(Format(HelpText.Lookup('BUILDCOST'), [SpecialModel[i].Cost]),
1076	pkNormal_64)
1077	else
1078	AddLine(Format(HelpText.Lookup('BUILDCOST'),
1079	[SpecialModel[i].Cost * BuildCostMod[Difficulty] div 12]),
1080	pkNormal_64);
1081	s := HelpText.LookupByHandle(hSPECIALMODEL, i);
1082	if (s <> '') and (s <> '*') then
1083	AddText(s);
1084	if SpecialModelPreq[i] >= 0 then
1085	AddPreqAdv(SpecialModelPreq[i])
1086	else if SpecialModelPreq[i] = preLighthouse then
1087	AddPreqImp(woLighthouse)
1088	else if SpecialModelPreq[i] = preBuilder then
1089	AddPreqImp(woPyramids)
1090	else if SpecialModelPreq[i] = preLeo then
1091	AddPreqImp(woLeo);
1092	if SpecialModelPreq[i] <> preNone then
1093	MainText[Count - 1] := Format(HelpText.Lookup('REQUIRED'),
1094	[MainText[Count - 1]]);
1095	end
1096	end;
1097
1098	procedure AddJobList;
1099	var
1100	i, JobCost: integer;
1101	begin
1102	with MainText do
1103	begin
1104	for i := 0 to nJobHelp - 1 do
1105	begin
1106	if i > 0 then
1107	begin
1108	LF;
1109	LF
1110	end;
1111	AddLine(Phrases.Lookup('JOBRESULT', JobHelp[i]), pkSection);
1112	AddLine;
1113	AddLine('', pkTerImp, i);
1114	AddLine;
1115	AddText(HelpText.LookupByHandle(hJOBHELP, i));
1116	JobCost := -1;
1117	case JobHelp[i] of
1118	jCanal:
1119	JobCost := CanalWork;
1120	jFort:
1121	JobCost := FortWork;
1122	jBase:
1123	JobCost := BaseWork;
1124	end;
1125	if JobCost >= 0 then
1126	AddText(Format(HelpText.Lookup('JOBCOST'),
1127	[MovementToString(JobCost)]))
1128	else
1129	AddText(HelpText.Lookup('JOBCOSTVAR'));
1130	if JobPreq[JobHelp[i]] <> preNone then
1131	begin
1132	AddPreqAdv(JobPreq[JobHelp[i]]);
1133	MainText[Count - 1] := Format(HelpText.Lookup('REQUIRED'),
1134	[MainText[Count - 1]]);
1135	end
1136	end;
1137	end
1138	end;
1139
1140	procedure AddGraphicCredits;
1141	var
1142	i: integer;
1143	s: string;
1144	sr: TSearchRec;
1145	List, plus: TStringList;
1146	begin
1147	List := TStringList.Create;
1148	plus := TStringList.Create;
1149	if FindFirst(HomeDir + 'Graphics\*.credits.txt', $27, sr) = 0 then
1150	repeat
1151	plus.LoadFromFile(HomeDir + 'Graphics\' + sr.Name);
1152	List.AddStrings(plus);
1153	until FindNext(sr) <> 0;
1154	FindClose(sr);
1155	plus.Free;
1156
1157	List.Sort;
1158	i := 1;
1159	while i < List.Count do
1160	if List[i] = List[i - 1] then
1161	List.Delete(i)
1162	else
1163	inc(i);
1164
1165	for i := 0 to List.Count - 1 do
1166	begin
1167	s := List[i];
1168	while BiColorTextWidth(OffScreen.Canvas, s) > InnerWidth - 16 -
1169	GetSystemMetrics(SM_CXVSCROLL) do
1170	Delete(s, length(s), 1);
1171	MainText.AddLine(s);
1172	end;
1173	List.Free;
1174	end;
1175
1176	procedure AddSoundCredits;
1177	var
1178	i: integer;
1179	s: string;
1180	List: TStringList;
1181	begin
1182	List := TStringList.Create;
1183	List.LoadFromFile(HomeDir + 'Sounds\sound.credits.txt');
1184	for i := 0 to List.Count - 1 do
1185	begin
1186	s := List[i];
1187	while BiColorTextWidth(OffScreen.Canvas, s) > InnerWidth - 16 -
1188	GetSystemMetrics(SM_CXVSCROLL) do
1189	Delete(s, length(s), 1);
1190	MainText.AddLine(s);
1191	end;
1192	List.Free;
1193	end;
1194
1195	procedure NextSection(Item: string);
1196	begin
1197	if MainText.Count > 1 then
1198	if MainText.Count = Headline + 1 then
1199	MainText.Delete(Headline)
1200	else
1201	MainText.LF;
1202	MainText.AddLine(HelpText.Lookup(Item), pkSection);
1203	Headline := MainText.Count - 1;
1204	end;
1205
1206	begin { Prepare }
1207	with MainText do
1208	begin
1209	OffScreen.Canvas.Font.Assign(UniFont[ftNormal]);
1210	CheckSeeAlso := false;
1211	Clear;
1212	Headline := -1;
1213	if (no >= 200) or not(Kind in [hkAdv, hkImp, hkTer, hkFeature]) then
1214	LF;
1215	case Kind of
1216	hkText:
1217	AddText(HelpText.LookupByHandle(no));
1218	hkMisc:
1219	begin
1220	case no of
1221	miscMain:
1222	begin
1223	Caption := HelpText.Lookup('HELPTITLE_MAIN');
1224	AddLine(HelpText.Lookup('HELPTITLE_QUICKSTART'), pkSpecialIcon,
1225	0, { pkBigIcon,22, } hkText, HelpText.Gethandle('QUICK'));
1226	LF;
1227	AddLine(HelpText.Lookup('HELPTITLE_CONCEPTS'), pkBigIcon, 6,
1228	hkText, HelpText.Gethandle('CONCEPTS'));
1229	LF;
1230	AddLine(HelpText.Lookup('HELPTITLE_TERLIST'), pkSpecialIcon, 1,
1231	hkTer, 200);
1232	LF;
1233	AddLine(HelpText.Lookup('HELPTITLE_JOBLIST'), pkSpecialIcon, 2,
1234	hkMisc, miscJobList);
1235	LF;
1236	AddLine(HelpText.Lookup('HELPTITLE_TECHLIST'), pkBigIcon, 39,
1237	hkAdv, 200);
1238	LF;
1239	FindStdModelPicture(SpecialModelPictureCode[6], i, s);
1240	AddLine(HelpText.Lookup('HELPTITLE_MODELLIST'), pkModel, i,
1241	hkModel, 0);
1242	LF;
1243	AddLine(HelpText.Lookup('HELPTITLE_FEATURELIST'), pkBigIcon, 28,
1244	hkFeature, 200);
1245	LF;
1246	AddLine(HelpText.Lookup('HELPTITLE_IMPLIST'), pkBigIcon,
1247	7 * SystemIconLines + imCourt, hkImp, 200);
1248	LF;
1249	AddLine(HelpText.Lookup('HELPTITLE_UNIQUELIST'), pkBigIcon,
1250	7 * SystemIconLines + imStockEx, hkImp, 201);
1251	LF;
1252	AddLine(HelpText.Lookup('HELPTITLE_WONDERLIST'), pkBigIcon,
1253	7 * SystemIconLines, hkImp, 202);
1254	LF;
1255	AddLine(HelpText.Lookup('HELPTITLE_GOVLIST'), pkBigIcon,
1256	gDemocracy + 6, hkMisc, miscGovList);
1257	LF;
1258	AddLine(HelpText.Lookup('HELPTITLE_KEYS'), pkBigIcon, 2, hkText,
1259	HelpText.Gethandle('HOTKEYS'));
1260	LF;
1261	AddLine(HelpText.Lookup('HELPTITLE_ABOUT'), pkBigIcon, 1,
1262	hkText, HelpText.Gethandle('ABOUT'));
1263	LF;
1264	AddLine(HelpText.Lookup('HELPTITLE_CREDITS'), pkBigIcon, 22,
1265	hkMisc, miscCredits);
1266	end;
1267	miscCredits:
1268	begin
1269	AddItem('CREDITS');
1270	LF;
1271	AddGraphicCredits;
1272	NextSection('CRED_CAPSOUND');
1273	AddSoundCredits;
1274	NextSection('CRED_CAPAI');
1275	Server(sGetAICredits, 0, 0, ps);
1276	AddText(ps);
1277	NextSection('CRED_CAPLANG');
1278	AddItem('AUTHOR');
1279	end;
1280	miscJobList:
1281	begin
1282	Caption := HelpText.Lookup('HELPTITLE_JOBLIST');
1283	AddJobList;
1284	LF;
1285	AddItem('TERIMPEXCLUDE');
1286	LF;
1287	AddItem('TERIMPCITY');
1288	end;
1289	miscGovList:
1290	begin
1291	Caption := HelpText.Lookup('HELPTITLE_GOVLIST');
1292	for i := 1 to nGov do
1293	begin
1294	AddLine(Phrases.Lookup('GOVERNMENT', i mod nGov), pkSection);
1295	LF;
1296	if i = nGov then
1297	AddLine('', pkBigIcon, 7 * SystemIconLines + imPalace)
1298	else
1299	AddLine('', pkBigIcon, i + 6);
1300	LF;
1301	AddText(HelpText.LookupByHandle(hGOVHELP, i mod nGov));
1302	if i mod nGov >= 2 then
1303	begin
1304	AddPreqAdv(GovPreq[i mod nGov]);
1305	MainText[Count - 1] := Format(HelpText.Lookup('REQUIRED'),
1306	[MainText[Count - 1]]);
1307	end;
1308	if i < nGov then
1309	begin
1310	LF;
1311	LF;
1312	end
1313	end
1314	end;
1315	miscSearchResult:
1316	begin
1317	Caption := HelpText.Lookup('HELPTITLE_SEARCHRESULTS');
1318	AddText(Format(HelpText.Lookup('MATCHES'), [SearchContent]));
1319	MainText.AddStrings(SearchResult);
1320	end
1321	end; // case no
1322	end;
1323
1324	hkAdv:
1325	if no = 200 then
1326	begin // complete advance list
1327	Caption := HelpText.Lookup('HELPTITLE_TECHLIST');
1328	List := THyperText.Create;
1329	for j := 0 to 3 do
1330	begin
1331	if j > 0 then
1332	begin
1333	LF;
1334	LF;
1335	end;
1336	AddLine(HelpText.Lookup('TECHAGE', j), pkSection);
1337	if j = 1 then
1338	AddLine(Phrases.Lookup('ADVANCES', adScience) + ' ' +
1339	HelpText.Lookup('BASETECH'), pkAdvIcon, adScience, hkAdv,
1340	adScience);
1341	if j = 2 then
1342	AddLine(Phrases.Lookup('ADVANCES', adMassProduction) + ' ' +
1343	HelpText.Lookup('BASETECH'), pkAdvIcon, adMassProduction, hkAdv,
1344	adMassProduction);
1345	List.Clear;
1346	for i := 0 to nAdv - 1 do
1347	if (i <> adScience) and (i <> adMassProduction) and
1348	(AdvValue[i] div 1000 = j) then
1349	List.AddLine(Phrases.Lookup('ADVANCES', i), pkAdvIcon, i,
1350	hkAdv, i);
1351	List.Sort;
1352	AddStrings(List);
1353	end;
1354	List.Free
1355	end
1356	else // single advance
1357	begin
1358	Caption := Phrases.Lookup('ADVANCES', no);
1359	LF;
1360	AddLine(Phrases.Lookup('ADVANCES', no), pkCaption);
1361	if no in FutureTech then
1362	begin
1363	AddLine(HelpText.Lookup('HELPSPEC_FUTURE'));
1364	LF;
1365	if no = futResearchTechnology then
1366	AddItem('FUTURETECHHELP100')
1367	else
1368	AddItem('FUTURETECHHELP25');
1369	end
1370	else
1371	AddLine(HelpText.Lookup('HELPSPEC_ADV'));
1372	if AdvPreq[no, 2] <> preNone then
1373	NextSection('PREREQALT')
1374	else
1375	NextSection('PREREQ');
1376	for i := 0 to 2 do
1377	if AdvPreq[no, i] <> preNone then
1378	AddPreqAdv(AdvPreq[no, i]);
1379	NextSection('GOVALLOW');
1380	for i := 2 to nGov - 1 do
1381	if GovPreq[i] = no then
1382	AddLine(Phrases.Lookup('GOVERNMENT', i), pkGov, i,
1383	hkMisc + hkCrossLink, miscGovList);
1384	NextSection('BUILDALLOW');
1385	for i := 0 to 27 do
1386	if Imp[i].Preq = no then
1387	AddImp(i);
1388	for i := 28 to nImp - 1 do
1389	if (Imp[i].Preq = no) and (Imp[i].Kind <> ikCommon) then
1390	AddImp(i);
1391	for i := 28 to nImp - 1 do
1392	if (Imp[i].Preq = no) and (Imp[i].Kind = ikCommon) then
1393	AddImp(i);
1394	NextSection('MODELALLOW');
1395	for i := 0 to nSpecialModel - 1 do
1396	if SpecialModelPreq[i] = no then
1397	AddModel(i);
1398	NextSection('FEATALLOW');
1399	for i := 0 to nFeature - 1 do
1400	if Feature[i].Preq = no then
1401	AddFeature(i);
1402	NextSection('FOLLOWADV');
1403	for i := 0 to nAdv - 1 do
1404	if (AdvPreq[i, 0] = no) or (AdvPreq[i, 1] = no) or
1405	(AdvPreq[i, 2] = no) then
1406	AddAdv(i);
1407	NextSection('UPGRADEALLOW');
1408	for Domain := 0 to nDomains - 1 do
1409	for i := 1 to nUpgrade - 1 do
1410	if upgrade[Domain, i].Preq = no then
1411	begin
1412	if upgrade[Domain, i].Strength > 0 then
1413	AddLine(Format(HelpText.Lookup('STRENGTHUP'),
1414	[Phrases.Lookup('DOMAIN', Domain), upgrade[Domain,
1415	i].Strength]), pkDomain, Domain);
1416	if upgrade[Domain, i].Trans > 0 then
1417	AddLine(Format(HelpText.Lookup('TRANSUP'),
1418	[Phrases.Lookup('DOMAIN', Domain), upgrade[Domain, i].Trans]
1419	), pkDomain, Domain);
1420	if no in FutureTech then
1421	AddLine(Format(HelpText.Lookup('COSTUP'),
1422	[upgrade[Domain, i].Cost]), pkNormal_Dot)
1423	else
1424	AddLine(Format(HelpText.Lookup('COSTMIN'),
1425	[upgrade[Domain, i].Cost]), pkNormal_Dot)
1426	end;
1427	NextSection('EXPIRATION');
1428	for i := 0 to 27 do
1429	if (Imp[i].Preq <> preNA) and (Imp[i].Expiration = no) then
1430	AddImp(i);
1431	NextSection('ADVEFFECT');
1432	s := HelpText.LookupByHandle(hADVHELP, no);
1433	if s <> '*' then
1434	AddText(s);
1435	NextSection('SEEALSO');
1436	CheckSeeAlso := true
1437	end;
1438
1439	hkImp:
1440	if no = 200 then
1441	begin // complete city improvement list
1442	Caption := HelpText.Lookup('HELPTITLE_IMPLIST');
1443	// AddLine(HelpText.Lookup('HELPTITLE_IMPLIST'),pkSection);
1444	List := THyperText.Create;
1445	for i := 28 to nImp - 1 do
1446	if (i <> imTrGoods) and (Imp[i].Preq <> preNA) and
1447	(Imp[i].Kind = ikCommon) then
1448	List.AddLine(Phrases.Lookup('IMPROVEMENTS', i), pkSmallIcon,
1449	i, hkImp, i);
1450	List.Sort;
1451	AddStrings(List);
1452	List.Free
1453	end
1454	else if no = 201 then
1455	begin // complete nat. project list
1456	Caption := HelpText.Lookup('HELPTITLE_UNIQUELIST');
1457	// AddLine(HelpText.Lookup('HELPTITLE_UNIQUELIST'),pkSection);
1458	for i := 28 to nImp - 1 do
1459	if (Imp[i].Preq <> preNA) and
1460	((Imp[i].Kind = ikNatLocal) or (Imp[i].Kind = ikNatGlobal)) then
1461	AddLine(Phrases.Lookup('IMPROVEMENTS', i), pkSmallIcon, i,
1462	hkImp, i);
1463	{ LF;
1464	LF;
1465	AddLine(HelpText.Lookup('HELPTITLE_SHIPPARTLIST'),pkSection);
1466	for i:=28 to nImp-1 do
1467	if (Imp[i].Preq<>preNA) and (Imp[i].Kind=ikShipPart) then
1468	AddLine(Phrases.Lookup('IMPROVEMENTS',i),pkSmallIcon,i,hkImp,i); }
1469	end
1470	else if no = 202 then
1471	begin // complete wonder list
1472	Caption := HelpText.Lookup('HELPTITLE_WONDERLIST');
1473	// AddLine(HelpText.Lookup('HELPTITLE_WONDERLIST'),pkSection);
1474	for i := 0 to 27 do
1475	if Imp[i].Preq <> preNA then
1476	AddLine(Phrases.Lookup('IMPROVEMENTS', i), pkSmallIcon, i,
1477	hkImp, i);
1478	end
1479	else
1480	begin // single building
1481	Caption := Phrases.Lookup('IMPROVEMENTS', no);
1482	LF;
1483	AddLine(Phrases.Lookup('IMPROVEMENTS', no), pkRightIcon, no);
1484	case Imp[no].Kind of
1485	ikWonder:
1486	AddLine(HelpText.Lookup('HELPSPEC_WONDER'));
1487	ikCommon:
1488	AddLine(HelpText.Lookup('HELPSPEC_IMP'));
1489	ikShipPart:
1490	AddLine(HelpText.Lookup('HELPSPEC_SHIPPART'));
1491	else
1492	AddLine(HelpText.Lookup('HELPSPEC_NAT'))
1493	end;
1494	if Imp[no].Kind <> ikShipPart then
1495	begin
1496	NextSection('EFFECT');
1497	AddText(HelpText.LookupByHandle(hIMPHELP, no));
1498	end;
1499	if no = woSun then
1500	begin
1501	AddFeature(mcFirst);
1502	AddFeature(mcWill);
1503	AddFeature(mcAcademy);
1504	end;
1505	if (no < 28) and not Phrases2FallenBackToEnglish then
1506	begin
1507	LF;
1508	if Imp[no].Expiration >= 0 then
1509	AddText(Phrases2.Lookup('HELP_WONDERMORALE1'))
1510	else
1511	AddText(Phrases2.Lookup('HELP_WONDERMORALE2'));
1512	end;
1513	if Imp[no].Preq <> preNone then
1514	begin
1515	NextSection('PREREQ');
1516	AddPreqAdv(Imp[no].Preq);
1517	end;
1518	NextSection('COSTS');
1519	if Difficulty = 0 then
1520	s := Format(HelpText.Lookup('BUILDCOST'), [Imp[no].Cost])
1521	else
1522	s := Format(HelpText.Lookup('BUILDCOST'),
1523	[Imp[no].Cost * BuildCostMod[Difficulty] div 12]);
1524	AddLine(s);
1525	if Imp[no].Maint > 0 then
1526	AddLine(Format(HelpText.Lookup('MAINTCOST'), [Imp[no].Maint]));
1527	j := 0;
1528	for i := 0 to nImpReplacement - 1 do
1529	if ImpReplacement[i].NewImp = no then
1530	begin
1531	if j = 0 then
1532	begin
1533	NextSection('REPLACE');
1534	AddItem('REPLACETEXT');
1535	j := 1
1536	end;
1537	AddImp(ImpReplacement[i].OldImp);
1538	end;
1539	if Imp[no].Kind = ikShipPart then
1540	begin
1541	LF;
1542	if no = imShipComp then
1543	i := 1
1544	else if no = imShipPow then
1545	i := 2
1546	else { if no=imShipHab then }
1547	i := 3;
1548	AddLine(Format(HelpText.Lookup('RAREREQUIRED'),
1549	[Phrases.Lookup('TERRAIN', 3 * 12 + i)]), pkTer, 3 * 12 + i);
1550	end;
1551	if (no < 28) and (Imp[no].Expiration >= 0) then
1552	begin
1553	NextSection('EXPIRATION');
1554	s := Format(HelpText.Lookup('EXPWITH'),
1555	[Phrases.Lookup('ADVANCES', Imp[no].Expiration)]);
1556	if no = woPyramids then
1557	s := s + ' ' + HelpText.Lookup('EXPSLAVE');
1558	AddText(s);
1559	end;
1560	NextSection('SEEALSO');
1561	if (no < 28) and (Imp[no].Expiration >= 0) then
1562	AddImp(woEiffel);
1563	for i := 0 to nImpReplacement - 1 do
1564	if ImpReplacement[i].OldImp = no then
1565	AddImp(ImpReplacement[i].NewImp);
1566	if no = imSupermarket then
1567	AddLine(HelpText.Lookup('HELPTITLE_JOBLIST'), pkNormal, 0,
1568	hkMisc + hkCrossLink, miscJobList);
1569	CheckSeeAlso := true
1570	end;
1571
1572	hkTer:
1573	if no = 200 then
1574	begin // complete terrain type list
1575	Caption := HelpText.Lookup('HELPTITLE_TERLIST');
1576	// AddLine(HelpText.Lookup('HELPTITLE_TERLIST'),pkSection);
1577	for i := 0 to nTerrainHelp - 1 do
1578	AddTer(TerrainHelp[i]);
1579	end
1580	else
1581	begin // sigle terrain type
1582	TerrType := no mod 12;
1583	if TerrType = fJungle then
1584	TerrType := fForest;
1585	TerrSubType := no div 12;
1586	if no = 3 * 12 then
1587	begin
1588	TerrType := fDesert;
1589	TerrSubType := 0
1590	end;
1591	with Terrain[TerrType] do
1592	begin
1593	Caption := Phrases.Lookup('TERRAIN', no);
1594	LF;
1595	AddLine(Phrases.Lookup('TERRAIN', no), pkBigTer, no);
1596	AddLine(HelpText.Lookup('HELPSPEC_TER'));
1597	LF;
1598	if (ProdRes[TerrSubType] > 0) or (MineEff > 0) then
1599	AddLine(Format(HelpText.Lookup('RESPROD'),
1600	[ProdRes[TerrSubType]]));
1601	if (no < 3 * 12) and (MineEff > 0) then
1602	MainText[Count - 1] := MainText[Count - 1] + ' ' +
1603	Format(HelpText.Lookup('MOREMINE'), [MineEff]);
1604	if (FoodRes[TerrSubType] > 0) or (IrrEff > 0) then
1605	AddLine(Format(HelpText.Lookup('RESFOOD'),
1606	[FoodRes[TerrSubType]]));
1607	if (no < 3 * 12) and (IrrEff > 0) then
1608	MainText[Count - 1] := MainText[Count - 1] + ' ' +
1609	Format(HelpText.Lookup('MOREIRR'), [IrrEff]);
1610	if TradeRes[TerrSubType] > 0 then
1611	AddLine(Format(HelpText.Lookup('RESTRADE'),
1612	[TradeRes[TerrSubType]]));
1613	if Defense > 4 then
1614	AddLine(Format(HelpText.Lookup('DEFBONUS'),
1615	[(Defense - 4) * 25]));
1616	if (TerrType >= fGrass) and (TerrType <> fMountains) then
1617	if MoveCost = 2 then
1618	AddLine(HelpText.Lookup('MOVEHEAVY'))
1619	else
1620	AddLine(HelpText.Lookup('MOVEPLAIN'));
1621	if no = 3 * 12 then
1622	begin
1623	LF;
1624	AddText(HelpText.Lookup('DEADLANDS'));
1625	end;
1626	if (TerrType = fDesert) and (no <> fDesert + 12) then
1627	begin
1628	LF;
1629	AddText(Format(HelpText.Lookup('HOSTILE'), [DesertThurst]));
1630	end;
1631	if TerrType = fArctic then
1632	begin
1633	LF;
1634	AddText(Format(HelpText.Lookup('HOSTILE'), [ArcticThurst]));
1635	end;
1636	if (no < 3 * 12) and (TransTerrain >= 0) then
1637	begin
1638	LF;
1639	i := TransTerrain;
1640	if (TerrType <> fGrass) and (i <> fGrass) then
1641	i := i + TerrSubType * 12;
1642	// trafo to same special resource group
1643	AddLine(Format(HelpText.Lookup('TRAFO'),
1644	[Phrases.Lookup('TERRAIN', i)]), pkTer, i,
1645	hkTer + hkCrossLink, i);
1646	if no = fSwamp + 12 then
1647	begin
1648	LF;
1649	AddLine(Format(HelpText.Lookup('TRAFO'),
1650	[Phrases.Lookup('TERRAIN', TransTerrain + 24)]), pkTer,
1651	TransTerrain + 24, hkTer + hkCrossLink, TransTerrain + 24);
1652	end
1653	else if i = fGrass then
1654	begin
1655	LF;
1656	AddLine(Format(HelpText.Lookup('TRAFO'),
1657	[Phrases.Lookup('TERRAIN', fGrass + 12)]), pkTer, fGrass + 12,
1658	hkTer + hkCrossLink, fGrass + 12);
1659	end
1660	end;
1661	NextSection('SPECIAL');
1662	if no = 3 * 12 then
1663	begin
1664	LF;
1665	for special := 1 to 3 do
1666	begin
1667	if special > 1 then
1668	LF;
1669	AddLine(Phrases.Lookup('TERRAIN', 3 * 12 + special), pkTer,
1670	3 * 12 + special);
1671	end
1672	end
1673	else if (no < 12) and (no <> fGrass) and (no <> fOcean) then
1674	begin
1675	LF;
1676	for special := 1 to 2 do
1677	if (no <> fArctic) and (no <> fSwamp) or (special < 2) then
1678	begin
1679	if special > 1 then
1680	LF;
1681	AddLine(Phrases.Lookup('TERRAIN', no + special * 12), pkTer,
1682	no + special * 12);
1683	i := FoodRes[special] - FoodRes[0];
1684	if i <> 0 then
1685	MainText[Count - 1] := MainText[Count - 1] +
1686	Format(HelpText.Lookup('SPECIALFOOD'), [i]);
1687	i := ProdRes[special] - ProdRes[0];
1688	if i <> 0 then
1689	MainText[Count - 1] := MainText[Count - 1] +
1690	Format(HelpText.Lookup('SPECIALPROD'), [i]);
1691	i := TradeRes[special] - TradeRes[0];
1692	if i <> 0 then
1693	MainText[Count - 1] := MainText[Count - 1] +
1694	Format(HelpText.Lookup('SPECIALTRADE'), [i]);
1695	end;
1696	end;
1697	if no = 3 * 12 then
1698	begin
1699	LF;
1700	AddText(HelpText.Lookup('RARE'));
1701	end;
1702	if (no < 3 * 12) and (TerrType in [fDesert, fArctic]) then
1703	begin
1704	NextSection('SEEALSO');
1705	AddImp(woGardens);
1706	CheckSeeAlso := true
1707	end
1708	end
1709	end;
1710
1711	hkFeature:
1712	if no = 200 then
1713	begin // complete feature list
1714	Caption := HelpText.Lookup('HELPTITLE_FEATURELIST');
1715	List := THyperText.Create;
1716	for special := 0 to 2 do
1717	begin
1718	if special > 0 then
1719	begin
1720	LF;
1721	LF
1722	end;
1723	case special of
1724	0:
1725	AddLine(HelpText.Lookup('HELPTITLE_FEATURE1LIST'), pkSection);
1726	1:
1727	AddLine(HelpText.Lookup('HELPTITLE_FEATURE2LIST'), pkSection);
1728	2:
1729	AddLine(HelpText.Lookup('HELPTITLE_FEATURE3LIST'), pkSection);
1730	end;
1731	List.Clear;
1732	for i := 0 to nFeature - 1 do
1733	if Feature[i].Preq <> preNA then
1734	begin
1735	if i < mcFirstNonCap then
1736	j := 0
1737	else if i in AutoFeature then
1738	j := 2
1739	else
1740	j := 1;
1741	if j = special then
1742	List.AddLine(Phrases.Lookup('FEATURES', i), pkFeature, i,
1743	hkFeature, i);
1744	end;
1745	List.Sort;
1746	AddStrings(List);
1747	end;
1748	List.Free
1749	end
1750	else
1751	begin // single feature
1752	Caption := Phrases.Lookup('FEATURES', no);
1753	LF;
1754	AddLine(Phrases.Lookup('FEATURES', no), pkBigFeature, no);
1755	if no < mcFirstNonCap then
1756	AddLine(HelpText.Lookup('HELPSPEC_CAP'))
1757	else if no in AutoFeature then
1758	AddLine(HelpText.Lookup('HELPSPEC_STANDARD'))
1759	else
1760	AddLine(HelpText.Lookup('HELPSPEC_FEATURE'));
1761	NextSection('EFFECT');
1762	AddText(HelpText.LookupByHandle(hFEATUREHELP, no));
1763	if (Feature[no].Weight <> 0) or (Feature[no].Cost <> 0) then
1764	begin
1765	NextSection('COSTS');
1766	s := IntToStr(Feature[no].Cost);
1767	if Feature[no].Cost >= 0 then
1768	s := '+' + s;
1769	AddLine(Format(HelpText.Lookup('COSTBASE'), [s]));
1770	if Feature[no].Weight > 0 then
1771	begin
1772	AddLine(Format(HelpText.Lookup('WEIGHT'),
1773	['+' + IntToStr(Feature[no].Weight)]));
1774	if no = mcDefense then
1775	AddLine(Format(HelpText.Lookup('WEIGHT'), ['+2']),
1776	pkDomain, dGround);
1777	end
1778	end;
1779	if Feature[no].Preq <> preNone then
1780	begin
1781	LF;
1782	if Feature[no].Preq = preSun then
1783	AddPreqImp(woSun) // sun tsu feature
1784	else
1785	AddPreqAdv(Feature[no].Preq);
1786	MainText[Count - 1] := Format(HelpText.Lookup('REQUIRED'),
1787	[MainText[Count - 1]]);
1788	end;
1789	NextSection('SEEALSO');
1790	CheckSeeAlso := true
1791	end;
1792
1793	hkModel:
1794	begin
1795	Caption := HelpText.Lookup('HELPTITLE_MODELLIST');
1796	for i := 0 to nSpecialModel - 1 do
1797	if i <> 2 then
1798	AddModelText(i);
1799	LF;
1800	AddItem('MODELNOTE');
1801	end;
1802
1803	end;
1804	if CheckSeeAlso then
1805	for i := 0 to nSeeAlso - 1 do
1806	if (SeeAlso[i].Kind = Kind) and (SeeAlso[i].no = no) then
1807	case SeeAlso[i].SeeKind of
1808	hkImp:
1809	AddImp(SeeAlso[i].SeeNo);
1810	hkAdv:
1811	AddAdv(SeeAlso[i].SeeNo);
1812	hkFeature:
1813	AddFeature(SeeAlso[i].SeeNo);
1814	end;
1815	if (Headline >= 0) and (Count = Headline + 1) then
1816	Delete(Headline)
1817	else
1818	LF;
1819
1820	InitPVSB(sb, Count - 1, InnerHeight div 24);
1821	if sbPos <> 0 then
1822	begin
1823	sb.si.npos := sbPos;
1824	sb.si.FMask := SIF_POS;
1825	SetScrollInfo(sb.h, SB_CTL, sb.si, true);
1826	end;
1827	BackBtn.Visible := nHist > 0;
1828	TopBtn.Visible := (nHist > 0) or (Kind <> hkMisc) or (no <> miscMain);
1829	Sel := -1;
1830	end; // with MainText
1831	end; { Prepare }
1832
1833	procedure THelpDlg.ShowNewContent(NewMode, Category, Index: integer);
1834	begin
1835	if (Category <> Kind) or (Index <> no) or (Category = hkMisc) and
1836	(Index = miscSearchResult) then
1837	begin
1838	if nHist = MaxHist then
1839	begin
1840	move(HistKind[2], HistKind[1], 4 * (nHist - 2));
1841	move(HistNo[2], HistNo[1], 4 * (nHist - 2));
1842	move(HistPos[2], HistPos[1], 4 * (nHist - 2));
1843	move(HistSearchContent[2], HistSearchContent[1],
1844	sizeof(shortstring) * (nHist - 2));
1845	end
1846	else
1847	inc(nHist);
1848	if nHist > 0 then
1849	begin
1850	HistKind[nHist - 1] := Kind;
1851	HistNo[nHist - 1] := no;
1852	HistPos[nHist - 1] := sb.si.npos;
1853	HistSearchContent[nHist - 1] := SearchContent
1854	end
1855	end;
1856	Kind := Category;
1857	no := Index;
1858	SearchContent := NewSearchContent;
1859	Prepare;
1860	OffscreenPaint;
1861	inherited ShowNewContent(NewMode);
1862	end;
1863
1864	procedure THelpDlg.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState;
1865	x, y: integer);
1866	var
1867	i0, Sel0: integer;
1868	begin
1869	y := y - WideFrame;
1870	i0 := sb.si.npos;
1871	Sel0 := Sel;
1872	if (x >= SideFrame) and (x < SideFrame + InnerWidth) and (y >= 0) and
1873	(y < InnerHeight) and (y mod 24 >= 8) then
1874	Sel := y div 24
1875	else
1876	Sel := -1;
1877	if (Sel + i0 >= MainText.Count) or (Sel >= 0) and
1878	(THelpLineInfo(MainText.Objects[Sel + i0]).Link = 0) then
1879	Sel := -1;
1880	if Sel <> Sel0 then
1881	begin
1882	if Sel0 <> -1 then
1883	line(Canvas, Sel0, false);
1884	if Sel <> -1 then
1885	line(Canvas, Sel, true)
1886	end
1887	end;
1888
1889	procedure THelpDlg.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
1890	Shift: TShiftState; x, y: integer);
1891	begin
1892	if Sel >= 0 then
1893	with THelpLineInfo(MainText.Objects[Sel + sb.si.npos]) do
1894	if Link shr 8 and $3F = hkInternet then
1895	case Link and $FF of
1896	1:
1897	ShellExecute(Handle, 'open',
1898	pchar(HomeDir + 'AI Template\AI development manual.html'), '', '',
1899	SW_SHOWNORMAL);
1900	2:
1901	ShellExecute(Handle, 'open', 'http://c-evo.org', '', '',
1902	SW_SHOWNORMAL);
1903	3:
1904	ShellExecute(Handle, 'open', 'http://c-evo.org/_sg/contact', '', '',
1905	SW_SHOWNORMAL);
1906	end
1907	else
1908	begin
1909	if (Link >= $8000) and (Link and $3FFF = liInvalid) then
1910	exit; // invalid link;
1911	if Link >= $8000 then
1912	ShowNewContent(FWindowMode, hkText, Link and $3FFF)
1913	else
1914	ShowNewContent(FWindowMode, Link shr 8 and $3F, Link and $FF);
1915	end
1916	end;
1917
1918	procedure THelpDlg.BackBtnClick(Sender: TObject);
1919	begin
1920	if nHist > 0 then
1921	begin
1922	dec(nHist);
1923	if (HistKind[nHist] = hkMisc) and (HistNo[nHist] = miscSearchResult) and
1924	(HistSearchContent[nHist] <> SearchContent) then
1925	begin
1926	SearchContent := HistSearchContent[nHist];
1927	Search(SearchContent);
1928	end;
1929	Kind := HistKind[nHist];
1930	no := HistNo[nHist];
1931	Prepare(HistPos[nHist]);
1932	OffscreenPaint;
1933	Invalidate;
1934	end
1935	end;
1936
1937	procedure THelpDlg.TopBtnClick(Sender: TObject);
1938	begin
1939	nHist := 0;
1940	Kind := hkMisc;
1941	no := miscMain;
1942	Prepare;
1943	OffscreenPaint;
1944	Invalidate;
1945	end;
1946
1947	procedure THelpDlg.FormClose(Sender: TObject; var Action: TCloseAction);
1948	begin
1949	ExtPic.Height := 0;
1950	inherited;
1951	end;
1952
1953	function THelpDlg.TextIndex(Item: string): integer;
1954	begin
1955	result := HelpText.Gethandle(Item)
1956	end;
1957
1958	procedure THelpDlg.FormKeyDown(Sender: TObject; var Key: Word;
1959	Shift: TShiftState);
1960	begin
1961	if Key = VK_F1 then // my key
1962	else
1963	inherited
1964	end;
1965
1966	procedure THelpDlg.SearchBtnClick(Sender: TObject);
1967	begin
1968	InputDlg.Caption := Phrases.Lookup('SEARCH');
1969	InputDlg.EInput.Text := SearchContent;
1970	InputDlg.CenterToRect(BoundsRect);
1971	InputDlg.ShowModal;
1972	if (InputDlg.ModalResult = mrOK) and (length(InputDlg.EInput.Text) >= 2) then
1973	begin
1974	Search(InputDlg.EInput.Text);
1975	case SearchResult.Count of
1976	0:
1977	SimpleMessage(Format(HelpText.Lookup('NOMATCHES'),
1978	[InputDlg.EInput.Text]));
1979	1:
1980	with THelpLineInfo(SearchResult.Objects[0]) do
1981	if Link >= $8000 then
1982	ShowNewContent(FWindowMode, hkText, Link and $3FFF)
1983	else
1984	ShowNewContent(FWindowMode, Link shr 8 and $3F, Link and $FF);
1985	else
1986	begin
1987	NewSearchContent := InputDlg.EInput.Text;
1988	ShowNewContent(FWindowMode, hkMisc, miscSearchResult);
1989	end
1990	end
1991	end
1992	end;
1993
1994	procedure THelpDlg.Search(SearchString: string);
1995	var
1996	h, i, PrevHandle, PrevIndex, p, RightMargin: integer;
1997	s: string;
1998	mADVHELP, mIMPHELP, mFEATUREHELP: set of 0 .. 255;
1999	bGOVHELP, bSPECIALMODEL, bJOBHELP: boolean;
2000	begin
2001	SearchResult.Clear;
2002	mADVHELP := [];
2003	mIMPHELP := [];
2004	mFEATUREHELP := [];
2005	bGOVHELP := false;
2006	bSPECIALMODEL := false;
2007	bJOBHELP := false;
2008
2009	// search in generic reference
2010	SearchString := UpperCase(SearchString);
2011	for i := 0 to 35 + 4 do
2012	begin
2013	s := Phrases.Lookup('TERRAIN', i);
2014	if pos(SearchString, UpperCase(s)) > 0 then
2015	if i < 36 then
2016	SearchResult.AddLine(s + ' ' + HelpText.Lookup('HELPSPEC_TER'),
2017	pkNormal, 0, hkTer + hkCrossLink, i)
2018	else
2019	begin
2020	SearchResult.AddLine(Phrases.Lookup('TERRAIN', 36) + ' ' +
2021	HelpText.Lookup('HELPSPEC_TER'), pkNormal, 0,
2022	hkTer + hkCrossLink, 36);
2023	if i > 36 then
2024	SearchResult.AddLine(Phrases.Lookup('IMPROVEMENTS',
2025	imShipComp + i - 37) + ' ' + HelpText.Lookup('HELPSPEC_SHIPPART'),
2026	pkNormal, 0, hkImp + hkCrossLink, imShipComp + i - 37);
2027	Break
2028	end
2029	end;
2030	for i := 0 to nJobHelp - 1 do
2031	if pos(SearchString, UpperCase(Phrases.Lookup('JOBRESULT', JobHelp[i]))) > 0
2032	then
2033	begin
2034	SearchResult.AddLine(HelpText.Lookup('HELPTITLE_JOBLIST'), pkNormal, 0,
2035	hkMisc + hkCrossLink, miscJobList);
2036	bJOBHELP := true;
2037	Break
2038	end;
2039	for i := 0 to nAdv - 1 do
2040	begin
2041	s := Phrases.Lookup('ADVANCES', i);
2042	if pos(SearchString, UpperCase(s)) > 0 then
2043	begin
2044	if i in FutureTech then
2045	s := s + ' ' + HelpText.Lookup('HELPSPEC_FUTURE')
2046	else
2047	s := s + ' ' + HelpText.Lookup('HELPSPEC_ADV');
2048	SearchResult.AddLine(s, pkNormal, 0, hkAdv + hkCrossLink, i);
2049	include(mADVHELP, i);
2050	end
2051	end;
2052	for i := 0 to nSpecialModel - 1 do
2053	begin
2054	FindStdModelPicture(SpecialModelPictureCode[i], h, s);
2055	if pos(SearchString, UpperCase(s)) > 0 then
2056	begin
2057	SearchResult.AddLine(HelpText.Lookup('HELPTITLE_MODELLIST'), pkNormal, 0,
2058	hkModel + hkCrossLink, 0);
2059	bSPECIALMODEL := true;
2060	Break
2061	end;
2062	end;
2063	for i := 0 to nFeature - 1 do
2064	begin
2065	s := Phrases.Lookup('FEATURES', i);
2066	if pos(SearchString, UpperCase(s)) > 0 then
2067	begin
2068	if i < mcFirstNonCap then
2069	s := s + ' ' + HelpText.Lookup('HELPSPEC_CAP')
2070	else if i in AutoFeature then
2071	s := s + ' ' + HelpText.Lookup('HELPSPEC_STANDARD')
2072	else
2073	s := s + ' ' + HelpText.Lookup('HELPSPEC_FEATURE');
2074	SearchResult.AddLine(s, pkNormal, 0, hkFeature + hkCrossLink, i);
2075	include(mFEATUREHELP, i);
2076	end
2077	end;
2078	for i := 0 to nImp - 1 do
2079	begin
2080	s := Phrases.Lookup('IMPROVEMENTS', i);
2081	if pos(SearchString, UpperCase(s)) > 0 then
2082	begin
2083	case Imp[i].Kind of
2084	ikWonder:
2085	s := s + ' ' + HelpText.Lookup('HELPSPEC_WONDER');
2086	ikCommon:
2087	s := s + ' ' + HelpText.Lookup('HELPSPEC_IMP');
2088	ikShipPart:
2089	s := s + ' ' + HelpText.Lookup('HELPSPEC_SHIPPART');
2090	else
2091	s := s + ' ' + HelpText.Lookup('HELPSPEC_NAT')
2092	end;
2093	SearchResult.AddLine(s, pkNormal, 0, hkImp + hkCrossLink, i);
2094	include(mIMPHELP, i);
2095	end
2096	end;
2097	for i := 0 to nGov - 1 do
2098	if pos(SearchString, UpperCase(Phrases.Lookup('GOVERNMENT', i))) > 0 then
2099	begin
2100	SearchResult.AddLine(HelpText.Lookup('HELPTITLE_GOVLIST'), pkNormal, 0,
2101	hkMisc + hkCrossLink, miscGovList);
2102	bGOVHELP := true;
2103	Break
2104	end;
2105
2106	// full text search
2107	h := -1;
2108	repeat
2109	PrevHandle := h;
2110	PrevIndex := i;
2111	if not HelpText.Search(SearchString, h, i) then
2112	Break;
2113	if h = hADVHELP then
2114	begin
2115	if (i >= 0) and ((i <> PrevIndex) or (h <> PrevHandle)) and
2116	not(i in mADVHELP) then
2117	begin
2118	s := Phrases.Lookup('ADVANCES', i);
2119	if i in FutureTech then
2120	s := s + ' ' + HelpText.Lookup('HELPSPEC_FUTURE')
2121	else
2122	s := s + ' ' + HelpText.Lookup('HELPSPEC_ADV');
2123	SearchResult.AddLine(s, pkNormal, 0, hkAdv + hkCrossLink, i)
2124	end
2125	end
2126	else if h = hIMPHELP then
2127	begin
2128	if (i >= 0) and ((i <> PrevIndex) or (h <> PrevHandle)) and
2129	not(i in mIMPHELP) then
2130	begin
2131	s := Phrases.Lookup('IMPROVEMENTS', i);
2132	case Imp[i].Kind of
2133	ikWonder:
2134	s := s + ' ' + HelpText.Lookup('HELPSPEC_WONDER');
2135	ikCommon:
2136	s := s + ' ' + HelpText.Lookup('HELPSPEC_IMP');
2137	ikShipPart:
2138	s := s + ' ' + HelpText.Lookup('HELPSPEC_SHIPPART');
2139	else
2140	s := s + ' ' + HelpText.Lookup('HELPSPEC_NAT')
2141	end;
2142	SearchResult.AddLine(s, pkNormal, 0, hkImp + hkCrossLink, i)
2143	end
2144	end
2145	else if h = hFEATUREHELP then
2146	begin
2147	if (i >= 0) and ((i <> PrevIndex) or (h <> PrevHandle)) and
2148	not(i in mFEATUREHELP) then
2149	begin
2150	s := Phrases.Lookup('FEATURES', i);
2151	if i < mcFirstNonCap then
2152	s := s + ' ' + HelpText.Lookup('HELPSPEC_CAP')
2153	else if i in AutoFeature then
2154	s := s + ' ' + HelpText.Lookup('HELPSPEC_STANDARD')
2155	else
2156	s := s + ' ' + HelpText.Lookup('HELPSPEC_FEATURE');
2157	SearchResult.AddLine(s, pkNormal, 0, hkFeature + hkCrossLink, i);
2158	end
2159	end
2160	else if h = hGOVHELP then
2161	begin
2162	if (i >= 0) and (h <> PrevHandle) and not bGOVHELP then
2163	SearchResult.AddLine(HelpText.Lookup('HELPTITLE_GOVLIST'), pkNormal, 0,
2164	hkMisc + hkCrossLink, miscGovList)
2165	end
2166	else if h = hSPECIALMODEL then
2167	begin
2168	if (i >= 0) and (h <> PrevHandle) and not bSPECIALMODEL then
2169	SearchResult.AddLine(HelpText.Lookup('HELPTITLE_MODELLIST'), pkNormal,
2170	0, hkModel + hkCrossLink, 0)
2171	end
2172	else if h = hJOBHELP then
2173	begin
2174	if (i >= 0) and (h <> PrevHandle) and not bJOBHELP then
2175	SearchResult.AddLine(HelpText.Lookup('HELPTITLE_JOBLIST'), pkNormal, 0,
2176	hkMisc + hkCrossLink, miscJobList)
2177	end
2178	else if { (h<>hMAIN) and } (h <> PrevHandle) then
2179	begin
2180	s := HelpText.LookupByHandle(h);
2181	p := pos('$', s);
2182	if p > 0 then
2183	begin
2184	s := copy(s, p + 1, maxint);
2185	p := pos('\', s);
2186	if p > 0 then
2187	s := copy(s, 1, p - 1);
2188	SearchResult.AddLine(s, pkNormal, 0, hkText + hkCrossLink, h);
2189	end
2190	end
2191	until false;
2192
2193	// cut lines to fit to window
2194	RightMargin := InnerWidth - 16 - GetSystemMetrics(SM_CXVSCROLL);
2195	OffScreen.Canvas.Font.Assign(UniFont[ftNormal]);
2196	for i := 0 to SearchResult.Count - 1 do
2197	begin
2198	while BiColorTextWidth(OffScreen.Canvas, SearchResult[i]) >
2199	RightMargin - 32 do
2200	SearchResult[i] := copy(SearchResult[i], 1, length(SearchResult[i]) - 1)
2201	end;
2202	end;
2203
2204	end.

Note: See TracBrowser for help on using the repository browser.

Download in other formats: