(*

 * 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 uGears;

(*

 * This unit defines the behavior of gears.

 *

 * Gears are "things"/"objects" that may be visible to the player or not,

 * but always have an effect on the course of the game.

 *

 * E.g.: weapons, hedgehogs, etc.

 *

 * Note: The visual appearance of gears is defined in the unit "uGearsRender".

 *

 * Note: Gears that do not have an effect on the game but are just visual

 *       effects are called "Visual Gears" and defined in the respective unit!

 *)

interface

uses SDLh, uConsts, uFloat, uTypes;

procedure initModule;

procedure freeModule;

function  SpawnCustomCrateAt(x, y: LongInt; crate: TCrateType; content: Longword ): PGear;

function  SpawnFakeCrateAt(x, y: LongInt; crate: TCrateType; explode: boolean; poison: boolean ): PGear;

function  GetAmmo: TAmmoType;

function  GetUtility: TAmmoType;

procedure HideHog(HH: PHedgehog);

procedure RestoreHog(HH: PHedgehog);

procedure ProcessGears;

procedure EndTurnCleanup;

procedure SetAllToActive;

procedure SetAllHHToActive;

procedure DrawGears;

procedure FreeGearsList;

procedure AddMiscGears;

procedure AssignHHCoords;

function  GearByUID(uid : Longword) : PGear;

procedure InsertGearToList(Gear: PGear);

procedure RemoveGearFromList(Gear: PGear);

procedure DeleteGear(Gear: PGear); 

implementation

uses uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics,

     uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables,

procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); forward;

//procedure AmmoFlameWork(Ammo: PGear); forward;

function  GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): TPGearArray; forward;

procedure SpawnBoxOfSmth; forward;

procedure ShotgunShot(Gear: PGear); forward;

procedure PickUp(HH, Gear: PGear); forward;

procedure HHSetWeapon(HHGear: PGear); forward;

procedure doStepCase(Gear: PGear); forward;

// For better maintainability the step handlers of gears are stored in

// separate files.

// Note: step handlers of gears that are hedgehogs are in a different file

//       than the handlers for all other gears.

{$INCLUDE "GSHandlers.inc"}

const doStepHandlers: array[TGearType] of TGearStepProcedure = (

            @doStepBomb,

            @doStepHedgehog,

            @doStepShell,

            @doStepGrave,

            @doStepBee,

            @doStepShotgunShot,

            @doStepPickHammer,

            @doStepRope,

            @doStepMine,

            @doStepCase,

            @doStepDEagleShot,

            @doStepDynamite,

            @doStepBomb,

            @doStepCluster,

            @doStepShover,

            @doStepFlame,

            @doStepFirePunch,

            @doStepActionTimer,

            @doStepActionTimer,

            @doStepParachute,

            @doStepAirAttack,

            @doStepAirBomb,

            @doStepBlowTorch,

            @doStepGirder,

            @doStepTeleport,

            @doStepSwitcher,

            @doStepTarget,

            @doStepMortar,

            @doStepWhip,

            @doStepKamikaze,

            @doStepCake,

            @doStepSeduction,

            @doStepBomb,

            @doStepCluster,

            @doStepBomb,

            @doStepWaterUp,

            @doStepDrill,

            @doStepBallgun,

            @doStepBomb,

            @doStepRCPlane,

            @doStepSniperRifleShot,

            @doStepJetpack,

            @doStepMolotov,

            @doStepCase,

            @doStepBirdy,

            @doStepEggWork,

            @doStepPortalShot,

            @doStepPiano,

            @doStepBomb,

            @doStepSineGunShot,

            @doStepFlamethrower,

            @doStepSMine,

            @doStepPoisonCloud,

            @doStepHammer,

            @doStepHammerHit,

            @doStepResurrector,

            @doStepNapalmBomb,

            @doStepSnowball,

            @doStepSnowflake,

            @doStepStructure,

            @doStepLandGun,

            @doStepTardis);

function CheckNoDamage: boolean; // returns TRUE in case of no damaged hhs

var Gear: PGear;

    dmg: LongInt;

begin

CheckNoDamage:= true;

Gear:= GearsList;

while Gear <> nil do

    begin

    if (Gear^.Kind = gtHedgehog) and (((GameFlags and gfInfAttack) = 0) or ((Gear^.dX.QWordValue < _0_000004.QWordValue) and (Gear^.dY.QWordValue < _0_000004.QWordValue))) then

        begin

        if (not isInMultiShoot) then inc(Gear^.Damage, Gear^.Karma);

        if (Gear^.Damage <> 0) and

        (not Gear^.Invulnerable) then

            begin

            CheckNoDamage:= false;

            dmg:= Gear^.Damage;

            if Gear^.Health < dmg then

                begin

                Gear^.Active:= true;

                Gear^.Health:= 0

                end

            else

                dec(Gear^.Health, dmg);

            if (Gear^.Hedgehog^.Team = CurrentTeam) and

               (Gear^.Damage <> Gear^.Karma) and

                (not Gear^.Hedgehog^.King) and

                (not Gear^.Hedgehog^.Effects[hePoisoned]) and

                (not SuddenDeathDmg) then

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

            spawnHealthTagForHH(Gear, dmg);

            RenderHealth(Gear^.Hedgehog^);

            RecountTeamHealth(Gear^.Hedgehog^.Team);

            end;

        if (not isInMultiShoot) then Gear^.Karma:= 0;

        Gear^.Damage:= 0

        end;

    Gear:= Gear^.NextGear

    end;

