equal
deleted
inserted
replaced
3885 procedure doStepDrillDrilling(Gear: PGear); |
3885 procedure doStepDrillDrilling(Gear: PGear); |
3886 var |
3886 var |
3887 t: PGearArray; |
3887 t: PGearArray; |
3888 tempColl: Word; |
3888 tempColl: Word; |
3889 begin |
3889 begin |
|
3890 WorldWrap(Gear); |
3890 AllInactive := false; |
3891 AllInactive := false; |
3891 if (Gear^.Timer > 0) and (Gear^.Timer mod 10 <> 0) then |
3892 if (Gear^.Timer > 0) and (Gear^.Timer mod 10 <> 0) then |
3892 begin |
3893 begin |
3893 dec(Gear^.Timer); |
3894 dec(Gear^.Timer); |
3894 exit; |
3895 exit; |