(*

 * Hedgewars, a worms-like game

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

 *)

unit uStats;

interface

uses uGears, uConsts;

type TStatistics = record

                   DamageRecv,

                   DamageGiven: Longword;

                   StepDamageRecv,

                   MaxStepDamageRecv,

                   FinishedTurns: Longword;

                   end;

procedure AmmoUsed(am: TAmmoType);

procedure HedgehogDamaged(Gear: PGear);

procedure TurnReaction;

procedure SendStats;

implementation

uses uTeams, uSound, uMisc;

var DamageGiven : Longword = 0;

    DamageClan  : Longword = 0;

    DamageTotal : Longword = 0;

    KillsClan   : LongWord = 0;

    Kills       : LongWord = 0;

    KillsTotal  : LongWord = 0;

    AmmoUsedCount : Longword = 0;

    AmmoDamagingUsed : boolean = false;

procedure HedgehogDamaged(Gear: PGear);

begin

if Gear <> CurrentHedgehog^.Gear then

	inc(CurrentHedgehog^.stats.StepDamageGiven, Gear^.Damage);

if CurrentHedgehog^.Team^.Clan = PHedgehog(Gear^.Hedgehog)^.Team^.Clan then inc(DamageClan, Gear^.Damage);

if Gear^.Health <= Gear^.Damage then

	begin

	inc(Kills);

	inc(KillsTotal);

	if CurrentHedgehog^.Team^.Clan = PHedgehog(Gear^.Hedgehog)^.Team^.Clan then inc(KillsClan);

	end;

inc(PHedgehog(Gear^.Hedgehog)^.stats.StepDamageRecv, Gear^.Damage);

inc(DamageGiven, Gear^.Damage);

inc(DamageTotal, Gear^.Damage)

end;

procedure TurnReaction;

var Gear: PGear;

begin

inc(CurrentHedgehog^.stats.FinishedTurns);

if (DamageGiven = DamageTotal) and (DamageTotal > 0) then

	PlaySound(sndFirstBlood, false)

else if CurrentHedgehog^.stats.StepDamageRecv > 0 then

	PlaySound(sndStupid, false)

else if DamageClan <> 0 then

	if DamageTotal > DamageClan then

		PlaySound(sndNutter, false)

	else

		if random(2) = 0 then

			PlaySound(sndSameTeam, false)

		else

			PlaySound(sndTraitor, false)

else if DamageGiven <> 0 then

	if Kills > 0 then

		PlaySound(sndEnemyDown, false)

	else

		PlaySound(sndRegret, false)

else if AmmoDamagingUsed then

	PlaySound(sndMissed, false);

Kills:= 0;

KillsClan:= 0;

DamageGiven:= 0;

DamageClan:= 0;

AmmoUsedCount:= 0;

AmmoDamagingUsed:= false

end;

procedure AmmoUsed(am: TAmmoType);

begin

inc(AmmoUsedCount);

AmmoDamagingUsed:= AmmoDamagingUsed or Ammoz[am].isDamaging

end;

procedure SendStats;

var i, t: LongInt;

begin

msd:= 0; msdhh:= nil;

for t:= 0 to Pred(TeamsCount) do

if KilledHHs > 0 then SendStat(siKilledHHs, inttostr(KilledHHs));

end;

end.