--- a/hedgewars/uUtils.pas	Wed Jun 11 19:46:37 2014 +0200
+++ b/hedgewars/uUtils.pas	Thu Jun 12 00:37:52 2014 +0200
@@ -34,6 +34,7 @@
 function  EnumToStr(const en : TStatInfoType) : shortstring; overload;
 function  EnumToStr(const en : THogEffect) : shortstring; overload;
 function  EnumToStr(const en : TCapGroup) : shortstring; overload;
+function  EnumToStr(const en : TSprite) : shortstring; overload;
 
 function  Min(a, b: LongInt): LongInt; inline;
 function  Max(a, b: LongInt): LongInt; inline;
@@ -179,6 +180,11 @@
 EnumToStr := GetEnumName(TypeInfo(TCapGroup), ord(en))
 end;
 
+function EnumToStr(const en: TSprite) : shortstring; overload;
+begin
+EnumToStr := GetEnumName(TypeInfo(TSprite), ord(en))
+end;
+
 
 function Min(a, b: LongInt): LongInt;
 begin