zones.lua

local zones = TalkAction("/zones")

function zones.onSay(player, words, param)
	local params = string.split(param, ",")
	local cmd = params[1]
	if not cmd then
		player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Command not found.")
		return true
	end

	if cmd == "list" then
		local list = {}
		local filter = params[2] and params[2]:trim()
		for _, zone in ipairs(Zone.getAll()) do
			if filter then
				if not zone:getName():lower():find(filter:lower()) then
					goto continue
				end
			end
			table.insert(list, zone:getName())
			::continue::
		end
		player:sendTextMessage(MESSAGE_HEALED, "Zones:\n" .. table.concat(list, "\n "))
		return true
	end

	local function zoneFromParam()
		local zoneName = params[2]:trim()
		if not zoneName then
			player:sendTextMessage(MESSAGE_HEALED, "Zone not found.")
			return true
		end
		local zone = Zone.getByName(zoneName)
		if not zone then
			player:sendTextMessage(MESSAGE_HEALED, "Zone not found.")
			return true
		end
		return zone
	end

	local commands = {
		["goto"] = function(zone)
			local pos = zone:randomPosition()
			if not pos then
				player:sendTextMessage(MESSAGE_HEALED, "No position found.")
				return true
			end
			player:teleportTo(pos)
			player:sendTextMessage(MESSAGE_HEALED, "You have been teleported to " .. zone:getName() .. ".")
		end,
		removeMonsters = function(zone)
			zone:removeMonsters()
			player:sendTextMessage(MESSAGE_HEALED, "Monsters removed from " .. zone:getName() .. ".")
		end,
		countMonsters = function(zone)
			local monsters = zone:getMonsters()
			player:sendTextMessage(MESSAGE_HEALED, "Zone " .. zone:getName() .. " monsters: " .. #monsters .. ".")
		end,
		removeNpcs = function(zone)
			zone:removeNpcs()
			player:sendTextMessage(MESSAGE_HEALED, "NPCs removed from " .. zone:getName() .. ".")
		end,
		countNpcs = function(zone)
			local npcs = zone:getNpcs()
			player:sendTextMessage(MESSAGE_HEALED, "Zone " .. zone:getName() .. " NPCs: " .. #npcs .. ".")
		end,
		kickPlayers = function(zone)
			zone:removePlayers()
			player:sendTextMessage(MESSAGE_HEALED, "Players kicked from " .. zone:getName() .. ".")
		end,
		listPlayers = function(zone)
			local players = zone:getPlayers()
			local list = {}
			for _, player in ipairs(players) do
				table.insert(list, player:getName())
			end
			player:sendTextMessage(MESSAGE_HEALED, "Zone " .. zone:getName() .. " players: " .. table.concat(list, ", ") .. ".")
		end,
		countPlayers = function(zone)
			local players = zone:getPlayers()
			player:sendTextMessage(MESSAGE_HEALED, "Zone " .. zone:getName() .. " players: " .. #players .. ".")
		end,
		size = function(zone)
			local positions = zone:getPositions()
			player:sendTextMessage(MESSAGE_HEALED, "Zone " .. zone:getName() .. " size: " .. #positions .. ".")
		end,
	}

	local command = commands[cmd]
	if not command then
		player:sendTextMessage(MESSAGE_HEALED, "Command not found.")
		return true
	end
	local zone = zoneFromParam()
	if not zone then
		return true
	end
	return command(zone)
end

zones:separator(" ")
zones:groupType("god")
zones:register()