changeset 1343 | 7a47a80b20ad |
parent 1298 | 18fdc25fe65d |
child 1361 | afdcf39c6bea |
1342:ae6c4f10ace2 | 1343:7a47a80b20ad |
---|---|
1771 Land[cWaterLine, i]:= 0; |
1771 Land[cWaterLine, i]:= 0; |
1772 SetAllToActive |
1772 SetAllToActive |
1773 end; |
1773 end; |
1774 |
1774 |
1775 inc(Gear^.Tag); |
1775 inc(Gear^.Tag); |
1776 if (Gear^.Tag = 51) or (cWaterLine = 0) then |
1776 if (Gear^.Tag = 47) or (cWaterLine = 0) then |
1777 DeleteGear(Gear) |
1777 DeleteGear(Gear) |
1778 end; |
1778 end; |