equal
deleted
inserted
replaced
2514 |
2514 |
2515 HHGear := Gear^.Hedgehog^.Gear; |
2515 HHGear := Gear^.Hedgehog^.Gear; |
2516 if hwRound(HHGear^.Y) <= Gear^.Tag - 2 then |
2516 if hwRound(HHGear^.Y) <= Gear^.Tag - 2 then |
2517 begin |
2517 begin |
2518 Gear^.Tag := hwRound(HHGear^.Y); |
2518 Gear^.Tag := hwRound(HHGear^.Y); |
2519 DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y - _1, _0_5, _0, cHHRadius * 4, 2); |
2519 DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y - _1, _0_5, _0, cHHRadius * 4+2, 2); |
2520 HHGear^.State := HHGear^.State or gstNoDamage; |
2520 HHGear^.State := HHGear^.State or gstNoDamage; |
2521 Gear^.Y := HHGear^.Y; |
2521 Gear^.Y := HHGear^.Y; |
2522 AmmoShove(Gear, 30, 40); |
2522 AmmoShove(Gear, 30, 40); |
2523 HHGear^.State := HHGear^.State and (not gstNoDamage) |
2523 HHGear^.State := HHGear^.State and (not gstNoDamage) |
2524 end; |
2524 end; |