hedgewars/uGears.pas
changeset 9777 984b0f2cdf67
parent 9768 08799c901a42
child 9779 b67979a7cc52
--- a/hedgewars/uGears.pas	Tue Dec 10 00:05:27 2013 -0500
+++ b/hedgewars/uGears.pas	Tue Dec 10 00:20:53 2013 -0500
@@ -33,7 +33,7 @@
  *       effects are called "Visual Gears" and defined in the respective unit!
  *)
 interface
-uses uConsts, uFloat, uTypes;
+uses uConsts, uFloat, uTypes, uChat;
 
 procedure initModule;
 procedure freeModule;
@@ -885,7 +885,8 @@
                 Gear^.Text:= text;
                 Gear^.FrameTicks:= x
                 end;
-            ParseCommand('/say [' + hh^.Name + '] '+text, true)
+            //ParseCommand('/say [' + hh^.Name + '] '+text, true)
+            //AddChatString(#1+'[' + HH^.Name + '] '+text);
             end
         end
     else if (x >= 4) then