hedgewars/uWorld.pas
changeset 11944 c7ec309cd685
parent 11922 d819c04d0cbe
child 11945 156f1866b8bd
--- a/hedgewars/uWorld.pas	Sat Nov 19 21:17:48 2016 +0100
+++ b/hedgewars/uWorld.pas	Mon May 09 22:49:31 2016 +0200
@@ -32,6 +32,7 @@
 procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode);
 procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt);
 procedure HideMission;
+procedure SetAmmoTexts(ammoType: TAmmoType; name: ansistring; caption: ansistring; description: ansistring);
 procedure ShakeCamera(amount: LongInt);
 procedure InitCameraBorders;
 procedure InitTouchInterface;
@@ -1948,6 +1949,16 @@
     missionTimer:= 0;
 end;
 
+procedure SetAmmoTexts(ammoType: TAmmoType; name: ansistring; caption: ansistring; description: ansistring);
+var
+    ammoStrId: TAmmoStrId;
+begin
+    ammoStrId := Ammoz[ammoType].NameId;
+    trluaammo[ammoStrId] := name;
+    trluaammoc[ammoStrId] := caption;
+    trluaammod[ammoStrId] := description;
+end;
+
 procedure ShakeCamera(amount: LongInt);
 begin
 if isCursorVisible then