equal
deleted
inserted
replaced
662 begin |
662 begin |
663 DeleteGear(Gear); |
663 DeleteGear(Gear); |
664 exit |
664 exit |
665 end; |
665 end; |
666 |
666 |
667 //if Gear^.uid = 7 then |
|
668 //with Gear^ do AddFileLog('State: (' + inttostr(hwRound(x)) + ',' + inttostr(hwRound(y)) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ')'); |
|
669 |
|
670 if (Gear^.State and gstHHDriven) = 0 then doStepHedgehogFree(Gear) |
667 if (Gear^.State and gstHHDriven) = 0 then doStepHedgehogFree(Gear) |
671 else doStepHedgehogDriven(Gear) |
668 else doStepHedgehogDriven(Gear) |
672 end; |
669 end; |