Changeset 143 for trunk/Direct.pas

Timestamp:

May 8, 2018, 4:37:34 PM (6 years ago)

Author:

chronos

Message:

• Modified: Brains array changed to object list and TBrainInfo record to TBrain class for better code maintainability.

File:

• trunk/Direct.pas (modified) (7 diffs)

trunk/Direct.pas

@@ -53 +53 @@
 procedure TDirectDlg.DlgNotify(ID: integer);
 var
-  hMem: Cardinal;
-  p: pointer;
+//  hMem: Cardinal;
+//  p: pointer;
   s: string;
 begin
@@ -71 +71 @@
       begin
         s := Format(Phrases.Lookup('BUSY_MOD'),
-          [Brain[ID - ntInitModule].Name]);
+          [Brains[ID - ntInitModule].Name]);
         while BiColorTextWidth(Canvas, s) + 64 > ClientWidth do
           Delete(s, Length(s), 1);
@@ -98 +98 @@
     ntDLLError .. ntDLLError + 128:
       SimpleMessage(Format(Phrases.Lookup('DLLERROR'),
-        [Brain[ID - ntDLLError].FileName]));
+        [Brains[ID - ntDLLError].FileName]));
     ntAIError:
       SimpleMessage(Format(Phrases.Lookup('AIERROR'), [NotifyMessage]));
     ntClientError .. ntClientError + 128:
       SimpleMessage(Format(Phrases.Lookup('CLIENTERROR'),
-        [Brain[ID - ntClientError].FileName]));
+        [Brains[ID - ntClientError].FileName]));
     ntEndInfo:
       begin
@@ -157 +157 @@
       begin
         Info := Format(Phrases2.Lookup('BUSY_DEINIT'),
-          [Brain[ID - ntDeinitModule].Name]);
+          [Brains[ID - ntDeinitModule].Name]);
         while BiColorTextWidth(Canvas, Info) + 64 > ClientWidth do
           Delete(Info, Length(Info), 1);
@@ -183 +183 @@
   Info := '';
   GameServer.Init(Notify);
-  Brain[bixNoTerm].Client := NoTerm.Client;
-  Brain[bixSuper_Virtual].Client := nil;
-  Brain[bixTerm].Client := LocalPlayer.Client;
-  Brain[bixNoTerm].Name := Phrases.Lookup('AIT');
-  Brain[bixSuper_Virtual].Name := Phrases.Lookup('SUPER');
-  Brain[bixTerm].Name := Phrases.Lookup('HUMAN');
-  Brain[bixRandom].Name := Phrases.Lookup('RANDOMAI');
+  BrainNoTerm.Client := NoTerm.Client;
+  BrainNoTerm.Name := Phrases.Lookup('AIT');
+  BrainSuperVirtual.Client := nil;
+  BrainSuperVirtual.Name := Phrases.Lookup('SUPER');
+  BrainTerm.Client := LocalPlayer.Client;
+  BrainTerm.Name := Phrases.Lookup('HUMAN');
+  BrainRandom.Name := Phrases.Lookup('RANDOMAI');
   Canvas.Font.Assign(UniFont[ftNormal]);
   Canvas.Brush.Style := bsClear;
@@ -214 +214 @@
 begin
   Hide;
-  if nBrain = 3 then
+  if Brains.Count = 3 then
   begin
     Application.MessageBox(PChar(Phrases.Lookup('NOAI')), 'C-evo', 0);
@@ -268 +268 @@
 begin
   Application.MessageBox(PChar(Format(Phrases.Lookup('AIEXCEPTION'),
-    [Brain[Msg.WParam].Name])), 'C-evo', 0);
+    [Brains[Msg.WParam].Name])), 'C-evo', 0);
 end;