145 snowLeft,snowRight: LongInt; |
145 snowLeft,snowRight: LongInt; |
146 |
146 |
147 implementation |
147 implementation |
148 uses uConsts, uVariables, uVisualGearsList, uRandom, uCollisions, uGearsList, uUtils, uSound |
148 uses uConsts, uVariables, uVisualGearsList, uRandom, uCollisions, uGearsList, uUtils, uSound |
149 , SDLh, uScript, uGearsHedgehog, uGearsUtils, uIO, uCaptions, uLandGraphics |
149 , SDLh, uScript, uGearsHedgehog, uGearsUtils, uIO, uCaptions, uLandGraphics |
150 , uGearsHandlers, uTextures, uRenderUtils, uAmmos, uTeams, uLandTexture, uCommands |
150 , uGearsHandlers, uTextures, uRenderUtils, uAmmos, uTeams, uLandTexture |
151 , uStore, uAI, uStats, uLocale; |
151 , uStore, uAI, uStats, uLocale; |
152 |
152 |
153 procedure doStepPerPixel(Gear: PGear; step: TGearStepProcedure; onlyCheckIfChanged: boolean); |
153 procedure doStepPerPixel(Gear: PGear; step: TGearStepProcedure; onlyCheckIfChanged: boolean); |
154 var |
154 var |
155 dX, dY, sX, sY: hwFloat; |
155 dX, dY, sX, sY: hwFloat; |