equal
deleted
inserted
replaced
142 |
142 |
143 //////////////////// |
143 //////////////////// |
144 procedure OnDestroy; |
144 procedure OnDestroy; |
145 begin |
145 begin |
146 {$IFDEF DEBUGFILE}AddFileLog('Freeing resources...');{$ENDIF} |
146 {$IFDEF DEBUGFILE}AddFileLog('Freeing resources...');{$ENDIF} |
147 if isSoundEnabled then ReleaseSound; |
147 if isSoundEnabled then ReleaseSound(); |
148 StoreRelease; |
148 StoreRelease(); |
149 FreeLand; |
149 FreeLand(); |
150 SendKB; |
150 SendKB(); |
151 CloseIPC; |
151 CloseIPC(); |
152 TTF_Quit; |
152 TTF_Quit(); |
153 SDL_Quit; |
153 //{$IFNDEF IPHONEOS} |
154 halt |
154 // TODO: don't halt and don't clean, return to the previous view |
|
155 SDL_Quit(); |
|
156 halt(); |
|
157 //{$ENDIF} |
155 end; |
158 end; |
156 |
159 |
157 /////////////////// |
160 /////////////////// |
158 procedure MainLoop; |
161 procedure MainLoop; |
159 var PrevTime, |
162 var PrevTime, |