equal
deleted
inserted
replaced
97 for i:= -1 to 3 do |
97 for i:= -1 to 3 do |
98 DrawGear(sHorizont, i * 512 + (((WorldDx * 3) div 5) and $1FF), cWaterLine - 256 + WorldDy, Surface); |
98 DrawGear(sHorizont, i * 512 + (((WorldDx * 3) div 5) and $1FF), cWaterLine - 256 + WorldDy, Surface); |
99 |
99 |
100 // Waves |
100 // Waves |
101 {$WARNINGS OFF} |
101 {$WARNINGS OFF} |
102 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx + (RealTicks shr 6) ) and $FF), cWaterLine + WorldDy - 40, (((GameTicks shr 7) + 2) mod 12), Surface); |
102 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx + (RealTicks shr 6) ) and $FF), cWaterLine + WorldDy - 64, 0, Surface); |
103 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx - (RealTicks shr 6) + 192) and $FF), cWaterLine + WorldDy - 30, (((GameTicks shr 7) + 8) mod 12), Surface); |
103 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx - (RealTicks shr 6) + 192) and $FF), cWaterLine + WorldDy - 48, 0, Surface); |
104 {$WARNINGS ON} |
104 {$WARNINGS ON} |
105 |
105 |
106 DrawLand(WorldDx, WorldDy, Surface); |
106 DrawLand(WorldDx, WorldDy, Surface); |
107 // Water |
107 // Water |
108 r.y:= WorldDy + cWaterLine + 32; |
108 r.y:= WorldDy + cWaterLine + 32; |
148 team:= team.Next |
148 team:= team.Next |
149 end; |
149 end; |
150 |
150 |
151 // Waves |
151 // Waves |
152 {$WARNINGS OFF} |
152 {$WARNINGS OFF} |
153 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx + (RealTicks shr 6) + 64) and $FF), cWaterLine + WorldDy - 20, (((GameTicks shr 7) + 4 ) mod 12), Surface); |
153 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx + (RealTicks shr 6) + 64) and $FF), cWaterLine + WorldDy - 32, 0, Surface); |
154 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx - (RealTicks shr 6) + 128) and $FF), cWaterLine + WorldDy - 10, (((GameTicks shr 7) + 10) mod 12), Surface); |
154 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx - (RealTicks shr 6) + 128) and $FF), cWaterLine + WorldDy - 16, 0, Surface); |
155 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx + (RealTicks shr 6) ) and $FF), cWaterLine + WorldDy , (((GameTicks shr 7) + 6 ) mod 12), Surface); |
155 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx + (RealTicks shr 6) ) and $FF), cWaterLine + WorldDy , 0, Surface); |
156 {$WARNINGS ON} |
156 {$WARNINGS ON} |
157 |
157 |
158 if TurnTimeLeft <> 0 then |
158 if TurnTimeLeft <> 0 then |
159 begin |
159 begin |
160 i:= Succ(Pred(TurnTimeLeft) div 1000); |
160 i:= Succ(Pred(TurnTimeLeft) div 1000); |