(*

 * Hedgewars, a free turn based strategy game

 * Copyright (c) 2004-2012 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

 *)

(*

 * This file contains the step handlers for gears.

 *

 * Important: Since gears change the course of the game, calculations that

 *            lead to different results for different clients/players/machines

 *            should NOT occur!

 *            Use safe functions and data types! (e.g. GetRandom() and hwFloat)

 *)

procedure doStepPerPixel(Gear: PGear; step: TGearStepProcedure; onlyCheckIfChanged: boolean);

var

    dX, dY, sX, sY: hwFloat;

    i, steps: LongWord;

    caller: TGearStepProcedure;

begin

    dX:= Gear^.dX;

    dY:= Gear^.dY;

    steps:= max(abs(hwRound(Gear^.X+dX)-hwRound(Gear^.X)), abs(hwRound(Gear^.Y+dY)-hwRound(Gear^.Y)));

    // Gear is still on the same Pixel it was before

    if steps < 1 then

        begin

        if onlyCheckIfChanged then

            begin

            Gear^.X := Gear^.X + dX;

            Gear^.Y := Gear^.Y + dY;

            EXIT;

            end

        else

            steps := 1;

        end;

    if steps > 1 then

        begin

        sX:= dX / steps;

        sY:= dY / steps;

        end

    else

        begin

        sX:= dX;

        sY:= dY;

        end;

    caller:= Gear^.doStep;

    for i:= 1 to steps do

        begin

        Gear^.X := Gear^.X + sX;

        Gear^.Y := Gear^.Y + sY;

        step(Gear);

        if (Gear^.doStep <> caller)

        or ((Gear^.State and gstCollision) <> 0)

        or ((Gear^.State and gstMoving) = 0) then

            break;

        end;

end;

procedure makeHogsWorry(x, y: hwFloat; r: LongInt);

var 

    gi: PGear;

    d: LongInt;

begin

    gi := GearsList;

    while gi <> nil do

        begin

        if (gi^.Kind = gtHedgehog) then

            begin

            d := r - hwRound(Distance(gi^.X - x, gi^.Y - y));

            if (d > 1) and (not gi^.Invulnerable) and (GetRandom(2) = 0) then

                begin

                if (CurrentHedgehog^.Gear = gi) then

                    PlaySound(sndOops, gi^.Hedgehog^.Team^.voicepack)

                else

                    begin

                    if (gi^.State and gstMoving) = 0 then

                        gi^.State := gi^.State or gstLoser;

                    if d > r div 2 then

                        PlaySound(sndNooo, gi^.Hedgehog^.Team^.voicepack) 

                    else

                        PlaySound(sndUhOh, gi^.Hedgehog^.Team^.voicepack);

                    end;

                end;

            end;

        gi := gi^.NextGear

        end;

end;

procedure HideHog(HH: PHedgehog);

begin

    ScriptCall('onHogHide', HH^.Gear^.Uid);

    DeleteCI(HH^.Gear);

    if FollowGear = HH^.Gear then

        FollowGear:= nil;

    if lastGearByUID = HH^.Gear then

        lastGearByUID := nil;

    RemoveGearFromList(HH^.Gear);

    with HH^.Gear^ do

        begin

        Z := cHHZ;

        Active := false;

        State:= State and (not (gstHHDriven or gstAttacking or gstAttacked));

        Message := Message and (not gmAttack);

    end;

    HH^.GearHidden:= HH^.Gear;

    HH^.Gear:= nil

end;

procedure RestoreHog(HH: PHedgehog);

begin

    HH^.Gear:=HH^.GearHidden;

    HH^.GearHidden:= nil;

    InsertGearToList(HH^.Gear);

    HH^.Gear^.State:= (HH^.Gear^.State and (not (gstHHDriven or gstInvisible or gstAttacking))) or gstAttacked;

    AddGearCI(HH^.Gear);

    HH^.Gear^.Active:= true;

    ScriptCall('onHogRestore', HH^.Gear^.Uid)

end;

////////////////////////////////////////////////////////////////////////////////

procedure CheckCollision(Gear: PGear); inline;

begin

    if TestCollisionXwithGear(Gear, hwSign(Gear^.dX))

    or (TestCollisionYwithGear(Gear, hwSign(Gear^.dY)) <> 0) then

        Gear^.State := Gear^.State or gstCollision

    else

        Gear^.State := Gear^.State and (not gstCollision)

