--- a/hedgewars/HHHandlers.inc	Sat May 09 11:57:47 2009 +0000
+++ b/hedgewars/HHHandlers.inc	Mon May 11 18:56:55 2009 +0000
@@ -100,7 +100,7 @@
 
 procedure Attack(Gear: PGear);
 var xx, yy: hwFloat;
-    tmpGear: PGear;
+    tmpGear: PVisualGear;
 begin
 with Gear^,
      PHedgehog(Gear^.Hedgehog)^ do
@@ -196,10 +196,10 @@
 
         if not (SpeechText = '') then
             begin
-            tmpGear:= AddGear(0, 0, gtSpeechBubble, 0, _0, _0, 0);
+            tmpGear:= AddVisualGear(0, 0, vgtSpeechBubble);
             tmpGear^.Text:= SpeechText;
             tmpGear^.Hedgehog:= CurrentHedgehog;
-            tmpGear^.State:= SpeechType;
+            tmpGear^.FrameTicks:= SpeechType;
             SpeechText:= ''
             end;