57 |
57 |
58 implementation |
58 implementation |
59 uses uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics, |
59 uses uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics, |
60 uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables, |
60 uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables, |
61 uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, uDebug, uLandTexture, |
61 uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, uDebug, uLandTexture, |
62 uGearsHedgehog, uGearsUtils, uGearsList, uGearsHandlers; |
62 uGearsHedgehog, uGearsUtils, uGearsList, uGearsHandlers, uGearsHandlersRope; |
63 |
63 |
64 var skipFlag: boolean; |
64 var skipFlag: boolean; |
65 |
65 |
66 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); forward; |
66 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); forward; |
67 //procedure AmmoFlameWork(Ammo: PGear); forward; |
67 //procedure AmmoFlameWork(Ammo: PGear); forward; |
639 cLaserSighting:= true; |
639 cLaserSighting:= true; |
640 |
640 |
641 if (GameFlags and gfArtillery) <> 0 then |
641 if (GameFlags and gfArtillery) <> 0 then |
642 cArtillery:= true; |
642 cArtillery:= true; |
643 for i:= GetRandom(10)+30 downto 0 do |
643 for i:= GetRandom(10)+30 downto 0 do |
644 begin rx:= GetRandom(rightX-leftX)+leftX; |
644 begin |
|
645 rx:= GetRandom(rightX-leftX)+leftX; |
645 ry:= GetRandom(LAND_HEIGHT-topY)+topY; |
646 ry:= GetRandom(LAND_HEIGHT-topY)+topY; |
646 rdx:= _90-(GetRandomf*_360); |
647 rdx:= _90-(GetRandomf*_360); |
647 rdy:= _90-(GetRandomf*_360); |
648 rdy:= _90-(GetRandomf*_360); |
648 AddGear(rx, ry, gtGenericFaller, gstInvisible, rdx, rdy, $FFFFFFFF); |
649 AddGear(rx, ry, gtGenericFaller, gstInvisible, rdx, rdy, $FFFFFFFF); |
649 end; |
650 end; |