equal
deleted
inserted
replaced
1701 else if Gear^.dY.isNegative and (Gear^.dY < -_0_2) and TestCollisionYwithGear(Gear, -1) then |
1701 else if Gear^.dY.isNegative and (Gear^.dY < -_0_2) and TestCollisionYwithGear(Gear, -1) then |
1702 inc(Gear^.Damage, hwRound(Gear^.dY * -_70)) |
1702 inc(Gear^.Damage, hwRound(Gear^.dY * -_70)) |
1703 else if Gear^.dX.isNegative and (Gear^.dX < -_0_2) and TestCollisionXwithGear(Gear, -1) then |
1703 else if Gear^.dX.isNegative and (Gear^.dX < -_0_2) and TestCollisionXwithGear(Gear, -1) then |
1704 inc(Gear^.Damage, hwRound(Gear^.dX * -_70)); |
1704 inc(Gear^.Damage, hwRound(Gear^.dX * -_70)); |
1705 |
1705 |
1706 if (Gear^.Damage > random(10)) and ((GameTicks and $FF) = 0) then |
1706 if (Gear^.Damage > random(30)) and ((GameTicks and $FF) = 0) then |
1707 AddVisualGear(hwRound(Gear^.X) - 16 + Random(32), hwRound(Gear^.Y), vgtSmoke); |
1707 AddVisualGear(hwRound(Gear^.X) - 4 + Random(8), hwRound(Gear^.Y) - 4 - Random(4), vgtSmoke); |
1708 |
1708 |
1709 if (Gear^.Damage > 35) then |
1709 if (Gear^.Damage > 35) then |
1710 begin |
1710 begin |
1711 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, Gear^.Hedgehog, EXPLAutoSound); |
1711 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, Gear^.Hedgehog, EXPLAutoSound); |
1712 DeleteGear(Gear); |
1712 DeleteGear(Gear); |