151 procedure OnDestroy;

   151 procedure OnDestroy;

   152 begin

   152 begin

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

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

   154     if isSoundEnabled then ReleaseSound();

   154     if isSoundEnabled then ReleaseSound();

   155     StoreRelease();

   155     StoreRelease();

   156     FreeLand();

   158     FreeLand();

   157     ControllerClose();

   159     ControllerClose();

   158     SendKB();

   160     SendKB();

   159     CloseIPC();

   161     CloseIPC();

   160     TTF_Quit();

   163     TTF_Quit();

   161     SDL_Quit();

   164     SDL_Quit();

   163     exit();

   165     exit();

   164 end;

   166 end;

   165 

   167 

   166 ///////////////////

   168 ///////////////////

   167 procedure MainLoop; 

   169 procedure MainLoop;