4090             end;

  4090             end;

  4091 

  4091 

  4092         if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil)

  4092         if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil)

  4093         and (iterator = CurrentHedgehog^.Gear)

  4093         and (iterator = CurrentHedgehog^.Gear)

  4094         and (CurAmmoGear <> nil)

  4094         and (CurAmmoGear <> nil)

  4096                CurAmmoGear^.PortalCounter:= 1;

  4097                CurAmmoGear^.PortalCounter:= 1;

  4097 

  4098 

  4098         if not isbullet and (iterator^.State and gstInvisible = 0)

  4099         if not isbullet and (iterator^.State and gstInvisible = 0)

  4099         and (iterator^.Kind <> gtFlake) then

  4100         and (iterator^.Kind <> gtFlake) then

  4100             FollowGear := iterator;

  4101             FollowGear := iterator;