[selwonk]

Just to speed the process up, if you create/rename your mood icons, this little bit of VBscript will create a file called _List.txt which looks like this:

Aggressive
Amazed
Amused
Angelic
Angry
Apprehensive
Approved
Asleep
Bahahaha
...
Wasted
Where
Wicked
Woot
Yeehaw

Just create a _List.vbs text file in the \images\mood\ folder and paste this code

	Function FileExists( str_FileName )
		Set obj_FSO = CreateObject("Scripting.FileSystemObject")
		If (obj_FSO.FileExists(str_FileName)) Then
			FileExists = True
		Else
			FileExists = False
		End If
		Set obj_FSO = Nothing
	End Function

	Function WriteToFile( str_FileName, str_Message )
		Set obj_FSO = CreateObject("Scripting.FileSystemObject")
		Set obj_OutputFile = obj_FSO.OpenTextFile(str_FileName, 2, True, 0)
		obj_OutputFile.WriteLine(str_Message)
	    obj_OutputFile.Close
	    Set obj_OutputFile = Nothing
		Set obj_FSO = Nothing
	End Function

	Function ReadTextFile( str_FileName )
		int_ReadTextFileCounter = 0
		While FileExists(str_FileName) = False And int_ReadTextFileCounter < 1000 ' 3.0
			int_ReadTextFileCounter = int_ReadTextFileCounter + 1
			' Wait for file to be created
		Wend

		Set obj_FSO = CreateObject("Scripting.FileSystemObject")
		Set obj_InputFile = obj_FSO.GetFile(str_FileName)
		Set obj_TextStream = obj_InputFile.OpenAsTextStream(1, TristateFalse)
		str_Text = obj_TextStream.ReadAll
	    Set obj_InputFile = Nothing
		Set obj_FSO = Nothing
		ReadTextFile = str_Text
	End Function

	Sub DeleteFile( str_FileName )
    	Set obj_FSO = CreateObject("Scripting.FileSystemObject")
		If obj_FSO.FileExists(str_FileName) Then
			obj_FSO.DeleteFile(str_FileName)
		End if
		Set obj_FSO = Nothing
	End Sub
	
	' Parameters
	Set obj_FSO = CreateObject("Scripting.FileSystemObject")
	GBL_IN = obj_FSO.GetAbsolutepathname("") & "\"
	GBL_OUT = obj_FSO.GetAbsolutepathname("_List.txt")
	Set obj_FSO = Nothing

	Set obj_FSO = CreateObject("Scripting.FileSystemObject")
	Set obj_Folder = obj_FSO.GetFolder(GBL_IN)

	str_Log = ""

	For Each obj_File In obj_Folder.Files
		str_FileName = obj_File.Name
		If Right(str_FileName, 4) = ".gif" Then
			WScript.Echo str_FileName
			str_Log = str_Log & Left(str_FileName, Len(str_FileName) - 4) & vbcrlf
		End If
	Next

	Set obj_Folder = Nothing
	Set obj_FSO = Nothing

	WriteToFile GBL_OUT, str_Log

Get to a DOS prompt, change to that folder and type

cscript _List.vbs

Edit the resultant file and paste the results into the Admin CP

Hope that helps...