procedure DrawHH(Gear: PGear);

var i, t: LongInt;

    amt: TAmmoType;

    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;

    VertexBuffer: array [0..1] of TVertex2f;

    HH: PHedgehog;

begin

HH:= PHedgehog(Gear^.Hedgehog);

if HH^.Unplaced then exit;

m:= 1;

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

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

    begin

    DrawSprite(sprHHDeath, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 26 + WorldDy, Gear^.Pos);

    exit

    end

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

    begin

    DrawRotatedF(sprTeleport, hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy, Gear^.Pos, hwSign(Gear^.dX), 0);

    exit

    end;

defaultPos:= true;

HatVisible:= false;

sx:= hwRound(Gear^.X) + 1 + WorldDx;

sy:= hwRound(Gear^.Y) - 3 + WorldDy;

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,

            hwSign(Gear^.dX),

            2,

            0,

            0);

    defaultPos:= false

    end;

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

    begin

    DrawHedgehog(sx, sy,

            hwSign(Gear^.dX),

            1,

            7,

            0);

    defaultPos:= false

    end else

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

    begin

    DrawHedgehog(sx, sy,

            hwSign(Gear^.dX),

            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:= hwSign(Gear^.dX) * m * Sin(Gear^.Angle * pi / cMaxAngle);

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

        if cLaserSighting then

            begin

            lx:= GetLaunchX(HH^.Ammo^[HH^.CurSlot, HH^.CurAmmo].AmmoType, hwSign(Gear^.dX) * m, Gear^.Angle);

            ly:= GetLaunchY(HH^.Ammo^[HH^.CurSlot, HH^.CurAmmo].AmmoType, 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 + hwRound(Gear^.X);

            ly:= ly + hwRound(Gear^.Y);

            // 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

                glDisable(GL_TEXTURE_2D);

                glEnable(GL_LINE_SMOOTH);

                glLineWidth(1.0);

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

                VertexBuffer[0].X:= hx + WorldDx;

                VertexBuffer[0].Y:= hy + WorldDy;

                VertexBuffer[1].X:= tx + WorldDx;

                VertexBuffer[1].Y:= ty + WorldDy;

                glVertexPointer(2, GL_FLOAT, 0, @VertexBuffer[0]);

                glDrawArrays(GL_LINES, 0, Length(VertexBuffer));

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

                glEnable(GL_TEXTURE_2D);

                glDisable(GL_LINE_SMOOTH);

                end;

            end;

        // draw crosshair

        cx:= Round(hwRound(Gear^.X) + dx * 80 + GetLaunchX(HH^.Ammo^[HH^.CurSlot, HH^.CurAmmo].AmmoType, hwSign(Gear^.dX) * m, Gear^.Angle));

        cy:= Round(hwRound(Gear^.Y) + dy * 80 + GetLaunchY(HH^.Ammo^[HH^.CurSlot, HH^.CurAmmo].AmmoType, Gear^.Angle));

        DrawRotatedTex(HH^.Team^.CrosshairTex,

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

                hwSign(Gear^.dX) * (Gear^.Angle * 180.0) / cMaxAngle);

        end;

    hx:= hwRound(Gear^.X) + 8 * hwSign(Gear^.dX) + WorldDx;

    hy:= hwRound(Gear^.Y) - 2 + WorldDy;

    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, hwSign(Gear^.dX), aangle)

                    else

                        DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);

                end;

            gtDEagleShot: DrawRotated(sprDEagle, hx, hy, hwSign(Gear^.dX), aangle);

            gtSniperRifleShot: begin

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

                        DrawRotatedF(sprSniperRifle, hx, hy, 1, hwSign(Gear^.dX), aangle)

                    else

                        DrawRotatedF(sprSniperRifle, hx, hy, 0, hwSign(Gear^.dX), aangle)

                end;

            gtBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);

            gtRCPlane: begin

                DrawRotated(sprHandPlane, hx, hy, hwSign(Gear^.dX), 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;

                sx:= hwRound(Gear^.X) + WorldDx;

                sy:= hwRound(Gear^.Y) + WorldDy;

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

                   begin

                   DrawHedgehog(sx, sy,

                           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, sx, sy, 0, i, 32, 32,

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

                           if HatTex^.w > 32 then

                               begin

                               Tint(HH^.Team^.Clan^.Color);

                               DrawRotatedTextureF(HatTex, 1.0, -1.0, -6.0, sx, sy, 32, i, 32, 32,

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

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

                               end

                           end

                   end;

                DrawAltWeapon(Gear, sx, sy);

                defaultPos:= false

                end;

            gtBlowTorch: begin

                DrawRotated(sprBlowTorch, hx, hy, hwSign(Gear^.dX), aangle);

                DrawHedgehog(sx, sy,

                        hwSign(Gear^.dX),

                        3,

                        HH^.visStepPos div 2,

                        0);

                with HH^ do

                    if (HatTex <> nil) then

                        begin

                        DrawTextureF(HatTex,

                            1,

                            sx,

                            hwRound(Gear^.Y) - 8 + WorldDy,

                            0,

                            hwSign(Gear^.dX),

                            32,

                            32);

                        if HatTex^.w > 32 then

                            begin

                            Tint(HH^.Team^.Clan^.Color);

                            DrawTextureF(HatTex,

                                1,

                                sx,

                                hwRound(Gear^.Y) - 8 + WorldDy,

                                32,

                                hwSign(Gear^.dX),

                                32,

                                32);

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

                            end

                        end;

                defaultPos:= false

                end;

            gtShover: DrawRotated(sprHandBaseball, hx, hy, hwSign(Gear^.dX), aangle + 180);

            gtFirePunch: begin

                DrawHedgehog(sx, sy,

                        hwSign(Gear^.dX),

                        1,

                        4,

                        0);

                defaultPos:= false

                end;

            gtPickHammer: begin

                defaultPos:= false;

                dec(sy,20);

                end;

            gtTeleport: defaultPos:= false;

            gtWhip: begin

                DrawRotatedF(sprWhip,

                        sx,

                        sy,

                        1,

                        hwSign(Gear^.dX),

                        0);

                defaultPos:= false

                end;

            gtKamikaze: begin

                if CurAmmoGear^.Pos = 0 then

                    DrawHedgehog(sx, sy,

                            hwSign(Gear^.dX),

                            1,

                            6,

                            0)

                else

                    DrawRotatedF(sprKamikaze,

                            hwRound(Gear^.X) + WorldDx,

                            hwRound(Gear^.Y) + WorldDy,

                            CurAmmoGear^.Pos - 1,

                            hwSign(Gear^.dX),

                            aangle);

                defaultPos:= false

                end;

            gtSeduction: begin

                if CurAmmoGear^.Pos >= 6 then

                    DrawHedgehog(sx, sy,

                            hwSign(Gear^.dX),

                            2,

                            2,

                            0)

                else

                    begin

                    DrawRotatedF(sprDress,

                            hwRound(Gear^.X) + WorldDx,

                            hwRound(Gear^.Y) + WorldDy,

                            CurAmmoGear^.Pos,

                            hwSign(Gear^.dX),

                            0);

                    DrawSprite(sprCensored, hwRound(Gear^.X) - 32 + WorldDx, hwRound(Gear^.Y) - 20 + WorldDy, 0)

                    end;

                defaultPos:= false

                end;

            gtFlamethrower: begin

                DrawRotatedF(sprHandFlamethrower, hx, hy, (RealTicks div 125) mod 4, hwSign(Gear^.dX), 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,

                        hwSign(Gear^.dX),

                        0,

                        4,

                        0);

                defaultPos:= false;

                HatVisible:= true

            end

        end

    end else

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

    begin

    DrawHedgehog(sx, sy,

        hwSign(Gear^.dX)*m,

        1,

        1,

        0);

    HatVisible:= true;

    defaultPos:= false

    end else

    if (Gear^.Message and (gm_Left or gm_Right) <> 0) and (not isCursorVisible) then

        begin

        DrawHedgehog(sx, sy,

            hwSign(Gear^.dX),

            0,

            HH^.visStepPos div 2,

            0);

        defaultPos:= false;

        HatVisible:= true

        end

    else

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

        begin

        if (TWave(Gear^.Tag) < Low(TWave)) or (TWave(Gear^.Tag) > High(TWave)) then

            begin

            Gear^.State:= Gear^.State and not gstAnimation;

            end

        else

            begin

            DrawRotatedF(Wavez[TWave(Gear^.Tag)].Sprite,

                    sx,

                    sy,

                    Gear^.Pos,

                    hwSign(Gear^.dX),

                    0.0);

            defaultPos:= false

            end

        end

    else

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

        begin

        if HH^.Timer > 0 then

            begin

            // There must be a tidier way to do this. Anyone?

            if aangle <= 90 then aangle:= aangle+360;

            if Gear^.dX > _0 then aangle:= aangle-((aangle-240)*HH^.Timer/10)

            else aangle:= aangle+((240-aangle)*HH^.Timer/10);

            dec(HH^.Timer)

            end;

        amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;

        case amt of

            amBazooka: DrawRotated(sprHandBazooka, hx, hy, hwSign(Gear^.dX), aangle);

            amMortar: DrawRotated(sprHandMortar, hx, hy, hwSign(Gear^.dX), aangle);

            amMolotov: DrawRotated(sprHandMolotov, hx, hy, hwSign(Gear^.dX), aangle);

            amBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);

            amDrill: DrawRotated(sprHandDrill, hx, hy, hwSign(Gear^.dX), aangle);

            amRope: DrawRotated(sprHandRope, hx, hy, hwSign(Gear^.dX), aangle);

            amShotgun: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);

            amDEagle: DrawRotated(sprHandDEagle, hx, hy, hwSign(Gear^.dX), aangle);

            amSineGun: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);

            amPortalGun: if (HH^.Ammo^[HH^.CurSlot, HH^.CurAmmo].Timer and 2) <> 0 then // Add a new Hedgehog value instead of abusing timer?

                            DrawRotatedF(sprPortalGun, hx, hy, 0, hwSign(Gear^.dX), aangle)

                      else

                            DrawRotatedF(sprPortalGun, hx, hy, 1+(HH^.Ammo^[HH^.CurSlot, HH^.CurAmmo].Timer and 1), hwSign(Gear^.dX), aangle);

            amSniperRifle: DrawRotatedF(sprSniperRifle, hx, hy, 0, hwSign(Gear^.dX), aangle);

            amBlowTorch: DrawRotated(sprHandBlowTorch, hx, hy, hwSign(Gear^.dX), aangle);

            amCake: DrawRotated(sprHandCake, hx, hy, hwSign(Gear^.dX), aangle);

            amGrenade: DrawRotated(sprHandGrenade, hx, hy, hwSign(Gear^.dX), aangle);

            amWatermelon: DrawRotated(sprHandMelon, hx, hy, hwSign(Gear^.dX), aangle);

            amSkip: DrawRotated(sprHandSkip, hx, hy, hwSign(Gear^.dX), aangle);

            amClusterBomb: DrawRotated(sprHandCluster, hx, hy, hwSign(Gear^.dX), aangle);

            amDynamite: DrawRotated(sprHandDynamite, hx, hy, hwSign(Gear^.dX), aangle);

            amHellishBomb: DrawRotated(sprHandHellish, hx, hy, hwSign(Gear^.dX), aangle);

            amGasBomb: DrawRotated(sprHandCheese, hx, hy, hwSign(Gear^.dX), aangle);

            amMine: DrawRotated(sprHandMine, hx, hy, hwSign(Gear^.dX), aangle);

            amSeduction: DrawRotated(sprHandSeduction, hx, hy, hwSign(Gear^.dX), aangle);

            amVampiric: DrawRotatedF(sprHandVamp, hx, hy, (RealTicks div 125) mod 4, hwSign(Gear^.dX), aangle);

            amRCPlane: begin

                DrawRotated(sprHandPlane, hx, hy, hwSign(Gear^.dX), 0);

                defaultPos:= false

                end;

            amGirder: begin

                DrawRotated(sprHandConstruction, hx, hy, hwSign(Gear^.dX), aangle);

                DrawSpriteClipped(sprGirder,

                                  sx-256,

                                  sy-256,

                                  LongInt(topY)+WorldDy,

                                  LongInt(rightX)+WorldDx,

                                  cWaterLine+WorldDy,

                                  LongInt(leftX)+WorldDx)

                end;

            amBee: DrawRotatedF(sprHandBee, hx, hy, (RealTicks div 125) mod 4, hwSign(Gear^.dX), aangle);

            amFlamethrower: DrawRotatedF(sprHandFlamethrower, hx, hy, (RealTicks div 125) mod 4, hwSign(Gear^.dX), aangle);

        end;

        case amt of

            amAirAttack,

            amMineStrike: DrawRotated(sprHandAirAttack, sx, hwRound(Gear^.Y) + WorldDy, hwSign(Gear^.dX), 0);

            amPickHammer: DrawHedgehog(sx, sy,

                        hwSign(Gear^.dX),

                        1,

                        2,

                        0);

            amTeleport: DrawRotatedF(sprTeleport, sx, sy, 0, hwSign(Gear^.dX), 0);

            amKamikaze: DrawHedgehog(sx, sy,

                        hwSign(Gear^.dX),

                        1,

                        5,

                        0);

            amWhip: DrawRotatedF(sprWhip,

                        sx,

                        sy,

                        0,

                        hwSign(Gear^.dX),

                        0);

        else

            DrawHedgehog(sx, sy,

                hwSign(Gear^.dX),

                0,

                4,

                0);

            HatVisible:= true;

            (* with HH^ do

                if (HatTex <> nil)

                and (HatVisibility > 0) then

                    DrawTextureF(HatTex,

                        HatVisibility,

                        sx,

                        hwRound(Gear^.Y) - 8 + WorldDy,

                        0,

                        hwSign(Gear^.dX),

                        32,

                        32); *)

        end;

        case amt of

            amBaseballBat: DrawRotated(sprHandBaseball,

                    hwRound(Gear^.X) + 1 - 4 * hwSign(Gear^.dX) + WorldDx,

                    hwRound(Gear^.Y) + 6 + WorldDy, hwSign(Gear^.dX), aangle);

        end;

        defaultPos:= false

    end;

end else // not gstHHDriven

    begin

    if (Gear^.Damage > 0)

    and (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > _0_003) then

        begin

        DrawHedgehog(sx, sy,

            hwSign(Gear^.dX),

            2,

            1,

            Gear^.DirAngle);

        defaultPos:= false

        end else

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

        begin

        DrawHedgehog(sx, sy,

            hwSign(Gear^.dX)*m,

            1,

            1,

            0);

        defaultPos:= false

        end;

    end;

with HH^ do

    begin

    if defaultPos then

        begin

        DrawRotatedF(sprHHIdle,

            sx,

            sy,

            (RealTicks div 128 + Gear^.Pos) mod 19,

            hwSign(Gear^.dX),

            0);

        HatVisible:= true;

        end;

    if HatVisible then

        if HatVisibility < 1.0 then

            HatVisibility:= HatVisibility + 0.2

        else

    else

        if HatVisibility > 0.0 then

            HatVisibility:= HatVisibility - 0.2;

    if (HatTex <> nil)

    and (HatVisibility > 0) then

        if DefaultPos then

            begin