From 12906c026d414c752d3c0ba9481f425b24b29c67 Mon Sep 17 00:00:00 2001
From: faketruth <faketruth@0a769ca7-a7f5-676a-18bf-c427514a06d6>
Date: Mon, 20 Aug 2012 12:20:20 +0000
Subject: Moved files used by MCServer to a special MCServer folder

git-svn-id: http://mc-server.googlecode.com/svn/trunk@763 0a769ca7-a7f5-676a-18bf-c427514a06d6
---
 MCServer/Plugins/Core/teleport.lua | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 MCServer/Plugins/Core/teleport.lua

(limited to 'MCServer/Plugins/Core/teleport.lua')

diff --git a/MCServer/Plugins/Core/teleport.lua b/MCServer/Plugins/Core/teleport.lua
new file mode 100644
index 000000000..90eb3529a
--- /dev/null
+++ b/MCServer/Plugins/Core/teleport.lua
@@ -0,0 +1,23 @@
+function HandleTPCommand( Split, Player )
+	if( #Split ~= 2 ) then
+		Player:SendMessage( cChatColor.Green .. "Usage: /tp [PlayerName]" )
+		return true
+	end
+	
+	World = Player:GetWorld()
+	
+	local TeleportDestination = function(OtherPlayer)
+		if( OtherPlayer == Player ) then
+			Player:SendMessage( cChatColor.Green .. "Already there :)" )
+		else
+			Player:TeleportToEntity( OtherPlayer )
+			Player:SendMessage( cChatColor.Green .. "You teleported to "..OtherPlayer:GetName().."!" )
+			OtherPlayer:SendMessage( cChatColor.Green .. Player:GetName().." teleported to you!" )
+		end
+    end
+	
+    if (not(World:DoWithPlayer(Split[2], TeleportDestination))) then
+		Player:SendMessage( cChatColor.Green .. "Can't find player " .. Split[2] )
+    end
+	return true
+end
\ No newline at end of file
-- 
cgit v1.2.3