can't use parsecommand since it does sendipc
authornemo
Tue, 10 Dec 2013 00:20:53 -0500
changeset 9777 984b0f2cdf67
parent 9776 67130612aabd
child 9778 6166aa84a396
can't use parsecommand since it does sendipc
hedgewars/uGears.pas
--- 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