equal
deleted
inserted
replaced
2594 begin |
2594 begin |
2595 HHGear := Gear^.Hedgehog^.Gear; |
2595 HHGear := Gear^.Hedgehog^.Gear; |
2596 HHGear^.State := HHGear^.State or gstNoDamage; |
2596 HHGear^.State := HHGear^.State or gstNoDamage; |
2597 DeleteCI(HHGear); |
2597 DeleteCI(HHGear); |
2598 |
2598 |
|
2599 ClearHitOrder(); |
|
2600 RefillProximityCache(Gear, 100); |
2599 for i:= 0 to 3 do |
2601 for i:= 0 to 3 do |
2600 begin |
2602 begin |
2601 AddVisualGear(hwRound(Gear^.X) + hwSign(Gear^.dX) * (10 + 6 * i), hwRound(Gear^.Y) + 12 + Random(6), vgtDust); |
2603 AddVisualGear(hwRound(Gear^.X) + hwSign(Gear^.dX) * (10 + 6 * i), hwRound(Gear^.Y) + 12 + Random(6), vgtDust); |
2602 AmmoShove(Gear, Gear^.Boom, 25); |
2604 AmmoShoveCache(Gear, Gear^.Boom, 25); |
2603 Gear^.X := Gear^.X + Gear^.dX * 5 |
2605 Gear^.X := Gear^.X + Gear^.dX * 5 |
2604 end; |
2606 end; |
2605 |
2607 |
|
2608 ClearHitOrder(); |
|
2609 ClearProximityCache(); |
2606 HHGear^.State := (HHGear^.State and (not gstNoDamage)) or gstMoving; |
2610 HHGear^.State := (HHGear^.State and (not gstNoDamage)) or gstMoving; |
2607 |
2611 |
2608 Gear^.Timer := 250; |
2612 Gear^.Timer := 250; |
2609 Gear^.doStep := @doStepIdle |
2613 Gear^.doStep := @doStepIdle |
2610 end; |
2614 end; |