(*

 * 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

 *)

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

procedure HHHurt(Hedgehog: PHedgehog; Source: TDamageSource);

begin

if (Source = dsFall) or (Source = dsExplosion) then

    case random(3) of

        0: PlaySound(sndOoff1, Hedgehog^.Team^.voicepack);

        1: PlaySound(sndOoff2, Hedgehog^.Team^.voicepack);

        2: PlaySound(sndOoff3, Hedgehog^.Team^.voicepack);

    end

else if (Source = dsPoison) then

    case random(2) of

        0: PlaySound(sndPoisonCough, Hedgehog^.Team^.voicepack);

        1: PlaySound(sndPoisonMoan, Hedgehog^.Team^.voicepack);

    end

else

    case random(4) of

        0: PlaySound(sndOw1, Hedgehog^.Team^.voicepack);

        1: PlaySound(sndOw2, Hedgehog^.Team^.voicepack);

        2: PlaySound(sndOw3, Hedgehog^.Team^.voicepack);

        3: PlaySound(sndOw4, Hedgehog^.Team^.voicepack);

    end

end;

// Shouldn't more of this ammo switching stuff be moved to uAmmos ?

function ChangeAmmo(HHGear: PGear): boolean;

var slot, i: Longword;

    ammoidx: LongInt;

begin

ChangeAmmo:= false;

slot:= HHGear^.MsgParam;

with HHGear^.Hedgehog^ do

    begin

    HHGear^.Message:= HHGear^.Message and not gmSlot;

    ammoidx:= 0;

    if ((HHGear^.State and (gstAttacking or gstAttacked)) <> 0) or

       (TargetPoint.X <> NoPointX) or

       ((MultiShootAttacks > 0) and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NoRoundEnd) = 0)) or

       ((HHGear^.State and gstHHDriven) = 0) then exit;

    ChangeAmmo:= true;

    while (ammoidx < cMaxSlotAmmoIndex) and (Ammo^[slot, ammoidx].AmmoType <> CurAmmoType) do inc(ammoidx);

    if ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NoRoundEnd) <> 0) and (MultiShootAttacks > 0) then OnUsedAmmo(HHGear^.Hedgehog^);

    MultiShootAttacks:= 0;

    HHGear^.Message:= HHGear^.Message and not (gmLJump or gmHJump);

    if Ammoz[CurAmmoType].Slot = slot then

        begin

        i:= 0;

        repeat

        inc(ammoidx);

        if (ammoidx > cMaxSlotAmmoIndex) then

            begin

            inc(i);

            CurAmmoType:= amNothing;

            ammoidx:= -1;

            //TryDo(i < 2, 'Engine bug: no ammo in current slot', true)

            end;

        until (i = 1) or ((Ammo^[slot, ammoidx].Count > 0) and (Team^.Clan^.TurnNumber > Ammoz[Ammo^[slot, ammoidx].AmmoType].SkipTurns))

        end 

    else

        begin

        i:= 0;

        // check whether there is ammo in slot

        while (i <= cMaxSlotAmmoIndex)

          and ((Ammo^[slot, i].Count = 0)

               or (Team^.Clan^.TurnNumber <= Ammoz[Ammo^[slot, i].AmmoType].SkipTurns)) do inc(i);

        if i <= cMaxSlotAmmoIndex then ammoidx:= i

        else ammoidx:= -1

        end;

        if ammoidx >= 0 then CurAmmoType:= Ammo^[slot, ammoidx].AmmoType;

    end

end;

procedure HHSetWeapon(HHGear: PGear);

var t: LongInt;

    weap: TAmmoType;

    Hedgehog: PHedgehog;

    s: boolean;

begin

s:= false;

weap:= TAmmoType(HHGear^.MsgParam);

Hedgehog:= HHGear^.Hedgehog;

if Hedgehog^.Team^.Clan^.TurnNumber <= Ammoz[weap].SkipTurns then exit; // weapon is not activated yet

HHGear^.MsgParam:= Ammoz[weap].Slot;

t:= cMaxSlotAmmoIndex;

HHGear^.Message:= HHGear^.Message and not gmWeapon;

with Hedgehog^ do

    while (CurAmmoType <> weap) and (t >= 0) do

        begin

        s:= ChangeAmmo(HHGear);

        dec(t)

        end;

