15 * along with this program; if not, write to the Free Software |
15 * along with this program; if not, write to the Free Software |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
17 *) |
17 *) |
18 |
18 |
19 //////////////////////////////////////////////////////////////////////////////// |
19 //////////////////////////////////////////////////////////////////////////////// |
|
20 |
|
21 procedure HHHurt(Hedgehog: PHedgehog; Source: TDamageSource); |
|
22 begin |
|
23 if (Source = dsFall) or (Source = dsExplosion) then |
|
24 case random(3) of |
|
25 0: PlaySound(sndOoff1, Hedgehog^.Team^.voicepack); |
|
26 1: PlaySound(sndOoff2, Hedgehog^.Team^.voicepack); |
|
27 2: PlaySound(sndOoff3, Hedgehog^.Team^.voicepack); |
|
28 end |
|
29 else if (Source = dsPoison) then |
|
30 case random(2) of |
|
31 0: PlaySound(sndPoisonCough, Hedgehog^.Team^.voicepack); |
|
32 1: PlaySound(sndPoisonMoan, Hedgehog^.Team^.voicepack); |
|
33 end |
|
34 else |
|
35 case random(4) of |
|
36 0: PlaySound(sndOw1, Hedgehog^.Team^.voicepack); |
|
37 1: PlaySound(sndOw2, Hedgehog^.Team^.voicepack); |
|
38 2: PlaySound(sndOw3, Hedgehog^.Team^.voicepack); |
|
39 3: PlaySound(sndOw4, Hedgehog^.Team^.voicepack); |
|
40 end |
|
41 end; |
|
42 |
20 procedure ChangeAmmo(Gear: PGear); |
43 procedure ChangeAmmo(Gear: PGear); |
21 var slot, i: Longword; |
44 var slot, i: Longword; |
22 begin |
45 begin |
23 slot:= Gear^.MsgParam; |
46 slot:= Gear^.MsgParam; |
24 |
47 |