1 | {$INCLUDE Switches.inc}
|
---|
2 | unit Start;
|
---|
3 |
|
---|
4 | interface
|
---|
5 |
|
---|
6 | uses
|
---|
7 | GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area,
|
---|
8 | LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls,
|
---|
9 | Menus, Registry, DrawDlg, fgl, Protocol;
|
---|
10 |
|
---|
11 | type
|
---|
12 | TPlayerSlot = class
|
---|
13 | DiffUpBtn: TButtonC;
|
---|
14 | DiffDownBtn: TButtonC;
|
---|
15 | MultiBtn: TButtonC;
|
---|
16 | OfferMultiple: Boolean;
|
---|
17 | Rect: TRect;
|
---|
18 | end;
|
---|
19 |
|
---|
20 | TPlayerSlots = class(TFPGObjectList<TPlayerSlot>)
|
---|
21 | end;
|
---|
22 |
|
---|
23 | TStartPage = (
|
---|
24 | pgStartRandom,
|
---|
25 | pgStartMap,
|
---|
26 | pgNoLoad,
|
---|
27 | pgLoad,
|
---|
28 | pgEditRandom,
|
---|
29 | pgEditMap,
|
---|
30 | pgMain
|
---|
31 | );
|
---|
32 |
|
---|
33 | TStartTab = (tbMain, tbMap, tbNew, tbPrevious);
|
---|
34 | TMainAction = (maConfig, maManual, maCredits, maAIDev, maWeb, maNone);
|
---|
35 | TMainActionSet = set of TMainAction;
|
---|
36 |
|
---|
37 | TMapArray = array[0 .. lxmax * lymax - 1] of Byte;
|
---|
38 |
|
---|
39 | TMiniMode = (mmNone, mmPicture, mmMultiPlayer);
|
---|
40 |
|
---|
41 | { TMiniMap }
|
---|
42 |
|
---|
43 | TMiniMap = class
|
---|
44 | const
|
---|
45 | MaxWidthMapLogo = 96;
|
---|
46 | MaxHeightMapLogo = 96;
|
---|
47 | var
|
---|
48 | Bitmap: TBitmap; { game world sample preview }
|
---|
49 | Size: TPoint;
|
---|
50 | Colors: array [0 .. 11, 0 .. 1] of TColor;
|
---|
51 | Mode: TMiniMode;
|
---|
52 | procedure LoadFromLogFile(FileName: string; var LastTurn: Integer);
|
---|
53 | procedure LoadFromMapFile(FileName: string; var nMapLandTiles, nMapStartPositions: Integer);
|
---|
54 | procedure PaintRandom(Brightness, StartLandMass, WorldSize: Integer);
|
---|
55 | procedure PaintFile(SaveMap: TMapArray);
|
---|
56 | constructor Create;
|
---|
57 | destructor Destroy; override;
|
---|
58 | end;
|
---|
59 |
|
---|
60 | { TStartDlg }
|
---|
61 |
|
---|
62 | TStartDlg = class(TDrawDlg)
|
---|
63 | PopupMenu1: TPopupMenu;
|
---|
64 | StartBtn: TButtonA;
|
---|
65 | Down1Btn: TButtonC;
|
---|
66 | Up1Btn: TButtonC;
|
---|
67 | List: TListBox;
|
---|
68 | RenameBtn: TButtonB;
|
---|
69 | DeleteBtn: TButtonB;
|
---|
70 | Down2Btn: TButtonC;
|
---|
71 | Up2Btn: TButtonC;
|
---|
72 | QuitBtn: TButtonB;
|
---|
73 | CustomizeBtn: TButtonC;
|
---|
74 | AutoDiffUpBtn: TButtonC;
|
---|
75 | AutoDiffDownBtn: TButtonC;
|
---|
76 | AutoEnemyUpBtn: TButtonC;
|
---|
77 | AutoEnemyDownBtn: TButtonC;
|
---|
78 | ReplayBtn: TButtonB;
|
---|
79 | procedure StartBtnClick(Sender: TObject);
|
---|
80 | procedure FormPaint(Sender: TObject);
|
---|
81 | procedure FormShow(Sender: TObject);
|
---|
82 | procedure FormHide(Sender: TObject);
|
---|
83 | procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
---|
84 | procedure FormCreate(Sender: TObject);
|
---|
85 | procedure FormDestroy(Sender: TObject);
|
---|
86 | procedure BrainClick(Sender: TObject);
|
---|
87 | procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
|
---|
88 | procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
|
---|
89 | Shift: TShiftState; x, y: integer);
|
---|
90 | procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
|
---|
91 | Shift: TShiftState; x, y: integer);
|
---|
92 | procedure FormMouseMove(Sender: TObject; Shift: TShiftState; x, y: integer);
|
---|
93 | procedure Up1BtnClick(Sender: TObject);
|
---|
94 | procedure Down1BtnClick(Sender: TObject);
|
---|
95 | procedure ListClick(Sender: TObject);
|
---|
96 | procedure RenameBtnClick(Sender: TObject);
|
---|
97 | procedure DeleteBtnClick(Sender: TObject);
|
---|
98 | procedure DiffBtnClick(Sender: TObject);
|
---|
99 | procedure MultiBtnClick(Sender: TObject);
|
---|
100 | procedure Up2BtnClick(Sender: TObject);
|
---|
101 | procedure Down2BtnClick(Sender: TObject);
|
---|
102 | procedure QuitBtnClick(Sender: TObject);
|
---|
103 | procedure CustomizeBtnClick(Sender: TObject);
|
---|
104 | procedure AutoDiffUpBtnClick(Sender: TObject);
|
---|
105 | procedure AutoDiffDownBtnClick(Sender: TObject);
|
---|
106 | procedure AutoEnemyUpBtnClick(Sender: TObject);
|
---|
107 | procedure AutoEnemyDownBtnClick(Sender: TObject);
|
---|
108 | procedure ReplayBtnClick(Sender: TObject);
|
---|
109 | public
|
---|
110 | EmptyPicture: TBitmap;
|
---|
111 | procedure UpdateFormerGames;
|
---|
112 | procedure UpdateMaps;
|
---|
113 | private
|
---|
114 | WorldSize: Integer;
|
---|
115 | StartLandMass: Integer;
|
---|
116 | MaxTurn: Integer;
|
---|
117 | AutoEnemies: Integer;
|
---|
118 | AutoDiff: Integer;
|
---|
119 | MultiControl: Integer;
|
---|
120 | Page: TStartPage;
|
---|
121 | ShowTab: TStartTab;
|
---|
122 | Tab: TStartTab;
|
---|
123 | Diff0: Integer;
|
---|
124 | BrainDefault: TBrain;
|
---|
125 | nMapLandTiles: Integer;
|
---|
126 | nMapStartPositions: Integer;
|
---|
127 | LoadTurn: Integer;
|
---|
128 | LastTurn: Integer;
|
---|
129 | { last turn of selected former game }
|
---|
130 | SlotAvailable: Integer;
|
---|
131 | PlayerPopupIndex: Integer; { brain concerned by brain context menu }
|
---|
132 | ListIndex: array [TStartTab] of Integer;
|
---|
133 | MapFileName: string;
|
---|
134 | FormerGames: TStringList;
|
---|
135 | Maps: TStringList;
|
---|
136 | LogoBuffer: TBitmap;
|
---|
137 | // BookDate: string;
|
---|
138 | PlayerSlots: TPlayerSlots;
|
---|
139 | ActionsOffered: TMainActionSet;
|
---|
140 | SelectedAction: TMainAction;
|
---|
141 | TurnValid: Boolean;
|
---|
142 | Tracking: Boolean;
|
---|
143 | DefaultAI: string;
|
---|
144 | MiniMap: TMiniMap;
|
---|
145 | procedure DrawAction(y, IconIndex: integer; HeaderItem, TextItem: string);
|
---|
146 | procedure InitPopup(PlayerIndex: Integer);
|
---|
147 | procedure OfferBrain(Brain: TBrain; FixedLines: Integer);
|
---|
148 | procedure PaintInfo;
|
---|
149 | procedure ChangePage(NewPage: TStartPage);
|
---|
150 | procedure ChangeTab(NewTab: TStartTab);
|
---|
151 | procedure UnlistBackupFile(FileName: string);
|
---|
152 | procedure SmartInvalidate(x0, y0, x1, y1: integer;
|
---|
153 | invalidateTab0: boolean = false); overload;
|
---|
154 | procedure LoadConfig;
|
---|
155 | procedure SaveConfig;
|
---|
156 | procedure LoadAiBrainsPictures;
|
---|
157 | procedure UpdateInterface;
|
---|
158 | end;
|
---|
159 |
|
---|
160 | var
|
---|
161 | StartDlg: TStartDlg;
|
---|
162 |
|
---|
163 |
|
---|
164 | implementation
|
---|
165 |
|
---|
166 | uses
|
---|
167 | Global, Directories, Direct, ScreenTools, Inp, Back, Locale, UPixelPointer;
|
---|
168 |
|
---|
169 | {$R *.lfm}
|
---|
170 |
|
---|
171 | const
|
---|
172 | // predefined world size
|
---|
173 | // attention: lx*ly+1 must be prime!
|
---|
174 | { MaxWorldSize=8;
|
---|
175 | lxpre: array[0..nWorldSize-1] of integer =(30,40,50,60,70,90,110,130);
|
---|
176 | lypre: array[0..nWorldSize-1] of integer =(46,52,60,70,84,94,110,130);
|
---|
177 | DefaultWorldTiles=4200; }
|
---|
178 | MaxWorldSize = 6;
|
---|
179 | WorldSizes: array [0 .. MaxWorldSize - 1] of TPoint = ((X: 30; Y: 46),
|
---|
180 | (X: 40; Y: 52), (X: 50; Y: 60), (X: 60; Y: 70), (X: 75; Y: 82),
|
---|
181 | (X: 100; Y: 96));
|
---|
182 | DefaultWorldTiles = 4150;
|
---|
183 | DefaultWorldSize = 3;
|
---|
184 | DefaultLandMass = 30;
|
---|
185 |
|
---|
186 | nPlOffered = 9;
|
---|
187 | yMain = 14;
|
---|
188 | xActionIcon = 55;
|
---|
189 | xAction = 111;
|
---|
190 | yAction = 60;
|
---|
191 | ActionPitch = 56;
|
---|
192 | ActionSideBorder = 24;
|
---|
193 | ActionBottomBorder = 10;
|
---|
194 | wBuffer = 91;
|
---|
195 | x0Mini = 437;
|
---|
196 | y0Mini = 178;
|
---|
197 | xTurnSlider = 346;
|
---|
198 | yTurnSlider = 262;
|
---|
199 | wTurnSlider = 168;
|
---|
200 | yLogo = 74;
|
---|
201 | xDefault = 234;
|
---|
202 | yDefault = 148;
|
---|
203 | x0Brain = 146;
|
---|
204 | y0Brain = 148;
|
---|
205 | dxBrain = 104;
|
---|
206 | dyBrain = 80;
|
---|
207 | xBrain: array [0 .. nPlOffered - 1] of integer = (x0Brain, x0Brain,
|
---|
208 | x0Brain + dxBrain, x0Brain + dxBrain, x0Brain + dxBrain, x0Brain,
|
---|
209 | x0Brain - dxBrain, x0Brain - dxBrain, x0Brain - dxBrain);
|
---|
210 | yBrain: array [0 .. nPlOffered - 1] of integer = (y0Brain, y0Brain - dyBrain,
|
---|
211 | y0Brain - dyBrain, y0Brain, y0Brain + dyBrain, y0Brain + dyBrain,
|
---|
212 | y0Brain + dyBrain, y0Brain, y0Brain - dyBrain);
|
---|
213 | TabOffset = -115;
|
---|
214 | TabSize = 159;
|
---|
215 | TabHeight = 40;
|
---|
216 |
|
---|
217 | InitAlive: array [1 .. nPl] of integer = (1, 1 + 2, 1 + 2 + 32,
|
---|
218 | 1 + 2 + 8 + 128, 1 + 2 + 8 + 32 + 128, 1 + 2 + 8 + 16 + 64 + 128,
|
---|
219 | 1 + 2 + 4 + 16 + 32 + 64 + 256, 511 - 32, 511, 511 - 32, 511, 511 - 32, 511,
|
---|
220 | 511 - 32, 511);
|
---|
221 | InitMulti: array [nPlOffered + 1 .. nPl] of integer = (256, 256, 256 + 128,
|
---|
222 | 256 + 128, 256 + 128 + 64, 256 + 128 + 64);
|
---|
223 |
|
---|
224 | PlayerAutoDiff: array [1 .. 5] of integer = (1, 1, 2, 2, 3);
|
---|
225 | EnemyAutoDiff: array [1 .. 5] of integer = (4, 3, 2, 1, 1);
|
---|
226 |
|
---|
227 | { TMiniMap }
|
---|
228 |
|
---|
229 | constructor TMiniMap.Create;
|
---|
230 | var
|
---|
231 | X, Y: Integer;
|
---|
232 | begin
|
---|
233 | Bitmap := TBitmap.Create;
|
---|
234 |
|
---|
235 | for X := 0 to 11 do
|
---|
236 | for Y := 0 to 1 do
|
---|
237 | Colors[x, y] := GrExt[HGrSystem].Data.Canvas.Pixels[66 + x, 67 + y];
|
---|
238 | end;
|
---|
239 |
|
---|
240 | destructor TMiniMap.Destroy;
|
---|
241 | begin
|
---|
242 | FreeAndNil(Bitmap);
|
---|
243 | inherited Destroy;
|
---|
244 | end;
|
---|
245 |
|
---|
246 | procedure TMiniMap.LoadFromLogFile(FileName: string; var LastTurn: Integer);
|
---|
247 | var
|
---|
248 | SaveMap: TMapArray;
|
---|
249 | y: Integer;
|
---|
250 | Dummy: Integer;
|
---|
251 | FileLandMass: integer;
|
---|
252 | LogFile: file;
|
---|
253 | s: string[255];
|
---|
254 | MapRow: array [0 .. lxmax - 1] of Cardinal;
|
---|
255 | begin
|
---|
256 | AssignFile(LogFile, FileName);
|
---|
257 | try
|
---|
258 | Reset(LogFile, 4);
|
---|
259 | BlockRead(LogFile, s[1], 2); { file id }
|
---|
260 | BlockRead(LogFile, Dummy, 1); { format id }
|
---|
261 | if Dummy >= $000E01 then
|
---|
262 | BlockRead(LogFile, Dummy, 1); { item stored since 0.14.1 }
|
---|
263 | BlockRead(LogFile, Size.X, 1);
|
---|
264 | BlockRead(LogFile, Size.Y, 1);
|
---|
265 | BlockRead(LogFile, FileLandMass, 1);
|
---|
266 | if FileLandMass = 0 then
|
---|
267 | for y := 0 to Size.Y - 1 do
|
---|
268 | BlockRead(LogFile, MapRow, Size.X);
|
---|
269 | BlockRead(LogFile, Dummy, 1);
|
---|
270 | BlockRead(LogFile, Dummy, 1);
|
---|
271 | BlockRead(LogFile, LastTurn, 1);
|
---|
272 | BlockRead(LogFile, SaveMap, 1);
|
---|
273 | if SaveMap[0] = $80 then
|
---|
274 | Mode := mmMultiPlayer
|
---|
275 | else
|
---|
276 | Mode := mmPicture;
|
---|
277 | if Mode = mmPicture then
|
---|
278 | BlockRead(LogFile, SaveMap[4], (Size.X * Size.Y - 1) div 4);
|
---|
279 | CloseFile(LogFile);
|
---|
280 | except
|
---|
281 | CloseFile(LogFile);
|
---|
282 | LastTurn := 0;
|
---|
283 | Size := WorldSizes[DefaultWorldSize];
|
---|
284 | Mode := mmNone;
|
---|
285 | end;
|
---|
286 | PaintFile(SaveMap);
|
---|
287 | end;
|
---|
288 |
|
---|
289 | procedure TMiniMap.LoadFromMapFile(FileName: string; var nMapLandTiles, nMapStartPositions: Integer);
|
---|
290 | var
|
---|
291 | x, y, lxFile, lyFile: integer;
|
---|
292 | MapFile: file;
|
---|
293 | s: string[255];
|
---|
294 | MapRow: array [0 .. lxmax - 1] of Cardinal;
|
---|
295 | ImageFileName: string;
|
---|
296 | begin
|
---|
297 | ImageFileName := Copy(FileName, 1, Length(FileName) - Length(CevoMapExt)) + '.png';
|
---|
298 | Mode := mmPicture;
|
---|
299 | if LoadGraphicFile(Bitmap, ImageFileName, gfNoError) then
|
---|
300 | begin
|
---|
301 | if Bitmap.width div 2 > MaxWidthMapLogo then
|
---|
302 | Bitmap.width := MaxWidthMapLogo * 2;
|
---|
303 | if Bitmap.height > MaxHeightMapLogo then
|
---|
304 | Bitmap.height := MaxHeightMapLogo;
|
---|
305 | Size.X := Bitmap.width div 2;
|
---|
306 | Size.Y := Bitmap.height;
|
---|
307 | end
|
---|
308 | else
|
---|
309 | begin
|
---|
310 | Mode := mmNone;
|
---|
311 | Size.X := MaxWidthMapLogo;
|
---|
312 | Size.Y := MaxHeightMapLogo;
|
---|
313 | end;
|
---|
314 |
|
---|
315 | AssignFile(MapFile, FileName);
|
---|
316 | try
|
---|
317 | Reset(MapFile, 4);
|
---|
318 | BlockRead(MapFile, s[1], 2); { file id }
|
---|
319 | BlockRead(MapFile, x, 1); { format id }
|
---|
320 | BlockRead(MapFile, x, 1); // MaxTurn
|
---|
321 | BlockRead(MapFile, lxFile, 1);
|
---|
322 | BlockRead(MapFile, lyFile, 1);
|
---|
323 | nMapLandTiles := 0;
|
---|
324 | nMapStartPositions := 0;
|
---|
325 | for y := 0 to lyFile - 1 do begin
|
---|
326 | BlockRead(MapFile, MapRow, lxFile);
|
---|
327 | for x := 0 to lxFile - 1 do
|
---|
328 | begin
|
---|
329 | if (MapRow[x] and fTerrain) in [fGrass, fPrairie, fTundra, fSwamp,
|
---|
330 | fForest, fHills] then
|
---|
331 | inc(nMapLandTiles);
|
---|
332 | if MapRow[x] and (fPrefStartPos or fStartPos) <> 0 then
|
---|
333 | inc(nMapStartPositions);
|
---|
334 | end
|
---|
335 | end;
|
---|
336 | if nMapStartPositions > nPl then
|
---|
337 | nMapStartPositions := nPl;
|
---|
338 | CloseFile(MapFile);
|
---|
339 | except
|
---|
340 | CloseFile(MapFile);
|
---|
341 | end;
|
---|
342 | end;
|
---|
343 |
|
---|
344 | procedure TMiniMap.PaintRandom(Brightness, StartLandMass, WorldSize: Integer);
|
---|
345 | var
|
---|
346 | i, x, y, xm, cm: Integer;
|
---|
347 | MiniPixel: TPixelPointer;
|
---|
348 | Map: ^TTileList;
|
---|
349 | begin
|
---|
350 | Map := PreviewMap(StartLandMass);
|
---|
351 | Size := WorldSizes[WorldSize];
|
---|
352 |
|
---|
353 | Bitmap.PixelFormat := pf24bit;
|
---|
354 | Bitmap.SetSize(Size.X * 2, Size.Y);
|
---|
355 | Bitmap.BeginUpdate;
|
---|
356 | MiniPixel := PixelPointer(Bitmap);
|
---|
357 | for y := 0 to Size.Y - 1 do begin
|
---|
358 | for x := 0 to Size.X - 1 do begin
|
---|
359 | for i := 0 to 1 do begin
|
---|
360 | xm := (x * 2 + i + y and 1) mod (Size.X * 2);
|
---|
361 | MiniPixel.SetX(xm);
|
---|
362 | cm := Colors
|
---|
363 | [Map[x * lxmax div Size.X + lxmax *
|
---|
364 | ((y * (lymax - 1) + Size.Y div 2) div (Size.Y - 1))] and
|
---|
365 | fTerrain, i];
|
---|
366 | MiniPixel.Pixel^.B := ((cm shr 16) and $FF) * Brightness div 3;
|
---|
367 | MiniPixel.Pixel^.G := ((cm shr 8) and $FF) * Brightness div 3;
|
---|
368 | MiniPixel.Pixel^.R := ((cm shr 0) and $FF) * Brightness div 3;
|
---|
369 | end;
|
---|
370 | end;
|
---|
371 | MiniPixel.NextLine;
|
---|
372 | end;
|
---|
373 | Bitmap.EndUpdate;
|
---|
374 | end;
|
---|
375 |
|
---|
376 | procedure TMiniMap.PaintFile(SaveMap: TMapArray);
|
---|
377 | var
|
---|
378 | i, x, y, xm, cm, Tile, OwnColor, EnemyColor: integer;
|
---|
379 | MiniPixel: TPixelPointer;
|
---|
380 | PrevMiniPixel: TPixelPointer;
|
---|
381 | begin
|
---|
382 | OwnColor := GrExt[HGrSystem].Data.Canvas.Pixels[95, 67];
|
---|
383 | EnemyColor := GrExt[HGrSystem].Data.Canvas.Pixels[96, 67];
|
---|
384 | Bitmap.PixelFormat := pf24bit;
|
---|
385 | Bitmap.SetSize(Size.X * 2, Size.Y);
|
---|
386 | if Mode = mmPicture then begin
|
---|
387 | Bitmap.BeginUpdate;
|
---|
388 | MiniPixel := PixelPointer(Bitmap);
|
---|
389 | PrevMiniPixel := PixelPointer(Bitmap, 0, -1);
|
---|
390 | for y := 0 to Size.Y - 1 do begin
|
---|
391 | for x := 0 to Size.X - 1 do begin
|
---|
392 | for i := 0 to 1 do begin
|
---|
393 | xm := (x * 2 + i + y and 1) mod (Size.X * 2);
|
---|
394 | MiniPixel.SetX(xm);
|
---|
395 | Tile := SaveMap[x + Size.X * y];
|
---|
396 | if Tile and fTerrain = fUNKNOWN then
|
---|
397 | cm := $000000
|
---|
398 | else if Tile and smCity <> 0 then
|
---|
399 | begin
|
---|
400 | if Tile and smOwned <> 0 then
|
---|
401 | cm := OwnColor
|
---|
402 | else
|
---|
403 | cm := EnemyColor;
|
---|
404 | if y > 0 then begin
|
---|
405 | // 2x2 city dot covers two lines
|
---|
406 | PrevMiniPixel.SetX(xm);
|
---|
407 | PrevMiniPixel.Pixel^.B := cm shr 16;
|
---|
408 | PrevMiniPixel.Pixel^.G:= cm shr 8 and $FF;
|
---|
409 | PrevMiniPixel.Pixel^.R := cm and $FF;
|
---|
410 | end;
|
---|
411 | end
|
---|
412 | else if (i = 0) and (Tile and smUnit <> 0) then
|
---|
413 | if Tile and smOwned <> 0 then
|
---|
414 | cm := OwnColor
|
---|
415 | else cm := EnemyColor
|
---|
416 | else
|
---|
417 | cm := Colors[Tile and fTerrain, i];
|
---|
418 | MiniPixel.Pixel^.B := (cm shr 16) and $ff;
|
---|
419 | MiniPixel.Pixel^.G := (cm shr 8) and $ff;
|
---|
420 | MiniPixel.Pixel^.R := (cm shr 0) and $ff;
|
---|
421 | end;
|
---|
422 | end;
|
---|
423 | MiniPixel.NextLine;
|
---|
424 | PrevMiniPixel.NextLine;
|
---|
425 | end;
|
---|
426 | Bitmap.EndUpdate;
|
---|
427 | end;
|
---|
428 | end;
|
---|
429 |
|
---|
430 | { TStartDlg }
|
---|
431 |
|
---|
432 | procedure TStartDlg.FormCreate(Sender: TObject);
|
---|
433 | var
|
---|
434 | x, i: Integer;
|
---|
435 | PlayerSlot: TPlayerSlot;
|
---|
436 | AIBrains: TBrains;
|
---|
437 | begin
|
---|
438 | PlayerSlots := TPlayerSlots.Create;
|
---|
439 | PlayerSlots.Count := nPlOffered;
|
---|
440 | for I := 0 to PlayerSlots.Count - 1 do begin
|
---|
441 | PlayerSlot := TPlayerSlot.Create;
|
---|
442 | PlayerSlot.Rect := Bounds(xBrain[I], YBrain[I], 0, 0);
|
---|
443 | PlayerSlots[I] := PlayerSlot;
|
---|
444 | end;
|
---|
445 | LoadConfig;
|
---|
446 | LoadAssets;
|
---|
447 |
|
---|
448 | ActionsOffered := [maConfig, maManual, maCredits, maWeb];
|
---|
449 | if FileExists(HomeDir + AITemplateFileName) then
|
---|
450 | Include(ActionsOffered, maAIDev);
|
---|
451 |
|
---|
452 | BrainDefault := nil;
|
---|
453 | for i := Brains.IndexOf(BrainRandom) to Brains.Count - 1 do
|
---|
454 | if AnsiCompareFileName(DefaultAI, Brains[i].FileName) = 0 then
|
---|
455 | BrainDefault := Brains[i];
|
---|
456 | if (BrainDefault = BrainRandom) and (Brains.GetKindCount(btAI) < 2) then
|
---|
457 | BrainDefault := nil;
|
---|
458 | if (not Assigned(BrainDefault)) and (Brains.GetKindCount(btAI) > 0) then
|
---|
459 | begin
|
---|
460 | AIBrains := TBrains.Create(False);
|
---|
461 | Brains.GetByKind(btAI, AIBrains);
|
---|
462 | BrainDefault := Brains[0];
|
---|
463 | AIBrains.Free;
|
---|
464 | end; // default AI not found, use any
|
---|
465 |
|
---|
466 | DirectDlg.Left := (Screen.Width - DirectDlg.Width) div 2;
|
---|
467 | DirectDlg.Top := (Screen.Height - DirectDlg.Height) div 2;
|
---|
468 |
|
---|
469 | UpdateInterface;
|
---|
470 |
|
---|
471 | Canvas.Font.Assign(UniFont[ftNormal]);
|
---|
472 | Canvas.Brush.Style := bsClear;
|
---|
473 |
|
---|
474 | QuitBtn.Hint := Phrases.Lookup('STARTCONTROLS', 0);
|
---|
475 | ReplayBtn.Hint := Phrases.Lookup('BTN_REPLAY');
|
---|
476 | PlayerSlots.Count := nPlOffered;
|
---|
477 | for i := 0 to PlayerSlots.Count - 1 do
|
---|
478 | with PlayerSlots[i] do begin
|
---|
479 | DiffUpBtn := TButtonC.Create(self);
|
---|
480 | DiffUpBtn.Graphic := GrExt[HGrSystem].Data;
|
---|
481 | DiffUpBtn.left := xBrain[i] - 18;
|
---|
482 | DiffUpBtn.top := yBrain[i] + 39;
|
---|
483 | DiffUpBtn.ButtonIndex := 1;
|
---|
484 | DiffUpBtn.Parent := self;
|
---|
485 | DiffUpBtn.OnClick := DiffBtnClick;
|
---|
486 | DiffDownBtn := TButtonC.Create(self);
|
---|
487 | DiffDownBtn.Graphic := GrExt[HGrSystem].Data;
|
---|
488 | DiffDownBtn.left := xBrain[i] - 18;
|
---|
489 | DiffDownBtn.top := yBrain[i] + 51;
|
---|
490 | DiffDownBtn.ButtonIndex := 0;
|
---|
491 | DiffDownBtn.Parent := self;
|
---|
492 | DiffDownBtn.OnClick := DiffBtnClick;
|
---|
493 | end;
|
---|
494 | for i := 6 to 8 do
|
---|
495 | with PlayerSlots[i] do begin
|
---|
496 | MultiBtn := TButtonC.Create(self);
|
---|
497 | MultiBtn.Graphic := GrExt[HGrSystem].Data;
|
---|
498 | MultiBtn.left := xBrain[i] - 18;
|
---|
499 | MultiBtn.top := yBrain[i];
|
---|
500 | MultiBtn.Parent := self;
|
---|
501 | MultiBtn.OnClick := MultiBtnClick;
|
---|
502 | OfferMultiple := True;
|
---|
503 | end;
|
---|
504 |
|
---|
505 | x := BiColorTextWidth(Canvas, Phrases.Lookup('STARTCONTROLS', 7)) div 2;
|
---|
506 | CustomizeBtn.left := x0Brain + 32 - 16 - x;
|
---|
507 | if AutoDiff < 0 then
|
---|
508 | CustomizeBtn.ButtonIndex := 3
|
---|
509 | else
|
---|
510 | CustomizeBtn.ButtonIndex := 2;
|
---|
511 |
|
---|
512 | BitBltBitmap(BrainNoTerm.Picture, 0, 0, 64, 64, GrExt[HGrSystem2].Data, 1, 111);
|
---|
513 | BitBltBitmap(BrainSuperVirtual.Picture, 0, 0, 64, 64, GrExt[HGrSystem2].Data, 66, 111);
|
---|
514 | BitBltBitmap(BrainTerm.Picture, 0, 0, 64, 64, GrExt[HGrSystem2].Data, 131, 111);
|
---|
515 | BitBltBitmap(BrainRandom.Picture, 0, 0, 64, 64, GrExt[HGrSystem2].Data, 131, 46);
|
---|
516 | LoadAiBrainsPictures;
|
---|
517 |
|
---|
518 | EmptyPicture := TBitmap.Create;
|
---|
519 | EmptyPicture.PixelFormat := pf24bit;
|
---|
520 | EmptyPicture.SetSize(64, 64);
|
---|
521 | EmptyPicture.Canvas.FillRect(0, 0, EmptyPicture.Width, EmptyPicture.Height);
|
---|
522 | LogoBuffer := TBitmap.Create;
|
---|
523 | LogoBuffer.PixelFormat := pf24bit;
|
---|
524 | LogoBuffer.SetSize(wBuffer, 56);
|
---|
525 | LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height);
|
---|
526 |
|
---|
527 | MiniMap := TMiniMap.Create;
|
---|
528 | InitButtons;
|
---|
529 |
|
---|
530 | PlayersBrain[0] := BrainTerm;
|
---|
531 | SlotAvailable := -1;
|
---|
532 | Tab := tbNew;
|
---|
533 | Diff0 := 2;
|
---|
534 | TurnValid := False;
|
---|
535 | Tracking := False;
|
---|
536 | FormerGames := TStringList.Create;
|
---|
537 | UpdateFormerGames;
|
---|
538 | ShowTab := tbNew; // always start with new book page
|
---|
539 | MapFileName := '';
|
---|
540 | Maps := TStringList.Create;
|
---|
541 | UpdateMaps;
|
---|
542 | end;
|
---|
543 |
|
---|
544 | procedure TStartDlg.FormDestroy(Sender: TObject);
|
---|
545 | begin
|
---|
546 | SaveConfig;
|
---|
547 | FreeAndNil(FormerGames);
|
---|
548 | FreeAndNil(Maps);
|
---|
549 | FreeAndNil(EmptyPicture);
|
---|
550 | FreeAndNil(LogoBuffer);
|
---|
551 | FreeAndNil(PlayerSlots);
|
---|
552 | FreeAndNil(MiniMap);
|
---|
553 | end;
|
---|
554 |
|
---|
555 | procedure TStartDlg.SmartInvalidate(x0, y0, x1, y1: integer;
|
---|
556 | invalidateTab0: boolean);
|
---|
557 | var
|
---|
558 | i: integer;
|
---|
559 | r0, r1: HRgn;
|
---|
560 | begin
|
---|
561 | r0 := CreateRectRgn(x0, y0, x1, y1);
|
---|
562 | for i := 0 to ControlCount - 1 do
|
---|
563 | if not (Controls[i] is TArea) and Controls[i].Visible then
|
---|
564 | begin
|
---|
565 | with Controls[i].BoundsRect do
|
---|
566 | r1 := CreateRectRgn(left, top, Right, Bottom);
|
---|
567 | CombineRgn(r0, r0, r1, RGN_DIFF);
|
---|
568 | DeleteObject(r1);
|
---|
569 | end;
|
---|
570 | if not invalidateTab0 then begin
|
---|
571 | r1 := CreateRectRgn(0, 0, 6 + 36, 3 + 38); // tab 0 icon
|
---|
572 | CombineRgn(r0, r0, r1, RGN_DIFF);
|
---|
573 | DeleteObject(r1);
|
---|
574 | end;
|
---|
575 | InvalidateRgn(Handle, r0, false);
|
---|
576 | DeleteObject(r0);
|
---|
577 | end;
|
---|
578 |
|
---|
579 | procedure TStartDlg.LoadConfig;
|
---|
580 | var
|
---|
581 | Reg: TRegistry;
|
---|
582 | I: Integer;
|
---|
583 | S: string;
|
---|
584 | ResolutionX, ResolutionY, ResolutionBPP, ResolutionFreq: Integer;
|
---|
585 | ScreenMode: Integer;
|
---|
586 | begin
|
---|
587 | Reg := TRegistry.Create;
|
---|
588 | with Reg do try
|
---|
589 | // Initialize AI assignment
|
---|
590 | OpenKey(AppRegistryKey + '\AI', True);
|
---|
591 | for I := 0 to nPlOffered - 1 do begin
|
---|
592 | if I = 0 then S := ':StdIntf'
|
---|
593 | else S := 'StdAI';
|
---|
594 | if not ValueExists('Control' + IntToStr(I)) then
|
---|
595 | WriteString('Control' + IntToStr(I), S);
|
---|
596 | if not ValueExists('Diff' + IntToStr(I)) then
|
---|
597 | WriteInteger('Diff' + IntToStr(I), 2);
|
---|
598 | end;
|
---|
599 |
|
---|
600 | OpenKey(AppRegistryKey, True);
|
---|
601 | if ValueExists('Gamma') then Gamma := ReadInteger('Gamma')
|
---|
602 | else Gamma := 100;
|
---|
603 | if Gamma <> 100 then InitGammaLookupTable;
|
---|
604 | if ValueExists('Locale') then LocaleCode := ReadString('Locale')
|
---|
605 | else LocaleCode := '';
|
---|
606 | if ValueExists('WorldSize') then WorldSize := Reg.ReadInteger('WorldSize')
|
---|
607 | else WorldSize := DefaultWorldSize;
|
---|
608 | if ValueExists('LandMass') then StartLandMass := Reg.ReadInteger('LandMass')
|
---|
609 | else StartLandMass := DefaultLandMass;
|
---|
610 | if ValueExists('MaxTurn') then MaxTurn := Reg.ReadInteger('MaxTurn')
|
---|
611 | else MaxTurn := 800;
|
---|
612 | if ValueExists('DefaultAI') then DefaultAI := Reg.ReadString('DefaultAI')
|
---|
613 | else DefaultAI := 'StdAI';
|
---|
614 | if ValueExists('AutoEnemies') then AutoEnemies := Reg.ReadInteger('AutoEnemies')
|
---|
615 | else AutoEnemies := 8;
|
---|
616 | if ValueExists('AutoDiff') then AutoDiff := Reg.ReadInteger('AutoDiff')
|
---|
617 | else AutoDiff := 1;
|
---|
618 |
|
---|
619 | if ValueExists('ScreenMode') then
|
---|
620 | ScreenMode := ReadInteger('ScreenMode')
|
---|
621 | else ScreenMode := 1;
|
---|
622 | FullScreen := ScreenMode > 0;
|
---|
623 | if ValueExists('ResolutionX') then
|
---|
624 | ResolutionX := ReadInteger('ResolutionX');
|
---|
625 | if ValueExists('ResolutionY') then
|
---|
626 | ResolutionY := ReadInteger('ResolutionY');
|
---|
627 | if ValueExists('ResolutionBPP') then
|
---|
628 | ResolutionBPP := ReadInteger('ResolutionBPP');
|
---|
629 | if ValueExists('ResolutionFreq') then
|
---|
630 | ResolutionFreq := ReadInteger('ResolutionFreq');
|
---|
631 | if ValueExists('MultiControl') then
|
---|
632 | MultiControl := ReadInteger('MultiControl')
|
---|
633 | else MultiControl := 0;
|
---|
634 | {$IFDEF WINDOWS}
|
---|
635 | if ScreenMode = 2 then
|
---|
636 | ChangeResolution(ResolutionX, ResolutionY, ResolutionBPP,
|
---|
637 | ResolutionFreq);
|
---|
638 | {$ENDIF}
|
---|
639 | finally
|
---|
640 | Free;
|
---|
641 | end;
|
---|
642 | end;
|
---|
643 |
|
---|
644 | procedure TStartDlg.SaveConfig;
|
---|
645 | var
|
---|
646 | Reg: TRegistry;
|
---|
647 | begin
|
---|
648 | Reg := TRegistry.Create;
|
---|
649 | with Reg do try
|
---|
650 | OpenKey(AppRegistryKey, True);
|
---|
651 | WriteInteger('WorldSize', WorldSize);
|
---|
652 | WriteInteger('LandMass', StartLandMass);
|
---|
653 | WriteString('Locale', LocaleCode);
|
---|
654 | WriteInteger('Gamma', Gamma);
|
---|
655 | if FullScreen then WriteInteger('ScreenMode', 1)
|
---|
656 | else WriteInteger('ScreenMode', 0);
|
---|
657 | WriteInteger('MultiControl', MultiControl);
|
---|
658 | finally
|
---|
659 | Free;
|
---|
660 | end;
|
---|
661 | end;
|
---|
662 |
|
---|
663 | procedure TStartDlg.LoadAiBrainsPictures;
|
---|
664 | var
|
---|
665 | AIBrains: TBrains;
|
---|
666 | I: Integer;
|
---|
667 | begin
|
---|
668 | AIBrains := TBrains.Create(False);
|
---|
669 | Brains.GetByKind(btAI, AIBrains);
|
---|
670 | for i := 0 to AIBrains.Count - 1 do
|
---|
671 | with AIBrains[I] do begin
|
---|
672 | if not LoadGraphicFile(AIBrains[i].Picture, GetAiDir + DirectorySeparator +
|
---|
673 | FileName + DirectorySeparator + FileName + '.png', gfNoError) then begin
|
---|
674 | with AIBrains[i].Picture.Canvas do begin
|
---|
675 | Brush.Color := $904830;
|
---|
676 | FillRect(Rect(0, 0, 64, 64));
|
---|
677 | Font.Assign(UniFont[ftTiny]);
|
---|
678 | Font.Style := [];
|
---|
679 | Font.Color := $5FDBFF;
|
---|
680 | Textout(32 - TextWidth(FileName) div 2,
|
---|
681 | 32 - TextHeight(FileName) div 2, FileName);
|
---|
682 | end;
|
---|
683 | end;
|
---|
684 | end;
|
---|
685 | AIBrains.Free;
|
---|
686 | end;
|
---|
687 |
|
---|
688 | procedure TStartDlg.UpdateInterface;
|
---|
689 | var
|
---|
690 | r0, r1: HRgn;
|
---|
691 | Location: TPoint;
|
---|
692 | begin
|
---|
693 | if FullScreen then begin
|
---|
694 | Location := Point((Screen.Width - 800) * 3 div 8,
|
---|
695 | Screen.Height - Height - (Screen.Height - 600) div 3);
|
---|
696 | BoundsRect := Bounds(Location.X, Location.Y, Width, Height);
|
---|
697 |
|
---|
698 | r0 := CreateRectRgn(0, 0, Width, Height);
|
---|
699 | r1 := CreateRectRgn(TabOffset + 4 * TabSize + 2, 0, Width, TabHeight);
|
---|
700 | CombineRgn(r0, r0, r1, RGN_DIFF);
|
---|
701 | DeleteObject(r1);
|
---|
702 | r1 := CreateRectRgn(QuitBtn.Left, QuitBtn.Top, QuitBtn.Left + QuitBtn.Width,
|
---|
703 | QuitBtn.top + QuitBtn.Height);
|
---|
704 | CombineRgn(r0, r0, r1, RGN_OR);
|
---|
705 | DeleteObject(r1);
|
---|
706 | SetWindowRgn(Handle, r0, False);
|
---|
707 | DeleteObject(r0); // causes crash with Windows 95
|
---|
708 | end else begin
|
---|
709 | BoundsRect := Bounds((Screen.Width - Width) div 2,
|
---|
710 | (Screen.Height - Height) div 2, Width, Height)
|
---|
711 | end;
|
---|
712 | end;
|
---|
713 |
|
---|
714 | procedure TStartDlg.DrawAction(y, IconIndex: integer; HeaderItem, TextItem: string);
|
---|
715 | begin
|
---|
716 | Canvas.Font.Assign(UniFont[ftCaption]);
|
---|
717 | Canvas.Font.Style := Canvas.Font.Style + [fsUnderline];
|
---|
718 | RisedTextOut(Canvas, xAction, y - 3, Phrases2.Lookup(HeaderItem));
|
---|
719 | Canvas.Font.Assign(UniFont[ftNormal]);
|
---|
720 | BiColorTextOut(Canvas, Colors.Canvas.Pixels[clkAge0 - 1, cliDimmedText],
|
---|
721 | $000000, xAction, y + 21, Phrases2.Lookup(TextItem));
|
---|
722 |
|
---|
723 | // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it
|
---|
724 | LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height);
|
---|
725 | BitBltCanvas(LogoBuffer.Canvas, 0, 0, 50, 50, Canvas,
|
---|
726 | xActionIcon - 2, y - 2);
|
---|
727 | GlowFrame(LogoBuffer, 8, 8, 34, 34, $202020);
|
---|
728 | BitBltCanvas(Canvas, xActionIcon - 2, y - 2, 50, 50,
|
---|
729 | LogoBuffer.Canvas, 0, 0);
|
---|
730 | BitBltCanvas(Canvas, xActionIcon, y, 40, 40, BigImp.Canvas,
|
---|
731 | (IconIndex mod 7) * xSizeBig + 8, (IconIndex div 7) * ySizeBig);
|
---|
732 | RFrame(Canvas, xActionIcon - 1, y - 1, xActionIcon + 40, y + 40,
|
---|
733 | $000000, $000000);
|
---|
734 | end;
|
---|
735 |
|
---|
736 | procedure TStartDlg.FormPaint(Sender: TObject);
|
---|
737 | const
|
---|
738 | TabNames: array[TStartTab] of Integer = (0, 11, 3, 4);
|
---|
739 | var
|
---|
740 | i, w, h, xMini, yMini, y: integer;
|
---|
741 | s: string;
|
---|
742 | Tab2: TStartTab;
|
---|
743 | MainAction: TMainAction;
|
---|
744 | begin
|
---|
745 | PaintBackground(self, 3, 3, TabOffset + 4 * TabSize - 4, TabHeight - 3);
|
---|
746 | PaintBackground(self, 3, TabHeight + 3, ClientWidth - 6,
|
---|
747 | ClientHeight - TabHeight - 6);
|
---|
748 | with Canvas do
|
---|
749 | begin
|
---|
750 | Brush.Color := $000000;
|
---|
751 | FillRect(Rect(0, 1, ClientWidth, 3));
|
---|
752 | FillRect(Rect(TabOffset + 4 * TabSize + 2, 0, ClientWidth, TabHeight));
|
---|
753 | Brush.Style := bsClear;
|
---|
754 | end;
|
---|
755 | if Page in [pgStartRandom, pgStartMap] then
|
---|
756 | begin
|
---|
757 | Frame(Canvas, 328, yMain + 112 - 15, ClientWidth, Up2Btn.top + 38,
|
---|
758 | MainTexture.clBevelShade, MainTexture.clBevelLight);
|
---|
759 | if AutoDiff > 0 then
|
---|
760 | begin
|
---|
761 | Frame(Canvas, -1 { x0Brain-dxBrain } ,
|
---|
762 | yMain + 112 - 15 { Up1Btn.Top-12 }{ y0Brain-dyBrain } ,
|
---|
763 | x0Brain + dxBrain + 64, Up2Btn.top + 38 { y0Brain+dyBrain+64 } ,
|
---|
764 | MainTexture.clBevelShade, MainTexture.clBevelLight);
|
---|
765 | end;
|
---|
766 | end
|
---|
767 | else if Page <> pgMain then
|
---|
768 | Frame(Canvas, 328, Up1Btn.top - 15, ClientWidth, Up2Btn.top + 38,
|
---|
769 | MainTexture.clBevelShade, MainTexture.clBevelLight);
|
---|
770 | Frame(Canvas, 0, 0, ClientWidth - 1, ClientHeight - 1, 0, 0);
|
---|
771 |
|
---|
772 | // draw tabs
|
---|
773 | Frame(Canvas, 2, 2 + 2 * integer(Tab <> tbMain), TabOffset + (0 + 1) * TabSize - 1,
|
---|
774 | TabHeight, MainTexture.clBevelLight, MainTexture.clBevelShade);
|
---|
775 | Frame(Canvas, 1, 1 + 2 * integer(Tab <> tbMain), TabOffset + (0 + 1) * TabSize,
|
---|
776 | TabHeight, MainTexture.clBevelLight, MainTexture.clBevelShade);
|
---|
777 | Canvas.Pixels[1, 1 + 2 * integer(Tab <> tbMain)] := MainTexture.clBevelShade;
|
---|
778 | for Tab2 := tbMap to tbPrevious do
|
---|
779 | begin
|
---|
780 | Frame(Canvas, TabOffset + Integer(Tab2) * TabSize + 2, 2 + 2 * integer(Tab <> Tab2),
|
---|
781 | TabOffset + (Integer(Tab2) + 1) * TabSize - 1, TabHeight, MainTexture.clBevelLight,
|
---|
782 | MainTexture.clBevelShade);
|
---|
783 | Frame(Canvas, TabOffset + Integer(Tab2) * TabSize + 1, 1 + 2 * integer(Tab <> Tab2),
|
---|
784 | TabOffset + (Integer(Tab2) + 1) * TabSize, TabHeight, MainTexture.clBevelLight,
|
---|
785 | MainTexture.clBevelShade);
|
---|
786 | Canvas.Pixels[TabOffset + Integer(Tab2) * TabSize + 1, 1 + 2 * integer(Tab <> Tab2)] :=
|
---|
787 | MainTexture.clBevelShade;
|
---|
788 | end;
|
---|
789 | Canvas.Font.Assign(UniFont[ftNormal]);
|
---|
790 | for Tab2 := tbMap to tbPrevious do
|
---|
791 | begin
|
---|
792 | s := Phrases.Lookup('STARTCONTROLS', TabNames[Tab2]);
|
---|
793 | RisedTextOut(Canvas, TabOffset + Integer(Tab2) * TabSize + 1 +
|
---|
794 | (TabSize - BiColorTextWidth(Canvas, s)) div 2,
|
---|
795 | 10 + 2 * integer(Tab <> Tab2), s);
|
---|
796 | end;
|
---|
797 | Frame(Canvas, TabOffset + 4 * TabSize + 1, -1, ClientWidth, TabHeight,
|
---|
798 | $000000, $000000);
|
---|
799 | Frame(Canvas, 1, TabHeight + 1, ClientWidth - 2, ClientHeight - 2,
|
---|
800 | MainTexture.clBevelLight, MainTexture.clBevelShade);
|
---|
801 | Frame(Canvas, 2, TabHeight + 2, ClientWidth - 3, ClientHeight - 3,
|
---|
802 | MainTexture.clBevelLight, MainTexture.clBevelShade);
|
---|
803 | if Tab = tbMain then
|
---|
804 | begin
|
---|
805 | PaintBackground(self, 3, TabHeight - 1, TabSize - 4 - 3 + TabOffset + 3, 4);
|
---|
806 | Canvas.Pixels[2, TabHeight] := MainTexture.clBevelLight;
|
---|
807 | end
|
---|
808 | else
|
---|
809 | begin
|
---|
810 | PaintBackground(self, TabOffset + 3 + Integer(Tab) * TabSize, TabHeight - 1,
|
---|
811 | TabSize - 4, 4);
|
---|
812 | Canvas.Pixels[TabOffset + Integer(Tab) * TabSize + 2, TabHeight] :=
|
---|
813 | MainTexture.clBevelLight;
|
---|
814 | end;
|
---|
815 | Canvas.Pixels[TabOffset + (Integer(Tab) + 1) * TabSize - 1, TabHeight + 1] :=
|
---|
816 | MainTexture.clBevelShade;
|
---|
817 | if Tab < tbPrevious then
|
---|
818 | Frame(Canvas, TabOffset + (Integer(Tab) + 1) * TabSize + 1, 3,
|
---|
819 | TabOffset + (Integer(Tab) + 1) * TabSize + 2, TabHeight, MainTexture.clBevelShade,
|
---|
820 | MainTexture.clBevelShade); // Tab shadow
|
---|
821 | // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it
|
---|
822 | LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height);
|
---|
823 | BitBltCanvas(LogoBuffer.Canvas, 0, 0, 36, 36, Canvas, 6,
|
---|
824 | 3 + 2 * integer(Tab <> tbMain));
|
---|
825 |
|
---|
826 | ImageOp_BCC(LogoBuffer, Templates, 0, 0, 145, 38, 36, 27, $BFBF20, $4040DF);
|
---|
827 | // logo part 1
|
---|
828 | ImageOp_BCC(LogoBuffer, Templates, 10, 27, 155, 38 + 27, 26, 9, $BFBF20,
|
---|
829 | $4040DF); // logo part 2
|
---|
830 | BitBltCanvas(Canvas, 6, 3 + 2 * integer(Tab <> tbMain), 36, 36,
|
---|
831 | LogoBuffer.Canvas, 0, 0);
|
---|
832 |
|
---|
833 | if Page = pgMain then begin
|
---|
834 | if SelectedAction <> maNone then // mark selected action
|
---|
835 | for i := 0 to (ClientWidth - 2 * ActionSideBorder) div wBuffer + 1 do
|
---|
836 | begin
|
---|
837 | w := ClientWidth - 2 * ActionSideBorder - i * wBuffer;
|
---|
838 | if w > wBuffer then
|
---|
839 | w := wBuffer;
|
---|
840 | h := ActionPitch;
|
---|
841 | if yAction + Integer(SelectedAction) * ActionPitch - 8 + h > ClientHeight - ActionBottomBorder
|
---|
842 | then
|
---|
843 | h := ClientHeight - ActionBottomBorder -
|
---|
844 | (yAction + Integer(SelectedAction) * ActionPitch - 8);
|
---|
845 | // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it
|
---|
846 | LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height);
|
---|
847 | BitBltCanvas(LogoBuffer.Canvas, 0, 0, w, h, Canvas,
|
---|
848 | ActionSideBorder + i * wBuffer, yAction + Integer(SelectedAction) * ActionPitch
|
---|
849 | - 8);
|
---|
850 | MakeBlue(LogoBuffer, 0, 0, w, h);
|
---|
851 | BitBltCanvas(Canvas, ActionSideBorder + i * wBuffer,
|
---|
852 | yAction + Integer(SelectedAction) * ActionPitch - 8, w, h,
|
---|
853 | LogoBuffer.Canvas, 0, 0);
|
---|
854 | end;
|
---|
855 | y := yAction;
|
---|
856 | for MainAction := Low(TMainActionSet) to High(TMainActionSet) do
|
---|
857 | begin
|
---|
858 | if MainAction in ActionsOffered then
|
---|
859 | case MainAction of
|
---|
860 | maConfig: DrawAction(y, 25, 'ACTIONHEADER_CONFIG', 'ACTION_CONFIG');
|
---|
861 | maManual: DrawAction(y, 19, 'ACTIONHEADER_MANUAL', 'ACTION_MANUAL');
|
---|
862 | maCredits: DrawAction(y, 22, 'ACTIONHEADER_CREDITS', 'ACTION_CREDITS');
|
---|
863 | maAIDev: DrawAction(y, 24, 'ACTIONHEADER_AIDEV', 'ACTION_AIDEV');
|
---|
864 | maWeb:
|
---|
865 | begin
|
---|
866 | Canvas.Font.Assign(UniFont[ftCaption]);
|
---|
867 | // Canvas.Font.Style:=Canvas.Font.Style+[fsUnderline];
|
---|
868 | RisedTextOut(Canvas, xActionIcon + 99, y,
|
---|
869 | Phrases2.Lookup('ACTIONHEADER_WEB'));
|
---|
870 | Canvas.Font.Assign(UniFont[ftNormal]);
|
---|
871 | // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it
|
---|
872 | LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height);
|
---|
873 | BitBltCanvas(LogoBuffer.Canvas, 0, 0, 91, 25, Canvas,
|
---|
874 | xActionIcon, y + 2);
|
---|
875 | ImageOp_BCC(LogoBuffer, Templates, 0, 0, 1, 400, 91, 25, 0,
|
---|
876 | Colors.Canvas.Pixels[clkAge0 - 1, cliDimmedText]);
|
---|
877 | BitBltCanvas(Canvas, xActionIcon, y + 2, 91, 25,
|
---|
878 | LogoBuffer.Canvas, 0, 0);
|
---|
879 | end;
|
---|
880 | end;
|
---|
881 | Inc(y, ActionPitch);
|
---|
882 | end;
|
---|
883 | end
|
---|
884 | else if Page in [pgStartRandom, pgStartMap] then
|
---|
885 | begin
|
---|
886 | DLine(Canvas, 344, 514, y0Mini + 61 + 19, MainTexture.clBevelLight,
|
---|
887 | MainTexture.clBevelShade);
|
---|
888 | RisedTextOut(Canvas, 344, y0Mini + 61, Phrases.Lookup('STARTCONTROLS', 10));
|
---|
889 | s := TurnToString(MaxTurn);
|
---|
890 | RisedTextOut(Canvas, 514 - BiColorTextWidth(Canvas, s), y0Mini + 61, s);
|
---|
891 | s := Phrases.Lookup('STARTCONTROLS', 7);
|
---|
892 | w := Canvas.TextWidth(s);
|
---|
893 | LoweredTextOut(Canvas, -2, MainTexture, x0Brain + 32 - w div 2,
|
---|
894 | y0Brain + dyBrain + 69, s);
|
---|
895 |
|
---|
896 | InitOrnament;
|
---|
897 | if AutoDiff < 0 then
|
---|
898 | begin
|
---|
899 | for i := 12 to 19 do
|
---|
900 | if (i < 13) or (i > 17) then
|
---|
901 | begin
|
---|
902 | BitBltCanvas(Canvas, 9 + i * 27, yLogo - 2, wOrna, hOrna,
|
---|
903 | GrExt[HGrSystem2].Mask.Canvas, xOrna, yOrna, SRCAND);
|
---|
904 | BitBltCanvas(Canvas, 9 + i * 27, yLogo - 2, wOrna, hOrna,
|
---|
905 | GrExt[HGrSystem2].Data.Canvas, xOrna, yOrna, SRCPAINT);
|
---|
906 | end;
|
---|
907 | PaintLogo(Canvas, 69 + 11 * 27, yLogo, MainTexture.clBevelLight,
|
---|
908 | MainTexture.clBevelShade);
|
---|
909 |
|
---|
910 | for i := 0 to nPlOffered - 1 do
|
---|
911 | if 1 shl i and SlotAvailable <> 0 then
|
---|
912 | begin
|
---|
913 | if Assigned(PlayersBrain[i]) then
|
---|
914 | FrameImage(Canvas, PlayersBrain[i].Picture, xBrain[i], yBrain[i],
|
---|
915 | 64, 64, 0, 0, true)
|
---|
916 | else
|
---|
917 | FrameImage(Canvas, EmptyPicture, xBrain[i], yBrain[i], 64, 64,
|
---|
918 | 0, 0, true);
|
---|
919 | if Assigned(PlayersBrain[I]) and (PlayersBrain[i].Kind in [btTerm, btRandom, btAI]) then
|
---|
920 | begin
|
---|
921 | BitBltCanvas(Canvas, xBrain[i] - 18, yBrain[i] + 19, 12, 14,
|
---|
922 | GrExt[HGrSystem].Data.Canvas, 134 + (Difficulty[i] - 1) *
|
---|
923 | 13, 28);
|
---|
924 | Frame(Canvas, xBrain[i] - 19, yBrain[i] + 18, xBrain[i] - 18 + 12,
|
---|
925 | yBrain[i] + (19 + 14), $000000, $000000);
|
---|
926 | RFrame(Canvas, PlayerSlots[i].DiffUpBtn.left - 1, PlayerSlots[i].DiffUpBtn.top - 1,
|
---|
927 | PlayerSlots[i].DiffUpBtn.left + 12, PlayerSlots[i].DiffUpBtn.top + 24,
|
---|
928 | MainTexture.clBevelShade, MainTexture.clBevelLight);
|
---|
929 | with Canvas do
|
---|
930 | begin
|
---|
931 | Brush.Color := $000000;
|
---|
932 | FillRect(Rect(xBrain[i] - 5, yBrain[i] + 25, xBrain[i] - 2,
|
---|
933 | yBrain[i] + 27));
|
---|
934 | Brush.Style := bsClear;
|
---|
935 | end;
|
---|
936 | if PlayerSlots[I].OfferMultiple then
|
---|
937 | begin
|
---|
938 | RFrame(Canvas, PlayerSlots[I].MultiBtn.left - 1, PlayerSlots[I].MultiBtn.top - 1,
|
---|
939 | PlayerSlots[I].MultiBtn.left + 12, PlayerSlots[I].MultiBtn.top + 12,
|
---|
940 | MainTexture.clBevelShade, MainTexture.clBevelLight);
|
---|
941 | BitBltCanvas(Canvas, xBrain[i] - 31, yBrain[i], 13, 12,
|
---|
942 | GrExt[HGrSystem].Data.Canvas, 88, 47);
|
---|
943 | end;
|
---|
944 | end;
|
---|
945 | if Assigned(PlayersBrain[i]) then
|
---|
946 | begin
|
---|
947 | PlayerSlots[i].DiffUpBtn.Hint := Format(Phrases.Lookup('STARTCONTROLS', 9),
|
---|
948 | [PlayersBrain[i].Name]);
|
---|
949 | PlayerSlots[i].DiffDownBtn.Hint := PlayerSlots[i].DiffUpBtn.Hint;
|
---|
950 | end;
|
---|
951 | end;
|
---|
952 | end
|
---|
953 | else
|
---|
954 | begin
|
---|
955 | DLine(Canvas, 24, 198, yMain + 140 + 19, MainTexture.clBevelLight,
|
---|
956 | MainTexture.clBevelShade);
|
---|
957 | RisedTextOut(Canvas, 24 { x0Brain+32-BiColorTextWidth(Canvas,s) div 2 } ,
|
---|
958 | yMain + 140 { y0Mini-77 } , Phrases.Lookup('STARTCONTROLS', 15));
|
---|
959 | if Page = pgStartRandom then
|
---|
960 | s := IntToStr(AutoEnemies)
|
---|
961 | else if nMapStartPositions = 0 then
|
---|
962 | s := '0'
|
---|
963 | else
|
---|
964 | s := IntToStr(nMapStartPositions - 1);
|
---|
965 | RisedTextOut(Canvas, 198 - BiColorTextWidth(Canvas, s), yMain + 140, s);
|
---|
966 | DLine(Canvas, 24, xDefault - 6, yMain + 164 + 19,
|
---|
967 | MainTexture.clBevelLight, MainTexture.clBevelShade);
|
---|
968 | RisedTextOut(Canvas, 24 { x0Brain+32-BiColorTextWidth(Canvas,s) div 2 } ,
|
---|
969 | yMain + 164 { y0Mini-77 } , Phrases.Lookup('STARTCONTROLS', 16));
|
---|
970 | if AutoDiff = 1 then
|
---|
971 | FrameImage(Canvas, BrainBeginner.Picture, xDefault, yDefault, 64,
|
---|
972 | 64, 0, 0, false)
|
---|
973 | else
|
---|
974 | FrameImage(Canvas, BrainDefault.Picture, xDefault, yDefault, 64, 64,
|
---|
975 | 0, 0, true);
|
---|
976 | DLine(Canvas, 56, 272, y0Mini + 61 + 19, MainTexture.clBevelLight,
|
---|
977 | MainTexture.clBevelShade);
|
---|
978 | RisedTextOut(Canvas, 56, y0Mini + 61,
|
---|
979 | Phrases.Lookup('STARTCONTROLS', 14));
|
---|
980 | s := Phrases.Lookup('AUTODIFF', AutoDiff - 1);
|
---|
981 | RisedTextOut(Canvas, 272 - BiColorTextWidth(Canvas, s), y0Mini + 61, s);
|
---|
982 |
|
---|
983 | for i := 0 to 19 do
|
---|
984 | if (i < 2) or (i > 6) then
|
---|
985 | begin
|
---|
986 | BitBltCanvas(Canvas, 9 + i * 27, yLogo - 2, wOrna, hOrna,
|
---|
987 | GrExt[HGrSystem2].Mask.Canvas, xOrna, yOrna, SRCAND);
|
---|
988 | BitBltCanvas(Canvas, 9 + i * 27, yLogo - 2, wOrna, hOrna,
|
---|
989 | GrExt[HGrSystem2].Data.Canvas, xOrna, yOrna, SRCPAINT);
|
---|
990 | end;
|
---|
991 | PaintLogo(Canvas, 69, yLogo, MainTexture.clBevelLight,
|
---|
992 | MainTexture.clBevelShade);
|
---|
993 | end;
|
---|
994 | end
|
---|
995 | else if Page = pgLoad then
|
---|
996 | begin
|
---|
997 | // RisedTextOut(Canvas,x0Mini+2-BiColorTextWidth(Canvas,BookDate) div 2,y0Mini-73,BookDate);
|
---|
998 | if LastTurn > 0 then
|
---|
999 | begin
|
---|
1000 | PaintProgressBar(Canvas, 6, xTurnSlider, yTurnSlider, 0,
|
---|
1001 | LoadTurn * wTurnSlider div LastTurn, wTurnSlider, MainTexture);
|
---|
1002 | Frame(Canvas, xTurnSlider - 2, yTurnSlider - 2, xTurnSlider + wTurnSlider
|
---|
1003 | + 1, yTurnSlider + 8, $B0B0B0, $FFFFFF);
|
---|
1004 | RFrame(Canvas, xTurnSlider - 3, yTurnSlider - 3, xTurnSlider + wTurnSlider
|
---|
1005 | + 2, yTurnSlider + 9, $FFFFFF, $B0B0B0);
|
---|
1006 | end
|
---|
1007 | else
|
---|
1008 | DLine(Canvas, 344, 514, y0Mini + 61 + 19, MainTexture.clBevelLight,
|
---|
1009 | MainTexture.clBevelShade);
|
---|
1010 | RisedTextOut(Canvas, 344, y0Mini + 61, Phrases.Lookup('STARTCONTROLS', 8));
|
---|
1011 | s := TurnToString(LoadTurn);
|
---|
1012 | RisedTextOut(Canvas, 514 - BiColorTextWidth(Canvas, s), y0Mini + 61, s);
|
---|
1013 | end
|
---|
1014 | else if Page = pgEditRandom then
|
---|
1015 | begin
|
---|
1016 | DLine(Canvas, 344, 514, y0Mini - 77 + 19, MainTexture.clBevelLight,
|
---|
1017 | MainTexture.clBevelShade);
|
---|
1018 | RisedTextOut(Canvas, 344, y0Mini - 77, Phrases.Lookup('STARTCONTROLS', 5));
|
---|
1019 | s := IntToStr((WorldSizes[WorldSize].X * WorldSizes[WorldSize].Y * 20 +
|
---|
1020 | DefaultWorldTiles div 2) div DefaultWorldTiles * 5) + '%';
|
---|
1021 | RisedTextOut(Canvas, 514 - BiColorTextWidth(Canvas, s), y0Mini - 77, s);
|
---|
1022 | DLine(Canvas, 344, 514, y0Mini + 61 + 19, MainTexture.clBevelLight,
|
---|
1023 | MainTexture.clBevelShade);
|
---|
1024 | RisedTextOut(Canvas, 344, y0Mini + 61, Phrases.Lookup('STARTCONTROLS', 6));
|
---|
1025 | s := IntToStr(StartLandMass) + '%';
|
---|
1026 | RisedTextOut(Canvas, 514 - BiColorTextWidth(Canvas, s), y0Mini + 61, s);
|
---|
1027 | end
|
---|
1028 | else if Page = pgEditMap then
|
---|
1029 | begin
|
---|
1030 | // DLine(Canvas,344,514,y0Mini+61+19,MainTexture.clBevelLight,MainTexture.clBevelShade);
|
---|
1031 | s := Format(Phrases2.Lookup('MAPPROP'),
|
---|
1032 | [(nMapLandTiles * 100 + 556) div 1112,
|
---|
1033 | // 1112 is typical for world with 100% size and default land mass
|
---|
1034 | nMapStartPositions]);
|
---|
1035 | RisedTextOut(Canvas, x0Mini - BiColorTextWidth(Canvas, s) div 2,
|
---|
1036 | y0Mini + 61, s);
|
---|
1037 | end;
|
---|
1038 |
|
---|
1039 | if StartBtn.Visible then
|
---|
1040 | BtnFrame(Canvas, StartBtn.BoundsRect, MainTexture);
|
---|
1041 | if Up2Btn.Visible then
|
---|
1042 | RFrame(Canvas, Up2Btn.left - 1, Up2Btn.top - 1, Up2Btn.left + 12,
|
---|
1043 | Up2Btn.top + 24, MainTexture.clBevelShade, MainTexture.clBevelLight);
|
---|
1044 | if Up1Btn.Visible then
|
---|
1045 | RFrame(Canvas, Up1Btn.left - 1, Up1Btn.top - 1, Up1Btn.left + 12,
|
---|
1046 | Up1Btn.top + 24, MainTexture.clBevelShade, MainTexture.clBevelLight);
|
---|
1047 | if AutoDiffUpBtn.Visible then
|
---|
1048 | RFrame(Canvas, AutoDiffUpBtn.left - 1, AutoDiffUpBtn.top - 1,
|
---|
1049 | AutoDiffUpBtn.left + 12, AutoDiffUpBtn.top + 24, MainTexture.clBevelShade,
|
---|
1050 | MainTexture.clBevelLight);
|
---|
1051 | if AutoEnemyUpBtn.Visible then
|
---|
1052 | RFrame(Canvas, AutoEnemyUpBtn.left - 1, AutoEnemyUpBtn.top - 1,
|
---|
1053 | AutoEnemyUpBtn.left + 12, AutoEnemyUpBtn.top + 24,
|
---|
1054 | MainTexture.clBevelShade, MainTexture.clBevelLight);
|
---|
1055 | if CustomizeBtn.Visible then
|
---|
1056 | RFrame(Canvas, CustomizeBtn.left - 1, CustomizeBtn.top - 1,
|
---|
1057 | CustomizeBtn.left + 12, CustomizeBtn.top + 12, MainTexture.clBevelShade,
|
---|
1058 | MainTexture.clBevelLight);
|
---|
1059 | if List.Visible then
|
---|
1060 | EditFrame(Canvas, List.BoundsRect, MainTexture);
|
---|
1061 | if RenameBtn.Visible then
|
---|
1062 | BtnFrame(Canvas, RenameBtn.BoundsRect, MainTexture);
|
---|
1063 | if DeleteBtn.Visible then
|
---|
1064 | BtnFrame(Canvas, DeleteBtn.BoundsRect, MainTexture);
|
---|
1065 | if Page = pgLoad then
|
---|
1066 | BtnFrame(Canvas, ReplayBtn.BoundsRect, MainTexture);
|
---|
1067 |
|
---|
1068 | if not (Page in [pgMain, pgNoLoad]) then
|
---|
1069 | begin
|
---|
1070 | xMini := x0Mini - MiniMap.Size.X;
|
---|
1071 | yMini := y0Mini - MiniMap.Size.Y div 2;
|
---|
1072 | Frame(Canvas, xMini, yMini, xMini + 3 + MiniMap.Size.X * 2,
|
---|
1073 | yMini + 3 + MiniMap.Size.Y, MainTexture.clBevelLight,
|
---|
1074 | MainTexture.clBevelShade);
|
---|
1075 | Frame(Canvas, xMini + 1, yMini + 1, xMini + 2 + MiniMap.Size.X * 2,
|
---|
1076 | yMini + 2 + MiniMap.Size.Y, MainTexture.clBevelShade,
|
---|
1077 | MainTexture.clBevelLight);
|
---|
1078 |
|
---|
1079 | s := '';
|
---|
1080 | if MiniMap.Mode = mmPicture then
|
---|
1081 | begin
|
---|
1082 | BitBltCanvas(Canvas, xMini + 2, yMini + 2, MiniMap.Size.X * 2, MiniMap.Size.Y,
|
---|
1083 | MiniMap.Bitmap.Canvas, 0, 0);
|
---|
1084 | if Page = pgStartRandom then
|
---|
1085 | s := Phrases.Lookup('RANMAP')
|
---|
1086 | end
|
---|
1087 | else if MiniMap.Mode = mmMultiPlayer then
|
---|
1088 | s := Phrases.Lookup('MPMAP')
|
---|
1089 | else if Page = pgStartMap then
|
---|
1090 | s := Copy(MapFileName, 1, Length(MapFileName) - 9)
|
---|
1091 | else if Page = pgEditMap then
|
---|
1092 | s := List.Items[List.ItemIndex]
|
---|
1093 | else if Page = pgNoLoad then
|
---|
1094 | s := Phrases.Lookup('NOGAMES');
|
---|
1095 | if s <> '' then
|
---|
1096 | RisedTextOut(Canvas, x0Mini + 2 - BiColorTextWidth(Canvas, s) div 2,
|
---|
1097 | y0Mini - 8, s);
|
---|
1098 | end;
|
---|
1099 | end;
|
---|
1100 |
|
---|
1101 | procedure TStartDlg.FormShow(Sender: TObject);
|
---|
1102 | begin
|
---|
1103 | SetMainTextureByAge(-1);
|
---|
1104 | List.Font.Color := MainTexture.clMark;
|
---|
1105 |
|
---|
1106 | Fill(EmptyPicture.Canvas, Bounds(0, 0, 64, 64),
|
---|
1107 | Point((wMaintexture - 64) div 2, (hMaintexture - 64) div 2));
|
---|
1108 |
|
---|
1109 | DarkenImage(EmptyPicture, 28);
|
---|
1110 |
|
---|
1111 | Difficulty[0] := Diff0;
|
---|
1112 |
|
---|
1113 | SelectedAction := maNone;
|
---|
1114 | if ShowTab = tbPrevious then
|
---|
1115 | PreviewMap(StartLandMass); // avoid delay on first TabX change
|
---|
1116 | ChangeTab(ShowTab);
|
---|
1117 | Background.Enabled := False;
|
---|
1118 | end;
|
---|
1119 |
|
---|
1120 | procedure TStartDlg.UnlistBackupFile(FileName: string);
|
---|
1121 | var
|
---|
1122 | I: Integer;
|
---|
1123 | begin
|
---|
1124 | if FileName[1] <> '~' then
|
---|
1125 | FileName := '~' + FileName;
|
---|
1126 | I := FormerGames.Count - 1;
|
---|
1127 | while (I >= 0) and (AnsiCompareFileName(FormerGames[I], FileName) <> 0) do
|
---|
1128 | Dec(I);
|
---|
1129 | if I >= 0 then
|
---|
1130 | begin
|
---|
1131 | FormerGames.Delete(I);
|
---|
1132 | if ListIndex[tbNew] = I then
|
---|
1133 | ListIndex[tbNew] := 0
|
---|
1134 | end;
|
---|
1135 | end;
|
---|
1136 |
|
---|
1137 | procedure TStartDlg.StartBtnClick(Sender: TObject);
|
---|
1138 | var
|
---|
1139 | I, GameCount, MapCount: Integer;
|
---|
1140 | FileName: string;
|
---|
1141 | Reg: TRegistry;
|
---|
1142 | begin
|
---|
1143 | case Page of
|
---|
1144 | pgLoad:
|
---|
1145 | begin // load
|
---|
1146 | FileName := List.Items[List.ItemIndex];
|
---|
1147 | if LoadGame(GetSavedDir + DirectorySeparator, FileName + CevoExt, LoadTurn, false)
|
---|
1148 | then
|
---|
1149 | UnlistBackupFile(FileName)
|
---|
1150 | else
|
---|
1151 | SimpleMessage(Phrases.Lookup('LOADERR'));
|
---|
1152 | SlotAvailable := -1;
|
---|
1153 | end;
|
---|
1154 | pgStartRandom, pgStartMap:
|
---|
1155 | if Assigned(PlayersBrain[0]) then
|
---|
1156 | begin
|
---|
1157 | if (Page = pgStartMap) and (nMapStartPositions = 0) and (AutoDiff > 0)
|
---|
1158 | then
|
---|
1159 | begin
|
---|
1160 | SimpleMessage(Phrases.Lookup('NOSTARTPOS'));
|
---|
1161 | Exit;
|
---|
1162 | end;
|
---|
1163 |
|
---|
1164 | Reg := TRegistry.Create;
|
---|
1165 | with Reg do
|
---|
1166 | try
|
---|
1167 | OpenKey(AppRegistryKey, true);
|
---|
1168 | if ValueExists('GameCount') then GameCount := ReadInteger('GameCount')
|
---|
1169 | else GameCount := 0;
|
---|
1170 |
|
---|
1171 | if (AutoDiff < 0) and (PlayersBrain[0].Kind = btNoTerm) then
|
---|
1172 | FileName := 'Round' + IntToStr(GetProcessID())
|
---|
1173 | else begin
|
---|
1174 | Inc(GameCount);
|
---|
1175 | FileName := Format(Phrases.Lookup('GAME'), [GameCount]);
|
---|
1176 | end;
|
---|
1177 |
|
---|
1178 | // Save settings and AI assignment
|
---|
1179 | if Page = pgStartRandom then begin
|
---|
1180 | SaveConfig;
|
---|
1181 | OpenKey(AppRegistryKey + '\AI', True);
|
---|
1182 | if AutoDiff < 0 then
|
---|
1183 | for I := 0 to nPlOffered - 1 do begin
|
---|
1184 | if not Assigned(PlayersBrain[I]) then
|
---|
1185 | Reg.WriteString('Control' + IntToStr(I), '')
|
---|
1186 | else Reg.WriteString('Control' + IntToStr(I),
|
---|
1187 | PlayersBrain[I].FileName);
|
---|
1188 | WriteInteger('Diff' + IntToStr(I), Difficulty[I]);
|
---|
1189 | end;
|
---|
1190 | end;
|
---|
1191 |
|
---|
1192 | OpenKey(AppRegistryKey, True);
|
---|
1193 | if AutoDiff > 0 then
|
---|
1194 | begin
|
---|
1195 | WriteString('DefaultAI', BrainDefault.FileName);
|
---|
1196 | SlotAvailable := 0; // PlayerSlot will be invalid hereafter
|
---|
1197 | PlayersBrain[0] := BrainTerm;
|
---|
1198 | Difficulty[0] := PlayerAutoDiff[AutoDiff];
|
---|
1199 | for I := 1 to nPl - 1 do
|
---|
1200 | if (Page = pgStartRandom) and (I <= AutoEnemies) or
|
---|
1201 | (Page = pgStartMap) and (I < nMapStartPositions) then begin
|
---|
1202 | if AutoDiff = 1 then PlayersBrain[I] := BrainBeginner
|
---|
1203 | else PlayersBrain[I] := BrainDefault;
|
---|
1204 | Difficulty[I] := EnemyAutoDiff[AutoDiff];
|
---|
1205 | end else PlayersBrain[I] := nil;
|
---|
1206 | end else begin
|
---|
1207 | for I := 6 to 8 do
|
---|
1208 | if (PlayersBrain[0].Kind <> btNoTerm) and (MultiControl and (1 shl I) <> 0)
|
---|
1209 | then begin
|
---|
1210 | PlayersBrain[I + 3] := PlayersBrain[I];
|
---|
1211 | Difficulty[I + 3] := Difficulty[I];
|
---|
1212 | PlayersBrain[I + 6] := PlayersBrain[I];
|
---|
1213 | Difficulty[I + 6] := Difficulty[I];
|
---|
1214 | end else begin
|
---|
1215 | PlayersBrain[I + 3] := nil;
|
---|
1216 | PlayersBrain[I + 6] := nil;
|
---|
1217 | end;
|
---|
1218 | end;
|
---|
1219 |
|
---|
1220 | WriteInteger('AutoDiff', AutoDiff);
|
---|
1221 | WriteInteger('AutoEnemies', AutoEnemies);
|
---|
1222 | WriteInteger('MaxTurn', MaxTurn);
|
---|
1223 | WriteInteger('GameCount', GameCount);
|
---|
1224 | finally
|
---|
1225 | Free;
|
---|
1226 | end;
|
---|
1227 |
|
---|
1228 | StartNewGame(GetSavedDir + DirectorySeparator, FileName + CevoExt, MapFileName,
|
---|
1229 | WorldSizes[WorldSize].X, WorldSizes[WorldSize].Y, StartLandMass, MaxTurn);
|
---|
1230 | UnlistBackupFile(FileName);
|
---|
1231 | end;
|
---|
1232 | pgEditMap:
|
---|
1233 | EditMap(MapFileName, lxmax, lymax, StartLandMass);
|
---|
1234 | pgEditRandom: // new map
|
---|
1235 | begin
|
---|
1236 | Reg := TRegistry.Create;
|
---|
1237 | with Reg do
|
---|
1238 | try
|
---|
1239 | OpenKey(AppRegistryKey, True);
|
---|
1240 | if ValueExists('MapCount') then MapCount := ReadInteger('MapCount')
|
---|
1241 | else MapCount := 0;
|
---|
1242 | Inc(MapCount);
|
---|
1243 | WriteInteger('MapCount', MapCount);
|
---|
1244 | finally
|
---|
1245 | Free;
|
---|
1246 | end;
|
---|
1247 | MapFileName := Format(Phrases.Lookup('MAP'), [MapCount]) + CevoMapExt;
|
---|
1248 | EditMap(MapFileName, WorldSizes[WorldSize].X, WorldSizes[WorldSize].Y, StartLandMass);
|
---|
1249 | end;
|
---|
1250 | end;
|
---|
1251 | end;
|
---|
1252 |
|
---|
1253 | procedure TStartDlg.PaintInfo;
|
---|
1254 | begin
|
---|
1255 | case Page of
|
---|
1256 | pgStartRandom: begin
|
---|
1257 | MiniMap.Mode := mmPicture;
|
---|
1258 | MiniMap.PaintRandom(3, StartLandMass, WorldSize);
|
---|
1259 | end;
|
---|
1260 | pgNoLoad: begin
|
---|
1261 | MiniMap.Mode := mmNone;
|
---|
1262 | MiniMap.Size := WorldSizes[DefaultWorldSize];
|
---|
1263 | end;
|
---|
1264 | pgLoad: begin
|
---|
1265 | MiniMap.LoadFromLogFile(GetSavedDir + DirectorySeparator +
|
---|
1266 | List.Items[List.ItemIndex] + CevoExt, LastTurn);
|
---|
1267 | // BookDate:=DateToStr(FileDateToDateTime(FileAge(FileName)));
|
---|
1268 | if not TurnValid then begin
|
---|
1269 | LoadTurn := LastTurn;
|
---|
1270 | SmartInvalidate(xTurnSlider - 2, y0Mini + 61,
|
---|
1271 | xTurnSlider + wTurnSlider + 2, yTurnSlider + 9);
|
---|
1272 | end;
|
---|
1273 | TurnValid := True;
|
---|
1274 | end;
|
---|
1275 | pgEditRandom: begin
|
---|
1276 | MapFileName := '';
|
---|
1277 | MiniMap.Mode := mmPicture;
|
---|
1278 | MiniMap.PaintRandom(4, StartLandMass, WorldSize);
|
---|
1279 | end;
|
---|
1280 | pgStartMap, pgEditMap:
|
---|
1281 | begin
|
---|
1282 | if Page = pgEditMap then
|
---|
1283 | MapFileName := List.Items[List.ItemIndex] + CevoMapExt;
|
---|
1284 | MiniMap.LoadFromMapFile(GetMapsDir + DirectorySeparator + MapFileName, nMapLandTiles, nMapStartPositions);
|
---|
1285 | if Page = pgEditMap then
|
---|
1286 | SmartInvalidate(x0Mini - 112, y0Mini + 61, x0Mini + 112, y0Mini + 91);
|
---|
1287 | end;
|
---|
1288 | end;
|
---|
1289 | SmartInvalidate(x0Mini - lxmax, y0Mini - lymax div 2,
|
---|
1290 | x0Mini - lxmax + 2 * lxmax + 4, y0Mini - lymax div 2 + lymax + 4);
|
---|
1291 | end;
|
---|
1292 |
|
---|
1293 | procedure TStartDlg.BrainClick(Sender: TObject);
|
---|
1294 | var
|
---|
1295 | I: Integer;
|
---|
1296 | begin
|
---|
1297 | // Play('BUTTON_UP');
|
---|
1298 | if PlayerPopupIndex < 0 then
|
---|
1299 | begin // change default AI
|
---|
1300 | BrainDefault := Brains[TMenuItem(Sender).Tag];
|
---|
1301 | SmartInvalidate(xDefault, yDefault, xDefault + 64, yDefault + 64);
|
---|
1302 | end
|
---|
1303 | else
|
---|
1304 | begin
|
---|
1305 | if Assigned(PlayersBrain[PlayerPopupIndex]) then
|
---|
1306 | PlayersBrain[PlayerPopupIndex].Flags := PlayersBrain[PlayerPopupIndex].Flags and not fUsed;
|
---|
1307 | if TMenuItem(Sender).Tag = -1 then begin
|
---|
1308 | PlayersBrain[PlayerPopupIndex] := nil;
|
---|
1309 | PlayerSlots[PlayerPopupIndex].DiffUpBtn.Visible := False;
|
---|
1310 | PlayerSlots[PlayerPopupIndex].DiffDownBtn.Visible := False;
|
---|
1311 | if PlayerSlots[PlayerPopupIndex].OfferMultiple then begin
|
---|
1312 | PlayerSlots[PlayerPopupIndex].MultiBtn.Visible := False;
|
---|
1313 | PlayerSlots[PlayerPopupIndex].MultiBtn.ButtonIndex := 2 + (MultiControl shr PlayerPopupIndex) and 1;
|
---|
1314 | end;
|
---|
1315 | MultiControl := MultiControl and not (1 shl PlayerPopupIndex);
|
---|
1316 | end else begin
|
---|
1317 | PlayersBrain[PlayerPopupIndex] := Brains[TMenuItem(Sender).Tag];
|
---|
1318 | PlayerSlots[PlayerPopupIndex].DiffUpBtn.Visible := PlayersBrain[PlayerPopupIndex].Kind in [btTerm, btRandom, btAI];
|
---|
1319 | PlayerSlots[PlayerPopupIndex].DiffDownBtn.Visible := PlayersBrain[PlayerPopupIndex].Kind in [btTerm, btRandom, btAI];
|
---|
1320 | if PlayerSlots[PlayerPopupIndex].OfferMultiple then begin
|
---|
1321 | PlayerSlots[PlayerPopupIndex].MultiBtn.Visible := PlayersBrain[PlayerPopupIndex].Kind in [btTerm, btRandom, btAI];
|
---|
1322 | PlayerSlots[PlayerPopupIndex].MultiBtn.ButtonIndex := 2 + (MultiControl shr PlayerPopupIndex) and 1;
|
---|
1323 | end;
|
---|
1324 | PlayersBrain[PlayerPopupIndex].Flags := PlayersBrain[PlayerPopupIndex].Flags or fUsed;
|
---|
1325 | if PlayersBrain[PlayerPopupIndex].Kind in [btNoTerm, btSuperVirtual] then
|
---|
1326 | Difficulty[PlayerPopupIndex] := 0 { supervisor }
|
---|
1327 | else
|
---|
1328 | Difficulty[PlayerPopupIndex] := 2;
|
---|
1329 | if (Page = pgStartRandom) and (PlayerSlots[PlayerPopupIndex].OfferMultiple) and
|
---|
1330 | (not Assigned(PlayersBrain[PlayerPopupIndex])) then
|
---|
1331 | MultiControl := MultiControl and not (1 shl PlayerPopupIndex);
|
---|
1332 | if (PlayerPopupIndex = 0) and (MapFileName <> '') then
|
---|
1333 | ChangePage(Page);
|
---|
1334 | if PlayersBrain[PlayerPopupIndex].Kind = btNoTerm then
|
---|
1335 | begin // turn all local players off
|
---|
1336 | for I := 1 to PlayerSlots.Count - 1 do
|
---|
1337 | if PlayersBrain[I].Kind = btTerm then begin
|
---|
1338 | PlayersBrain[I] := nil;
|
---|
1339 | PlayerSlots[I].DiffUpBtn.Visible := false;
|
---|
1340 | PlayerSlots[I].DiffUpBtn.Tag := 0;
|
---|
1341 | PlayerSlots[I].DiffDownBtn.Visible := false;
|
---|
1342 | PlayerSlots[I].DiffDownBtn.Tag := 0;
|
---|
1343 | if PlayerSlots[I].OfferMultiple then begin
|
---|
1344 | PlayerSlots[I].MultiBtn.Visible := false;
|
---|
1345 | PlayerSlots[I].MultiBtn.Tag := 0;
|
---|
1346 | end;
|
---|
1347 | SmartInvalidate(xBrain[I] - 31, yBrain[I] - 1, xBrain[I] + 64,
|
---|
1348 | PlayerSlots[I].DiffUpBtn.top + 25);
|
---|
1349 | end;
|
---|
1350 | BrainTerm.Flags := BrainTerm.Flags and not fUsed;
|
---|
1351 | end;
|
---|
1352 | end;
|
---|
1353 | SmartInvalidate(xBrain[PlayerPopupIndex] - 31, yBrain[PlayerPopupIndex] - 1,
|
---|
1354 | xBrain[PlayerPopupIndex] + 64, PlayerSlots[PlayerPopupIndex].DiffUpBtn.top + 25);
|
---|
1355 | end;
|
---|
1356 | end;
|
---|
1357 |
|
---|
1358 | procedure TStartDlg.OfferBrain(Brain: TBrain; FixedLines: Integer);
|
---|
1359 | var
|
---|
1360 | J: Integer;
|
---|
1361 | MenuItem: TMenuItem;
|
---|
1362 | begin
|
---|
1363 | MenuItem := TMenuItem.Create(PopupMenu1);
|
---|
1364 | if not Assigned(Brain) then MenuItem.Caption := Phrases.Lookup('NOMOD')
|
---|
1365 | else MenuItem.Caption := Brain.Name;
|
---|
1366 | MenuItem.Tag := Brains.IndexOf(Brain);
|
---|
1367 | MenuItem.OnClick := BrainClick;
|
---|
1368 | J := FixedLines;
|
---|
1369 | while (J < PopupMenu1.Items.Count) and
|
---|
1370 | (StrIComp(pchar(MenuItem.Caption), pchar(PopupMenu1.Items[J].Caption)) > 0) do
|
---|
1371 | Inc(J);
|
---|
1372 | MenuItem.RadioItem := True;
|
---|
1373 | if (PlayerPopupIndex < 0) then MenuItem.Checked := BrainDefault = Brain
|
---|
1374 | else MenuItem.Checked := PlayersBrain[PlayerPopupIndex] = Brain;
|
---|
1375 | PopupMenu1.Items.Insert(J, MenuItem);
|
---|
1376 | end;
|
---|
1377 |
|
---|
1378 | procedure TStartDlg.InitPopup(PlayerIndex: Integer);
|
---|
1379 | var
|
---|
1380 | I: Integer;
|
---|
1381 | FixedLines: integer;
|
---|
1382 | MenuItem: TMenuItem;
|
---|
1383 | AIBrains: TBrains;
|
---|
1384 | begin
|
---|
1385 | PlayerPopupIndex := PlayerIndex;
|
---|
1386 | EmptyMenu(PopupMenu1.Items);
|
---|
1387 | if PlayerPopupIndex < 0 then begin // select default AI
|
---|
1388 | FixedLines := 0;
|
---|
1389 | if Brains.GetKindCount(btAI) >= 2 then begin
|
---|
1390 | OfferBrain(BrainRandom, FixedLines);
|
---|
1391 | Inc(FixedLines);
|
---|
1392 | end;
|
---|
1393 | AIBrains := TBrains.Create(False);
|
---|
1394 | Brains.GetByKind(btAI, AIBrains);
|
---|
1395 | for I := 0 to AIBrains.Count - 1 do // offer available AIs
|
---|
1396 | if AIBrains[I].Flags and fMultiple <> 0 then
|
---|
1397 | OfferBrain(AIBrains[I], FixedLines);
|
---|
1398 | AIBrains.Free;
|
---|
1399 | end else begin
|
---|
1400 | FixedLines := 0;
|
---|
1401 | if PlayerPopupIndex > 0 then begin
|
---|
1402 | OfferBrain(nil, FixedLines);
|
---|
1403 | Inc(FixedLines);
|
---|
1404 | end;
|
---|
1405 | for I := Brains.IndexOf(BrainTerm) downto 0 do // offer game interfaces
|
---|
1406 | if (PlayerPopupIndex = 0) or (Brains[i].Kind = btTerm) and
|
---|
1407 | (PlayersBrain[0].Kind <> btNoTerm) then begin
|
---|
1408 | OfferBrain(Brains[I], FixedLines);
|
---|
1409 | Inc(FixedLines);
|
---|
1410 | end;
|
---|
1411 | if PlayerPopupIndex > 0 then begin
|
---|
1412 | MenuItem := TMenuItem.Create(PopupMenu1);
|
---|
1413 | MenuItem.Caption := '-';
|
---|
1414 | PopupMenu1.Items.Add(MenuItem);
|
---|
1415 | Inc(FixedLines);
|
---|
1416 | if Brains.GetKindCount(btAI) >= 2 then begin
|
---|
1417 | OfferBrain(BrainRandom, FixedLines);
|
---|
1418 | Inc(FixedLines);
|
---|
1419 | end;
|
---|
1420 | AIBrains := TBrains.Create(False);
|
---|
1421 | Brains.GetByKind(btAI, AIBrains);
|
---|
1422 | for I := 0 to AIBrains.Count - 1 do // offer available AIs
|
---|
1423 | if (AIBrains[I].Flags and fMultiple <> 0) or (AIBrains[I].Flags and fUsed = 0)
|
---|
1424 | or (Brains[I] = PlayersBrain[PlayerPopupIndex]) then
|
---|
1425 | OfferBrain(AIBrains[i], FixedLines);
|
---|
1426 | AIBrains.Free;
|
---|
1427 | end;
|
---|
1428 | end;
|
---|
1429 | end;
|
---|
1430 |
|
---|
1431 | procedure TStartDlg.UpdateFormerGames;
|
---|
1432 | var
|
---|
1433 | I: Integer;
|
---|
1434 | F: TSearchRec;
|
---|
1435 | begin
|
---|
1436 | FormerGames.Clear;
|
---|
1437 | if FindFirst(GetSavedDir + DirectorySeparator + '*' + CevoExt, $21, F) = 0 then
|
---|
1438 | repeat
|
---|
1439 | I := FormerGames.Count;
|
---|
1440 | while (I > 0) and (F.Time < integer(FormerGames.Objects[I - 1])) do
|
---|
1441 | Dec(I);
|
---|
1442 | FormerGames.InsertObject(I, Copy(F.Name, 1, Length(F.Name) - 5),
|
---|
1443 | TObject(F.Time));
|
---|
1444 | until FindNext(F) <> 0;
|
---|
1445 | FindClose(F);
|
---|
1446 | ListIndex[tbNew] := FormerGames.Count - 1;
|
---|
1447 | if (ShowTab = tbNew) and (FormerGames.Count > 0) then
|
---|
1448 | ShowTab := tbPrevious;
|
---|
1449 | TurnValid := False;
|
---|
1450 | end;
|
---|
1451 |
|
---|
1452 | procedure TStartDlg.UpdateMaps;
|
---|
1453 | var
|
---|
1454 | f: TSearchRec;
|
---|
1455 | begin
|
---|
1456 | Maps.Clear;
|
---|
1457 | if FindFirst(GetMapsDir + DirectorySeparator + '*' + CevoMapExt, $21, f) = 0 then
|
---|
1458 | repeat
|
---|
1459 | Maps.Add(Copy(f.Name, 1, Length(f.Name) - 9));
|
---|
1460 | until FindNext(f) <> 0;
|
---|
1461 | FindClose(F);
|
---|
1462 | Maps.Sort;
|
---|
1463 | Maps.Insert(0, Phrases.Lookup('RANMAP'));
|
---|
1464 | ListIndex[tbMain] := Maps.IndexOf(Copy(MapFileName, 1, Length(MapFileName) - 9));
|
---|
1465 | if ListIndex[tbMain] < 0 then
|
---|
1466 | ListIndex[tbMain] := 0;
|
---|
1467 | end;
|
---|
1468 |
|
---|
1469 | procedure TStartDlg.ChangePage(NewPage: TStartPage);
|
---|
1470 | var
|
---|
1471 | i, j, p1: integer;
|
---|
1472 | s: string;
|
---|
1473 | Reg: TRegistry;
|
---|
1474 | InvalidateTab0: boolean;
|
---|
1475 | begin
|
---|
1476 | InvalidateTab0 := (Page = pgMain) or (NewPage = pgMain);
|
---|
1477 | Page := NewPage;
|
---|
1478 | case Page of
|
---|
1479 | pgStartRandom, pgStartMap:
|
---|
1480 | begin
|
---|
1481 | StartBtn.Caption := Phrases.Lookup('STARTCONTROLS', 1);
|
---|
1482 | if Page = pgStartRandom then
|
---|
1483 | i := nPlOffered
|
---|
1484 | else
|
---|
1485 | begin
|
---|
1486 | i := nMapStartPositions;
|
---|
1487 | if i = 0 then
|
---|
1488 | begin
|
---|
1489 | PlayersBrain[0] := BrainSuperVirtual;
|
---|
1490 | Difficulty[0] := 0
|
---|
1491 | end;
|
---|
1492 | if PlayersBrain[0].Kind in [btNoTerm, btSuperVirtual] then
|
---|
1493 | inc(i);
|
---|
1494 | if i > nPl then
|
---|
1495 | i := nPl;
|
---|
1496 | if i <= nPlOffered then
|
---|
1497 | MultiControl := 0
|
---|
1498 | else
|
---|
1499 | MultiControl := InitMulti[i];
|
---|
1500 | end;
|
---|
1501 | if InitAlive[i] <> SlotAvailable then
|
---|
1502 | if Page = pgStartRandom then
|
---|
1503 | begin // restore AI assignment of last start
|
---|
1504 | Reg := TRegistry.Create;
|
---|
1505 | with Reg do
|
---|
1506 | try
|
---|
1507 | OpenKey(AppRegistryKey + '\AI', True);
|
---|
1508 | for p1 := 0 to nPlOffered - 1 do begin
|
---|
1509 | PlayersBrain[p1] := nil;
|
---|
1510 | s := ReadString('Control' + IntToStr(p1));
|
---|
1511 | Difficulty[p1] := ReadInteger('Diff' + IntToStr(p1));
|
---|
1512 | if s <> '' then
|
---|
1513 | for j := 0 to Brains.Count - 1 do
|
---|
1514 | if AnsiCompareFileName(s, Brains[j].FileName) = 0 then
|
---|
1515 | PlayersBrain[p1] := Brains[j];
|
---|
1516 | end;
|
---|
1517 | finally
|
---|
1518 | Free;
|
---|
1519 | end;
|
---|
1520 | end
|
---|
1521 | else
|
---|
1522 | for p1 := 1 to nPl - 1 do
|
---|
1523 | if 1 shl p1 and InitAlive[i] <> 0 then
|
---|
1524 | begin
|
---|
1525 | PlayersBrain[p1] := BrainDefault;
|
---|
1526 | Difficulty[p1] := 2;
|
---|
1527 | end
|
---|
1528 | else
|
---|
1529 | PlayersBrain[p1] := nil;
|
---|
1530 | SlotAvailable := InitAlive[i];
|
---|
1531 | for i := 0 to nPlOffered - 1 do
|
---|
1532 | if (AutoDiff < 0) and Assigned(PlayersBrain[i]) and
|
---|
1533 | (PlayersBrain[i].Kind in [btTerm, btRandom, btAI]) then
|
---|
1534 | begin
|
---|
1535 | PlayerSlots[i].DiffUpBtn.Tag := 768;
|
---|
1536 | PlayerSlots[i].DiffDownBtn.Tag := 768;
|
---|
1537 | end
|
---|
1538 | else
|
---|
1539 | begin
|
---|
1540 | PlayerSlots[i].DiffUpBtn.Tag := 0;
|
---|
1541 | PlayerSlots[i].DiffDownBtn.Tag := 0;
|
---|
1542 | end;
|
---|
1543 | for i := 6 to 8 do
|
---|
1544 | if (AutoDiff < 0) and Assigned(PlayersBrain[i]) and
|
---|
1545 | (PlayersBrain[i].Kind in [btTerm, btRandom, btAI]) then
|
---|
1546 | begin
|
---|
1547 | PlayerSlots[i].MultiBtn.Tag := 768;
|
---|
1548 | PlayerSlots[i].MultiBtn.ButtonIndex := 2 + (MultiControl shr i) and 1;
|
---|
1549 | PlayerSlots[i].MultiBtn.Enabled := Page = pgStartRandom
|
---|
1550 | end
|
---|
1551 | else
|
---|
1552 | PlayerSlots[i].MultiBtn.Tag := 0;
|
---|
1553 | if (AutoDiff > 0) and (Page <> pgStartMap) then
|
---|
1554 | begin
|
---|
1555 | AutoEnemyUpBtn.Tag := 768;
|
---|
1556 | AutoEnemyDownBtn.Tag := 768;
|
---|
1557 | end
|
---|
1558 | else
|
---|
1559 | begin
|
---|
1560 | AutoEnemyUpBtn.Tag := 0;
|
---|
1561 | AutoEnemyDownBtn.Tag := 0;
|
---|
1562 | end;
|
---|
1563 | if AutoDiff > 0 then
|
---|
1564 | begin
|
---|
1565 | AutoDiffUpBtn.Tag := 768;
|
---|
1566 | AutoDiffDownBtn.Tag := 768;
|
---|
1567 | end
|
---|
1568 | else
|
---|
1569 | begin
|
---|
1570 | AutoDiffUpBtn.Tag := 0;
|
---|
1571 | AutoDiffDownBtn.Tag := 0;
|
---|
1572 | end;
|
---|
1573 | end;
|
---|
1574 |
|
---|
1575 | pgNoLoad, pgLoad:
|
---|
1576 | begin
|
---|
1577 | StartBtn.Caption := Phrases.Lookup('STARTCONTROLS', 2);
|
---|
1578 | RenameBtn.Hint := Phrases.Lookup('BTN_RENGAME');
|
---|
1579 | DeleteBtn.Hint := Phrases.Lookup('BTN_DELGAME');
|
---|
1580 | end;
|
---|
1581 |
|
---|
1582 | pgEditRandom, pgEditMap:
|
---|
1583 | begin
|
---|
1584 | StartBtn.Caption := Phrases.Lookup('STARTCONTROLS', 12);
|
---|
1585 | RenameBtn.Hint := Phrases.Lookup('BTN_RENMAP');
|
---|
1586 | DeleteBtn.Hint := Phrases.Lookup('BTN_DELMAP');
|
---|
1587 | end;
|
---|
1588 | end;
|
---|
1589 |
|
---|
1590 | PaintInfo;
|
---|
1591 | for i := 0 to ControlCount - 1 do
|
---|
1592 | Controls[i].Visible := Controls[i].Tag and (256 shl Integer(Page)) <> 0;
|
---|
1593 | if Page = pgLoad then
|
---|
1594 | ReplayBtn.Visible := MiniMap.Mode <> mmMultiPlayer;
|
---|
1595 | List.Invalidate;
|
---|
1596 | SmartInvalidate(0, 0, ClientWidth, ClientHeight, invalidateTab0);
|
---|
1597 | end;
|
---|
1598 |
|
---|
1599 | procedure TStartDlg.ChangeTab(NewTab: TStartTab);
|
---|
1600 | begin
|
---|
1601 | Tab := NewTab;
|
---|
1602 | case Tab of
|
---|
1603 | tbMap:
|
---|
1604 | List.Items.Assign(Maps);
|
---|
1605 | tbPrevious:
|
---|
1606 | List.Items.Assign(FormerGames);
|
---|
1607 | end;
|
---|
1608 | if Tab <> tbNew then
|
---|
1609 | if List.Count > 0 then begin
|
---|
1610 | if (List.Count > ListIndex[Tab]) then
|
---|
1611 | List.ItemIndex := ListIndex[Tab]
|
---|
1612 | else List.ItemIndex := 0;
|
---|
1613 | end else List.ItemIndex := -1;
|
---|
1614 | case Tab of
|
---|
1615 | tbMain:
|
---|
1616 | ChangePage(pgMain);
|
---|
1617 | tbMap:
|
---|
1618 | if List.ItemIndex = 0 then
|
---|
1619 | ChangePage(pgEditRandom)
|
---|
1620 | else
|
---|
1621 | ChangePage(pgEditMap);
|
---|
1622 | tbNew:
|
---|
1623 | if MapFileName = '' then
|
---|
1624 | ChangePage(pgStartRandom)
|
---|
1625 | else
|
---|
1626 | ChangePage(pgStartMap);
|
---|
1627 | tbPrevious:
|
---|
1628 | if FormerGames.Count = 0 then
|
---|
1629 | ChangePage(pgNoLoad)
|
---|
1630 | else
|
---|
1631 | ChangePage(pgLoad);
|
---|
1632 | end;
|
---|
1633 | end;
|
---|
1634 |
|
---|
1635 | procedure TStartDlg.FormMouseDown(Sender: TObject; Button: TMouseButton;
|
---|
1636 | Shift: TShiftState; x, y: integer);
|
---|
1637 | var
|
---|
1638 | I: Integer;
|
---|
1639 | begin
|
---|
1640 | if (y < TabHeight + 1) and (x - TabOffset < TabSize * 4) and
|
---|
1641 | ((x - TabOffset) div TabSize <> Integer(Tab)) then
|
---|
1642 | begin
|
---|
1643 | // Play('BUTTON_DOWN');
|
---|
1644 | ListIndex[Tab] := List.ItemIndex;
|
---|
1645 | ChangeTab(TStartTab((x - TabOffset) div TabSize));
|
---|
1646 | end
|
---|
1647 | else if Page = pgMain then
|
---|
1648 | begin
|
---|
1649 | case SelectedAction of
|
---|
1650 | maConfig:
|
---|
1651 | begin
|
---|
1652 | LocaleDlg := TLocaleDlg.Create(nil);
|
---|
1653 | if LocaleDlg.ShowModal = mrOk then begin
|
---|
1654 | LoadAssets;
|
---|
1655 | Invalidate;
|
---|
1656 | UpdateInterface;
|
---|
1657 | Background.UpdateInterface;
|
---|
1658 | end;
|
---|
1659 | FreeAndNil(LocaleDlg);
|
---|
1660 | end;
|
---|
1661 | maManual:
|
---|
1662 | DirectHelp(cStartHelp);
|
---|
1663 | maCredits:
|
---|
1664 | DirectHelp(cStartCredits);
|
---|
1665 | maAIDev:
|
---|
1666 | OpenDocument(HomeDir + AITemplateFileName);
|
---|
1667 | maWeb:
|
---|
1668 | OpenURL(CevoHomepage);
|
---|
1669 | end;
|
---|
1670 | end
|
---|
1671 | else if (AutoDiff < 0) and ((Page = pgStartRandom) or (Page = pgStartMap) and
|
---|
1672 | (nMapStartPositions > 0)) then
|
---|
1673 | begin
|
---|
1674 | for I := 0 to nPlOffered - 1 do
|
---|
1675 | if (1 shl I and SlotAvailable <> 0) and (x >= xBrain[I]) and
|
---|
1676 | (y >= yBrain[I]) and (x < xBrain[I] + 64) and (y < yBrain[I] + 64) then
|
---|
1677 | begin
|
---|
1678 | InitPopup(I);
|
---|
1679 | if yBrain[I] > y0Brain then
|
---|
1680 | PopupMenu1.Popup(left + xBrain[I] + 4, top + yBrain[I] + 60)
|
---|
1681 | else
|
---|
1682 | PopupMenu1.Popup(left + xBrain[I] + 4, top + yBrain[I] + 4);
|
---|
1683 | end
|
---|
1684 | end
|
---|
1685 | else if (AutoDiff > 1) and ((Page = pgStartRandom) or (Page = pgStartMap)) and
|
---|
1686 | (x >= xDefault) and (y >= yDefault) and (x < xDefault + 64) and
|
---|
1687 | (y < yDefault + 64) then
|
---|
1688 | if Brains.GetKindCount(btAI) < 2 then
|
---|
1689 | SimpleMessage(Phrases.Lookup('NOALTAI'))
|
---|
1690 | else
|
---|
1691 | begin
|
---|
1692 | InitPopup(-1);
|
---|
1693 | PopupMenu1.Popup(left + xDefault + 4, top + yDefault + 4);
|
---|
1694 | end
|
---|
1695 | else if (Page = pgLoad) and (LastTurn > 0) and (y >= yTurnSlider) and
|
---|
1696 | (y < yTurnSlider + 7) and (x >= xTurnSlider) and
|
---|
1697 | (x <= xTurnSlider + wTurnSlider) then
|
---|
1698 | begin
|
---|
1699 | LoadTurn := LastTurn * (x - xTurnSlider) div wTurnSlider;
|
---|
1700 | SmartInvalidate(xTurnSlider - 2, y0Mini + 61, xTurnSlider + wTurnSlider + 2,
|
---|
1701 | yTurnSlider + 9);
|
---|
1702 | Tracking := True;
|
---|
1703 | end;
|
---|
1704 | end;
|
---|
1705 |
|
---|
1706 | procedure TStartDlg.Up2BtnClick(Sender: TObject);
|
---|
1707 | begin
|
---|
1708 | case Page of
|
---|
1709 | pgStartRandom, pgStartMap:
|
---|
1710 | if MaxTurn < 1400 then
|
---|
1711 | begin
|
---|
1712 | inc(MaxTurn, 200);
|
---|
1713 | SmartInvalidate(344, y0Mini + 61, 514, y0Mini + 82);
|
---|
1714 | end;
|
---|
1715 | pgLoad:
|
---|
1716 | if LoadTurn < LastTurn then
|
---|
1717 | begin
|
---|
1718 | inc(LoadTurn);
|
---|
1719 | SmartInvalidate(xTurnSlider - 2, y0Mini + 61, xTurnSlider + wTurnSlider
|
---|
1720 | + 2, yTurnSlider + 9);
|
---|
1721 | end;
|
---|
1722 | pgEditRandom:
|
---|
1723 | if StartLandMass < 96 then
|
---|
1724 | begin
|
---|
1725 | inc(StartLandMass, 5);
|
---|
1726 | PaintInfo;
|
---|
1727 | SmartInvalidate(344, y0Mini + 61, 514, y0Mini + 61 + 21);
|
---|
1728 | end;
|
---|
1729 | end;
|
---|
1730 | end;
|
---|
1731 |
|
---|
1732 | procedure TStartDlg.Down2BtnClick(Sender: TObject);
|
---|
1733 | begin
|
---|
1734 | case Page of
|
---|
1735 | pgStartRandom, pgStartMap:
|
---|
1736 | if MaxTurn > 400 then
|
---|
1737 | begin
|
---|
1738 | dec(MaxTurn, 200);
|
---|
1739 | SmartInvalidate(344, y0Mini + 61, 514, y0Mini + 82);
|
---|
1740 | end;
|
---|
1741 | pgLoad:
|
---|
1742 | if LoadTurn > 0 then
|
---|
1743 | begin
|
---|
1744 | dec(LoadTurn);
|
---|
1745 | SmartInvalidate(xTurnSlider - 2, y0Mini + 61, xTurnSlider + wTurnSlider
|
---|
1746 | + 2, yTurnSlider + 9);
|
---|
1747 | end;
|
---|
1748 | pgEditRandom:
|
---|
1749 | if StartLandMass > 10 then
|
---|
1750 | begin
|
---|
1751 | dec(StartLandMass, 5);
|
---|
1752 | PaintInfo;
|
---|
1753 | SmartInvalidate(344, y0Mini + 61, 514, y0Mini + 61 + 21);
|
---|
1754 | end;
|
---|
1755 | end;
|
---|
1756 | end;
|
---|
1757 |
|
---|
1758 | procedure TStartDlg.Up1BtnClick(Sender: TObject);
|
---|
1759 | begin
|
---|
1760 | if WorldSize < MaxWorldSize - 1 then
|
---|
1761 | begin
|
---|
1762 | Inc(WorldSize);
|
---|
1763 | PaintInfo;
|
---|
1764 | SmartInvalidate(344, y0Mini - 77, 510, y0Mini - 77 + 21);
|
---|
1765 | end;
|
---|
1766 | end;
|
---|
1767 |
|
---|
1768 | procedure TStartDlg.Down1BtnClick(Sender: TObject);
|
---|
1769 | begin
|
---|
1770 | if WorldSize > 0 then
|
---|
1771 | begin
|
---|
1772 | Dec(WorldSize);
|
---|
1773 | PaintInfo;
|
---|
1774 | SmartInvalidate(344, y0Mini - 77, 510, y0Mini - 77 + 21);
|
---|
1775 | end;
|
---|
1776 | end;
|
---|
1777 |
|
---|
1778 | procedure TStartDlg.FormClose(Sender: TObject; var Action: TCloseAction);
|
---|
1779 | begin
|
---|
1780 | DirectDlg.Close;
|
---|
1781 | end;
|
---|
1782 |
|
---|
1783 | procedure TStartDlg.ListClick(Sender: TObject);
|
---|
1784 | var
|
---|
1785 | I: Integer;
|
---|
1786 | begin
|
---|
1787 | if (Tab = tbMap) and ((List.ItemIndex = 0) <> (Page = pgEditRandom)) then
|
---|
1788 | begin
|
---|
1789 | if List.ItemIndex = 0 then
|
---|
1790 | Page := pgEditRandom
|
---|
1791 | else
|
---|
1792 | Page := pgEditMap;
|
---|
1793 | for I := 0 to ControlCount - 1 do
|
---|
1794 | Controls[I].Visible := Controls[I].Tag and (256 shl Integer(Page)) <> 0;
|
---|
1795 | SmartInvalidate(328, Up1Btn.top - 12, ClientWidth, Up2Btn.top + 35);
|
---|
1796 | end;
|
---|
1797 | if Page = pgLoad then
|
---|
1798 | TurnValid := False;
|
---|
1799 | PaintInfo;
|
---|
1800 | if Page = pgLoad then
|
---|
1801 | ReplayBtn.Visible := MiniMap.Mode <> mmMultiPlayer;
|
---|
1802 | end;
|
---|
1803 |
|
---|
1804 | procedure TStartDlg.RenameBtnClick(Sender: TObject);
|
---|
1805 | var
|
---|
1806 | i: integer;
|
---|
1807 | NewName: string;
|
---|
1808 | f: file;
|
---|
1809 | ok: boolean;
|
---|
1810 | begin
|
---|
1811 | if List.ItemIndex >= 0 then
|
---|
1812 | begin
|
---|
1813 | if Page = pgLoad then
|
---|
1814 | InputDlg.Caption := Phrases.Lookup('TITLE_BOOKNAME')
|
---|
1815 | else
|
---|
1816 | InputDlg.Caption := Phrases.Lookup('TITLE_MAPNAME');
|
---|
1817 | InputDlg.EInput.Text := List.Items[List.ItemIndex];
|
---|
1818 | InputDlg.CenterToRect(BoundsRect);
|
---|
1819 | InputDlg.ShowModal;
|
---|
1820 | NewName := InputDlg.EInput.Text;
|
---|
1821 | while (NewName <> '') and (NewName[1] = '~') do
|
---|
1822 | Delete(NewName, 1, 1);
|
---|
1823 | if (InputDlg.ModalResult = mrOK) and (NewName <> '') and
|
---|
1824 | (NewName <> List.Items[List.ItemIndex]) then
|
---|
1825 | begin
|
---|
1826 | for i := 1 to Length(NewName) do
|
---|
1827 | if NewName[i] in ['\', '/', ':', '*', '?', '"', '<', '>', '|'] then
|
---|
1828 | begin
|
---|
1829 | SimpleMessage(Format(Phrases.Lookup('NOFILENAME'), [NewName[i]]));
|
---|
1830 | exit
|
---|
1831 | end;
|
---|
1832 | if Page = pgLoad then
|
---|
1833 | AssignFile(f, GetSavedDir + DirectorySeparator + List.Items[List.ItemIndex] + CevoExt)
|
---|
1834 | else
|
---|
1835 | AssignFile(f, GetMapsDir + DirectorySeparator + List.Items[List.ItemIndex] +
|
---|
1836 | CevoMapExt);
|
---|
1837 | ok := true;
|
---|
1838 | try
|
---|
1839 | if Page = pgLoad then
|
---|
1840 | Rename(f, GetSavedDir + DirectorySeparator + NewName + CevoExt)
|
---|
1841 | else
|
---|
1842 | Rename(f, GetMapsDir + DirectorySeparator + NewName + CevoMapExt);
|
---|
1843 | except
|
---|
1844 | // Play('INVALID');
|
---|
1845 | ok := false
|
---|
1846 | end;
|
---|
1847 | if Page <> pgLoad then
|
---|
1848 | try // rename map picture
|
---|
1849 | AssignFile(f, GetMapsDir + DirectorySeparator + List.Items[List.ItemIndex]
|
---|
1850 | + '.png');
|
---|
1851 | Rename(f, GetMapsDir + DirectorySeparator + NewName + '.png');
|
---|
1852 | except
|
---|
1853 | end;
|
---|
1854 | if ok then
|
---|
1855 | begin
|
---|
1856 | if Page = pgLoad then
|
---|
1857 | FormerGames[List.ItemIndex] := NewName
|
---|
1858 | else
|
---|
1859 | Maps[List.ItemIndex] := NewName;
|
---|
1860 | List.Items[List.ItemIndex] := NewName;
|
---|
1861 | if Page = pgEditMap then
|
---|
1862 | PaintInfo;
|
---|
1863 | List.Invalidate;
|
---|
1864 | end;
|
---|
1865 | end;
|
---|
1866 | end;
|
---|
1867 | end;
|
---|
1868 |
|
---|
1869 | procedure TStartDlg.DeleteBtnClick(Sender: TObject);
|
---|
1870 | var
|
---|
1871 | iDel: integer;
|
---|
1872 | f: file;
|
---|
1873 | begin
|
---|
1874 | if List.ItemIndex >= 0 then
|
---|
1875 | begin
|
---|
1876 | if Page = pgLoad then
|
---|
1877 | MessgDlg.MessgText := Phrases.Lookup('DELETEQUERY')
|
---|
1878 | else
|
---|
1879 | MessgDlg.MessgText := Phrases.Lookup('MAPDELETEQUERY');
|
---|
1880 | MessgDlg.Kind := mkOKCancel;
|
---|
1881 | MessgDlg.ShowModal;
|
---|
1882 | if MessgDlg.ModalResult = mrOK then
|
---|
1883 | begin
|
---|
1884 | if Page = pgLoad then
|
---|
1885 | AssignFile(f, GetSavedDir + DirectorySeparator + List.Items[List.ItemIndex] + CevoExt)
|
---|
1886 | else
|
---|
1887 | AssignFile(f, GetMapsDir + DirectorySeparator + List.Items[List.ItemIndex] +
|
---|
1888 | CevoMapExt);
|
---|
1889 | Erase(f);
|
---|
1890 | iDel := List.ItemIndex;
|
---|
1891 | if Page = pgLoad then
|
---|
1892 | FormerGames.Delete(iDel)
|
---|
1893 | else
|
---|
1894 | Maps.Delete(iDel);
|
---|
1895 | List.Items.Delete(iDel);
|
---|
1896 | if List.Items.Count = 0 then
|
---|
1897 | ChangePage(pgNoLoad)
|
---|
1898 | else
|
---|
1899 | begin
|
---|
1900 | if iDel = 0 then
|
---|
1901 | List.ItemIndex := 0
|
---|
1902 | else
|
---|
1903 | List.ItemIndex := iDel - 1;
|
---|
1904 | if (Page = pgEditMap) and (List.ItemIndex = 0) then
|
---|
1905 | ChangePage(pgEditRandom)
|
---|
1906 | else
|
---|
1907 | begin
|
---|
1908 | List.Invalidate;
|
---|
1909 | if Page = pgLoad then
|
---|
1910 | TurnValid := false;
|
---|
1911 | PaintInfo;
|
---|
1912 | if Page = pgLoad then
|
---|
1913 | ReplayBtn.Visible := MiniMap.Mode <> mmMultiPlayer;
|
---|
1914 | end;
|
---|
1915 | end;
|
---|
1916 | end;
|
---|
1917 | end;
|
---|
1918 | end;
|
---|
1919 |
|
---|
1920 | procedure TStartDlg.DiffBtnClick(Sender: TObject);
|
---|
1921 | var
|
---|
1922 | I: Integer;
|
---|
1923 | begin
|
---|
1924 | for I := 0 to nPlOffered - 1 do
|
---|
1925 | if (Sender = PlayerSlots[I].DiffUpBtn) and (Difficulty[I] < 3) or
|
---|
1926 | (Sender = PlayerSlots[I].DiffDownBtn) and (Difficulty[I] > 1) then
|
---|
1927 | begin
|
---|
1928 | if Sender = PlayerSlots[I].DiffUpBtn then
|
---|
1929 | Inc(Difficulty[I])
|
---|
1930 | else
|
---|
1931 | Dec(Difficulty[I]);
|
---|
1932 | SmartInvalidate(xBrain[I] - 18, yBrain[I] + 19, xBrain[I] - 18 + 12,
|
---|
1933 | yBrain[I] + (19 + 14));
|
---|
1934 | end;
|
---|
1935 | end;
|
---|
1936 |
|
---|
1937 | procedure TStartDlg.MultiBtnClick(Sender: TObject);
|
---|
1938 | var
|
---|
1939 | I: Integer;
|
---|
1940 | begin
|
---|
1941 | for I := 6 to 8 do
|
---|
1942 | if Sender = PlayerSlots[I].MultiBtn then
|
---|
1943 | begin
|
---|
1944 | MultiControl := MultiControl xor (1 shl I);
|
---|
1945 | TButtonC(Sender).ButtonIndex := 2 + (MultiControl shr I) and 1;
|
---|
1946 | end;
|
---|
1947 | end;
|
---|
1948 |
|
---|
1949 | procedure TStartDlg.FormHide(Sender: TObject);
|
---|
1950 | begin
|
---|
1951 | Diff0 := Difficulty[0];
|
---|
1952 | ListIndex[Tab] := List.ItemIndex;
|
---|
1953 | ShowTab := Tab;
|
---|
1954 | Background.Enabled := True;
|
---|
1955 | end;
|
---|
1956 |
|
---|
1957 | procedure TStartDlg.QuitBtnClick(Sender: TObject);
|
---|
1958 | begin
|
---|
1959 | Close;
|
---|
1960 | end;
|
---|
1961 |
|
---|
1962 | procedure TStartDlg.FormKeyDown(Sender: TObject; var Key: Word;
|
---|
1963 | Shift: TShiftState);
|
---|
1964 | begin
|
---|
1965 | if (Shift = []) and (Key = VK_F1) then
|
---|
1966 | DirectHelp(cStartHelp);
|
---|
1967 | end;
|
---|
1968 |
|
---|
1969 | procedure TStartDlg.CustomizeBtnClick(Sender: TObject);
|
---|
1970 | begin
|
---|
1971 | AutoDiff := -AutoDiff;
|
---|
1972 | CustomizeBtn.ButtonIndex := CustomizeBtn.ButtonIndex xor 1;
|
---|
1973 | ChangePage(Page);
|
---|
1974 | end;
|
---|
1975 |
|
---|
1976 | procedure TStartDlg.AutoDiffUpBtnClick(Sender: TObject);
|
---|
1977 | begin
|
---|
1978 | if AutoDiff < 5 then
|
---|
1979 | begin
|
---|
1980 | Inc(AutoDiff);
|
---|
1981 | SmartInvalidate(120, y0Mini + 61, 272, y0Mini + 61 + 21);
|
---|
1982 | SmartInvalidate(xDefault - 2, yDefault - 2, xDefault + 64 + 2,
|
---|
1983 | yDefault + 64 + 2);
|
---|
1984 | end;
|
---|
1985 | end;
|
---|
1986 |
|
---|
1987 | procedure TStartDlg.AutoDiffDownBtnClick(Sender: TObject);
|
---|
1988 | begin
|
---|
1989 | if AutoDiff > 1 then
|
---|
1990 | begin
|
---|
1991 | Dec(AutoDiff);
|
---|
1992 | SmartInvalidate(120, y0Mini + 61, 272, y0Mini + 61 + 21);
|
---|
1993 | SmartInvalidate(xDefault - 2, yDefault - 2, xDefault + 64 + 2,
|
---|
1994 | yDefault + 64 + 2);
|
---|
1995 | end;
|
---|
1996 | end;
|
---|
1997 |
|
---|
1998 | procedure TStartDlg.FormMouseUp(Sender: TObject; Button: TMouseButton;
|
---|
1999 | Shift: TShiftState; x, y: integer);
|
---|
2000 | begin
|
---|
2001 | Tracking := False;
|
---|
2002 | end;
|
---|
2003 |
|
---|
2004 | procedure TStartDlg.FormMouseMove(Sender: TObject; Shift: TShiftState;
|
---|
2005 | x, y: integer);
|
---|
2006 | var
|
---|
2007 | OldLoadTurn: Integer;
|
---|
2008 | NewSelectedAction: TMainAction;
|
---|
2009 | begin
|
---|
2010 | if Tracking then
|
---|
2011 | begin
|
---|
2012 | x := x - xTurnSlider;
|
---|
2013 | if x < 0 then
|
---|
2014 | x := 0
|
---|
2015 | else if x > wTurnSlider then
|
---|
2016 | x := wTurnSlider;
|
---|
2017 | OldLoadTurn := LoadTurn;
|
---|
2018 | LoadTurn := LastTurn * x div wTurnSlider;
|
---|
2019 | if LoadTurn < OldLoadTurn then
|
---|
2020 | begin
|
---|
2021 | SmartInvalidate(xTurnSlider + LoadTurn * wTurnSlider div LastTurn,
|
---|
2022 | yTurnSlider, xTurnSlider + OldLoadTurn * wTurnSlider div LastTurn + 1,
|
---|
2023 | yTurnSlider + 7);
|
---|
2024 | SmartInvalidate(344, y0Mini + 61, 514, y0Mini + 82);
|
---|
2025 | end
|
---|
2026 | else if LoadTurn > OldLoadTurn then
|
---|
2027 | begin
|
---|
2028 | SmartInvalidate(xTurnSlider + OldLoadTurn * wTurnSlider div LastTurn,
|
---|
2029 | yTurnSlider, xTurnSlider + LoadTurn * wTurnSlider div LastTurn + 1,
|
---|
2030 | yTurnSlider + 7);
|
---|
2031 | SmartInvalidate(344, y0Mini + 61, 514, y0Mini + 82);
|
---|
2032 | end;
|
---|
2033 | end
|
---|
2034 | else if Page = pgMain then
|
---|
2035 | begin
|
---|
2036 | if (x >= ActionSideBorder) and (x < ClientWidth - ActionSideBorder) and
|
---|
2037 | (y >= yAction - 8) and (y < ClientHeight - ActionBottomBorder) then
|
---|
2038 | begin
|
---|
2039 | NewSelectedAction := TMainAction((y - (yAction - 8)) div ActionPitch);
|
---|
2040 | if not (NewSelectedAction in ActionsOffered) then
|
---|
2041 | NewSelectedAction := maNone;
|
---|
2042 | end
|
---|
2043 | else
|
---|
2044 | NewSelectedAction := maNone;
|
---|
2045 | if NewSelectedAction <> SelectedAction then
|
---|
2046 | begin
|
---|
2047 | if SelectedAction <> maNone then
|
---|
2048 | SmartInvalidate(ActionSideBorder, yAction + Integer(SelectedAction) * ActionPitch
|
---|
2049 | - 8, ClientWidth - ActionSideBorder, yAction + (Integer(SelectedAction) + 1) *
|
---|
2050 | ActionPitch - 8);
|
---|
2051 | SelectedAction := NewSelectedAction;
|
---|
2052 | if SelectedAction <> maNone then
|
---|
2053 | SmartInvalidate(ActionSideBorder, yAction + Integer(SelectedAction) * ActionPitch
|
---|
2054 | - 8, ClientWidth - ActionSideBorder, yAction + (Integer(SelectedAction) + 1) *
|
---|
2055 | ActionPitch - 8);
|
---|
2056 | end;
|
---|
2057 | end;
|
---|
2058 | end;
|
---|
2059 |
|
---|
2060 | procedure TStartDlg.AutoEnemyUpBtnClick(Sender: TObject);
|
---|
2061 | begin
|
---|
2062 | if AutoEnemies < nPl - 1 then
|
---|
2063 | begin
|
---|
2064 | Inc(AutoEnemies);
|
---|
2065 | SmartInvalidate(160, yMain + 140, 198, yMain + 140 + 21);
|
---|
2066 | end;
|
---|
2067 | end;
|
---|
2068 |
|
---|
2069 | procedure TStartDlg.AutoEnemyDownBtnClick(Sender: TObject);
|
---|
2070 | begin
|
---|
2071 | if AutoEnemies > 0 then
|
---|
2072 | begin
|
---|
2073 | Dec(AutoEnemies);
|
---|
2074 | SmartInvalidate(160, yMain + 140, 198, yMain + 140 + 21);
|
---|
2075 | end;
|
---|
2076 | end;
|
---|
2077 |
|
---|
2078 | procedure TStartDlg.ReplayBtnClick(Sender: TObject);
|
---|
2079 | begin
|
---|
2080 | LoadGame(GetSavedDir + DirectorySeparator, List.Items[List.ItemIndex] + CevoExt,
|
---|
2081 | LastTurn, True);
|
---|
2082 | SlotAvailable := -1;
|
---|
2083 | end;
|
---|
2084 |
|
---|
2085 |
|
---|
2086 | end.
|
---|