Changeset 363 for trunk/Start.pas

Timestamp:

Apr 12, 2021, 3:01:58 PM (4 years ago)

Author:

chronos

Message:

• Modified: TBrain class moved to separate UBrain unit.

File:

• trunk/Start.pas (modified) (3 diffs)

trunk/Start.pas

@@ -7 +7 @@
   GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area, Types,
   LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls,
-  Menus, Registry,  DrawDlg, fgl, Protocol, UMiniMap;
+  Menus, Registry,  DrawDlg, fgl, Protocol, UMiniMap, UBrain;
 
 type
@@ -750 +750 @@
         yMain + 164 { y0Mini-77 } , Phrases.Lookup('STARTCONTROLS', 16));
       if AutoDiff = 1 then
-        FrameImage(Canvas, BrainBeginner.Picture, xDefault, yDefault, 64,
+        FrameImage(Canvas, Brains.GetBeginner.Picture, xDefault, yDefault, 64,
           64, 0, 0, false)
       else
@@ -977 +977 @@
               if (Page = pgStartRandom) and (I <= AutoEnemies) or
                 (Page = pgStartMap) and (I < nMapStartPositions) then begin
-                if AutoDiff = 1 then PlayersBrain[I] := BrainBeginner
+                if AutoDiff = 1 then PlayersBrain[I] := Brains.GetBeginner
                   else PlayersBrain[I] := BrainDefault;
                 Difficulty[I] := EnemyAutoDiff[AutoDiff];