hedgewars/PascalExports.pas
changeset 3675 857c9546a822
parent 3672 f225b94a4411
child 3680 aaf832c6fbd7
equal deleted inserted replaced
3673:45778b16b224 3675:857c9546a822
    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;