(*

 * 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  AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear;

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 ResurrectHedgehog(gear: PGear);

procedure ProcessGears;

procedure EndTurnCleanup;

procedure ApplyDamage(Gear: PGear; AttackerHog: PHedgehog; Damage: Longword; Source: TDamageSource);

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);

function  ModifyDamage(dmg: Longword; Gear: PGear): Longword;

procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt; skipProximity: boolean = false);

procedure DeleteGear(Gear: PGear); 

implementation

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

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

     uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, uDebug, uLandTexture;

procedure doMakeExplosion(X, Y, Radius: LongInt; AttackingHog: PHedgehog; Mask: Longword; const Tint: LongWord = $FFFFFFFF); forward;

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

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

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

function  CheckGearNear(Gear: PGear; Kind: TGearType; rX, rY: LongInt): PGear; forward;

procedure SpawnBoxOfSmth; forward;

procedure AfterAttack; forward;

procedure HedgehogStep(Gear: PGear); forward;

procedure doStepHedgehogMoving(Gear: PGear); forward;

procedure HedgehogChAngle(HHGear: PGear); 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"}

{$INCLUDE "HHHandlers.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);

procedure InsertGearToList(Gear: PGear);

var tmp, ptmp: PGear;

begin

    tmp:= GearsList;

    ptmp:= GearsList;

    while (tmp <> nil) and (tmp^.Z <= Gear^.Z) do

        begin

        ptmp:= tmp;

        tmp:= tmp^.NextGear

        end;

    if ptmp <> tmp then

        begin

        Gear^.NextGear:= ptmp^.NextGear;

        Gear^.PrevGear:= ptmp;

        if ptmp^.NextGear <> nil then ptmp^.NextGear^.PrevGear:= Gear;

        ptmp^.NextGear:= Gear

        end

    else

        begin

        Gear^.NextGear:= GearsList;

        if Gear^.NextGear <> nil then Gear^.NextGear^.PrevGear:= Gear;

        GearsList:= Gear;

        end;

end;

procedure RemoveGearFromList(Gear: PGear);

begin

if Gear^.NextGear <> nil then Gear^.NextGear^.PrevGear:= Gear^.PrevGear;

if Gear^.PrevGear <> nil then

    Gear^.PrevGear^.NextGear:= Gear^.NextGear

else

    GearsList:= Gear^.NextGear

end;

procedure spawnHealthTagForHH(HHGear: PGear; dmg: Longword);

var tag: PVisualGear;

begin

tag:= AddVisualGear(hwRound(HHGear^.X), hwRound(HHGear^.Y), vgtHealthTag, dmg);

if (tag <> nil) then

    tag^.Hedgehog:= HHGear^.Hedgehog; // the tag needs the tag to determine the text color

AllInactive:= false;

HHGear^.Active:= true;

end;

function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear;

const Counter: Longword = 0;

var gear: PGear;

begin

inc(Counter);

AddFileLog('AddGear: #' + inttostr(Counter) + ' (' + inttostr(x) + ',' + inttostr(y) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind));

New(gear);

FillChar(gear^, sizeof(TGear), 0);

gear^.X:= int2hwFloat(X);

gear^.Y:= int2hwFloat(Y);

gear^.Target.X:= NoPointX;

gear^.Kind := Kind;

gear^.State:= State;

gear^.Active:= true;

gear^.dX:= dX;

gear^.dY:= dY;

gear^.doStep:= doStepHandlers[Kind];

gear^.CollisionIndex:= -1;

gear^.Timer:= Timer;

gear^.Z:= cUsualZ;

gear^.FlightTime:= 0;

gear^.uid:= Counter;

gear^.SoundChannel:= -1;

gear^.ImpactSound:= sndNone;

gear^.nImpactSounds:= 0;

// Define ammo association, if any.

gear^.AmmoType:= GearKindAmmoTypeMap[Kind];

if CurrentHedgehog <> nil then

    begin

    gear^.Hedgehog:= CurrentHedgehog;

    gear^.IntersectGear:= CurrentHedgehog^.Gear

    end;

