changeset 13793 | 4e5fcfc6f033 |
parent 13792 | 5d46b4fae757 |
child 13832 | 10a3b80130b5 |
13792:5d46b4fae757 | 13793:4e5fcfc6f033 |
---|---|
866 else |
866 else |
867 exit; |
867 exit; |
868 GHStepTicks:= 200; |
868 GHStepTicks:= 200; |
869 exit |
869 exit |
870 end; |
870 end; |
871 |
|
872 if (Gear^.Hedgehog^.Unplaced) then |
|
873 exit; |
|
871 |
874 |
872 if ((Gear^.Message and gmAnimate) <> 0) then |
875 if ((Gear^.Message and gmAnimate) <> 0) then |
873 begin |
876 begin |
874 Gear^.Message:= 0; |
877 Gear^.Message:= 0; |
875 Gear^.State:= Gear^.State or gstAnimation; |
878 Gear^.State:= Gear^.State or gstAnimation; |