end;

procedure HealthMachine;

var Gear: PGear;

    team: PTeam;

       i: LongWord;

    flag: Boolean;

     tmp: LongWord;

begin

    Gear:= GearsList;

    while Gear <> nil do

    begin

        if Gear^.Kind = gtHedgehog then

            begin

            tmp:= 0;

            if Gear^.Hedgehog^.Effects[hePoisoned] then

                begin

                inc(tmp, ModifyDamage(5, Gear));

                if (GameFlags and gfResetHealth) <> 0 then dec(Gear^.Hedgehog^.InitialHealth)  // does not need a minimum check since <= 1 basically disables it

                end;

            if (TotalRounds > cSuddenDTurns - 1) then

                begin

                inc(tmp, cHealthDecrease);

                if (GameFlags and gfResetHealth) <> 0 then dec(Gear^.Hedgehog^.InitialHealth, cHealthDecrease)

                end;

            if Gear^.Hedgehog^.King then

                begin

                flag:= false;

                team:= Gear^.Hedgehog^.Team;

                for i:= 0 to Pred(team^.HedgehogsNumber) do

                    if (team^.Hedgehogs[i].Gear <> nil) and

                        (not team^.Hedgehogs[i].King) and

                        (team^.Hedgehogs[i].Gear^.Health > team^.Hedgehogs[i].Gear^.Damage)

                    then flag:= true;

                if not flag then

                    begin

                    inc(tmp, 5);

                    if (GameFlags and gfResetHealth) <> 0 then dec(Gear^.Hedgehog^.InitialHealth, 5)

                    end

                end;

            if tmp > 0 then 

                begin

                inc(Gear^.Damage, min(tmp, max(0,Gear^.Health - 1 - Gear^.Damage)));

                HHHurt(Gear^.Hedgehog, dsPoison);

                end

            end;

        Gear:= Gear^.NextGear

    end;

end;

procedure ProcessGears;

const delay: LongWord = 0;

      delay2: LongWord = 0;

    step: (stDelay, stChDmg, stSweep, stTurnReact,

            stAfterDelay, stChWin, stWater, stChWin2, stHealth,

            stSpawn, stNTurn) = stDelay;

var Gear, t: PGear;

    i, AliveCount: LongInt;

    s: shortstring;

begin

PrvInactive:= AllInactive;

AllInactive:= true;

if (StepSoundTimer > 0) and (StepSoundChannel < 0) then

    StepSoundChannel:= LoopSound(sndSteps)

else if (StepSoundTimer = 0) and (StepSoundChannel > -1) then

    begin

    StopSound(StepSoundChannel);

    StepSoundChannel:= -1

    end;

if StepSoundTimer > 0 then

    dec(StepSoundTimer, 1);

t:= GearsList;

while t <> nil do

    begin

    Gear:= t;

    t:= Gear^.NextGear;

    if Gear^.Active then

        begin

        if Gear^.RenderTimer and (Gear^.Timer > 500) and ((Gear^.Timer mod 1000) = 0) then

            begin

            FreeTexture(Gear^.Tex);

            Gear^.Tex:= RenderStringTex(inttostr(Gear^.Timer div 1000), cWhiteColor, fntSmall);

            end;

        Gear^.doStep(Gear);

        // might be useful later

        //ScriptCall('onGearStep', Gear^.uid);

        end

    end;

if AllInactive then