case Kind of

     gtGrenade,

     gtClusterBomb,

     gtGasBomb: begin

                gear^.ImpactSound:= sndGrenadeImpact;

                gear^.nImpactSounds:= 1;

                gear^.AdvBounce:= 1;

                gear^.Radius:= 5;

                gear^.Elasticity:= _0_8;

                gear^.Friction:= _0_8;

                gear^.Density:= _1_5;

                gear^.RenderTimer:= true;

                if gear^.Timer = 0 then gear^.Timer:= 3000

                end;

  gtWatermelon: begin

                gear^.ImpactSound:= sndMelonImpact;

                gear^.nImpactSounds:= 1;

                gear^.AdvBounce:= 1;

                gear^.Radius:= 6;

                gear^.Elasticity:= _0_8;

                gear^.Friction:= _0_995;

                gear^.Density:= _2;

                gear^.RenderTimer:= true;

                if gear^.Timer = 0 then gear^.Timer:= 3000

                end;

  gtMelonPiece: begin

                gear^.Density:= _2;

                end;

    gtHedgehog: begin

                gear^.AdvBounce:= 1;

                gear^.Radius:= cHHRadius;

                gear^.Elasticity:= _0_35;

                gear^.Friction:= _0_999;

                gear^.Angle:= cMaxAngle div 2;

                gear^.Density:= _3;

                gear^.Z:= cHHZ;

                if (GameFlags and gfAISurvival) <> 0 then

                    if gear^.Hedgehog^.BotLevel > 0 then

                        gear^.Hedgehog^.Effects[heResurrectable] := true;

                end;

       gtShell: begin

                gear^.Radius:= 4;

                gear^.Density:= _1;

                end;

       gtSnowball: begin

                gear^.ImpactSound:= sndMudballImpact;

                gear^.nImpactSounds:= 1;

                gear^.Radius:= 4;

                gear^.Elasticity:= _1;

                gear^.Friction:= _1;

                gear^.Density:= _0_5;

                end;

     gtFlake: begin

                with Gear^ do

                    begin

                    Pos:= 0;

                    Radius:= 1;

                    DirAngle:= random * 360;

                    dx.isNegative:= GetRandom(2) = 0;

                    dx.QWordValue:= GetRandom(100000000);

                    dy.isNegative:= false;

                    dy.QWordValue:= GetRandom(70000000);

                    State:= State or gstInvisible;

                    if GetRandom(2) = 0 then dx := -dx;

                    Health:= random(vobFrameTicks);

                    Timer:= random(vobFramesCount);

                    Angle:= (random(2) * 2 - 1) * (1 + random(10000)) * vobVelocity

                    end

                end;

       gtGrave: begin

                gear^.ImpactSound:= sndGraveImpact;

                gear^.nImpactSounds:= 1;

                gear^.Radius:= 10;

                gear^.Elasticity:= _0_6;

                end;

         gtBee: begin

                gear^.Radius:= 5;

                gear^.Timer:= 500;

                gear^.RenderTimer:= true;

                gear^.Elasticity:= _0_9;

                gear^.Tag:= getRandom(32);

                end;

   gtSeduction: begin

                gear^.Radius:= 250;

                end;

 gtShotgunShot: begin

                gear^.Timer:= 900;

                gear^.Radius:= 2

                end;

  gtPickHammer: begin

                gear^.Radius:= 10;

                gear^.Timer:= 4000

                end;

   gtHammerHit: begin

                gear^.Radius:= 8;

                gear^.Timer:= 125

                end;

        gtRope: begin

                gear^.Radius:= 3;

                gear^.Friction:= _450 * _0_01 * cRopePercent;

                RopePoints.Count:= 0;

                end;

        gtMine: begin

                gear^.ImpactSound:= sndMineImpact;

                gear^.nImpactSounds:= 1;

                gear^.Health:= 10;

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

                gear^.Radius:= 2;

                gear^.Elasticity:= _0_55;

                gear^.Friction:= _0_995;

                gear^.Density:= _0_9;

                if cMinesTime < 0 then

                    gear^.Timer:= getrandom(51)*100

                else

                    gear^.Timer:= cMinesTime;

                end;

       gtSMine: begin

                gear^.Health:= 10;

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

                gear^.Radius:= 2;

                gear^.Elasticity:= _0_55;

                gear^.Friction:= _0_995;

                gear^.Density:= _0_9;

                gear^.Timer:= 500;

                end;

        gtCase: begin

                gear^.ImpactSound:= sndGraveImpact;

                gear^.nImpactSounds:= 1;

                gear^.Radius:= 16;

                gear^.Elasticity:= _0_3

                end;

  gtExplosives: begin

                gear^.ImpactSound:= sndGrenadeImpact;

                gear^.nImpactSounds:= 1;

                gear^.Radius:= 16;

                gear^.Elasticity:= _0_4;

                gear^.Friction:= _0_995;

                gear^.Density:= _6;

                gear^.Health:= cBarrelHealth

                end;

  gtDEagleShot: begin

                gear^.Radius:= 1;

                gear^.Health:= 50

                end;

  gtSniperRifleShot: begin

                gear^.Radius:= 1;

                gear^.Health:= 50

                end;

    gtDynamite: begin

                gear^.Radius:= 3;

                gear^.Elasticity:= _0_55;

                gear^.Friction:= _0_03;

                gear^.Density:= _2;

                gear^.Timer:= 5000;

                end;

     gtCluster: begin

                gear^.Radius:= 2;

                gear^.Density:= _1_5;

                gear^.RenderTimer:= true

                end;

      gtShover: gear^.Radius:= 20;

       gtFlame: begin

                gear^.Tag:= GetRandom(32);

                gear^.Radius:= 1;

                gear^.Health:= 5;

                gear^.Density:= _1;

                if (gear^.dY.QWordValue = 0) and (gear^.dX.QWordValue = 0) then

                    begin

                    gear^.dY:= (getrandom - _0_8) * _0_03;

                    gear^.dX:= (getrandom - _0_5) * _0_4

                    end

                end;

   gtFirePunch: begin

                gear^.Radius:= 15;

                gear^.Tag:= Y

                end;

     gtAirBomb: begin

                gear^.Radius:= 5;

                gear^.Density:= _2;

                end;

   gtBlowTorch: begin

                gear^.Radius:= cHHRadius + cBlowTorchC;

                gear^.Timer:= 7500

                end;

    gtSwitcher: begin

                gear^.Z:= cCurrHHZ

                end;

      gtTarget: begin

                gear^.ImpactSound:= sndGrenadeImpact;

                gear^.nImpactSounds:= 1;

                gear^.Radius:= 10;

                gear^.Elasticity:= _0_3;

                gear^.Timer:= 0

                end;

      gtMortar: begin

                gear^.Radius:= 4;

                gear^.Elasticity:= _0_2;

                gear^.Friction:= _0_08;

                gear^.Density:= _1;

                end;

        gtWhip: gear^.Radius:= 20;

      gtHammer: gear^.Radius:= 20;

    gtKamikaze: begin

                gear^.Health:= 2048;

                gear^.Radius:= 20

                end;

        gtCake: begin

                gear^.Health:= 2048;

                gear^.Radius:= 7;

                gear^.Z:= cOnHHZ;

                gear^.RenderTimer:= true;

                gear^.DirAngle:= -90 * hwSign(Gear^.dX);

                if not dX.isNegative then gear^.Angle:= 1 else gear^.Angle:= 3

                end;

 gtHellishBomb: begin

                gear^.ImpactSound:= sndHellishImpact1;

                gear^.nImpactSounds:= 4;

                gear^.AdvBounce:= 1;

                gear^.Radius:= 4;

                gear^.Elasticity:= _0_5;

                gear^.Friction:= _0_96;

                gear^.Density:= _1_5;

                gear^.RenderTimer:= true;

                gear^.Timer:= 5000

                end;

       gtDrill: begin

                if gear^.Timer = 0 then gear^.Timer:= 5000;

                // Tag for drill strike. if 1 then first impact occured already

                gear^.Tag := 0;

                gear^.Radius:= 4;

                gear^.Density:= _1;

                end;

        gtBall: begin

                gear^.ImpactSound:= sndGrenadeImpact;

                gear^.nImpactSounds:= 1;

                gear^.AdvBounce:= 1;

                gear^.Radius:= 5;

                gear^.Tag:= random(8);