259 |
259 |
260 procedure HHHurt(Hedgehog: PHedgehog; Source: TDamageSource); |
260 procedure HHHurt(Hedgehog: PHedgehog; Source: TDamageSource); |
261 begin |
261 begin |
262 if (Source = dsFall) or (Source = dsExplosion) then |
262 if (Source = dsFall) or (Source = dsExplosion) then |
263 case random(3) of |
263 case random(3) of |
264 0: PlaySound(sndOoff1, Hedgehog^.Team^.voicepack); |
264 0: PlaySoundV(sndOoff1, Hedgehog^.Team^.voicepack); |
265 1: PlaySound(sndOoff2, Hedgehog^.Team^.voicepack); |
265 1: PlaySoundV(sndOoff2, Hedgehog^.Team^.voicepack); |
266 2: PlaySound(sndOoff3, Hedgehog^.Team^.voicepack); |
266 2: PlaySoundV(sndOoff3, Hedgehog^.Team^.voicepack); |
267 end |
267 end |
268 else if (Source = dsPoison) then |
268 else if (Source = dsPoison) then |
269 case random(2) of |
269 case random(2) of |
270 0: PlaySound(sndPoisonCough, Hedgehog^.Team^.voicepack); |
270 0: PlaySoundV(sndPoisonCough, Hedgehog^.Team^.voicepack); |
271 1: PlaySound(sndPoisonMoan, Hedgehog^.Team^.voicepack); |
271 1: PlaySoundV(sndPoisonMoan, Hedgehog^.Team^.voicepack); |
272 end |
272 end |
273 else |
273 else |
274 case random(4) of |
274 case random(4) of |
275 0: PlaySound(sndOw1, Hedgehog^.Team^.voicepack); |
275 0: PlaySoundV(sndOw1, Hedgehog^.Team^.voicepack); |
276 1: PlaySound(sndOw2, Hedgehog^.Team^.voicepack); |
276 1: PlaySoundV(sndOw2, Hedgehog^.Team^.voicepack); |
277 2: PlaySound(sndOw3, Hedgehog^.Team^.voicepack); |
277 2: PlaySoundV(sndOw3, Hedgehog^.Team^.voicepack); |
278 3: PlaySound(sndOw4, Hedgehog^.Team^.voicepack); |
278 3: PlaySoundV(sndOw4, Hedgehog^.Team^.voicepack); |
279 end |
279 end |
280 end; |
280 end; |
281 |
281 |
282 procedure CheckHHDamage(Gear: PGear); |
282 procedure CheckHHDamage(Gear: PGear); |
283 var |
283 var |