equal
deleted
inserted
replaced
2610 begin |
2610 begin |
2611 AllInactive := false; |
2611 AllInactive := false; |
2612 dec(Gear^.Timer); |
2612 dec(Gear^.Timer); |
2613 HHGear := PHedgehog(Gear^.Hedgehog)^.Gear; |
2613 HHGear := PHedgehog(Gear^.Hedgehog)^.Gear; |
2614 HedgehogChAngle(HHGear); |
2614 HedgehogChAngle(HHGear); |
2615 gX := hwRound(Gear^.X); |
2615 gX := hwRound(Gear^.X) + GetLaunchX(amBallgun, hwSign(HHGear^.dX), HHGear^.Angle); |
2616 gY := hwRound(Gear^.Y); |
2616 gY := hwRound(Gear^.Y) + GetLaunchY(amBallgun, HHGear^.Angle); |
2617 if (Gear^.Timer mod 100) = 0 then |
2617 if (Gear^.Timer mod 100) = 0 then |
2618 begin |
2618 begin |
2619 rx := rndSign(getRandom * _0_1); |
2619 rx := rndSign(getRandom * _0_1); |
2620 ry := rndSign(getRandom * _0_1); |
2620 ry := rndSign(getRandom * _0_1); |
2621 |
2621 |
3637 begin |
3637 begin |
3638 AllInactive := false; |
3638 AllInactive := false; |
3639 dec(Gear^.Timer); |
3639 dec(Gear^.Timer); |
3640 HHGear := PHedgehog(Gear^.Hedgehog)^.Gear; |
3640 HHGear := PHedgehog(Gear^.Hedgehog)^.Gear; |
3641 HedgehogChAngle(HHGear); |
3641 HedgehogChAngle(HHGear); |
3642 gX := hwRound(Gear^.X); |
3642 gX := hwRound(Gear^.X) + GetLaunchX(amBallgun, hwSign(HHGear^.dX), HHGear^.Angle); |
3643 gY := hwRound(Gear^.Y); |
3643 gY := hwRound(Gear^.Y) + GetLaunchY(amBallgun, HHGear^.Angle); |
3644 if (Gear^.Timer mod 100) = 0 then |
3644 if (Gear^.Timer mod 100) = 0 then |
3645 begin |
3645 begin |
3646 rx := rndSign(getRandom * _0_1); |
3646 rx := rndSign(getRandom * _0_1); |
3647 ry := rndSign(getRandom * _0_1); |
3647 ry := rndSign(getRandom * _0_1); |
3648 |
3648 |