30 {$ENDIF} |
30 {$ENDIF} |
31 |
31 |
32 uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uInputHandler |
32 uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uInputHandler |
33 , uSound, uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uAILandMarks, uLandTexture, uCollisions |
33 , uSound, uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uAILandMarks, uLandTexture, uCollisions |
34 , SysUtils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted |
34 , SysUtils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted |
35 , uPhysFSLayer, uCursor, uRandom |
35 , uPhysFSLayer, uCursor, uRandom, ArgParsers |
36 {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF} |
36 {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF} |
37 {$IFDEF USE_TOUCH_INTERFACE}, uTouch {$ENDIF} |
37 {$IFDEF USE_TOUCH_INTERFACE}, uTouch {$ENDIF} |
38 {$IFDEF ANDROID}, GLUnit{$ENDIF} |
38 {$IFDEF ANDROID}, GLUnit{$ENDIF} |
39 ; |
39 ; |
40 |
|
41 var isInternal: Boolean; |
|
42 |
40 |
43 {$IFDEF HWLIBRARY} |
41 {$IFDEF HWLIBRARY} |
44 procedure preInitEverything(); |
42 procedure preInitEverything(); |
45 procedure initEverything(complete:boolean); |
43 procedure initEverything(complete:boolean); |
46 procedure freeEverything(complete:boolean); |
44 procedure freeEverything(complete:boolean); |
51 {$ELSE} |
49 {$ELSE} |
52 procedure preInitEverything(); forward; |
50 procedure preInitEverything(); forward; |
53 procedure initEverything(complete:boolean); forward; |
51 procedure initEverything(complete:boolean); forward; |
54 procedure freeEverything(complete:boolean); forward; |
52 procedure freeEverything(complete:boolean); forward; |
55 {$ENDIF} |
53 {$ENDIF} |
56 |
|
57 {$INCLUDE "ArgParsers.inc"} |
|
58 |
54 |
59 /////////////////////////////////////////////////////////////////////////////// |
55 /////////////////////////////////////////////////////////////////////////////// |
60 function DoTimer(Lag: LongInt): boolean; |
56 function DoTimer(Lag: LongInt): boolean; |
61 var s: shortstring; |
57 var s: shortstring; |
62 begin |
58 begin |