hedgewars/uGearsHandlersMess.pas
changeset 15822 4ede5e84278a
parent 15821 4a1e3d824c34
child 15823 744f4d708963
equal deleted inserted replaced
15821:4a1e3d824c34 15822:4ede5e84278a
  7371         HHGear := CurrentHedgehog^.Gear;
  7371         HHGear := CurrentHedgehog^.Gear;
  7372         if HHGear <> nil then
  7372         if HHGear <> nil then
  7373             if ((HHGear^.State and gstHHDriven) <> 0) and (HHGear^.CollisionIndex < 0) then
  7373             if ((HHGear^.State and gstHHDriven) <> 0) and (HHGear^.CollisionIndex < 0) then
  7374             begin
  7374             begin
  7375                 if sentry^.Hedgehog <> nil then
  7375                 if sentry^.Hedgehog <> nil then
  7376                     friendlyTarget := sentry^.Hedgehog^.Team = CurrentHedgehog^.Team;
  7376                     friendlyTarget := sentry^.Hedgehog^.Team^.Clan = CurrentHedgehog^.Team^.Clan;
  7377                 if not friendlyTarget then
  7377                 if not friendlyTarget then
  7378                     GetSentryTarget := HHGear;
  7378                     GetSentryTarget := HHGear;
  7379             end
  7379             end
  7380     end
  7380     end
  7381 end;
  7381 end;