--- a/hedgewars/CCHandlers.inc	Sat May 09 11:57:47 2009 +0000
+++ b/hedgewars/CCHandlers.inc	Mon May 11 18:56:55 2009 +0000
@@ -391,7 +391,7 @@
 end;
 
 procedure chHogSay(var s: shortstring);
-var Gear: PGear;
+var Gear: PVisualGear;
     text: shortstring;
 begin
 text:= copy(s, 2, Length(s)-1);
@@ -402,21 +402,20 @@
     end;
 
 if not CurrentTeam^.ExtDriven then SendIPC('h' + s);
+
 if byte(s[1]) < 4 then
     begin
-    Gear:= AddGear(0, 0, gtSpeechBubble, 0, _0, _0, 0);
+    Gear:= AddVisualGear(0, 0, vgtSpeechBubble);
+    Gear^.Hedgehog:= CurrentHedgehog;
     Gear^.Text:= text;
-    Gear^.Hedgehog:= CurrentHedgehog;
-    Gear^.State:= byte(s[1]);
+    Gear^.FrameTicks:= byte(s[1])
     end
 else
     begin
-    // If I knew how to add a gear without it becoming immediately active, I'd
-    // just create/attach the hedgehog SpeechGear here, then activate it where
-    // SpeechType/SpeechText are activated
     SpeechType:= byte(s[1])-3;
     SpeechText:= text
     end;
+
 end;
 
 procedure chNewGrave;