equal
deleted
inserted
replaced
50 begin |
50 begin |
51 middleClick:= true; |
51 middleClick:= true; |
52 // center the camera at current hog |
52 // center the camera at current hog |
53 if CurrentHedgehog <> nil then |
53 if CurrentHedgehog <> nil then |
54 followGear:= CurrentHedgehog^.Gear; |
54 followGear:= CurrentHedgehog^.Gear; |
|
55 end; |
|
56 |
|
57 function HW_zoomFactor: GLfloat; cdecl; export; |
|
58 begin |
|
59 exit( ZoomValue / cDefaultZoomLevel ); |
|
60 end; |
|
61 |
|
62 function HW_zoomLevel: LongInt; cdecl; export; |
|
63 begin |
|
64 writelntoconsole(inttostr(trunc((ZoomValue - cDefaultZoomLevel) / cZoomDelta) )); |
|
65 exit( trunc((ZoomValue - cDefaultZoomLevel) / cZoomDelta) ); |
55 end; |
66 end; |
56 |
67 |
57 procedure HW_ammoMenu; cdecl; export; |
68 procedure HW_ammoMenu; cdecl; export; |
58 begin |
69 begin |
59 rightClick:= true; |
70 rightClick:= true; |