case step of

    stDelay: begin

        if delay = 0 then

            delay:= cInactDelay

        else

            dec(delay);

        if delay = 0 then

            inc(step)

        end;

    stChDmg: if CheckNoDamage then inc(step) else step:= stDelay;

    stSweep: if SweepDirty then

                begin

                SetAllToActive;

                step:= stChDmg

                end else inc(step);

    stTurnReact: begin

        if (not bBetweenTurns) and (not isInMultiShoot) then

            begin

            uStats.TurnReaction;

            inc(step)

        end else

            inc(step, 2);

        end;

    stAfterDelay: begin

        if delay = 0 then

            delay:= cInactDelay

        else

            dec(delay);

        if delay = 0 then

        inc(step)

        end;

    stChWin: begin

            CheckForWin;

            inc(step)

            end;

    stWater: if (not bBetweenTurns) and (not isInMultiShoot) then

                begin

                if TotalRounds = cSuddenDTurns + 1 then bWaterRising:= true;

                if bWaterRising and (cWaterRise > 0) then

                    AddGear(0, 0, gtWaterUp, 0, _0, _0, 0)^.Tag:= cWaterRise;

                inc(step)

                end else inc(step);

    stChWin2: begin

            CheckForWin;

            inc(step)

            end;

    stHealth: begin

            if (cWaterRise <> 0) or (cHealthDecrease <> 0) then

                begin

                if (TotalRounds = cSuddenDTurns) and (not SuddenDeath) and (not isInMultiShoot) then

                    begin

                    SuddenDeath:= true;

                    if cHealthDecrease <> 0 then

                        begin

                        SuddenDeathDmg:= true;

                        // flash

                        ScreenFade:= sfFromWhite;

                        ScreenFadeValue:= sfMax;

                        ScreenFadeSpeed:= 1;

                        ChangeToSDClouds;

                        ChangeToSDFlakes;

                        glClearColor(SDSkyColor.r * (SDTint/255) / 255, SDSkyColor.g * (SDTint/255) / 255, SDSkyColor.b * (SDTint/255) / 255, 0.99);

                        end;

                    AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);

                    playSound(sndSuddenDeath);

                    MusicFN:= SDMusic;

                    ChangeMusic

                    end

                else if (TotalRounds < cSuddenDTurns) and (not isInMultiShoot) then

                    begin

                    i:= cSuddenDTurns - TotalRounds;

                    s:= inttostr(i);

                    if i = 1 then

                        AddCaption(trmsg[sidRoundSD], cWhiteColor, capgrpGameState)

                    else if (i = 2) or ((i > 0) and ((i mod 50 = 0) or ((i <= 25) and (i mod 5 = 0)))) then

                        AddCaption(Format(trmsg[sidRoundsSD], s), cWhiteColor, capgrpGameState);

                    end;

                end;

            if bBetweenTurns

                or isInMultiShoot

                or (TotalRounds = -1) then inc(step)

            else begin

                bBetweenTurns:= true;

                HealthMachine;

                step:= stChDmg

                end

            end;

    stSpawn: begin

            if not isInMultiShoot then SpawnBoxOfSmth;

            inc(step)

            end;

    stNTurn: begin

            if isInMultiShoot then

                isInMultiShoot:= false

            else begin

                // delayed till after 0.9.12

                // reset to default zoom

                //ZoomValue:= ZoomDefault;

                with CurrentHedgehog^ do

                    if (Gear <> nil)

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

                        and (MultiShootAttacks > 0) then OnUsedAmmo(CurrentHedgehog^);

                EndTurnCleanup;

                FreeActionsList; // could send -left, -right and similar commands, so should be called before /nextturn

                ParseCommand('/nextturn', true);

                SwitchHedgehog;

                AfterSwitchHedgehog;

                bBetweenTurns:= false

                end;

            step:= Low(step)

            end;

    end

else if ((GameFlags and gfInfAttack) <> 0) then

    begin

    if delay2 = 0 then

        delay2:= cInactDelay * 50

    else

        begin

        dec(delay2);

        if ((delay2 mod cInactDelay) = 0) and (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) and (not CurrentHedgehog^.Unplaced) then

            begin

            if (CurrentHedgehog^.Gear^.State and gstAttacked <> 0) and (Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then

                begin

                CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State or gstHHChooseTarget;

                isCursorVisible := true

                end;

            CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State and (not gstAttacked);

            end;

        if delay2 = 0 then

            begin

            if (CurrentHedgehog^.Gear <> nil) and (CurrentHedgehog^.Gear^.State and gstAttacked = 0) and (CurAmmoGear = nil) then SweepDirty;

            CheckNoDamage;

            AliveCount:= 0; // shorter version of check for win to allow typical step activity to proceed

            for i:= 0 to Pred(ClansCount) do

                if ClansArray[i]^.ClanHealth > 0 then inc(AliveCount);

            if (AliveCount <= 1) and ((GameFlags and gfOneClanMode) = 0) then

                begin

                step:= stChDmg;

                if TagTurnTimeLeft = 0 then TagTurnTimeLeft:= TurnTimeLeft;

                TurnTimeLeft:= 0

                end

            end

        end

    end;

if TurnTimeLeft > 0 then

        if CurrentHedgehog^.Gear <> nil then

            if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0)

                and (not isInMultiShoot) then

                begin

                if (TurnTimeLeft = 5000)

                    and (cHedgehogTurnTime >= 10000)

                    and (not PlacingHogs)

                    and (CurrentHedgehog^.Gear <> nil)

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

                        AddVoice(sndHurry, CurrentTeam^.voicepack);

                if ReadyTimeLeft > 0 then

                    begin

                    if ReadyTimeLeft = 2000 then

                        AddVoice(sndComeonthen, CurrentTeam^.voicepack);

                    dec(ReadyTimeLeft)

                    end

                else

                    dec(TurnTimeLeft)

                end;

if skipFlag then

    begin

    if TagTurnTimeLeft = 0 then TagTurnTimeLeft:= TurnTimeLeft;

    TurnTimeLeft:= 0;

    skipFlag:= false;

    inc(CurrentHedgehog^.Team^.stats.TurnSkips);

    end;

if ((GameTicks and $FFFF) = $FFFF) then

    begin

    if (not CurrentTeam^.ExtDriven) then

        begin

        SendIPC('#');

        AddFileLog('hiTicks increment message sent')

        end;

    if (not CurrentTeam^.ExtDriven) or CurrentTeam^.hasGone then

        inc(hiTicks) // we do not recieve a message for this

    end;