Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uStats.pas
changeset 4837 2ea0a152c319
parent 4824 efbc8f80acac
child 4976 088d40d8aba2
equal deleted inserted replaced
4836:680103541f15 4837:2ea0a152c319 
    27 
    27 
    28 procedure initModule;
 
    28 procedure initModule;
 
    29 procedure freeModule;
 
    29 procedure freeModule;
 
    30 
    30 
    31 procedure AmmoUsed(am: TAmmoType);
 
    31 procedure AmmoUsed(am: TAmmoType);
 
    32 procedure HedgehogDamaged(Gear, Attacker: PGear);
 
    32 procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog);
 
    33 procedure Skipped;
 
    33 procedure Skipped;
 
    34 procedure TurnReaction;
 
    34 procedure TurnReaction;
 
    35 procedure SendStats;
 
    35 procedure SendStats;
 
    36 
    36 
    37 implementation
 
    37 implementation
 
    48     SkippedTurns: LongWord = 0;
 
    48     SkippedTurns: LongWord = 0;
 
    49     isTurnSkipped: boolean = false;
 
    49     isTurnSkipped: boolean = false;
 
    50     vpHurtSameClan: PVoicepack = nil;
 
    50     vpHurtSameClan: PVoicepack = nil;
 
    51     vpHurtEnemy: PVoicepack = nil;
 
    51     vpHurtEnemy: PVoicepack = nil;
 
    52 
    52 
    53 procedure HedgehogDamaged(Gear, Attacker: PGear);
 
    53 procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog);
 
    54 begin
 
    54 begin
 
    55 if Attacker^.Hedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then
 
    55 if Attacker^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then
 
    56     vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack
 
    56     vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack
 
    57 else
 
    57 else
 
    58     vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack;
 
    58     vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack;
 
    59 
    59 
    60 //////////////////////////
 
    60 //////////////////////////
 
    61 
    61 
    62 if Gear <> CurrentHedgehog^.Gear then
 
    62 if Gear <> Attacker^.Gear then
 
    63     inc(CurrentHedgehog^.stats.StepDamageGiven, Gear^.Damage);
 
    63     inc(Attacker^.stats.StepDamageGiven, Gear^.Damage);
 
    64 
    64 
    65 if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(DamageClan, Gear^.Damage);
 
    65 if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(DamageClan, Gear^.Damage);
 
    66 
    66 
    67 if Gear^.Health <= Gear^.Damage then
 
    67 if Gear^.Health <= Gear^.Damage then
 
    68     begin
 
    68     begin
hedgewars