equal
deleted
inserted
replaced
2653 //////////////////////////////////////////////////////////////////////////////// |
2653 //////////////////////////////////////////////////////////////////////////////// |
2654 procedure doStepWaterUp(Gear: PGear); |
2654 procedure doStepWaterUp(Gear: PGear); |
2655 var |
2655 var |
2656 i: LongWord; |
2656 i: LongWord; |
2657 begin |
2657 begin |
|
2658 if (Gear^.Tag = 0) or (cWaterLine = 0) then |
|
2659 begin |
|
2660 DeleteGear(Gear); |
|
2661 exit |
|
2662 end; |
|
2663 |
2658 AllInactive := false; |
2664 AllInactive := false; |
2659 |
2665 |
2660 inc(Gear^.Timer); |
2666 inc(Gear^.Timer); |
2661 if Gear^.Timer = 17 then |
2667 if Gear^.Timer = 17 then |
2662 Gear^.Timer := 0 |
2668 Gear^.Timer := 0 |
2669 for i:= 0 to LAND_WIDTH - 1 do |
2675 for i:= 0 to LAND_WIDTH - 1 do |
2670 Land[cWaterLine, i] := 0; |
2676 Land[cWaterLine, i] := 0; |
2671 SetAllToActive |
2677 SetAllToActive |
2672 end; |
2678 end; |
2673 |
2679 |
2674 inc(Gear^.Tag); |
2680 dec(Gear^.Tag); |
2675 if (Gear^.Tag = 47) or (cWaterLine = 0) then |
|
2676 DeleteGear(Gear) |
|
2677 end; |
2681 end; |
2678 |
2682 |
2679 //////////////////////////////////////////////////////////////////////////////// |
2683 //////////////////////////////////////////////////////////////////////////////// |
2680 procedure doStepDrillDrilling(Gear: PGear); |
2684 procedure doStepDrillDrilling(Gear: PGear); |
2681 var |
2685 var |