(*

 * Hedgewars, a free turn based strategy game

 * Copyright (c) 2004-2011 Andrey Korotaev <unC0Rr@gmail.com>

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; version 2 of the License

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

 *)

{$INCLUDE "options.inc"}

unit uGearsRender;

interface

uses uTypes, uConsts, GLunit, uFloat;

procedure RenderGear(Gear: PGear; x, y: LongInt);

var RopePoints: record

                Count: Longword;

                HookAngle: GLfloat;

                ar: array[0..MAXROPEPOINTS] of record

                                  X, Y: hwFloat;

                                  dLen: hwFloat;

                                  b: boolean;

                                  end;

                rounded: array[0..MAXROPEPOINTS + 2] of TVertex2f;

                end;

implementation

uses uRender, uUtils, uVariables, uAmmos, Math;

procedure DrawRopeLinesRQ(Gear: PGear);

begin

with RopePoints do

    begin

    rounded[Count].X:= hwRound(Gear^.X);

    rounded[Count].Y:= hwRound(Gear^.Y);

    rounded[Count + 1].X:= hwRound(Gear^.Hedgehog^.Gear^.X);

    rounded[Count + 1].Y:= hwRound(Gear^.Hedgehog^.Gear^.Y);

    end;

if (RopePoints.Count > 0) or (Gear^.Elasticity.QWordValue > 0) then

    begin

    glDisable(GL_TEXTURE_2D);

    //glEnable(GL_LINE_SMOOTH);

    glPushMatrix;

    glTranslatef(WorldDx, WorldDy, 0);

    glLineWidth(4.0);

    Tint($C0, $C0, $C0, $FF);

    glVertexPointer(2, GL_FLOAT, 0, @RopePoints.rounded[0]);

    glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2);

    Tint($FF, $FF, $FF, $FF);

    glPopMatrix;

    glEnable(GL_TEXTURE_2D);

    //glDisable(GL_LINE_SMOOTH)

    end

end;

procedure DrawRope(Gear: PGear);

var roplen: LongInt;

    i: Longword;

    procedure DrawRopeLine(X1, Y1, X2, Y2: LongInt);

    var  eX, eY, dX, dY: LongInt;

        i, sX, sY, x, y, d: LongInt;

        b: boolean;

    begin

    if (X1 = X2) and (Y1 = Y2) then

    begin

    //OutError('WARNING: zero length rope line!', false);

    exit

    end;

    eX:= 0;

    eY:= 0;

    dX:= X2 - X1;

    dY:= Y2 - Y1;

    if (dX > 0) then sX:= 1

    else

    if (dX < 0) then

        begin

        sX:= -1;

        dX:= -dX

        end else sX:= dX;

    if (dY > 0) then sY:= 1

    else

    if (dY < 0) then

        begin

        sY:= -1;

        dY:= -dY

        end else sY:= dY;

        if (dX > dY) then d:= dX

                    else d:= dY;

        x:= X1;

        y:= Y1;

        for i:= 0 to d do

            begin

            inc(eX, dX);

            inc(eY, dY);

            b:= false;

            if (eX > d) then

                begin

                dec(eX, d);

                inc(x, sX);

                b:= true

                end;

            if (eY > d) then

                begin

                dec(eY, d);

                inc(y, sY);

                b:= true

                end;

            if b then

                begin

                inc(roplen);

                if (roplen mod 4) = 0 then DrawSprite(sprRopeNode, x - 2, y - 2, 0)

                end

        end

    end;

begin

    if (cReducedQuality and rqSimpleRope) <> 0 then

        DrawRopeLinesRQ(Gear)

    else

        begin

        roplen:= 0;

        if RopePoints.Count > 0 then

            begin

            i:= 0;

            while i < Pred(RopePoints.Count) do

                    begin

                    DrawRopeLine(hwRound(RopePoints.ar[i].X) + WorldDx, hwRound(RopePoints.ar[i].Y) + WorldDy,

                                hwRound(RopePoints.ar[Succ(i)].X) + WorldDx, hwRound(RopePoints.ar[Succ(i)].Y) + WorldDy);

                    inc(i)

                    end;

            DrawRopeLine(hwRound(RopePoints.ar[i].X) + WorldDx, hwRound(RopePoints.ar[i].Y) + WorldDy,

                        hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy);

            DrawRopeLine(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy,

                        hwRound(Gear^.Hedgehog^.Gear^.X) + WorldDx, hwRound(Gear^.Hedgehog^.Gear^.Y) + WorldDy);

            end else

            if Gear^.Elasticity.QWordValue > 0 then

            DrawRopeLine(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy,

                        hwRound(Gear^.Hedgehog^.Gear^.X) + WorldDx, hwRound(Gear^.Hedgehog^.Gear^.Y) + WorldDy);

        end;

