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 SetAmmoTexts(ammoType: TAmmoType; name: ansistring; caption: ansistring; description: ansistring; autoLabels: boolean); |
36 procedure ShakeCamera(amount: LongInt); |
36 procedure ShakeCamera(amount: LongInt); |
37 procedure InitCameraBorders; |
37 procedure InitCameraBorders; |
38 procedure InitTouchInterface; |
38 procedure InitTouchInterface; |
39 procedure SetUtilityWidgetState(ammoType: TAmmoType); |
39 procedure SetUtilityWidgetState(ammoType: TAmmoType); |
40 procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean); |
40 procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean); |
1970 procedure HideMission; |
1970 procedure HideMission; |
1971 begin |
1971 begin |
1972 missionTimer:= 0; |
1972 missionTimer:= 0; |
1973 end; |
1973 end; |
1974 |
1974 |
1975 procedure SetAmmoTexts(ammoType: TAmmoType; name: ansistring; caption: ansistring; description: ansistring); |
1975 procedure SetAmmoTexts(ammoType: TAmmoType; name: ansistring; caption: ansistring; description: ansistring; autoLabels: boolean); |
1976 var |
1976 var |
1977 ammoStrId: TAmmoStrId; |
1977 ammoStrId: TAmmoStrId; |
1978 ammoStr: ansistring; |
1978 ammoStr: ansistring; |
1979 tmpsurf: PSDL_Surface; |
1979 tmpsurf: PSDL_Surface; |
1980 begin |
1980 begin |
1995 Ammoz[ammoType].NameTex:= Surface2Tex(tmpsurf, false); |
1995 Ammoz[ammoType].NameTex:= Surface2Tex(tmpsurf, false); |
1996 SDL_FreeSurface(tmpsurf); |
1996 SDL_FreeSurface(tmpsurf); |
1997 |
1997 |
1998 trluaammoc[ammoStrId] := caption; |
1998 trluaammoc[ammoStrId] := caption; |
1999 trluaammod[ammoStrId] := description; |
1999 trluaammod[ammoStrId] := description; |
|
2000 trluaammoe[ammoStrId] := autoLabels; |
2000 end; |
2001 end; |
2001 |
2002 |
2002 procedure ShakeCamera(amount: LongInt); |
2003 procedure ShakeCamera(amount: LongInt); |
2003 begin |
2004 begin |
2004 if isCursorVisible then |
2005 if isCursorVisible then |