equal
deleted
inserted
replaced
1175 if (Gear^.Message and not gm_Switch) <> 0 then |
1175 if (Gear^.Message and not gm_Switch) <> 0 then |
1176 begin |
1176 begin |
1177 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
1177 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
1178 Msg:= Gear^.Message and not gm_Switch; |
1178 Msg:= Gear^.Message and not gm_Switch; |
1179 DeleteGear(Gear); |
1179 DeleteGear(Gear); |
1180 OnUsedAmmo(PHedgehog(Gear^.Hedgehog)^); |
1180 OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^); |
|
1181 ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^); |
1181 |
1182 |
1182 HHGear:= CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear; |
1183 HHGear:= CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear; |
1183 ApplyAmmoChanges(PHedgehog(Gear^.Hedgehog)^); |
1184 ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^); |
1184 HHGear^.Message:= Msg; |
1185 HHGear^.Message:= Msg; |
1185 exit |
1186 exit |
1186 end; |
1187 end; |
1187 |
1188 |
1188 if (Gear^.Message and gm_Switch) <> 0 then |
1189 if (Gear^.Message and gm_Switch) <> 0 then |