equal
deleted
inserted
replaced
188 DrawRepeated(sprSky, WorldDx * 3 div 8); |
188 DrawRepeated(sprSky, WorldDx * 3 div 8); |
189 DrawRepeated(sprHorizont, WorldDx * 3 div 5); |
189 DrawRepeated(sprHorizont, WorldDx * 3 div 5); |
190 |
190 |
191 // Waves |
191 // Waves |
192 {$WARNINGS OFF} |
192 {$WARNINGS OFF} |
193 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx + (RealTicks shr 6) ) and $FF), cWaterLine + WorldDy - 64, 0, Surface); |
193 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx + (RealTicks shr 6) ) and $FF), cWaterLine + WorldDy - 64, 0, Surface); |
194 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx - (RealTicks shr 6) + 192) and $FF), cWaterLine + WorldDy - 48, 0, Surface); |
194 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx - (RealTicks shr 6) + 192) and $FF), cWaterLine + WorldDy - 48, 0, Surface); |
195 {$WARNINGS ON} |
195 {$WARNINGS ON} |
196 |
196 |
197 DrawLand(WorldDx, WorldDy, Surface); |
197 DrawLand(WorldDx, WorldDy, Surface); |
198 // Water |
198 // Water |
199 r.y:= WorldDy + cWaterLine + 32; |
199 r.y:= WorldDy + cWaterLine + 32; |
208 |
208 |
209 DrawGears(Surface); |
209 DrawGears(Surface); |
210 |
210 |
211 // Waves |
211 // Waves |
212 {$WARNINGS OFF} |
212 {$WARNINGS OFF} |
213 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx + (RealTicks shr 6) + 64) and $FF), cWaterLine + WorldDy - 32, 0, Surface); |
213 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx + (RealTicks shr 6) + 64) and $FF), cWaterLine + WorldDy - 32, 0, Surface); |
214 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx - (RealTicks shr 6) + 128) and $FF), cWaterLine + WorldDy - 16, 0, Surface); |
214 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx - (RealTicks shr 6) + 128) and $FF), cWaterLine + WorldDy - 16, 0, Surface); |
215 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx + (RealTicks shr 6) ) and $FF), cWaterLine + WorldDy , 0, Surface); |
215 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx + (RealTicks shr 6) ) and $FF), cWaterLine + WorldDy , 0, Surface); |
216 {$WARNINGS ON} |
216 {$WARNINGS ON} |
217 |
217 |
218 // Turn time |
218 // Turn time |
219 if TurnTimeLeft <> 0 then |
219 if TurnTimeLeft <> 0 then |
220 begin |
220 begin |