equal
deleted
inserted
replaced
815 procedure DrawWaves(Dir, dX, dY: LongInt; tnt: Byte); |
815 procedure DrawWaves(Dir, dX, dY: LongInt; tnt: Byte); |
816 var VertexBuffer, TextureBuffer: array [0..3] of TVertex2f; |
816 var VertexBuffer, TextureBuffer: array [0..3] of TVertex2f; |
817 lw, waves: GLfloat; |
817 lw, waves: GLfloat; |
818 sprite: TSprite; |
818 sprite: TSprite; |
819 r: TSDL_Rect; |
819 r: TSDL_Rect; |
820 begin |
820 begin{ |
821 if SuddenDeathDmg then |
821 if SuddenDeathDmg then |
822 sprite:= sprSDWater |
822 sprite:= sprSDWater |
823 else |
823 else |
824 sprite:= sprWater; |
824 sprite:= sprWater; |
825 |
825 |
867 |
867 |
868 {for i:= -1 to cWaterSprCount do |
868 {for i:= -1 to cWaterSprCount do |
869 DrawSprite(sprWater, |
869 DrawSprite(sprWater, |
870 i * cWaveWidth + ((WorldDx + (RealTicks shr 6) * Dir + dX) mod cWaveWidth) - (cScreenWidth div 2), |
870 i * cWaveWidth + ((WorldDx + (RealTicks shr 6) * Dir + dX) mod cWaveWidth) - (cScreenWidth div 2), |
871 cWaterLine + WorldDy + dY, |
871 cWaterLine + WorldDy + dY, |
872 0)} |
872 0)}} |
873 end; |
873 end; |
874 |
874 |
875 procedure DrawRepeated(spr, sprL, sprR: TSprite; Shift, OffsetY: LongInt); |
875 procedure DrawRepeated(spr, sprL, sprR: TSprite; Shift, OffsetY: LongInt); |
876 var i, w, h, lw, lh, rw, rh, sw: LongInt; |
876 var i, w, h, lw, lh, rw, rh, sw: LongInt; |
877 begin |
877 begin |