if RopePoints.Count > 0 then

    DrawRotated(sprRopeHook, hwRound(RopePoints.ar[0].X) + WorldDx, hwRound(RopePoints.ar[0].Y) + WorldDy, 1, RopePoints.HookAngle)

    else

    if Gear^.Elasticity.QWordValue > 0 then

        DrawRotated(sprRopeHook, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));

end;

procedure DrawAltWeapon(Gear: PGear; sx, sy: LongInt);

begin

with Gear^.Hedgehog^ do

    begin

    if not (((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) and ((Gear^.State and gstAttacked) = 0)) then

        exit;

    DrawTexture(sx + 16, sy + 16, ropeIconTex);

    DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.75, sx + 30, sy + 30, ord(CurAmmoType) - 1, 1, 32, 32);

    end;

end;

procedure DrawHH(Gear: PGear; ox, oy: LongInt);

var i, t: LongInt;

    amt: TAmmoType;

    sign, hx, hy, cx, cy, tx, ty, sx, sy, m: LongInt;  // hedgehog, crosshair, temp, sprite, direction

    dx, dy, ax, ay, aAngle, dAngle, hAngle, lx, ly: real;  // laser, change

    defaultPos, HatVisible: boolean;

    HH: PHedgehog;

    CurWeapon: PAmmo;

