equal
deleted
inserted
replaced
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 |
1498 end |
1498 end; |
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; |
1527 TargetPoint.X:= NoPointX |
1527 TargetPoint.X:= NoPointX; |
|
1528 playSound(sndWarp, false, nil); |
|
1529 |
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; |