Nothing to see here...

*facepalm*

pkg/base/commands.lua

@@ -0,0 +1,183 @@
+--[[
+    This file is part of Ice Lua Components.
+
+    Ice Lua Components is free software: you can redistribute it and/or modify
+    it under the terms of the GNU Lesser General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    Ice Lua Components is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser General Public License
+    along with Ice Lua Components.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+commands = {}
+command_colour_error = 0xFFFF6666
+command_colour_usage = 0xFF6666FF
+command_colour_text = 0xFFDDDDFF
+
+function command_deregister(command)
+	if commands[command] ~= nil then
+		commands[command] = nil
+	end
+end
+
+function command_register(settings)
+	local this = {
+		command = string.lower(settings.command),
+		permission = settings.permission,
+		usage = settings.usage,
+		func = settings.func
+	} this.this = this
+	
+	function this.exec(player, plrid, sockfd, params, msg)
+		if this.permission == nil or player.has_permission(this.permission) then
+			this.func(player, plrid, sockfd, params, msg)
+		else
+			common.net_send(sockfd, common.net_pack("BIz", 0x0E, command_colour_error, "Error: You do not have permission for this command"))
+		end
+	end
+	
+	commands[this.command] = this
+end
+
+--You have to deregister aliases separately
+function command_register_alias(command, alias)
+	commands[alias] = commands[command]
+end
+
+function command_handle(player, plrid, sockfd, params, msg)
+	cmd = string.lower(params[1])
+	if commands[cmd] ~= nil then
+	table.remove(params, 1)
+		commands[cmd].exec(player, plrid, sockfd, params, msg)
+	else
+		common.net_send(sockfd, common.net_pack("BIz", 0x0E, command_colour_error, "Error: No such command"))
+	end
+end
+
+command_register({
+	command = "derp",
+	permission = nil,
+	usage = "/derp",
+	func = function(plr, plrid, sockfd, prms, msg) print "derpherp" end
+})
+
+command_register({
+	command = "help",
+	permission = nil,
+	usage = "/help [command name]",
+	func = function(plr, plrid, sockfd, prms, msg)
+		if table.getn(prms) == 0 then
+			--TODO: List available commands
+		elseif table.getn(prms) == 1 then
+			if commands[prms[1]] == nil then
+				common.net_send(sockfd, common.net_pack("BIz", 0x0E, command_colour_error, "Error: No such command"))
+			elseif plr.has_permission(commands[prms[1]].permission) then
+				common.net_send(sockfd, common.net_pack("BIz", 0x0E, command_colour_usage, "Usage: "..commands[prms[1]].usage))
+			else
+				common.net_send(sockfd, common.net_pack("BIz", 0x0E, command_colour_error, "Error: You do not have permission for this command"))
+			end
+		else
+			this.func(plr, plrid, sockfd, "help")
+		end
+	end
+})
+
+command_register({
+	command = "me",
+	permission = nil,
+	usage = "/me <action>",
+	func = function(plr, plrid, sockfd, prms, msg)
+		if table.getn(prms) > 0 then
+			net_broadcast(nil, common.net_pack("BIz", 0x0E, 0xFFFFFFFF, "* "..plr.name.." "..string.sub(msg,5)))
+		else
+			commands["help"].func(plr, plrid, sockfd, {"me"})
+		end
+	end
+})
+
+command_register({
+	command = "squad",
+	permission = nil,
+	usage = "/squad <squad name> (Use \"none\" to leave your squad)",
+	func = function(plr, plrid, sockfd, prms, msg)
+		if table.getn(prms) > 0 then
+			if prms[1] == "none" then
+				plr.squad = nil
+			else
+				plr.squad = string.sub(msg,8)
+			end
+			plr.update_score()
+		else
+			commands["help"].func(plr, plrid, sockfd, {"squad"})
+		end
+	end
+})
+
+command_register({
+	command = "kill",
+	permission = nil,
+	usage = "/kill",
+	func = function(plr, plrid, sockfd, prms, msg)
+		if table.getn(prms) == 0 then
+			plr.set_health_damage(0, 0xFF800000, plr.name.." shuffled off this mortal coil", plr)
+		else
+			commands["help"].func(plr, plrid, sockfd, {"kill"})
+		end
+	end
+})
+
+command_register({
+	command = "goto",
+	permission = nil,
+	usage = "/goto <grid square>",
+	func = function(plr, plrid, sockfd, prms, msg)
+		if table.getn(prms) == 1 then
+			--TODO: actually do the goto
+		else
+			commands["help"].func(plr, plrid, sockfd, {"goto"})
+		end
+	end
+})
+
+command_register({
+	command = "teleport",
+	permission = nil,
+	usage = "/teleport <player>|<x, y, z>",
+	func = function(plr, plrid, sockfd, prms, msg)
+		if table.getn(prms) == 1 then
+			prms[1] = tostring(prms[1])
+			if prms[1]:sub(0, 1) == "#" then
+				target = players[tonumber(prms[1]:sub(2))]
+			end
+			for i=1,players.max do
+				if players[i] ~= nil and players[i].name == prms[1] then
+					target = players[i]
+					break
+				end
+			end
+			if target then
+				x, y, z = target.x, target.y, target.z
+				plr.set_pos_recv(x, y, z)
+				net_broadcast(nil, common.net_pack("BBhhh",
+					0x03, plrid, x * 32.0, y * 32.0, z * 32.0))
+			else
+				common.net_send(sockfd, common.net_pack("BIz", 0x0E, command_colour_error, "Error: Player not found"))
+			end
+		elseif table.getn(prms) == 3 then
+			--NOTE: I protest that y is down/same way AoS was
+			x, y, z = tonumber(prms[1]), tonumber(prms[2]), tonumber(prms[3])
+			plr.set_pos_recv(x, y, z)
+			net_broadcast(nil, common.net_pack("BBhhh",
+				0x03, plrid, x * 32.0, y * 32.0, z * 32.0))
+		else
+			commands["help"].func(plr, plrid, sockfd, {"teleport"})
+		end
+	end
+})
+command_register_alias("teleport", "tp")