equal
deleted
inserted
replaced
20 |
20 |
21 {$IFDEF WIN32} |
21 {$IFDEF WIN32} |
22 {$R hwengine.rc} |
22 {$R hwengine.rc} |
23 {$ENDIF} |
23 {$ENDIF} |
24 |
24 |
25 {$IFDEF IPHONEOS} |
25 {$IFDEF HWLIBRARY} |
26 unit hwengine; |
26 unit hwengine; |
27 interface |
27 interface |
28 {$ELSE} |
28 {$ELSE} |
29 program hwengine; |
29 program hwengine; |
30 {$ENDIF} |
30 {$ENDIF} |
67 // CCHandlers.inc |
67 // CCHandlers.inc |
68 // HHHandlers.inc |
68 // HHHandlers.inc |
69 // SinTable.inc |
69 // SinTable.inc |
70 // proto.inc |
70 // proto.inc |
71 |
71 |
72 {$IFDEF IPHONEOS} |
72 {$IFDEF HWLIBRARY} |
73 type arrayofpchar = array[0..5] of PChar; |
73 type arrayofpchar = array[0..5] of PChar; |
74 procedure DoTimer(Lag: LongInt); |
74 procedure DoTimer(Lag: LongInt); |
75 procedure OnDestroy; |
75 procedure OnDestroy; |
76 procedure MainLoop; |
76 procedure MainLoop; |
77 procedure ShowMainWindow; |
77 procedure ShowMainWindow; |
222 else ParseCommand('fullscr 0', true); |
222 else ParseCommand('fullscr 0', true); |
223 SDL_ShowCursor(0) |
223 SDL_ShowCursor(0) |
224 end; |
224 end; |
225 |
225 |
226 /////////////// |
226 /////////////// |
227 {$IFDEF IPHONEOS} |
227 {$IFDEF HWLIBRARY} |
228 procedure Game(gameArgs: arrayofpchar); cdecl; export; |
228 procedure Game(gameArgs: arrayofpchar); cdecl; export; |
229 {$ELSE} |
229 {$ELSE} |
230 procedure Game;cdecl; export; |
230 procedure Game;cdecl; export; |
231 {$ENDIF} |
231 {$ENDIF} |
232 var p: TPathType; |
232 var p: TPathType; |
233 s: shortstring; |
233 s: shortstring; |
234 begin |
234 begin |
235 {$IFDEF IPHONEOS} |
235 {$IFDEF HWLIBRARY} |
236 initEverything(); |
236 initEverything(); |
237 Randomize(); |
237 Randomize(); |
238 |
238 |
239 cScreenWidth:= 480; |
239 cScreenWidth:= 480; |
240 cScreenHeight:= 320; |
240 cScreenHeight:= 320; |
384 free_uConsole(); |
384 free_uConsole(); |
385 free_uMisc(); |
385 free_uMisc(); |
386 free_uConsts(); //stub |
386 free_uConsts(); //stub |
387 free_uScript(); |
387 free_uScript(); |
388 end; |
388 end; |
389 {$IFNDEF IPHONEOS} |
389 |
|
390 {$IFNDEF HWLIBRARY} |
390 ///////////////////////// |
391 ///////////////////////// |
391 procedure GenLandPreview; |
392 procedure GenLandPreview; |
392 var Preview: TPreview; |
393 var Preview: TPreview; |
393 h: byte; |
394 h: byte; |
394 begin |
395 begin |