end;

procedure CheckCollisionWithLand(Gear: PGear); inline;

begin

    if TestCollisionX(Gear, hwSign(Gear^.dX))

    or TestCollisionY(Gear, hwSign(Gear^.dY)) then

        Gear^.State := Gear^.State or gstCollision

    else 

        Gear^.State := Gear^.State and (not gstCollision)

end;

////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////

procedure doStepDrowningGear(Gear: PGear);

    begin

    AllInactive := false;

    Gear^.Y := Gear^.Y + cDrownSpeed;

    Gear^.X := Gear^.X + Gear^.dX * cDrownSpeed;

    // Create some bubbles (0.5% might be better but causes too few bubbles sometimes)

    if ((not SuddenDeathDmg and (WaterOpacity < $FF))

    or (SuddenDeathDmg and (SDWaterOpacity < $FF))) and ((GameTicks and $1F) = 0) then

        if (Gear^.Kind = gtHedgehog) and (Random(4) = 0) then

            AddVisualGear(hwRound(Gear^.X) - Gear^.Radius, hwRound(Gear^.Y) - Gear^.Radius, vgtBubble)

    else if Random(12) = 0 then

             AddVisualGear(hwRound(Gear^.X) - Gear^.Radius, hwRound(Gear^.Y) - Gear^.Radius, vgtBubble);

    if (not SuddenDeathDmg and (WaterOpacity > $FE))

    or (SuddenDeathDmg and (SDWaterOpacity > $FE))

    or (hwRound(Gear^.Y) > Gear^.Radius + cWaterLine + cVisibleWater) then

        DeleteGear(Gear);

    end;

////////////////////////////////////////////////////////////////////////////////

procedure doStepFallingGear(Gear: PGear);

var 

    isFalling: boolean;

    //tmp: QWord;

    tdX, tdY: hwFloat;

    collV, collH: LongInt;

    land: word;

begin

    // clip velocity at 1.9 - over 1 per pixel, but really shouldn't cause many actual problems.

    if Gear^.dX.QWordValue > 8160437862 then

        Gear^.dX.QWordValue:= 8160437862;

    if Gear^.dY.QWordValue > 8160437862 then

        Gear^.dY.QWordValue:= 8160437862;

    Gear^.State := Gear^.State and (not gstCollision);

    collV := 0;

    collH := 0;

    tdX := Gear^.dX;

    tdY := Gear^.dY;