if s then ApplyAmmoChanges(HHGear^.Hedgehog^)

end;

procedure HHSetTimer(Gear: PGear);

var CurWeapon: PAmmo;

    color: LongWord;

begin

Gear^.Message:= Gear^.Message and not gmTimer;

CurWeapon:= GetAmmoEntry(Gear^.Hedgehog^);

with Gear^.Hedgehog^ do

    if ((Gear^.Message and gmPrecise) <> 0) and ((CurWeapon^.Propz and ammoprop_SetBounce) <> 0) then

        begin

        color:= Gear^.Hedgehog^.Team^.Clan^.Color;

        case Gear^.MsgParam of

            1: begin

               AddCaption(format(trmsg[sidBounce], trmsg[sidBounce1]), color, capgrpAmmostate);

               CurWeapon^.Bounciness:= 350;

               end;

            2: begin

               AddCaption(format(trmsg[sidBounce], trmsg[sidBounce2]), color, capgrpAmmostate);

               CurWeapon^.Bounciness:= 700;

               end;

            3: begin

               AddCaption(format(trmsg[sidBounce], trmsg[sidBounce3]), color, capgrpAmmostate);

               CurWeapon^.Bounciness:= 1000;

               end;

            4: begin

               AddCaption(format(trmsg[sidBounce], trmsg[sidBounce4]), color, capgrpAmmostate);

               CurWeapon^.Bounciness:= 2000;

               end;

            5: begin

               AddCaption(format(trmsg[sidBounce], trmsg[sidBounce5]), color, capgrpAmmostate);

               CurWeapon^.Bounciness:= 4000;

               end

            end

        end

    else if (CurWeapon^.Propz and ammoprop_Timerable) <> 0 then

        begin

        CurWeapon^.Timer:= 1000 * Gear^.MsgParam;

        with CurrentTeam^ do

            ApplyAmmoChanges(Hedgehogs[CurrHedgehog]);

        end;

end;

procedure Attack(Gear: PGear);

var xx, yy, newDx, newDy, lx, ly: hwFloat;

    speech: PVisualGear;

    newGear:  PGear;

    CurWeapon: PAmmo;

    altUse: boolean;

    elastic: hwFloat;

begin

newGear:= nil;

bShowFinger:= false;

CurWeapon:= GetAmmoEntry(Gear^.Hedgehog^);

with Gear^,

     Gear^.Hedgehog^ do

     begin

     if ((State and gstHHDriven) <> 0)and

        ((State and (gstAttacked or gstHHChooseTarget)) = 0) and

        (((State and gstMoving) = 0) or

            (CurAmmoType = amTeleport) or 

            // Allow attacks while moving on ammo with AltAttack

            ((CurAmmoGear <> nil) and ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0)) or

            ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AttackInMove) <> 0)) and

        ((TargetPoint.X <> NoPointX) or ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget) = 0)) then

        begin

        State:= State or gstAttacking;

        if Power = cMaxPower then Message:= Message and not gmAttack

        else if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) = 0 then Message:= Message and not gmAttack

        else begin

             if Power = 0 then

                begin

                AttackBar:= CurrentTeam^.AttackBar;

                PlaySound(sndThrowPowerUp)

                end;

             inc(Power)

             end;

        if ((Message and gmAttack) <> 0) then exit;

        if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) <> 0 then

           begin

           StopSound(sndThrowPowerUp);

           PlaySound(sndThrowRelease);

           end;

        xx:= SignAs(AngleSin(Angle), dX);

        yy:= -AngleCos(Angle);

        lx:= X + int2hwfloat(round(GetLaunchX(CurAmmoType, hwSign(dX), Angle)));

        ly:= Y + int2hwfloat(round(GetLaunchY(CurAmmoType, Angle)));

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

        if Ammoz[CurAmmoType].Ammo.AttackVoice <> sndNone then

           AddVoice(Ammoz[CurAmmoType].Ammo.AttackVoice, CurrentTeam^.voicepack);

