46 procedure AddMiscGears; |
46 procedure AddMiscGears; |
47 procedure AssignHHCoords; |
47 procedure AssignHHCoords; |
48 function GearByUID(uid : Longword) : PGear; |
48 function GearByUID(uid : Longword) : PGear; |
49 |
49 |
50 implementation |
50 implementation |
51 uses uStore, uSound, uTeams, uRandom, uIO, uLandGraphics, {$IFDEF SDL2}uTouch,{$ENDIF} |
51 uses uStore, uSound, uTeams, uRandom, uIO, uLandGraphics, |
|
52 {$IFDEF USE_TOUCH_INTERFACE}uTouch,{$ENDIF} |
52 uLocale, uAmmos, uStats, uVisualGears, uScript, uVariables, |
53 uLocale, uAmmos, uStats, uVisualGears, uScript, uVariables, |
53 uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, uDebug, uLandTexture, |
54 uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, uDebug, uLandTexture, |
54 uGearsHedgehog, uGearsUtils, uGearsList, uGearsHandlersRope |
55 uGearsHedgehog, uGearsUtils, uGearsList, uGearsHandlersRope |
55 , uVisualGearsList, uGearsHandlersMess, uAI; |
56 , uVisualGearsList, uGearsHandlersMess, uAI; |
56 |
57 |
170 ScriptCall('onGameTick'); |
171 ScriptCall('onGameTick'); |
171 if GameTicks mod 20 = 0 then ScriptCall('onGameTick20'); |
172 if GameTicks mod 20 = 0 then ScriptCall('onGameTick20'); |
172 if GameTicks = NewTurnTick then |
173 if GameTicks = NewTurnTick then |
173 begin |
174 begin |
174 ScriptCall('onNewTurn'); |
175 ScriptCall('onNewTurn'); |
175 {$IFDEF SDL2} |
176 {$IFDEF USE_TOUCH_INTERFACE} |
176 uTouch.NewTurnBeginning(); |
177 uTouch.NewTurnBeginning(); |
177 {$ENDIF} |
178 {$ENDIF} |
178 end; |
179 end; |
179 |
180 |
180 PrvInactive:= AllInactive; |
181 PrvInactive:= AllInactive; |