begin

    HH:= Gear^.Hedgehog;

    if HH^.Unplaced then exit;

    m:= 1;

    if ((Gear^.State and gstHHHJump) <> 0) and not cArtillery then m:= -1;

    sx:= ox + 1; // this offset is very common

    sy:= oy - 3;

    sign:= hwSign(Gear^.dX);

    if (Gear^.State and gstHHDeath) <> 0 then

        begin

        DrawSprite(sprHHDeath, ox - 16, oy - 26, Gear^.Pos);

        Tint(HH^.Team^.Clan^.Color shl 8 or $FF);

        DrawSprite(sprHHDeath, ox - 16, oy - 26, Gear^.Pos + 8);

        Tint($FF, $FF, $FF, $FF);

        exit

        end

    else if (Gear^.State and gstHHGone) <> 0 then

        begin

        DrawRotatedF(sprTeleport, sx, sy, Gear^.Pos, sign, 0);

        exit

        end;

    defaultPos:= true;

    HatVisible:= false;

    if HH^.Effects[hePoisoned] then

        begin

        Tint($00, $FF, $40, $40);

        DrawRotatedTextureF(SpritesData[sprSmokeWhite].texture, 2, 0, 0, sx, sy, 0, 1, 22, 22, (RealTicks shr 36) mod 360);

        Tint($FF, $FF, $FF, $FF)

        end;

    if ((Gear^.State and gstWinner) <> 0) and

    ((CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtPickHammer)) then

        begin

        DrawHedgehog(sx, sy,

                sign,

                2,

                0,

                0);

        defaultPos:= false

        end;

    if (Gear^.State and gstDrowning) <> 0 then

        begin

        DrawHedgehog(sx, sy,

                sign,

                1,

                7,

                0);

        defaultPos:= false

        end else

    if (Gear^.State and gstLoser) <> 0 then

        begin

        DrawHedgehog(sx, sy,

                sign,

                2,

                3,

                0);

        defaultPos:= false

        end else

    if (Gear^.State and gstHHDriven) <> 0 then

        begin

        if ((Gear^.State and gstHHThinking) = 0) and

        (ShowCrosshair  or ((CurAmmoGear <> nil) and (CurAmmoGear^.Kind = gtRope))) and

        ((Gear^.State and (gstAttacked or gstAnimation)) = 0) then

            begin

    (* These calculations are a little complex for a few reasons:

    1: I need to draw the laser from weapon origin to nearest land

    2: I need to start the beam outside the hedgie for attractiveness.

    3: I need to extend the beam beyond land.

    This routine perhaps should be pushed into uStore or somesuch instead of continuuing the increase in size of this function.

    *)

            dx:= sign * m * Sin(Gear^.Angle * pi / cMaxAngle);

            dy:= -Cos(Gear^.Angle * pi / cMaxAngle);

            if cLaserSighting then

                begin

                lx:= GetLaunchX(HH^.CurAmmoType, sign * m, Gear^.Angle);

                ly:= GetLaunchY(HH^.CurAmmoType, Gear^.Angle);

                // ensure we start outside the hedgehog (he's solid after all)

                while abs(lx * lx + ly * ly) < (Gear^.radius * Gear^.radius) do

                    begin

                    lx:= lx + dx;

                    ly:= ly + dy

                    end;

                // add hog's position

                lx:= lx + ox - WorldDx;

                ly:= ly + oy - WorldDy;

                // decrease number of iterations required

                ax:= dx * 4;

                ay:= dy * 4;

                tx:= round(lx);

                ty:= round(ly);

                hx:= tx;

                hy:= ty;

                while ((ty and LAND_HEIGHT_MASK) = 0) and

                    ((tx and LAND_WIDTH_MASK) = 0) and

                    (Land[ty, tx] = 0) do // TODO: check for constant variable instead

                    begin

                    lx:= lx + ax;

                    ly:= ly + ay;

                    tx:= round(lx);

                    ty:= round(ly)

                    end;

                // reached edge of land. assume infinite beam. Extend it way out past camera

                if ((ty and LAND_HEIGHT_MASK) <> 0) or ((tx and LAND_WIDTH_MASK) <> 0) then

                    begin

                    tx:= round(lx + ax * (LAND_WIDTH div 4));

                    ty:= round(ly + ay * (LAND_WIDTH div 4));

                    end;

                //if (abs(lx-tx)>8) or (abs(ly-ty)>8) then

                    begin

                    DrawLine(hx, hy, tx, ty, 1.0, $FF, $00, $00, $C0);

                    end;

                end;

            // draw crosshair

            cx:= Round(hwRound(Gear^.X) + dx * 80 + GetLaunchX(HH^.CurAmmoType, sign * m, Gear^.Angle));

            cy:= Round(hwRound(Gear^.Y) + dy * 80 + GetLaunchY(HH^.CurAmmoType, Gear^.Angle));

            DrawRotatedTex(HH^.Team^.CrosshairTex,

                    12, 12, cx + WorldDx, cy + WorldDy, 0,

                    sign * (Gear^.Angle * 180.0) / cMaxAngle);

            end;

        hx:= ox + 8 * sign;

        hy:= oy - 2;

        aangle:= Gear^.Angle * 180 / cMaxAngle - 90;

        if CurAmmoGear <> nil then

        begin

            case CurAmmoGear^.Kind of

                gtShotgunShot: begin

                        if (CurAmmoGear^.State and gstAnimation <> 0) then

                            DrawRotated(sprShotgun, hx, hy, sign, aangle)

                        else

                            DrawRotated(sprHandShotgun, hx, hy, sign, aangle);

                    end;

                gtDEagleShot: DrawRotated(sprDEagle, hx, hy, sign, aangle);

                gtSniperRifleShot: begin

                        if (CurAmmoGear^.State and gstAnimation <> 0) then

                            DrawRotatedF(sprSniperRifle, hx, hy, 1, sign, aangle)

                        else

                            DrawRotatedF(sprSniperRifle, hx, hy, 0, sign, aangle)

                    end;

                gtBallgun: DrawRotated(sprHandBallgun, hx, hy, sign, aangle);

                gtRCPlane: begin

                    DrawRotated(sprHandPlane, hx, hy, sign, 0);

                    defaultPos:= false

                    end;

                gtRope: begin

                    if Gear^.X < CurAmmoGear^.X then

                        begin

                        dAngle:= 0;

                        hAngle:= 180;

                        i:= 1

                        end else

                        begin

                        dAngle:= 180;

                        hAngle:= 0;

                        i:= -1

                        end;

                if ((Gear^.State and gstWinner) = 0) then

                    begin

                    DrawHedgehog(ox, oy,

                            i,

                            1,

                            0,

                            DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + dAngle);

                    with HH^ do

                        if (HatTex <> nil) then

                            begin

                            DrawRotatedTextureF(HatTex, 1.0, -1.0, -6.0, ox, oy, 0, i, 32, 32,

                                i*DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + hAngle);

                            if HatTex^.w > 64 then

                                begin

                                Tint(HH^.Team^.Clan^.Color shl 8 or $FF);

                                DrawRotatedTextureF(HatTex, 1.0, -1.0, -6.0, ox, oy, 32, i, 32, 32,

                                    i*DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + hAngle);

                                Tint($FF, $FF, $FF, $FF)

                                end

                            end

                    end;

                    DrawAltWeapon(Gear, ox, oy);

                    defaultPos:= false

                    end;

                gtBlowTorch: begin

                    DrawRotated(sprBlowTorch, hx, hy, sign, aangle);

                    DrawHedgehog(sx, sy,

                            sign,

                            3,

                            HH^.visStepPos div 2,

                            0);

                    with HH^ do

                        if (HatTex <> nil) then

                            begin

                            DrawTextureF(HatTex,

                                1,

                                sx,

                                sy - 5,

                                0,

                                sign,

                                32,

                                32);

                            if HatTex^.w > 64 then

                                begin

                                Tint(HH^.Team^.Clan^.Color shl 8 or $FF);

                                DrawTextureF(HatTex,

                                    1,

                                    sx,

                                    sy - 5,

                                    32,

                                    sign,

                                    32,

                                    32);

                                Tint($FF, $FF, $FF, $FF)

                                end

                            end;

                    defaultPos:= false

                    end;

                gtShover: DrawRotated(sprHandBaseball, hx, hy, sign, aangle + 180);

                gtFirePunch: begin

                    DrawHedgehog(sx, sy,

                            sign,

                            1,

                            4,

                            0);

                    defaultPos:= false

                    end;

                gtPickHammer: begin

                    defaultPos:= false;

                    dec(sy,20);

                    end;

                gtTeleport: defaultPos:= false;

                gtWhip: begin

                    DrawRotatedF(sprWhip,

                            sx,

                            sy,

                            1,

                            sign,

                            0);

                    defaultPos:= false

                    end;

                gtHammer: begin

                    DrawRotatedF(sprHammer,

                            sx,

                            sy,

                            1,

                            sign,

                            0);

                    defaultPos:= false

                    end;

                gtResurrector: begin

                    DrawRotated(sprHandResurrector, sx, sy, 0, 0);

                    defaultPos:= false

                    end;

                gtKamikaze: begin

                    if CurAmmoGear^.Pos = 0 then

                        DrawHedgehog(sx, sy,

                                sign,

                                1,

                                6,

                                0)

                    else

                        DrawRotatedF(sprKamikaze,

                                ox, oy,

                                CurAmmoGear^.Pos - 1,

                                sign,

                                aangle);

                    defaultPos:= false

                    end;

                gtSeduction: begin

                    if CurAmmoGear^.Pos >= 6 then

                        DrawHedgehog(sx, sy,

                                sign,

                                2,

                                2,

                                0)

                    else

                        begin

                        DrawRotatedF(sprDress,

                                ox, oy,

                                CurAmmoGear^.Pos,

                                sign,

                                0);

                        DrawSprite(sprCensored, ox - 32, oy - 20, 0)

                        end;

                    defaultPos:= false

                    end;

                gtFlamethrower: begin

                    DrawRotatedF(sprHandFlamethrower, hx, hy, (RealTicks div 125) mod 4, sign, aangle);

                    if CurAmmoGear^.Tex <> nil then DrawCentered(sx, sy - 40, CurAmmoGear^.Tex)

                    end;

            end;

            case CurAmmoGear^.Kind of

                gtShotgunShot,

                gtDEagleShot,

                gtSniperRifleShot,

                gtShover: begin

                    DrawHedgehog(sx, sy,

                            sign,

                            0,

                            4,

                            0);

                    defaultPos:= false;

                    HatVisible:= true

                end

            end

        end else

        if ((Gear^.State and gstHHJumping) <> 0) then

        begin

        DrawHedgehog(sx, sy,

            sign*m,

            1,

            1,

            0);

        HatVisible:= true;

        defaultPos:= false

        end else

        if (Gear^.Message and (gmLeft or gmRight) <> 0) and (not isCursorVisible) then

            begin

            DrawHedgehog(sx, sy,