1493 	begin

  1493 	begin

  1494 	Gear^.Timer:= 0;

  1494 	Gear^.Timer:= 0;

  1495 	inc(Gear^.Pos);

  1495 	inc(Gear^.Pos);

  1496 	if Gear^.Pos = 11 then

  1496 	if Gear^.Pos = 11 then

  1497 		Gear^.doStep:= @doStepTeleportAfter

  1497 		Gear^.doStep:= @doStepTeleportAfter

  1499 end;

  1499 end;

  1500 

  1500 

  1501 procedure doStepTeleport(Gear: PGear);

  1501 procedure doStepTeleport(Gear: PGear);

  1502 var HHGear: PGear;

  1502 var HHGear: PGear;

  1503 begin

  1503 begin

  1522 		Gear^.Y:= HHGear^.Y;

  1522 		Gear^.Y:= HHGear^.Y;

  1523 		HHGear^.X:= int2hwFloat(TargetPoint.X);

  1523 		HHGear^.X:= int2hwFloat(TargetPoint.X);

  1524 		HHGear^.Y:= int2hwFloat(TargetPoint.Y);

  1524 		HHGear^.Y:= int2hwFloat(TargetPoint.Y);

  1525 		HHGear^.State:= HHGear^.State or gstMoving

  1525 		HHGear^.State:= HHGear^.State or gstMoving

  1526 		end;

  1526 		end;

  1528 end;

  1530 end;

  1529 

  1531 

  1530 ////////////////////////////////////////////////////////////////////////////////

  1532 ////////////////////////////////////////////////////////////////////////////////

  1531 procedure doStepSwitcherWork(Gear: PGear);

  1533 procedure doStepSwitcherWork(Gear: PGear);

  1532 var HHGear: PGear;

  1534 var HHGear: PGear;