hedgewars/PascalExports.pas
changeset 3672 f225b94a4411
parent 3668 3f7a95234d8a
child 3680 aaf832c6fbd7
--- a/hedgewars/PascalExports.pas	Sun Jul 25 16:02:02 2010 +0200
+++ b/hedgewars/PascalExports.pas	Sun Jul 25 17:30:19 2010 +0200
@@ -49,6 +49,9 @@
 procedure HW_zoomReset; cdecl; export;
 begin
     middleClick:= true;
+    // center the camera at current hog
+    if CurrentHedgehog <> nil then
+        followGear:= CurrentHedgehog^.Gear;
 end;
 
 procedure HW_ammoMenu; cdecl; export;