equal
deleted
inserted
replaced
1749 begin |
1749 begin |
1750 AllInactive:= false; |
1750 AllInactive:= false; |
1751 DeleteCI(PHedgehog(Gear^.Hedgehog)^.Gear); |
1751 DeleteCI(PHedgehog(Gear^.Hedgehog)^.Gear); |
1752 Gear^.doStep:= @doStepSeductionWear |
1752 Gear^.doStep:= @doStepSeductionWear |
1753 end; |
1753 end; |
|
1754 |
|
1755 //////////////////////////////////////////////////////////////////////////////// |
|
1756 procedure doStepWaterUp(Gear: PGear); |
|
1757 var i: LongWord; |
|
1758 begin |
|
1759 AllInactive:= false; |
|
1760 |
|
1761 inc(Gear^.Timer); |
|
1762 if Gear^.Timer = 17 then |
|
1763 Gear^.Timer:= 0 |
|
1764 else |
|
1765 exit; |
|
1766 |
|
1767 if cWaterLine > 0 then |
|
1768 begin |
|
1769 dec(cWaterLine); |
|
1770 for i:= 0 to 2047 do |
|
1771 Land[cWaterLine, i]:= 0; |
|
1772 SetAllToActive |
|
1773 end; |
|
1774 |
|
1775 inc(Gear^.Tag); |
|
1776 if (Gear^.Tag = 51) or (cWaterLine = 0) then |
|
1777 DeleteGear(Gear) |
|
1778 end; |