changeset 1012 | 36b5cc8264e8 |
parent 1002 | 14ecd5fd4fab |
child 1033 | 622c5de38d72 |
1011:4fe2c4c57d10 | 1012:36b5cc8264e8 |
---|---|
569 |
569 |
570 doStepHedgehogMoving(Gear); |
570 doStepHedgehogMoving(Gear); |
571 |
571 |
572 if (Gear^.State and (gstMoving or gstDrowning)) <> 0 then |
572 if (Gear^.State and (gstMoving or gstDrowning)) <> 0 then |
573 begin |
573 begin |
574 if Gear^.Damage > 0 then CalcRotationDirAngle(Gear); |
|
574 AllInactive:= false; |
575 AllInactive:= false; |
575 exit |
576 exit |
576 end; |
577 end; |
577 |
578 |
578 if (Gear^.Health = 0) then |
579 if (Gear^.Health = 0) then |