equal
deleted
inserted
replaced
1036 end; |
1036 end; |
1037 |
1037 |
1038 if (Gear^.Timer mod 47) = 0 then |
1038 if (Gear^.Timer mod 47) = 0 then |
1039 begin |
1039 begin |
1040 // ok. this was an attempt to turn off dust if not actually drilling land. I have no idea why it isn't working as expected |
1040 // ok. this was an attempt to turn off dust if not actually drilling land. I have no idea why it isn't working as expected |
1041 //if ((y + 12 and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) and (Land[y + 12, x] > 255) then |
1041 if (( (y + 12) and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) and (Land[y + 12, x] > 255) then |
1042 for i:= 0 to 1 do |
1042 for i:= 0 to 1 do |
1043 AddVisualGear(x - 5 + Random(10), y + 12, vgtDust); |
1043 AddVisualGear(x - 5 + Random(10), y + 12, vgtDust); |
1044 |
1044 |
1045 i := x - Gear^.Radius - LongInt(GetRandom(2)); |
1045 i := x - Gear^.Radius - LongInt(GetRandom(2)); |
1046 ei := x + Gear^.Radius + LongInt(GetRandom(2)); |
1046 ei := x + Gear^.Radius + LongInt(GetRandom(2)); |