| changeset 1892 | fddc1201df25 |
| parent 1869 | 490005509a7b |
| child 1909 | 30fa1608b54f |
| 1891:47e832a88cbd | 1892:fddc1201df25 |
|---|---|
685 begin |
685 begin |
686 with HHGear^ do |
686 with HHGear^ do |
687 begin |
687 begin |
688 Message:= Message and not gm_Attack; |
688 Message:= Message and not gm_Attack; |
689 State:= State or gstMoving; |
689 State:= State or gstMoving; |
690 State:= State and not gstWinner; |
|
690 end; |
691 end; |
691 DeleteGear(Gear) |
692 DeleteGear(Gear) |
692 end; |
693 end; |
693 |
694 |
694 procedure WaitCollision; |
695 procedure WaitCollision; |