hedgewars/hwengine.dpr
changeset 79 29b477319854
parent 74 42257fee61ae
child 80 3c3dc6a148ca
--- a/hedgewars/hwengine.dpr	Wed Jul 12 15:39:58 2006 +0000
+++ b/hedgewars/hwengine.dpr	Sun Jul 16 08:13:51 2006 +0000
@@ -48,14 +48,14 @@
   uSound in 'uSound.pas',
   uRandom in 'uRandom.pas',
   uAI in 'uAI.pas',
+  uAIMisc in 'uAIMisc.pas',
+  uAIAmmoTests in 'uAIAmmoTests.pas',
+  uAIActions in 'uAIActions.pas',
   uCollisions in 'uCollisions.pas',
   uLand in 'uLand.pas',
   uLandTemplates in 'uLandTemplates.pas',
   uLandObjects in 'uLandObjects.pas',
-  uLandGraphics in 'uLandGraphics.pas',
-  uAIMisc in 'uAIMisc.pas',
-  uAIAmmoTests in 'uAIAmmoTests.pas',
-  uAIActions in 'uAIActions.pas';
+  uLandGraphics in 'uLandGraphics.pas';
 
 {$INCLUDE options.inc}
 
@@ -67,7 +67,7 @@
 procedure OnDestroy; forward;
 
 ////////////////////////////////
-procedure DoTimer(Lag: integer);  // - обработка таймера
+procedure DoTimer(Lag: integer);
 var s: string;
 begin
 case GameState of
@@ -118,7 +118,7 @@
 end;
 
 ////////////////////
-procedure OnDestroy;   // - очищаем память
+procedure OnDestroy;
 begin
 {$IFDEF DEBUGFILE}AddFileLog('Freeing resources...');{$ENDIF}
 if isSoundEnabled then ReleaseSound;