equal
deleted
inserted
replaced
17 *) |
17 *) |
18 |
18 |
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 program hwengine; |
21 program hwengine; |
22 uses |
22 uses SDLh in 'SDLh.pas', |
23 SDLh in 'SDLh.pas', |
|
24 {$IFDEF GLES11} |
23 {$IFDEF GLES11} |
25 gles11, |
24 gles11, |
26 {$ELSE} |
25 {$ELSE} |
27 GL, |
26 GL, |
28 {$ENDIF} |
27 {$ENDIF} |
52 uAmmos in 'uAmmos.pas', |
51 uAmmos in 'uAmmos.pas', |
53 uSHA in 'uSHA.pas', |
52 uSHA in 'uSHA.pas', |
54 uFloat in 'uFloat.pas', |
53 uFloat in 'uFloat.pas', |
55 uStats in 'uStats.pas', |
54 uStats in 'uStats.pas', |
56 uChat in 'uChat.pas', |
55 uChat in 'uChat.pas', |
57 uLandTexture in 'uLandTexture.pas'; |
56 uLandTexture in 'uLandTexture.pas' |
|
57 {$IFDEF IPHONEOS} |
|
58 , PascalExports in 'PascalExports.pas' |
|
59 {$ENDIF} |
|
60 ; |
58 |
61 |
59 // also: GSHandlers.inc |
62 // also: GSHandlers.inc |
60 // CCHandlers.inc |
63 // CCHandlers.inc |
61 // HHHandlers.inc |
64 // HHHandlers.inc |
62 // SinTable.inc |
65 // SinTable.inc |
161 procedure MainLoop; |
164 procedure MainLoop; |
162 var PrevTime, |
165 var PrevTime, |
163 CurrTime: Longword; |
166 CurrTime: Longword; |
164 event: TSDL_Event; |
167 event: TSDL_Event; |
165 {$IFDEF TOUCHINPUT} |
168 {$IFDEF TOUCHINPUT} |
166 var tiltValue: LongInt; |
169 //var tiltValue: LongInt; |
167 {$ENDIF} |
170 {$ENDIF} |
168 begin |
171 begin |
169 PrevTime:= SDL_GetTicks; |
172 PrevTime:= SDL_GetTicks; |
170 repeat |
173 repeat |
171 while SDL_PollEvent(@event) <> 0 do |
174 while SDL_PollEvent(@event) <> 0 do |
409 {$IFDEF DEBUGFILE} |
412 {$IFDEF DEBUGFILE} |
410 AddFileLog('Prefix: "' + PathPrefix +'"'); |
413 AddFileLog('Prefix: "' + PathPrefix +'"'); |
411 for i:= 0 to ParamCount do |
414 for i:= 0 to ParamCount do |
412 AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
415 AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
413 {$IFDEF IPHONEOS} |
416 {$IFDEF IPHONEOS} |
414 WriteLnToConsole('Saving debug file at: ' + get_documents_path()); |
417 WriteLnToConsole('Saving debug file at: ' + IPH_getDocumentsPath()); |
415 {$ENDIF} |
418 {$ENDIF} |
416 {$ENDIF} |
419 {$ENDIF} |
417 end; |
420 end; |
418 |
421 |
419 ///////////////////////// |
422 ///////////////////////// |