// might need some testing/adjustments - just to avoid projectiles to fly forever (accelerated by wind/skips)

    if (hwRound(Gear^.X) < LAND_WIDTH div -2)

    or (hwRound(Gear^.X) > LAND_WIDTH * 3 div 2) then

        Gear^.State := Gear^.State or gstCollision;

    if Gear^.dY.isNegative then

        begin

        isFalling := true;

        land:= TestCollisionYwithGear(Gear, -1);

        if land <> 0 then

            begin

            collV := -1;

            if land and lfIce <> 0 then

                Gear^.dX := Gear^.dX * (_0_9 + Gear^.Friction * _0_1)

            else

                Gear^.dX := Gear^.dX * Gear^.Friction;

            Gear^.dY := - Gear^.dY * Gear^.Elasticity;

            Gear^.State := Gear^.State or gstCollision

            end

        else if (Gear^.AdvBounce=1) and (TestCollisionYwithGear(Gear, 1) <> 0) then

            collV := 1;

        end

    else 

        begin // Gear^.dY.isNegative is false

        land:= TestCollisionYwithGear(Gear, 1);

        if land <> 0 then

            begin

            collV := 1;

            isFalling := false;

            if land and lfIce <> 0 then 

                Gear^.dX := Gear^.dX * (_0_9 + Gear^.Friction * _0_1)

            else 

                Gear^.dX := Gear^.dX * Gear^.Friction;

            Gear^.dY := - Gear^.dY * Gear^.Elasticity;

            Gear^.State := Gear^.State or gstCollision

            end

        else

            begin

            isFalling := true;

            if (Gear^.AdvBounce=1) and (TestCollisionYwithGear(Gear, -1) <> 0) then

                collV := -1

            end

        end;

    if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then

        begin

        collH := hwSign(Gear^.dX);

        Gear^.dX := - Gear^.dX * Gear^.Elasticity;

        Gear^.dY :=   Gear^.dY * Gear^.Elasticity;

        Gear^.State := Gear^.State or gstCollision

        end

    else if (Gear^.AdvBounce=1) and TestCollisionXwithGear(Gear, -hwSign(Gear^.dX)) then

        collH := -hwSign(Gear^.dX); 

    //if Gear^.AdvBounce and (collV <>0) and (collH <> 0) and (hwSqr(tdX) + hwSqr(tdY) > _0_08) then

    if (Gear^.AdvBounce=1) and (collV <>0) and (collH <> 0) and ((collV=-1)

    or ((tdX.QWordValue + tdY.QWordValue) > _0_2.QWordValue)) then

        begin

        Gear^.dX := tdY*Gear^.Elasticity*Gear^.Friction;

        Gear^.dY := tdX*Gear^.Elasticity;

        //*Gear^.Friction;

        Gear^.dY.isNegative := not tdY.isNegative;

        isFalling := false;

        Gear^.AdvBounce := 10;

        end;

    if Gear^.AdvBounce > 1 then

        dec(Gear^.AdvBounce);

    if isFalling then

        begin

        Gear^.dY := Gear^.dY + cGravity;

        if (GameFlags and gfMoreWind) <> 0 then

            Gear^.dX := Gear^.dX + cWindSpeed / Gear^.Density

            end;

    Gear^.X := Gear^.X + Gear^.dX;

    Gear^.Y := Gear^.Y + Gear^.dY;

    if Gear^.Kind <> gtBee then

        CheckGearDrowning(Gear);

    //if (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) < _0_0002) and

    if (not isFalling) and ((Gear^.dX.QWordValue + Gear^.dY.QWordValue) < _0_02.QWordValue) then

        Gear^.State := Gear^.State and (not gstMoving)

    else

        Gear^.State := Gear^.State or gstMoving;

    if (Gear^.nImpactSounds > 0) and (((Gear^.Kind <> gtMine) and (Gear^.Damage <> 0))

    or ((Gear^.State and (gstCollision or gstMoving)) = (gstCollision or gstMoving))) and(((Gear^.Radius < 3) and (Gear^.dY < -_0_1))

    or ((Gear^.Radius >= 3) and ((Gear^.dX.QWordValue > _0_1.QWordValue)

    or (Gear^.dY.QWordValue > _0_1.QWordValue)))) then

        PlaySound(TSound(ord(Gear^.ImpactSound) + LongInt(GetRandom(Gear^.nImpactSounds))), true);

end;

////////////////////////////////////////////////////////////////////////////////

procedure doStepBomb(Gear: PGear);

var 

    i, x, y: LongInt;

    dX, dY: hwFloat;

    vg: PVisualGear;

