// nameannounce/es_nameannounce

// ADMINS:
// To set a players custom tag
// 			rcon tag <partialname or steamid> set <customtag>

// To set a players custom tag to his SteamID
// 			rcon tag <partialname or steamid> SteamID

// For players:
// 			say !tag <customtag>

block CONFIG
{
	// Allow regular players on the server to use the !tag command and set their own tag?
	es_xset allowselftagging 1
	
	// Maximum number of times a user can change his tag per 3hours
	es_xset maxchanges 3
}

block load
{
	es_xset allowselftagging 0
	es_xset JoinTag 0
	es_xset selftag_userid 0
	es_xset selftag_steamid 0
	es_xset selftag_tag 0
	es_xset selftag_tag_charcount 0
	es_xset selftag_argcount 0
	es_xset maxchanges 0
	es_xset commandexists 0
	es_xload popup
	es_xkeygroupload nameannounce |nameannounce
	es_xregclientcmd tag nameannounce/selftag "Allows the player to set his own custom tag"
	es_xregsaycmd !tag nameannounce/selftag "Allows the player to set his own custom tag"
	es_xexists commandexists command shout
	if (server_var(commandexists) == 0) do
	{ 
		es_xregcmd tag nameannounce/rcontag "Allows admins to manually set a players custom tag using rcon"
	}
	es_xdoblock nameannounce/CONFIG
	
	es_xset NameAnnounce "Ver. 2.0"
	es_xmakepublic NameAnnounce
	
	popup create taghelp
	popup addline taghelp "!tag help"
	popup addline taghelp "-----------------"
	popup addline taghelp "ADMINS:"
	popup addline taghelp "To set a players custom tag use"
	popup addline taghelp "rcon tag <partialname or steamid> set <customtag>"
	popup addline taghelp "     "
	popup addline taghelp "Players:"
	popup addline taghelp "To set your own custom tag that displays when you join"
	popup addline taghelp "Say !tag <customtag>"
	popup addline taghelp "-----------------"
	popup addline taghelp "->0. Close"
	
	popup create SetTagSteamID
	popup addline SetTagSteamID "!tag help"
	popup addline SetTagSteamID "-----------------"
	popup addline SetTagSteamID "->1. Show me the help!"
	popup addline SetTagSteamID "->2. Set my custom tag to the default"
	popup addline SetTagSteamID "-----------------"
	popup addline SetTagSteamID "->0. Close"
	popup submenu SetTagSteamID 1 taghelp
	popup select SetTagSteamID 2 nameannounce/settag2steamid
	
}

block unload
{
	es_xkeygroupsave nameannounce |nameannounce
	es_xkeygroupdelete nameannounce
	es_xunregsaycmd !tag
	es_xunregclientcmd tag
}

event player_activate
{
	es_xset JoinTag 0
	es_xset is_esteamation_id 0
	es_keygetvalue JoinTag nameannounce event_var(es_steamid) JoinTag
	if (server_var(JoinTag) != "0") do
	{
		es_msg #multi event_var(es_username) -#green server_var(JoinTag)
	}
	else do
	{	
		es_regex match is_esteamation_id "^STEAM_[01]:[01]:[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]$" event_var(es_steamid)
		if (server_var(is_esteamation_id) > "0") do
		{
			es_msg #multi event_var(es_username) -#lightgreen [#default event_var(es_steamid) #lightgreen] [#defaultNonSteam User#lightgreen]
		}
		else do
		{
			es_msg #multi event_var(es_username) -#lightgreen [#default event_var(es_steamid) #lightgreen]#default	
		} 
	}
}

event player_say
{
	if (event_var(text) == "tag") do
	{
		es_xset popup_name 0
		es_xset popup_count 0
		es popup active popup_name popup_count event_var(userid)
		es popup unsendname server_var(popup_name) event_var(userid)
		es popup send taghelp event_var(userid)
	}
	if ("tag" in event_var(text)) do
	{
		if ("help" in event_var(text)) do
		{
			es_xset popup_name 0
			es_xset popup_count 0
			es popup active popup_name popup_count event_var(userid)
			es popup unsendname server_var(popup_name) event_var(userid)
			es popup send taghelp event_var(userid)
		}
	}
}

