equal
deleted
inserted
replaced
645 |
645 |
646 //////////////////////////////////////////////////////////////////////////////// |
646 //////////////////////////////////////////////////////////////////////////////// |
647 procedure doStepHedgehog(Gear: PGear); |
647 procedure doStepHedgehog(Gear: PGear); |
648 begin |
648 begin |
649 if (Gear^.Message and gm_Destroy) <> 0 then |
649 if (Gear^.Message and gm_Destroy) <> 0 then |
650 begin |
650 begin |
651 DeleteGear(Gear); |
651 DeleteGear(Gear); |
652 exit |
652 exit |
653 end; |
653 end; |
|
654 |
|
655 //if Gear^.uid = 7 then |
|
656 //with Gear^ do AddFileLog('State: (' + inttostr(hwRound(x)) + ',' + inttostr(hwRound(y)) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ')'); |
|
657 |
654 if (Gear^.State and gstHHDriven) = 0 then doStepHedgehogFree(Gear) |
658 if (Gear^.State and gstHHDriven) = 0 then doStepHedgehogFree(Gear) |
655 else doStepHedgehogDriven(Gear) |
659 else doStepHedgehogDriven(Gear) |
656 end; |
660 end; |