--- a/hedgewars/uKeys.pas	Thu Jan 07 19:50:40 2010 +0000
+++ b/hedgewars/uKeys.pas	Thu Jan 07 22:49:25 2010 +0000
@@ -46,6 +46,7 @@
 procedure HW_click; cdecl; export;
 procedure HW_zoomIn; cdecl; export;
 procedure HW_zoomOut; cdecl; export;
+procedure HW_zoomReset; cdecl; export;
 procedure HW_ammoMenu; cdecl; export;
 procedure HW_allKeysUp; cdecl; export;
 procedure HW_walkLeft; cdecl; export;
@@ -53,6 +54,7 @@
 procedure HW_aimUp; cdecl; export;
 procedure HW_aimDown; cdecl; export;
 procedure HW_shoot; cdecl; export;
+procedure HW_whereIsHog; cdecl; export;
 
 {$ENDIF}
 
@@ -123,6 +125,13 @@
 	exit
 end;
 
+procedure HW_zoomReset; cdecl; export;
+begin
+	WriteLnToConsole('HW - reset zoom');
+	middleClick:= true;
+	exit
+end;
+
 procedure HW_ammoMenu; cdecl; export;
 begin
 	WriteLnToConsole('HW - right click');
@@ -176,6 +185,15 @@
 	spaceKey:= true;
 	exit
 end;
+
+procedure HW_whereIsHog; cdecl; export;
+var Xcoord, Ycoord: LongInt;
+begin
+	//Xcoord:= Gear^.dX + WorldDx;
+	WriteLnToConsole('HW - hog is at x: ' + ' y:');
+
+	exit
+end;
 {$ENDIF}
 	
 function KeyNameToCode(name: string): word;