equal
deleted
inserted
replaced
3090 Gear^.Pos:= 0; |
3090 Gear^.Pos:= 0; |
3091 Gear^.doStep := @doStepJetpackWork; |
3091 Gear^.doStep := @doStepJetpackWork; |
3092 |
3092 |
3093 HHGear := PHedgehog(Gear^.Hedgehog)^.Gear; |
3093 HHGear := PHedgehog(Gear^.Hedgehog)^.Gear; |
3094 FollowGear := HHGear; |
3094 FollowGear := HHGear; |
3095 OnUsedAmmo(PHedgehog(Gear^.Hedgehog)^); |
3095 AfterAttack; |
3096 ApplyAmmoChanges(PHedgehog(Gear^.Hedgehog)^); |
|
3097 with HHGear^ do |
3096 with HHGear^ do |
3098 begin |
3097 begin |
3099 State := State and not gstAttacking; |
3098 State := State and not gstAttacking; |
3100 Message := Message and not (gmAttack or gmUp or gmPrecise or gmLeft or gmRight); |
3099 Message := Message and not (gmAttack or gmUp or gmPrecise or gmLeft or gmRight); |
3101 if (dY < _0_1) and (dY > -_0_1) then |
3100 if (dY < _0_1) and (dY > -_0_1) then |