changeset 865 | a4a5ec6c61d4 |
parent 864 | 024369e09a53 |
child 866 | ac6f6c95c23f |
864:024369e09a53 | 865:a4a5ec6c61d4 |
---|---|
503 begin |
503 begin |
504 prevState:= Gear^.State; |
504 prevState:= Gear^.State; |
505 |
505 |
506 doStepHedgehogMoving(Gear); |
506 doStepHedgehogMoving(Gear); |
507 |
507 |
508 if (Gear^.State and gstMoving) <> 0 then exit; |
508 if (Gear^.State and gstMoving) <> 0 then |
509 begin |
|
510 AllInactive:= false; |
|
511 exit |
|
512 end; |
|
509 |
513 |
510 if (Gear^.Health = 0) then |
514 if (Gear^.Health = 0) then |
511 begin |
515 begin |
512 if AllInactive then |
516 if AllInactive then |
513 begin |
517 begin |