begin

    AllInactive := false;

    doStepFallingGear(Gear);

    dec(Gear^.Timer);

    if Gear^.Timer = 1000 then // might need adjustments

        case Gear^.Kind of 

            gtGrenade: makeHogsWorry(Gear^.X, Gear^.Y, 50);

            gtClusterBomb: makeHogsWorry(Gear^.X, Gear^.Y, 20);

            gtWatermelon: makeHogsWorry(Gear^.X, Gear^.Y, 75);

            gtHellishBomb: makeHogsWorry(Gear^.X, Gear^.Y, 90);

            gtGasBomb: makeHogsWorry(Gear^.X, Gear^.Y, 50);

        end;

    if (Gear^.Kind = gtBall) and ((Gear^.State and gstTmpFlag) <> 0) then

        begin

        CheckCollision(Gear);

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

            doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, Gear^.Hedgehog, EXPLDontDraw or EXPLNoGfx);

    end;

    if (Gear^.Kind = gtGasBomb) and ((GameTicks mod 200) = 0) then

        begin

        vg:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeWhite);

        if vg <> nil then

            vg^.Tint:= $FFC0C000;

    end;

    if Gear^.Timer = 0 then

        begin

        case Gear^.Kind of 

            gtGrenade: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, Gear^.Hedgehog, EXPLAutoSound);

            gtBall: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 40, Gear^.Hedgehog, EXPLAutoSound);

            gtClusterBomb: 

                begin

                x := hwRound(Gear^.X);

                y := hwRound(Gear^.Y);

                doMakeExplosion(x, y, 20, Gear^.Hedgehog, EXPLAutoSound);

                for i:= 0 to 4 do

                    begin

                    FollowGear := AddGear(x, y, gtCluster, 0, dX, dY, 25)

                    end

                end;

            gtWatermelon: 

                begin

                x := hwRound(Gear^.X);

                y := hwRound(Gear^.Y);

                doMakeExplosion(x, y, 75, Gear^.Hedgehog, EXPLAutoSound);

                for i:= 0 to 5 do

                    begin

                    FollowGear:= AddGear(x, y, gtMelonPiece, 0, dX, dY, 75);

                    FollowGear^.DirAngle := i * 60

                    end

                end;

            gtHellishBomb: 

                begin

                x := hwRound(Gear^.X);

                y := hwRound(Gear^.Y);

                doMakeExplosion(x, y, 90, Gear^.Hedgehog, EXPLAutoSound);

                for i:= 0 to 127 do

                    begin

                    if i mod 2 = 0 then

                        begin

                        AddGear(x, y, gtFlame, gstTmpFlag, dX, dY, 0);

                        AddGear(x, y, gtFlame, 0, dX, -dY, 0)

                        end

                    else

                        begin 

                        AddGear(x, y, gtFlame, 0, dX, dY, 0);

                        AddGear(x, y, gtFlame, gstTmpFlag, dX, -dY, 0)

                        end;

                    end

                end;

            gtGasBomb:

                begin

                doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, Gear^.Hedgehog, EXPLAutoSound);

                for i:= 0 to 2 do

                    begin

                    x:= GetRandom(60);

                    y:= GetRandom(40);

                    FollowGear:= AddGear(hwRound(Gear^.X) - 30 + x, hwRound(Gear^.Y) - 20 + y, gtPoisonCloud, 0, _0, _0, 0);

                    end

                end;

        end;

    DeleteGear(Gear);

    exit

    end;

    CalcRotationDirAngle(Gear);

    if Gear^.Kind = gtHellishBomb then

        begin

        if Gear^.Timer = 3000 then

            begin

            Gear^.nImpactSounds := 0;

            PlaySound(sndHellish);

            end;

        if (GameTicks and $3F) = 0 then

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

                AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEvilTrace);

        end;

end;

////////////////////////////////////////////////////////////////////////////////

procedure doStepMolotov(Gear: PGear);

var 

    s: Longword;

    i, gX, gY: LongInt;

    dX, dY: hwFloat;

    smoke, glass: PVisualGear;

begin

    AllInactive := false;

    doStepFallingGear(Gear);

    CalcRotationDirAngle(Gear);

    // let's add some smoke depending on speed

    s:= max(32,152 - hwRound(Distance(Gear^.dX,Gear^.dY)*120))+random(10);

    if (GameTicks mod s) = 0 then

        begin

        // adjust angle to match the texture

        if Gear^.dX.isNegative then

            i:= 130

        else

            i:= 50;

        smoke:= AddVisualGear(hwRound(Gear^.X)-round(cos((Gear^.DirAngle+i) * pi / 180)*20), hwRound(Gear^.Y)-round(sin((Gear^.DirAngle+i) * pi / 180)*20), vgtSmoke);

        if smoke <> nil then

            smoke^.Scale:= 0.75;

        end;

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

        begin

        PlaySound(sndMolotov);

        gX := hwRound(Gear^.X);

        gY := hwRound(Gear^.Y);

        for i:= 0 to 4 do

            begin

            (*glass:= AddVisualGear(gx+random(7)-3, gy+random(5)-2, vgtEgg);

            if glass <> nil then

                begin

                glass^.Frame:= 2;

                glass^.Tint:= $41B83ED0 - i * $10081000;

                glass^.dX:= 1/(10*(random(11)-5));

                glass^.dY:= -1/(random(4)+5);

                end;*)

            glass:= AddVisualGear(gx+random(7)-3, gy+random(7)-3, vgtStraightShot);

            if glass <> nil then

                with glass^ do

                    begin

                    Frame:= 2;

                    Tint:= $41B83ED0 - i * $10081000;

                    Angle:= random * 360;

                    dx:= 0.0000001;

                    dy:= 0;

                    if random(2) = 0 then

                        dx := -dx;

                    FrameTicks:= 750;

                    State:= ord(sprEgg)

                    end;

            end;

        for i:= 0 to 24 do

            begin