block selftag
{
	es_xset selftag_userid 0
	es_xset selftag_steamid 0
	es_xset selftag_tag 0
	es_xset selftag_argcount 0
	es_xset selftag_tag_charcount 0
	es_xset selftag_name 0
	es_xgetcmduserid selftag_userid
	es_getplayername selftag_name server_var(selftag_userid)
	es_getplayersteamid selftag_steamid server_var(selftag_userid)
	
	if (server_var(allowselftagging) == "1") do
	{	
		es_xset changedtag 0
		es_keygetvalue changedtag nameannounce event_var(es_steamid) TimesChangedTag
		if (server_var(changedtag) <= server_var(maxchanges)) do
		{
			es_xgetargc selftag_argcount
			if (server_var(selftag_argcount) <= "4") do
			{
				es_xgetargs selftag_tag
				if (server_var(selftag_tag) == "0") do
				{
					es_xset popup_name 0
					es_xset popup_count 0
					es popup active popup_name popup_count server_var(selftag_userid)
					es popup unsendname server_var(popup_name) server_var(selftag_userid)
					es popup send SetTagSteamID server_var(selftag_userid)
				}
				else do
				{
					es_set selftag_tag_charcount server_var(selftag_tag)
					es_xstring selftag_tag_charcount section 20 21	
					if (server_var(selftag_tag_charcount) != "0") do
					{
						es_xstring selftag_tag section 0 20
						es_tell server_var(selftag_userid) #multi #green[NameAnnounce] #defaultYour tag has been shortened to 20 characters.
					}		
					
					if ("Admin" notin server_var(selftag_tag)) do
					{
						if ("Owner" notin server_var(selftag_tag)) do
						{
							if ("Tech" notin server_var(selftag_tag)) do
							{
								if ("Server" notin server_var(selftag_tag)) do
								{
									es_xset changedtag 0
									es_keygetvalue changedtag nameannounce event_var(es_steamid) TimesChangedTag
									es_xmath changedtag + 1 
									es_keysetvalue nameannounce server_var(selftag_steamid) TimesChangedTag server_var(changedtag)
									es_delayed 10800 es_keysetvalue nameannounce server_var(selftag_steamid) TimesChangedTag 0
									es_keydelete nameannounce server_var(selftag_steamid)
									es_keycreate nameannounce server_var(selftag_steamid)
									es_keysetvalue nameannounce server_var(selftag_steamid) JoinTag server_var(selftag_tag)
									es_tell server_var(selftag_userid) #multi #green[NameAnnounce] #defaultYour custom join tag has been set.#lightgreen retry#default to see it!
								}
								else do
								{
									es_tell server_var(selftag_userid) #multi #green[NameAnnounce] #defaultDisallowed tag. Please try again with a more suitable tag!
								}								
							}
							else do
							{
								es_tell server_var(selftag_userid) #multi #green[NameAnnounce] #defaultDisallowed tag. Please try again with a more suitable tag!
							}
						}
						else do
						{
							es_tell server_var(selftag_userid) #multi #green[NameAnnounce] #defaultDisallowed tag. Please try again with a more suitable tag!
						}
					}
					else do
					{
						es_tell server_var(selftag_userid) #multi #green[NameAnnounce] #defaultDisallowed tag. Please try again with a more suitable tag!
					}
				}
			}
			else do
			{
				es_tell server_var(selftag_userid) #multi #green[NameAnnounce] #defaultTag is too long. 3 word maximum :D
			}
		}
		else do
		{
			es_tell server_var(selftag_userid) #multi #green[NameAnnounce] #defaultYou have exceeded the limit of max changes for now.
		}
	}
	else do
	{
		es_tell server_var(selftag_userid) #multi #green[NameAnnounce] #defaultYou are not permitted to set your own tag. Ask an admin.
	}
}


// To set a players custom tag
// 			rcon tag <partialname or steamid> set <customtag>

// To set a players custom tag to his SteamID
// 			rcon tag <partialname or steamid> SteamID

block rcontag
{
	es_xset rcontag_args 0
	es_xset partofsteamid 0
	es_xset steamidtstring 0
	es_xset rcontag_target 0
	es_xset rcontag_command 0
	es_xset rcontag_tag 0
	es_xset rcontag_tag2 0
	es_xset rcontag_target_steamid 0
	es_xset total_args 0
	es_xgetargs rcontag_args
	es_token total_args server_var(rcontag_args) 0
	
	if (server_var(total_args) > 4) do
	{
		es_token partofsteamid server_var(rcontag_args) 3
		es_token rcontag_target server_var(rcontag_args) 5
		es_token rcontag_command server_var(rcontag_args) 6
		es_token rcontag_tag server_var(rcontag_args) 7
		es_format steamidtstring "STEAM_0:%1:%2" server_var(partofsteamid) server_var(rcontag_target)
		es_set rcontag_target_steamid server_var(steamidtstring)
	}
	else do
	{
		es_token rcontag_target server_var(rcontag_args) 1
		es_token rcontag_command server_var(rcontag_args) 2
		es_token rcontag_tag server_var(rcontag_args) 3
		es_getuserid rcontag_target server_var(rcontag_target)
		es_getplayersteamid rcontag_target_steamid server_var(rcontag_target)
	}
	
	if (server_var(rcontag_command) == "set") do
	{
		es_keydelete nameannounce server_var(rcontag_target_steamid)
		es_keycreate nameannounce server_var(rcontag_target_steamid)
		es_keysetvalue nameannounce server_var(rcontag_target_steamid) JoinTag server_var(rcontag_tag)
	}
	
	if (server_var(rcontag_command) == "SteamID") do
	{
		es_keydelete nameannounce server_var(rcontag_target_steamid)
		es_keycreate nameannounce server_var(rcontag_target_steamid)
		es_keysetvalue nameannounce server_var(rcontag_target_steamid) JoinTag server_var(rcontag_target_steamid)	
	}
}

block settag2steamid
{
	es_xset tag2steam_temp 0
	es_getplayersteamid tag2steam_temp server_var(_popup_userid)
	es_keydelete nameannounce server_var(tag2steam_temp)
	es_tell server_var(_popup_userid) #multi #green[NameAnnounce] #defaultYour custom join tag has been set to your SteamID
}

// NOTES:
// None of the other 'tag' addons were to my liking so I made this.
// Like anything I do with ES it was a learning experience. I'm a fat noob.
// I made a hugely simpe hardcoded 'tag' addon for myself a while back, and this is it's v2 :D
// It's probably pretty shit coding-wise but I say MEH. The function is there and I'm actually pretty proud of it.