hedgewars/PascalExports.pas
changeset 3672 f225b94a4411
parent 3668 3f7a95234d8a
child 3680 aaf832c6fbd7
equal deleted inserted replaced
3670:4c673e57f0d7 3672:f225b94a4411
    47 end;
    47 end;
    48 
    48 
    49 procedure HW_zoomReset; cdecl; export;
    49 procedure HW_zoomReset; cdecl; export;
    50 begin
    50 begin
    51     middleClick:= true;
    51     middleClick:= true;
       
    52     // center the camera at current hog
       
    53     if CurrentHedgehog <> nil then
       
    54         followGear:= CurrentHedgehog^.Gear;
    52 end;
    55 end;
    53 
    56 
    54 procedure HW_ammoMenu; cdecl; export;
    57 procedure HW_ammoMenu; cdecl; export;
    55 begin
    58 begin
    56     rightClick:= true;
    59     rightClick:= true;