From beb36ee1496fa54ae9a0abcef4251d71512d48c5 Mon Sep 17 00:00:00 2001
From: "nielsbreu@gmail.com"
 <nielsbreu@gmail.com@0a769ca7-a7f5-676a-18bf-c427514a06d6>
Date: Fri, 28 Jun 2013 10:18:55 +0000
Subject: Added /listworlds command and fixed bug in /listgroups where you have
 an extra comma at the end.

git-svn-id: http://mc-server.googlecode.com/svn/trunk@1629 0a769ca7-a7f5-676a-18bf-c427514a06d6
---
 MCServer/Plugins/Core/listgroups.lua |  2 +-
 MCServer/Plugins/Core/listworlds.lua | 20 ++++++++++++++++++++
 MCServer/Plugins/Core/main.lua       |  1 +
 3 files changed, 22 insertions(+), 1 deletion(-)
 create mode 100644 MCServer/Plugins/Core/listworlds.lua

(limited to 'MCServer')

diff --git a/MCServer/Plugins/Core/listgroups.lua b/MCServer/Plugins/Core/listgroups.lua
index da9a6ce67..531b46463 100644
--- a/MCServer/Plugins/Core/listgroups.lua
+++ b/MCServer/Plugins/Core/listgroups.lua
@@ -3,7 +3,7 @@ function HandleListGroupsCommand( Split, Player )
 	if GroupsIni:ReadFile() == false then
 		Player:SendMessage( cChatColor.Green .. "No groups found" )
 	end
-	Number = GroupsIni:NumKeys()
+	Number = GroupsIni:NumKeys() - 1
 	Groups = {}
 	for i=0, Number do
 		table.insert( Groups, GroupsIni:KeyName(i) )
diff --git a/MCServer/Plugins/Core/listworlds.lua b/MCServer/Plugins/Core/listworlds.lua
new file mode 100644
index 000000000..753345426
--- /dev/null
+++ b/MCServer/Plugins/Core/listworlds.lua
@@ -0,0 +1,20 @@
+function HandleListWorldsCommand( Split, Player )
+	local SettingsIni = cIniFile("settings.ini")
+	if SettingsIni:ReadFile() == false then
+		Player:SendMessage( cChatColor.Green .. "No worlds found" )
+	end
+	Number = SettingsIni:NumValues("Worlds") - 1
+	Worlds = {}
+	for i=0, SettingsIni:GetNumKeys() - 1 do
+		if SettingsIni:GetKeyName(i) == "Worlds" then
+			Key = i
+			break
+		end
+	end
+	for i=0, Number	do
+		table.insert( Worlds, SettingsIni:GetValue( Key, i) )
+	end
+	Player:SendMessage( cChatColor.Green .. "Worlds:" )
+	Player:SendMessage( cChatColor.Green .. table.concat( Worlds, ", " ) )
+	return true
+end
\ No newline at end of file
diff --git a/MCServer/Plugins/Core/main.lua b/MCServer/Plugins/Core/main.lua
index 8f83a2989..1f24e0715 100644
--- a/MCServer/Plugins/Core/main.lua
+++ b/MCServer/Plugins/Core/main.lua
@@ -32,6 +32,7 @@ function Initialize(Plugin)
 	PluginManager:AddHook(Plugin, cPluginManager.HOOK_CHUNK_GENERATING)
 	PluginManager:AddHook(Plugin, cPluginManager.HOOK_PLAYER_MOVING)
 	
+	PluginManager:BindCommand("/listworlds",      "core.listworlds",      HandleListWorldsCommand,      " - Shows a list of all the worlds");
 	PluginManager:BindCommand("/listgroups",      "core.listgroups",      HandleListGroupsCommand,      " - Shows a list of all the groups");
 	PluginManager:BindCommand("/toggledownfall",  "core.toggledownfall",  HandleToggleDownfallCommand,  " - Toggles the weather");
 	PluginManager:BindCommand("/back",            "core.back",            HandleBackCommand,            " - Return to your last position");
-- 
cgit v1.2.3