hedgewars/uWorld.pas
changeset 1045 ea195268734f
parent 1023 2a32ee7affa3
child 1066 1f1b3686a2b0
equal deleted inserted replaced
1044:f759aae1062f 1045:ea195268734f
   187 
   187 
   188 // background
   188 // background
   189 DrawRepeated(sprSky, WorldDx * 3 div 8);
   189 DrawRepeated(sprSky, WorldDx * 3 div 8);
   190 DrawRepeated(sprHorizont, WorldDx * 3 div 5);
   190 DrawRepeated(sprHorizont, WorldDx * 3 div 5);
   191 
   191 
   192 DrawVisualGears;
   192 DrawVisualGears(0);
   193 
   193 
   194 // Waves
   194 // Waves
   195 {$WARNINGS OFF}
   195 {$WARNINGS OFF}
   196 for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx + (RealTicks shr 6)      ) and $FF), cWaterLine + WorldDy - 64, 0);
   196 for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx + (RealTicks shr 6)      ) and $FF), cWaterLine + WorldDy - 64, 0);
   197 for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx - (RealTicks shr 6) + 192) and $FF), cWaterLine + WorldDy - 48, 0);
   197 for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx - (RealTicks shr 6) + 192) and $FF), cWaterLine + WorldDy - 48, 0);
   217    glColor4f(1, 1, 1, 1); // disable coloring
   217    glColor4f(1, 1, 1, 1); // disable coloring
   218    glEnable(GL_TEXTURE_2D)
   218    glEnable(GL_TEXTURE_2D)
   219    end;
   219    end;
   220 
   220 
   221 DrawGears;
   221 DrawGears;
       
   222 
       
   223 DrawVisualGears(1);
   222 
   224 
   223 // Waves
   225 // Waves
   224 {$WARNINGS OFF}
   226 {$WARNINGS OFF}
   225 for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx + (RealTicks shr 6) +  64) and $FF), cWaterLine + WorldDy - 32, 0);
   227 for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx + (RealTicks shr 6) +  64) and $FF), cWaterLine + WorldDy - 32, 0);
   226 for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx - (RealTicks shr 6) + 128) and $FF), cWaterLine + WorldDy - 16, 0);
   228 for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx - (RealTicks shr 6) + 128) and $FF), cWaterLine + WorldDy - 16, 0);