equal
deleted
inserted
replaced
4946 if (HH^.Gear <> nil) and (HH^.Gear^.State and gstInvisible = 0) then |
4946 if (HH^.Gear <> nil) and (HH^.Gear^.State and gstInvisible = 0) then |
4947 begin |
4947 begin |
4948 AfterAttack; |
4948 AfterAttack; |
4949 if Gear = CurAmmoGear then CurAmmoGear := nil; |
4949 if Gear = CurAmmoGear then CurAmmoGear := nil; |
4950 DeleteCI(HH^.Gear); |
4950 DeleteCI(HH^.Gear); |
|
4951 if FollowGear = HH^.Gear then FollowGear:= nil; |
|
4952 if lastGearByUID = HH^.Gear then lastGearByUID := nil; |
4951 RemoveGearFromList(HH^.Gear); |
4953 RemoveGearFromList(HH^.Gear); |
4952 with HH^.Gear^ do |
4954 with HH^.Gear^ do |
4953 begin |
4955 begin |
4954 Z := cHHZ; |
4956 Z := cHHZ; |
4955 Active := false; |
4957 Active := false; |