--- a/hedgewars/CCHandlers.inc	Fri Sep 21 19:18:06 2007 +0000
+++ b/hedgewars/CCHandlers.inc	Fri Sep 21 21:51:48 2007 +0000
@@ -118,6 +118,18 @@
      end
 end;
 
+procedure chSetHHCoords(var x: shortstring);
+var y: shortstring;
+    t: Longint;
+begin
+if (not isDeveloperMode) or (CurrentHedgehog = nil) or (CurrentHedgehog^.Gear = nil) then exit;
+SplitBySpace(x, y);
+val(x, t);
+CurrentHedgehog^.Gear^.X:= int2hwFloat(t);
+val(y, t);
+CurrentHedgehog^.Gear^.Y:= int2hwFloat(t)
+end;
+
 procedure chAddAmmoStore(var descr: shortstring);
 begin
 AddAmmoStore(descr)