hedgewars/PascalExports.pas
changeset 3675 857c9546a822
parent 3672 f225b94a4411
child 3680 aaf832c6fbd7
--- a/hedgewars/PascalExports.pas	Sun Jul 25 22:39:59 2010 +0400
+++ b/hedgewars/PascalExports.pas	Sun Jul 25 22:40:31 2010 +0400
@@ -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;