equal
deleted
inserted
replaced
5180 |
5180 |
5181 if (IceState = iceCollideWithGround) and ((GameTicks - IceTime) > groundFreezingTime) then |
5181 if (IceState = iceCollideWithGround) and ((GameTicks - IceTime) > groundFreezingTime) then |
5182 begin |
5182 begin |
5183 FillRoundInLandWithIce(Target.X, Target.Y, iceRadius); |
5183 FillRoundInLandWithIce(Target.X, Target.Y, iceRadius); |
5184 SetAllHHToActive; |
5184 SetAllHHToActive; |
5185 IceState := iceWaitNextTarget; |
5185 IceState := iceWaitCollision; |
5186 end; |
5186 end; |
5187 |
5187 |
5188 if (IceState = iceCollideWithWater) and ((GameTicks - IceTime) > groundFreezingTime) then |
5188 if (IceState = iceCollideWithWater) and ((GameTicks - IceTime) > groundFreezingTime) then |
5189 begin |
5189 begin |
5190 DrawIceBreak(Target.X, cWaterLine - iceHeight, iceRadius, iceHeight); |
5190 DrawIceBreak(Target.X, cWaterLine - iceHeight, iceRadius, iceHeight); |
5191 SetAllHHToActive; |
5191 SetAllHHToActive; |
5192 IceState := iceWaitNextTarget; |
5192 IceState := iceWaitCollision; |
5193 end; |
5193 end; |
5194 |
5194 |
5195 // freeze nearby hogs |
5195 // freeze nearby hogs |
5196 hogs := GearsNear(int2hwFloat(Target.X), int2hwFloat(Target.Y), gtHedgehog, Gear^.Radius*2); |
5196 hogs := GearsNear(int2hwFloat(Target.X), int2hwFloat(Target.Y), gtHedgehog, Gear^.Radius*2); |
5197 if hogs.size > 0 then |
5197 if hogs.size > 0 then |