123 

   123 

   124 ////////////////////

   124 ////////////////////

   125 procedure OnDestroy;

   125 procedure OnDestroy;

   126 begin

   126 begin

   127     WriteLnToConsole('Freeing resources...');

   127     WriteLnToConsole('Freeing resources...');

   128     StoreRelease();

   129     StoreRelease();

   129     ControllerClose();

   130     ControllerClose();

   130     SendKB();

   131     SendKB();

   131     CloseIPC();

   132     CloseIPC();

   132     TTF_Quit();

   133     TTF_Quit();

   377         uChat.freeModule;           //stub

   378         uChat.freeModule;           //stub

   378         uAmmos.freeModule;

   379         uAmmos.freeModule;

   379         uAIMisc.freeModule;         //stub

   380         uAIMisc.freeModule;         //stub

   380         //uAIAmmoTests does not need to be freed

   381         //uAIAmmoTests does not need to be freed

   381         //uAIActions does not need to be freed

   382         //uAIActions does not need to be freed

   383     end;

   384     end;

   384     

   385     

   385     uIO.freeModule;             //stub

   386     uIO.freeModule;             //stub

   386     uLand.freeModule;

   387     uLand.freeModule;

   387 

   388