--- a/hedgewars/PascalExports.pas	Fri Apr 16 14:37:28 2010 +0000
+++ b/hedgewars/PascalExports.pas	Fri Apr 16 15:25:15 2010 +0000
@@ -109,13 +109,28 @@
     pauseAction:= true;
 end;
 
-procedure HW_whereIsHog; cdecl; export;
-//var Xcoord, Ycoord: LongInt;
+procedure HW_cursorUp(coefficient:LongInt); cdecl; export;
+begin
+    coeff:= coefficient;
+    cursorUp:= true;
+end;
+
+procedure HW_cursorDown(coefficient:LongInt); cdecl; export;
 begin
-    //Xcoord:= Gear^.dX + WorldDx;
-    WriteLnToConsole('HW - hog is at x: ' + ' y:');
+    coeff:= coefficient;
+    cursorDown:= true;
+end;
 
-    exit
+procedure HW_cursorLeft(coefficient:LongInt); cdecl; export;
+begin
+    coeff:= coefficient;
+    cursorLeft:= true;
+end;
+
+procedure HW_cursorRight(coefficient:LongInt); cdecl; export;
+begin
+    coeff:= coefficient;
+    cursorRight:= true;
 end;
 
 procedure HW_terminate(closeFrontend: boolean); cdecl; export;