// Initiating alt attack

        if  (CurAmmoGear <> nil) and

            ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0) and

            ((Gear^.Message and gmLJump) <> 0) and

            ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then

            begin

            newDx:= dX / _2; 

            newDy:= dY / _2;

            altUse:= true;

            end

        else

            begin

            newDx:= xx*Power/cPowerDivisor;

            newDy:= yy*Power/cPowerDivisor;

            altUse:= false

            end;

             case CurAmmoType of

                      amGrenade: newGear:= AddGear(hwRound(lx), hwRound(ly), gtGrenade,         0, newDx, newDy, CurWeapon^.Timer);

                      amMolotov: newGear:= AddGear(hwRound(lx), hwRound(ly), gtMolotov,      0, newDx, newDy, 0);

                  amClusterBomb: newGear:= AddGear(hwRound(lx), hwRound(ly), gtClusterBomb,  0, newDx, newDy, CurWeapon^.Timer);

                      amGasBomb: newGear:= AddGear(hwRound(lx), hwRound(ly), gtGasBomb,      0, newDx, newDy, CurWeapon^.Timer);

                      amBazooka: newGear:= AddGear(hwRound(lx), hwRound(ly), gtShell,        0, newDx, newDy, 0);

                     amSnowball: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSnowball,     0, newDx, newDy, 0);

                          amBee: newGear:= AddGear(hwRound(lx), hwRound(ly), gtBee,          0, newDx, newDy, 0);

                      amShotgun: begin

                                 PlaySound(sndShotgunReload);

                                 newGear:= AddGear(hwRound(lx), hwRound(ly), gtShotgunShot,  0, xx * _0_5, yy * _0_5, 0);

                                 end;

                   amPickHammer: newGear:= AddGear(hwRound(lx), hwRound(ly) + cHHRadius, gtPickHammer, 0, _0, _0, 0);

                         amSkip: ParseCommand('/skip', true);

                         amRope: newGear:= AddGear(hwRound(lx), hwRound(ly), gtRope, 0, xx, yy, 0);

                         amMine: if altUse then

                                    newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtMine, gstWait, newDx, newDy, 3000)

                                 else

                                    newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtMine, gstWait, SignAs(_0_02, dX), _0, 3000);

                        amSMine: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSMine,    0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0);

                       amDEagle: newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtDEagleShot, 0, xx * _0_5, yy * _0_5, 0);

                      amSineGun: newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtSineGunShot, 0, xx * _0_5, yy * _0_5, 0);

                    amPortalGun: begin

                                 newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtPortal, 0, xx * _0_6, yy * _0_6, 

                                 // set selected color

                                 CurWeapon^.Pos);

                                 end;

                  amSniperRifle: begin

                                 PlaySound(sndSniperReload);

                                 newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtSniperRifleShot, 0, xx * _0_5, yy * _0_5, 0);

                                 end;

                     amDynamite: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtDynamite, 0, SignAs(_0_03, dX), _0, 5000);

                    amFirePunch: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtFirePunch, 0, xx, _0, 0);

                         amWhip: begin

                                 newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtWhip, 0, SignAs(_1, dX), - _0_8, 0);

                                 PlaySound(sndWhipCrack)

                                 end;

                       amHammer: begin

                                 newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtHammer, 0, SignAs(_1, dX), - _0_8, 0);

                                 PlaySound(sndWhack)

                                 end;

                  amBaseballBat: begin

                                 newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtShover, gsttmpFlag, xx * _0_5, yy * _0_5, 0);

                                 PlaySound(sndBaseballBat) // TODO: Only play if something is hit?

                                 end;

                    amParachute: begin

                                 newGear:= AddGear(hwRound(lx), hwRound(ly), gtParachute, 0, _0, _0, 0);

                                 PlaySound(sndParachute)

                                 end;

                    // we save CurWeapon^.Pos (in this case: cursor direction) by using it as (otherwise irrelevant) X value of the new gear.

                    amAirAttack: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 0, _0, _0, 0);

                   amMineStrike: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 1, _0, _0, 0);

                  amDrillStrike: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 3, _0, _0, CurWeapon^.Timer);

                       amNapalm: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 2, _0, _0, 0);

                    amBlowTorch: newGear:= AddGear(hwRound(lx), hwRound(ly), gtBlowTorch, 0, SignAs(_0_5, dX), _0, 0);

                       amGirder: newGear:= AddGear(0, 0, gtGirder, CurWeapon^.Pos, _0, _0, 0);

                     amTeleport: newGear:= AddGear(CurWeapon^.Pos, 0, gtTeleport, 0, _0, _0, 0);

                       amSwitch: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSwitcher, 0, _0, _0, 0);

                       amMortar: begin

                                 playSound(sndMortar);

                                 newGear:= AddGear(hwRound(lx), hwRound(ly), gtMortar,  0, xx*cMaxPower/cPowerDivisor, yy*cMaxPower/cPowerDivisor, 0);

                                 end;

                      amRCPlane: begin

                                 newGear:= AddGear(hwRound(lx), hwRound(ly), gtRCPlane,  0, xx * cMaxPower / cPowerDivisor / 4, yy * cMaxPower / cPowerDivisor / 4, 0);

                                 newGear^.SoundChannel:= LoopSound(sndRCPlane, nil)

                                 end;

                       amKamikaze: newGear:= AddGear(hwRound(lx), hwRound(ly), gtKamikaze, 0, xx * _0_5, yy * _0_5, 0);

                         amCake: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 3, hwRound(ly), gtCake, 0, xx, _0, 0);

                    amSeduction: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSeduction, 0, _0, _0, 0);

                   amWatermelon: newGear:= AddGear(hwRound(lx), hwRound(ly), gtWatermelon,  0, newDx, newDy, CurWeapon^.Timer);

                  amHellishBomb: newGear:= AddGear(hwRound(lx), hwRound(ly), gtHellishBomb,    0, newDx, newDy, 0);

                        amDrill: newGear:= AddGear(hwRound(lx), hwRound(ly), gtDrill, 0, newDx, newDy, 0);

                      amBallgun: newGear:= AddGear(hwRound(X), hwRound(Y), gtBallgun,  0, xx * _0_5, yy * _0_5, 0);

                    amJetpack: newGear:= AddGear(hwRound(lx), hwRound(ly), gtJetpack, 0, _0, _0, 0);

                    amBirdy: begin

                             PlaySound(sndWhistle);

                             newGear:= AddGear(hwRound(lx), hwRound(ly) - 32, gtBirdy, 0, _0, _0, 0);

                             end;

                      amLowGravity: begin

                                    PlaySound(sndLowGravity);

                                    cGravity:= cMaxWindSpeed;

                                    cGravityf:= 0.00025

                                    end;

                      amExtraDamage:begin 

                                    PlaySound(sndHellishImpact4);

                                    cDamageModifier:= _1_5

                                    end;

                      amInvulnerable: Invulnerable:= true;

                      amExtraTime:  begin

                                    PlaySound(sndSwitchHog);

                                    TurnTimeLeft:= TurnTimeLeft + 30000

                                    end;

                      amLaserSight: cLaserSighting:= true;

                      amVampiric: begin

                                  PlaySound(sndOw1, Team^.voicepack);

                                  cVampiric:= true;

                                  end;

                      amPiano: begin

                               // Tuck the hedgehog away until the piano attack is completed

                               Unplaced:= true;

                               X:= _0;

                               Y:= _0;

                               newGear:= AddGear(TargetPoint.X, 0, gtPiano, 0, _0, _0, 0);

                               PauseMusic

                               end;

                      amFlamethrower: newGear:= AddGear(hwRound(X), hwRound(Y), gtFlamethrower,  0, xx * _0_5, yy * _0_5, 0);

                      amLandGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtLandGun,  0, xx * _0_5, yy * _0_5, 0);

                    amResurrector: begin

                        newGear:= AddGear(hwRound(lx), hwRound(ly),

                                gtResurrector, 0, _0, _0, 0);

                        newGear^.SoundChannel := LoopSound(sndResurrector);

                    end;

                   //amMelonStrike: AddGear(CurWeapon^.Pos, 0, gtAirAttack, 4, _0, _0, 0);

                     amStructure: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, gstWait, SignAs(_0_02, dX), _0, 3000);

                        amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 5000);

                  end;

             case CurAmmoType of

                      amGrenade, amMolotov, 

                  amClusterBomb, amGasBomb, 

                      amBazooka, amSnowball, 

                          amBee, amSMine,

                       amMortar, amWatermelon,

                  amHellishBomb, amDrill,

                        amPiano: FollowGear:= newGear;

                      amShotgun, amPickHammer,

                         amRope, amDEagle,

                      amSineGun, amSniperRifle,

                    amFirePunch, amWhip,

                       amHammer, amBaseballBat,

                    amParachute, amBlowTorch,

                       amGirder, amTeleport,

                       amSwitch, amRCPlane,

                     amKamikaze, amCake,

                    amSeduction, amBallgun,

                      amJetpack, amBirdy,

                 amFlamethrower, amLandGun,

                  amResurrector, amStructure,

                       amTardis: CurAmmoGear:= newGear;

                  end;

        if Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then

            begin

            newGear^.Target.X:= TargetPoint.X;

            newGear^.Target.Y:= TargetPoint.Y

            end;

        // Clear FollowGear if using on a rope/parachute/saucer etc so focus stays with the hog's movement

        if altUse then FollowGear:= nil;

        if (newGear <> nil) and ((Ammoz[newGear^.AmmoType].Ammo.Propz and ammoprop_SetBounce) <> 0) then

            begin

            elastic:=  int2hwfloat(CurWeapon^.Bounciness) / _1000;

            if elastic < _1 then newGear^.Elasticity:= newGear^.Elasticity * elastic

            else if elastic > _1 then newGear^.Elasticity:= _1 - ((_1-newGear^.Elasticity) / elastic);

