--- a/hedgewars/uGears.pas	Sat Mar 27 17:45:51 2010 +0000
+++ b/hedgewars/uGears.pas	Sat Mar 27 20:51:53 2010 +0000
@@ -636,6 +636,12 @@
     begin
     Gear:= t;
     t:= Gear^.NextGear;
+    if (((GameTicks + Gear^.UID * 100) mod 1000) = 0) and (Gear^.Kind = gtHedgehog) and (Gear^.Hedgehog <> nil) and (PHedgehog(Gear^.Hedgehog)^.Effects[hePoisoned]) and (getRandom(100) = 0) then
+        if getRandom(2) = 0 then
+            PlaySound(sndPoisonCough, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack)
+        else
+            PlaySound(sndPoisonMoan, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack);
+
     if Gear^.Active then
         begin
         if Gear^.RenderTimer and (Gear^.Timer > 500) and ((Gear^.Timer mod 1000) = 0) then