equal
deleted
inserted
replaced
124 procedure doStepDrowningGear(Gear: PGear); |
124 procedure doStepDrowningGear(Gear: PGear); |
125 begin |
125 begin |
126 AllInactive:= false; |
126 AllInactive:= false; |
127 Gear^.Y:= Gear^.Y + cDrownSpeed; |
127 Gear^.Y:= Gear^.Y + cDrownSpeed; |
128 Gear^.X:= Gear^.X + Gear^.dX * cDrownSpeed; |
128 Gear^.X:= Gear^.X + Gear^.dX * cDrownSpeed; |
129 if hwRound(Gear^.Y) > Gear^.Radius + cWaterLine + cVisibleWater then DeleteGear(Gear); |
129 if (cWaterOpacity > $FE) or (hwRound(Gear^.Y) > Gear^.Radius + cWaterLine + cVisibleWater) then DeleteGear(Gear); |
130 // Create some bubbles (0.5% might be better but causes too few bubbles sometimes) |
130 // Create some bubbles (0.5% might be better but causes too few bubbles sometimes) |
131 if (GameTicks and $1F) = 0 then |
131 if (cWaterOpacity < $FF) and ((GameTicks and $1F) = 0) then |
132 if (Gear^.Kind = gtHedgehog) and (Random(4) = 0) then |
132 if (Gear^.Kind = gtHedgehog) and (Random(4) = 0) then |
133 AddVisualGear(hwRound(Gear^.X) - Gear^.Radius, hwRound(Gear^.Y) - Gear^.Radius, vgtBubble) |
133 AddVisualGear(hwRound(Gear^.X) - Gear^.Radius, hwRound(Gear^.Y) - Gear^.Radius, vgtBubble) |
134 else if Random(12) = 0 then |
134 else if Random(12) = 0 then |
135 AddVisualGear(hwRound(Gear^.X) - Gear^.Radius, hwRound(Gear^.Y) - Gear^.Radius, vgtBubble) |
135 AddVisualGear(hwRound(Gear^.X) - Gear^.Radius, hwRound(Gear^.Y) - Gear^.Radius, vgtBubble) |
136 end; |
136 end; |