Add admin chat command (#296)

Added command for quickly writing admin chat messages using /a [text] by default, and customizable in meta.xml to avoid conflicts per server

Author: ricksterhd123

[admin]/admin/client/gui/admin_main.lua

@@ -843,7 +843,7 @@ function aClientAdminChat ( message )
 	local chat = guiGetText ( aTab5.AdminChat )
 	guiSetText ( aTab5.AdminChat, (chat ~= "\n" and chat or "")..getPlayerName ( source )..": "..message )
 	guiSetProperty ( aTab5.AdminChat, "CaratIndex", tostring ( string.len ( chat ) ) )
-	if ( guiCheckBoxGetSelected ( aTab6.AdminChatOutput ) ) then outputChatBox ( "ADMIN> "..getPlayerName ( source )..": "..message, 255, 0, 0 ) end
+	if ( guiCheckBoxGetSelected ( aTab6.AdminChatOutput ) ) then outputChatBox ( "ADMIN CHAT> "..getPlayerName ( source )..": "..message, 255, 0, 0 ) end
 	if ( ( guiCheckBoxGetSelected ( aTab5.AdminChatSound ) ) and ( source ~= localPlayer ) ) then playSoundFrontEnd ( 13 ) end
 end
 

[admin]/admin/meta.xml

@@ -372,6 +372,10 @@
 					friendlyname="Player report categories"
 					desc="List of report categories for reporting players."
 					/>
+	     	<setting name="*adminChatCommandName" value="a"
+          				friendlyname="Admin chat command name"
+          				desc="The command name for admin chat."
+          				/>
 
  </settings>
 

[admin]/admin/server/admin_server.lua

@@ -1568,6 +1568,18 @@ addEventHandler ( "aAdminChat", _root, function ( chat )
 	outputServerLog ("(ADMIN CHAT) "..tostring(getPlayerName(source))..": "..chat)
 end )
 
+addCommandHandler(get("adminChatCommandName"), 
+	function(thePlayer, cmd, ...) 
+		if hasObjectPermissionTo (thePlayer, "general.adminpanel", false) then
+			local msg = ""
+			for i, word in ipairs(arg) do
+				msg = msg .. (i > 1 and " " or "") .. word
+			end
+			triggerEvent("aAdminChat", thePlayer, msg)
+		end
+	end
+)
+
 addEventHandler('onElementDataChange', root,
 	function(dataName, oldValue )
 		if getElementType(source)=='player' and checkClient( false, source, 'onElementDataChange', dataName ) then