hedgewars/uStore.pas
changeset 2786 85f6425a4d74
parent 2753 2305bb5dc5f2
child 2801 24739a3bf5e3
--- a/hedgewars/uStore.pas	Tue Feb 09 21:51:52 2010 +0000
+++ b/hedgewars/uStore.pas	Wed Feb 10 00:55:40 2010 +0000
@@ -39,6 +39,7 @@
     squaresize : LongInt;
     numsquares : LongInt;
     ProgrTex: PTexture;
+	MissionIcons: PSDL_Surface;
 
 procedure init_uStore;
 procedure free_uStore;
@@ -73,6 +74,7 @@
 function  LoadImage(const filename: string; imageFlags: LongInt): PSDL_Surface;
 procedure SetupOpenGL;
 procedure SetScale(f: GLfloat);
+function RenderHelpWindow(caption, subcaption, description, extra: shortstring; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture;
 procedure RenderWeaponTooltip(atype: TAmmoType);
 procedure ShowWeaponTooltip(x, y: LongInt);
 procedure FreeWeaponTooltip;
@@ -253,6 +255,7 @@
 						end
 					end;
 		end;
+		MissionIcons:= LoadImage(Pathz[ptGraphics] + '/missions', ifCritical);
 	end;
 
 	procedure MakeCrossHairs;
@@ -819,6 +822,7 @@
     FreeTexture(SpritesData[ii].Texture);
     if SpritesData[ii].Surface <> nil then SDL_FreeSurface(SpritesData[ii].Surface)
     end;
+SDL_FreeSurface(MissionIcons);
 
 FreeTexture(HHTexture)
 end;