equal
deleted
inserted
replaced
517 begin |
517 begin |
518 DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy, |
518 DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy, |
519 hwSign(Gear^.dX), |
519 hwSign(Gear^.dX), |
520 1, |
520 1, |
521 7, |
521 7, |
|
522 0); |
|
523 defaultPos:= false |
|
524 end else |
|
525 |
|
526 if (Gear^.State and gstWinner) <> 0 then |
|
527 begin |
|
528 DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy, |
|
529 hwSign(Gear^.dX), |
|
530 2, |
|
531 0, |
522 0); |
532 0); |
523 defaultPos:= false |
533 defaultPos:= false |
524 end else |
534 end else |
525 |
535 |
526 if (Gear^.State and gstHHDriven) <> 0 then |
536 if (Gear^.State and gstHHDriven) <> 0 then |
735 0); |
745 0); |
736 end; |
746 end; |
737 |
747 |
738 with PHedgehog(Gear^.Hedgehog)^ do |
748 with PHedgehog(Gear^.Hedgehog)^ do |
739 begin |
749 begin |
740 if ((Gear^.State{ and not gstAnimation}) = 0) |
750 if ((Gear^.State and not gstWinner) = 0) |
741 or (bShowFinger and ((Gear^.State and gstHHDriven) <> 0)) then |
751 or (bShowFinger and ((Gear^.State and gstHHDriven) <> 0)) then |
742 begin |
752 begin |
743 t:= hwRound(Gear^.Y) - cHHRadius - 12 + WorldDy; |
753 t:= hwRound(Gear^.Y) - cHHRadius - 12 + WorldDy; |
744 if (cTagsMask and 1) <> 0 then |
754 if (cTagsMask and 1) <> 0 then |
745 begin |
755 begin |