Merge pull request #6425 from JJRcop/OOCemoji

Adds emoji to OOC chat [Now with in-house sprites!]

code/modules/admin/verbs/adminpm.dm

@@ -68,6 +68,8 @@
 		msg = sanitize(copytext(msg,1,MAX_MESSAGE_LEN))
 		if(!msg)	return
 
+	msg = emoji_parse(msg)
+
 	if(C.holder)
 		if(holder)	//both are admins
 			C << "<font color='red'>Admin PM from-<b>[key_name(src, C, 1)]</b>: [msg]</font>"

code/modules/emoji/emoji_parse.dm

@@ -0,0 +1,32 @@
+var/list/emojis
+
+/proc/emoji_parse(text)
+	if(!config.emojis)
+		return text
+	if(!emojis)
+		emojis = icon_states(icon('icons/emoji.dmi'))
+	var/parsed = ""
+	var/pos = 1
+	var/search = 0
+	var/emoji = ""
+	while(1)
+		search = findtext(text, ":", pos)
+		parsed += copytext(text, pos, search)
+		if(search)
+			pos = search
+			search = findtext(text, ":", pos+1)
+			if(search)
+				emoji = lowertext(copytext(text, pos+1, search))
+				if(emoji in emojis)
+					parsed += "<img class=icon src=\ref['icons/emoji.dmi'] iconstate='[emoji]'>"
+					pos = search + 1
+				else
+					parsed += copytext(text, pos, search)
+					pos = search
+				emoji = ""
+				continue
+			else
+				parsed += copytext(text, pos, search)
+		break
+	return parsed
+