1514 begin |
1514 begin |
1515 HHGear^.Message:= HHGear^.Message and not gm_Attack; |
1515 HHGear^.Message:= HHGear^.Message and not gm_Attack; |
1516 HHGear^.State:= HHGear^.State and not gstAttacking; |
1516 HHGear^.State:= HHGear^.State and not gstAttacking; |
1517 HHGear^.State:= HHGear^.State or gstHHChooseTarget; |
1517 HHGear^.State:= HHGear^.State or gstHHChooseTarget; |
1518 DeleteGear(Gear); |
1518 DeleteGear(Gear); |
1519 isCursorVisible:= true |
1519 isCursorVisible:= true; |
|
1520 PlaySound(sndDenied, false, nil); |
1520 end |
1521 end |
1521 else begin |
1522 else begin |
1522 DeleteCI(HHGear); |
1523 DeleteCI(HHGear); |
1523 SetAllHHToActive; |
1524 SetAllHHToActive; |
1524 Gear^.doStep:= @doStepTeleportAnim; |
1525 Gear^.doStep:= @doStepTeleportAnim; |
1525 Gear^.X:= HHGear^.X; |
1526 Gear^.X:= HHGear^.X; |
1526 Gear^.Y:= HHGear^.Y; |
1527 Gear^.Y:= HHGear^.Y; |
1527 HHGear^.X:= int2hwFloat(TargetPoint.X); |
1528 HHGear^.X:= int2hwFloat(TargetPoint.X); |
1528 HHGear^.Y:= int2hwFloat(TargetPoint.Y); |
1529 HHGear^.Y:= int2hwFloat(TargetPoint.Y); |
1529 HHGear^.State:= HHGear^.State or gstMoving |
1530 HHGear^.State:= HHGear^.State or gstMoving; |
|
1531 playSound(sndWarp, false, nil); |
1530 end; |
1532 end; |
1531 TargetPoint.X:= NoPointX; |
1533 TargetPoint.X:= NoPointX; |
1532 playSound(sndWarp, false, nil); |
|
1533 |
1534 |
1534 end; |
1535 end; |
1535 |
1536 |
1536 //////////////////////////////////////////////////////////////////////////////// |
1537 //////////////////////////////////////////////////////////////////////////////// |
1537 procedure doStepSwitcherWork(Gear: PGear); |
1538 procedure doStepSwitcherWork(Gear: PGear); |