equal
deleted
inserted
replaced
30 |
30 |
31 procedure DrawWorld(Lag: LongInt); |
31 procedure DrawWorld(Lag: LongInt); |
32 procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode); |
32 procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode); |
33 procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt); |
33 procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt); |
34 procedure HideMission; |
34 procedure HideMission; |
|
35 procedure SetAmmoTexts(ammoType: TAmmoType; name: ansistring; caption: ansistring; description: ansistring); |
35 procedure ShakeCamera(amount: LongInt); |
36 procedure ShakeCamera(amount: LongInt); |
36 procedure InitCameraBorders; |
37 procedure InitCameraBorders; |
37 procedure InitTouchInterface; |
38 procedure InitTouchInterface; |
38 procedure SetUtilityWidgetState(ammoType: TAmmoType); |
39 procedure SetUtilityWidgetState(ammoType: TAmmoType); |
39 procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean); |
40 procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean); |
1946 procedure HideMission; |
1947 procedure HideMission; |
1947 begin |
1948 begin |
1948 missionTimer:= 0; |
1949 missionTimer:= 0; |
1949 end; |
1950 end; |
1950 |
1951 |
|
1952 procedure SetAmmoTexts(ammoType: TAmmoType; name: ansistring; caption: ansistring; description: ansistring); |
|
1953 var |
|
1954 ammoStrId: TAmmoStrId; |
|
1955 begin |
|
1956 ammoStrId := Ammoz[ammoType].NameId; |
|
1957 trluaammo[ammoStrId] := name; |
|
1958 trluaammoc[ammoStrId] := caption; |
|
1959 trluaammod[ammoStrId] := description; |
|
1960 end; |
|
1961 |
1951 procedure ShakeCamera(amount: LongInt); |
1962 procedure ShakeCamera(amount: LongInt); |
1952 begin |
1963 begin |
1953 if isCursorVisible then |
1964 if isCursorVisible then |
1954 exit; |
1965 exit; |
1955 amount:= Max(1, round(amount*zoom/2)); |
1966 amount:= Max(1, round(amount*zoom/2)); |