(* Experimented with friction modifier. Didn't seem helpful 

            fric:= int2hwfloat(CurWeapon^.Bounciness) / _250;

            if fric < _1 then newGear^.Friction:= newGear^.Friction * fric

            else if fric > _1 then newGear^.Friction:= _1 - ((_1-newGear^.Friction) / fric)*)

            end;

        uStats.AmmoUsed(CurAmmoType);

        if not (SpeechText = '') then

            begin

            speech:= AddVisualGear(0, 0, vgtSpeechBubble);

            if speech <> nil then

               begin

               speech^.Text:= SpeechText;

               speech^.Hedgehog:= Gear^.Hedgehog;

               speech^.FrameTicks:= SpeechType;

               end;

            SpeechText:= ''

            end;

        Power:= 0;

        if (CurAmmoGear <> nil)

           and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) = 0){check for dropping ammo from rope} then

           begin

           Message:= Message or gmAttack;

           CurAmmoGear^.Message:= Message

           end else begin

           if not CurrentTeam^.ExtDriven and

             ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) <> 0) then SendIPC('a');

           AfterAttack;

           end

        end else Message:= Message and not gmAttack;

     end;

     TargetPoint.X := NoPointX;

     ScriptCall('onHogAttack');	

end;

procedure AfterAttack;

