(*

 * Hedgewars, a free turn based strategy game

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

interface

uses SDLh, uConsts, uFloat;

type

var AllInactive: boolean;

    PrvInactive: boolean;

    CurAmmoGear: PGear;

    GearsList: PGear;

    KilledHHs: Longword;

    SuddenDeathDmg: Boolean;

    SpeechType: Longword;

    SpeechText: shortstring;

    TrainingTargetGear: PGear;

    skipFlag: boolean;

    PlacingHogs: boolean; // a convenience flag to indicate placement of hogs is still in progress

    StepSoundTimer: LongInt;

    StepSoundChannel: LongInt;

procedure init_uGears;

procedure free_uGears;

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

procedure ProcessGears;

procedure ResetUtilities;

procedure ApplyDamage(Gear: PGear; Damage: Longword);

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

implementation

uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uLandGraphics,

{$IFDEF GLES11}

{$ELSE}

{$ENDIF}

const MAXROPEPOINTS = 384;

var RopePoints: record

                Count: Longword;

                HookAngle: GLfloat;

                ar: array[0..MAXROPEPOINTS] of record

                                  X, Y: hwFloat;

                                  dLen: hwFloat;

                                  b: boolean;

                                  end;

                rounded: array[0..MAXROPEPOINTS + 2] of TVertex2f;

                end;

procedure DeleteGear(Gear: PGear); forward;

procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord); forward;

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

//procedure AmmoFlameWork(Ammo: PGear); 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(Gear: PGear); forward;

procedure ShotgunShot(Gear: PGear); forward;

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

procedure HHSetWeapon(Gear: PGear); forward;

procedure doStepCase(Gear: PGear); forward;

{$INCLUDE "GSHandlers.inc"}

{$INCLUDE "HHHandlers.inc"}

const doStepHandlers: array[TGearType] of TGearStepProcedure = (

procedure InsertGearToList(Gear: PGear);

var tmp, ptmp: PGear;

begin

if GearsList = nil then

end;

procedure RemoveGearFromList(Gear: PGear);

begin

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

if Gear^.PrevGear <> nil then

else

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

{$IFDEF DEBUGFILE}

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

{$ENDIF}

New(gear);

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

gear^.X:= int2hwFloat(X);

gear^.Y:= int2hwFloat(Y);

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;

if CurrentTeam <> nil then

case Kind of

   gtAmmo_Bomb,

 gtClusterBomb: begin

                gear^.Radius:= 4;

                gear^.Elasticity:= _0_6;

                gear^.Friction:= _0_96;

                gear^.RenderTimer:= true;

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

                end;

  gtWatermelon: begin

                gear^.Radius:= 4;

                gear^.Elasticity:= _0_8;

                gear^.Friction:= _0_995;

                gear^.RenderTimer:= true;

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

                end;

    gtHedgehog: begin

                gear^.Radius:= cHHRadius;

                gear^.Elasticity:= _0_35;

                gear^.Friction:= _0_999;

                gear^.Angle:= cMaxAngle div 2;

                gear^.Z:= cHHZ;

                end;

gtAmmo_Grenade: begin // bazooka

                gear^.Radius:= 4;

                end;

   gtHealthTag: begin

                gear^.Timer:= 1500;

                gear^.Z:= 2002;

                end;

       gtGrave: begin

                gear^.Radius:= 10;

                gear^.Elasticity:= _0_6;

                end;

         gtUFO: begin

                gear^.Radius:= 5;

                gear^.Timer:= 500;

                gear^.RenderTimer:= true;

                gear^.Elasticity:= _0_9

                end;

 gtShotgunShot: begin

                gear^.Timer:= 900;

                gear^.Radius:= 2

                end;

  gtPickHammer: begin

                gear^.Radius:= 10;

                gear^.Timer:= 4000

                end;

  gtSmokeTrace,

   gtEvilTrace: begin

                gear^.X:= gear^.X - _16;

                gear^.Y:= gear^.Y - _16;

                gear^.State:= 8;

                gear^.Z:= cSmokeZ

                end;

        gtRope: begin

                gear^.Radius:= 3;

                gear^.Friction:= _450;

                RopePoints.Count:= 0;

                end;

   gtExplosion: begin

                gear^.X:= gear^.X;

                gear^.Y:= gear^.Y;

                end;

        gtMine: begin

                gear^.Health:= 10;

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

                gear^.Radius:= 2;

                gear^.Elasticity:= _0_55;

                gear^.Friction:= _0_995;

                if cMinesTime < 0 then

                    gear^.Timer:= getrandom(4)*1000

                else

                    gear^.Timer:= cMinesTime*1;

                end;

        gtCase: begin

                gear^.Radius:= 16;

                gear^.Elasticity:= _0_3

                end;

  gtExplosives: begin

                gear^.Radius:= 16;

                gear^.Elasticity:= _0_4;

                gear^.Friction:= _0_995;

                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^.Timer:= 5000;

                end;

     gtCluster: begin

                gear^.Radius:= 2;

                gear^.RenderTimer:= true

                end;

      gtShover: gear^.Radius:= 20;

       gtFlame: begin

                gear^.Tag:= GetRandom(32);

                gear^.Radius:= 1;

                gear^.Health:= 5;

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

                end;

   gtFirePunch: begin

                gear^.Radius:= 15;

                gear^.Tag:= Y

                end;

     gtAirBomb: begin

                gear^.Radius:= 5;

                end;

   gtBlowTorch: begin

                gear^.Radius:= cHHRadius + cBlowTorchC;

                gear^.Timer:= 7500

                end;

    gtSwitcher: begin

                gear^.Z:= cCurrHHZ

                end;

      gtTarget: begin

                gear^.Radius:= 10;

                gear^.Elasticity:= _0_3;

                end;

      gtMortar: begin

                gear^.Radius:= 4;

                gear^.Elasticity:= _0_2;

                gear^.Friction:= _0_08

                end;

        gtWhip: 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;

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

                end;

 gtHellishBomb: begin

                gear^.Radius:= 4;

                gear^.Elasticity:= _0_5;

                gear^.Friction:= _0_96;

                gear^.RenderTimer:= true;

                gear^.Timer:= 5000

                end;

       gtDrill: begin

                gear^.Timer:= 5000;

                gear^.Radius:= 4

                end;

        gtBall: begin

                gear^.Radius:= 5;

                gear^.Tag:= random(8);

                gear^.Timer:= 5000;

                gear^.Elasticity:= _0_7;

                gear^.Friction:= _0_995;

                end;

     gtBallgun: begin

                gear^.Timer:= 5001;

                end;

     gtRCPlane: begin

                gear^.Timer:= 15000;

                gear^.Health:= 3;

                gear^.Radius:= 8

                end;

     gtJetpack: begin

                gear^.Health:= 2000;

                end;

     gtMolotov: begin 

                gear^.Radius:= 8;

                end;

     end;

InsertGearToList(gear);

AddGear:= gear;

ScriptCall('onGearAdd', gear^.uid);

end;

procedure DeleteGear(Gear: PGear);

var team: PTeam;

    k: boolean;

begin

ScriptCall('onGearDelete', gear^.uid);

DeleteCI(Gear);

if Gear^.Tex <> nil then

if Gear^.Kind = gtHedgehog then

            if cWaterOpacity < $FF then

        if PHedgehog(Gear^.Hedgehog)^.King then