46 uKeys in 'uKeys.pas', |
46 uKeys in 'uKeys.pas', |
47 uTeams in 'uTeams.pas', |
47 uTeams in 'uTeams.pas', |
48 uSound in 'uSound.pas', |
48 uSound in 'uSound.pas', |
49 uRandom in 'uRandom.pas', |
49 uRandom in 'uRandom.pas', |
50 uAI in 'uAI.pas', |
50 uAI in 'uAI.pas', |
|
51 uAIMisc in 'uAIMisc.pas', |
|
52 uAIAmmoTests in 'uAIAmmoTests.pas', |
|
53 uAIActions in 'uAIActions.pas', |
51 uCollisions in 'uCollisions.pas', |
54 uCollisions in 'uCollisions.pas', |
52 uLand in 'uLand.pas', |
55 uLand in 'uLand.pas', |
53 uLandTemplates in 'uLandTemplates.pas', |
56 uLandTemplates in 'uLandTemplates.pas', |
54 uLandObjects in 'uLandObjects.pas', |
57 uLandObjects in 'uLandObjects.pas', |
55 uLandGraphics in 'uLandGraphics.pas', |
58 uLandGraphics in 'uLandGraphics.pas'; |
56 uAIMisc in 'uAIMisc.pas', |
|
57 uAIAmmoTests in 'uAIAmmoTests.pas', |
|
58 uAIActions in 'uAIActions.pas'; |
|
59 |
59 |
60 {$INCLUDE options.inc} |
60 {$INCLUDE options.inc} |
61 |
61 |
62 // also: GSHandlers.inc |
62 // also: GSHandlers.inc |
63 // CCHandlers.inc |
63 // CCHandlers.inc |
116 SDL_SaveBMP_RW(SDLPrimSurface, SDL_RWFromFile(PChar(s), 'wb'), 1) |
116 SDL_SaveBMP_RW(SDLPrimSurface, SDL_RWFromFile(PChar(s), 'wb'), 1) |
117 end; |
117 end; |
118 end; |
118 end; |
119 |
119 |
120 //////////////////// |
120 //////////////////// |
121 procedure OnDestroy; // - очищаем память |
121 procedure OnDestroy; |
122 begin |
122 begin |
123 {$IFDEF DEBUGFILE}AddFileLog('Freeing resources...');{$ENDIF} |
123 {$IFDEF DEBUGFILE}AddFileLog('Freeing resources...');{$ENDIF} |
124 if isSoundEnabled then ReleaseSound; |
124 if isSoundEnabled then ReleaseSound; |
125 StoreRelease; |
125 StoreRelease; |
126 CloseIPC; |
126 CloseIPC; |