equal
deleted
inserted
replaced
31 procedure doStepRopeAfterAttack(Gear: PGear); |
31 procedure doStepRopeAfterAttack(Gear: PGear); |
32 var |
32 var |
33 HHGear: PGear; |
33 HHGear: PGear; |
34 begin |
34 begin |
35 HHGear := Gear^.Hedgehog^.Gear; |
35 HHGear := Gear^.Hedgehog^.Gear; |
|
36 if (HHGear^.Hedgehog^.CurAmmoType = amParachute) and (HHGear^.dY > _0_39) then |
|
37 begin |
|
38 DeleteGear(Gear); |
|
39 ApplyAmmoChanges(HHGear^.Hedgehog^); |
|
40 HHGear^.Message:= HHGear^.Message or gmLJump; |
|
41 exit |
|
42 end; |
|
43 |
36 if ((HHGear^.State and gstHHDriven) = 0) |
44 if ((HHGear^.State and gstHHDriven) = 0) |
37 or (CheckGearDrowning(HHGear)) |
45 or (CheckGearDrowning(HHGear)) |
38 or (TestCollisionYwithGear(HHGear, 1) <> 0) then |
46 or (TestCollisionYwithGear(HHGear, 1) <> 0) then |
39 begin |
47 begin |
40 DeleteGear(Gear); |
48 DeleteGear(Gear); |