hedgewars/uGearsHandlersMess.pas
changeset 15209 f55c1c895797
parent 15201 a0bb57d3d272
child 15226 bf11546c1920
equal deleted inserted replaced
15208:26b4e864b341 15209:f55c1c895797
  1121             end;
  1121             end;
  1122         end;
  1122         end;
  1123 end;
  1123 end;
  1124 
  1124 
  1125 procedure doStepBee(Gear: PGear);
  1125 procedure doStepBee(Gear: PGear);
       
  1126 var wrapped: boolean;
  1126 begin
  1127 begin
  1127     AllInactive := false;
  1128     AllInactive := false;
  1128     Gear^.X := Gear^.X + Gear^.dX;
  1129     Gear^.X := Gear^.X + Gear^.dX;
  1129     Gear^.Y := Gear^.Y + Gear^.dY;
  1130     Gear^.Y := Gear^.Y + Gear^.dY;
  1130     WorldWrap(Gear);
  1131     wrapped:= WorldWrap(Gear);
       
  1132     if wrapped then
       
  1133         HomingWrap(Gear);
  1131     Gear^.dY := Gear^.dY + cGravity;
  1134     Gear^.dY := Gear^.dY + cGravity;
  1132     CheckGearDrowning(Gear);
  1135     CheckGearDrowning(Gear);
  1133     CheckCollision(Gear);
  1136     CheckCollision(Gear);
  1134     if (Gear^.State and gstCollision) <> 0 then
  1137     if (Gear^.State and gstCollision) <> 0 then
  1135         begin
  1138         begin