equal
deleted
inserted
replaced
59 procedure TurnReaction; |
59 procedure TurnReaction; |
60 var Gear: PGear; |
60 var Gear: PGear; |
61 begin |
61 begin |
62 inc(CurrentHedgehog^.stats.FinishedTurns); |
62 inc(CurrentHedgehog^.stats.FinishedTurns); |
63 |
63 |
64 if (DamageGiven = DamageTotal) and (DamageTotal > 0) then PlaySound(sndFirstBlood, false) |
64 if (DamageGiven = DamageTotal) and (DamageTotal > 0) then |
65 else if CurrentHedgehog^.stats.StepDamageRecv > 0 then PlaySound(sndStupid, false) |
65 PlaySound(sndFirstBlood, false) |
|
66 |
|
67 else if CurrentHedgehog^.stats.StepDamageRecv > 0 then |
|
68 PlaySound(sndStupid, false) |
|
69 |
66 else if DamageClan <> 0 then |
70 else if DamageClan <> 0 then |
|
71 if DamageTotal > DamageClan then |
|
72 PlaySound(sndNutter, false) |
|
73 else |
|
74 PlaySound(sndSameTeam, false) |
|
75 |
67 else if DamageGiven <> 0 then |
76 else if DamageGiven <> 0 then |
|
77 |
68 else if AmmoDamagingUsed then PlaySound(sndMissed, false); |
78 else if AmmoDamagingUsed then PlaySound(sndMissed, false); |
69 |
79 |
70 Gear:= GearsList; |
80 Gear:= GearsList; |
71 while Gear <> nil do |
81 while Gear <> nil do |
72 begin |
82 begin |