var s: shortstring;

    a: TAmmoType;

begin

with CurrentHedgehog^.Gear^,

        CurrentHedgehog^ do

    begin

    a:= CurAmmoType;

    State:= State and not gstAttacking;

    if (Ammoz[a].Ammo.Propz and ammoprop_Effect) = 0 then

        begin

        Inc(MultiShootAttacks);

        if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks) then

            begin

            s:= inttostr(Ammoz[a].Ammo.NumPerTurn - MultiShootAttacks + 1);

            AddCaption(format(trmsg[sidRemaining], s), cWhiteColor, capgrpAmmostate);

            end;

        if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks) or

            ((GameFlags and gfMultiWeapon) <> 0) then

            begin

            isInMultiShoot:= true

            end

        else

            begin

            OnUsedAmmo(CurrentHedgehog^);

            if ((Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) = 0) and (((GameFlags and gfInfAttack) = 0) or PlacingHogs) then

                begin

                if TagTurnTimeLeft = 0 then TagTurnTimeLeft:= TurnTimeLeft;

                TurnTimeLeft:=(Ammoz[a].TimeAfterTurn * cGetAwayTime) div 100;

                end;

            if ((Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) = 0) then State:= State or gstAttacked;

            if (Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) <> 0 then ApplyAmmoChanges(CurrentHedgehog^)

            end;

        end

    else

        begin

        OnUsedAmmo(CurrentHedgehog^);

        ApplyAmmoChanges(CurrentHedgehog^);

        end;

    AttackBar:= 0

    end

end;

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

procedure doStepHedgehogDead(Gear: PGear);

const frametime = 200;

      timertime = frametime * 6;

begin