flewkey/cuberite-2a
1
0
Fork 0
Code Releases Activity

Core: /tp command can teleport either to a player or to a set of XYZ coords

Browse Source 
git-svn-id: http://mc-server.googlecode.com/svn/trunk@1663 0a769ca7-a7f5-676a-18bf-c427514a06d6
This commit is contained in:
madmaxoft@gmail.com 2013-07-07 19:57:56 +00:00
parent a3c8b12ee9
commit 0756c72486
1 changed files with 37 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
MCServer/Plugins/Core/teleport.lua
View File

@ -1,24 +1,46 @@
function HandleTPCommand( Split, Player )
if( Split[2] == nil ) then
function HandleTPCommand(a_Split, a_Player)
if ((#a_Split == 2) or (#a_Split == 3)) then
-- Teleport to player specified in a_Split[2], tell them unless a_Split[3] equals "-h":
TeleportToPlayer(a_Player, a_Split[2], (a_Split[3] ~= "-h"));
return true;
elseif (#a_Split == 4) then
-- Teleport to XYZ coords specified in a_Split[2, 3, 4]:
SetBackCoordinates(a_Player);
a_Player:TeleportToCoords(a_Split[2], a_Split[3], a_Split[4]);
a_Player:SendMessage(cChatColor.Green .. "You teleported to {" .. a_Split[2] .. ", " .. a_Split[3] .. ", " .. a_Split[4] .. "}");
return true;
else
Player:SendMessage( cChatColor.Green .. "Usage: /tp [PlayerName] (-h)" )
return true
end
local TeleportDestination = function(OtherPlayer)
if( OtherPlayer == Player ) then
Player:SendMessage( cChatColor.Green .. "Already there :)" )
end
-- Teleports a_SrcPlayer to a player named a_DstPlayerName; if a_TellDst is true, will send a notice to the destination player
function TeleportToPlayer(a_SrcPlayer, a_DstPlayerName, a_TellDst)
local teleport = function(OtherPlayer)
if (OtherPlayer == a_SrcPlayer) then
-- Asked to teleport to self?
a_SrcPlayer:SendMessage(cChatColor.Green .. "Already there :)");
else
SetBackCoordinates( Player )
Player:TeleportToEntity( OtherPlayer )
Player:SendMessage( cChatColor.Green .. "You teleported to "..OtherPlayer:GetName().."!" )
if Split[3] ~= "-h" then
OtherPlayer:SendMessage( cChatColor.Green .. Player:GetName().." teleported to you!" )
SetBackCoordinates(a_SrcPlayer);
a_SrcPlayer:TeleportToEntity(OtherPlayer);
a_SrcPlayer:SendMessage(cChatColor.Green .. "You teleported to " .. OtherPlayer:GetName() .. "!");
if (a_TellDst) then
OtherPlayer:SendMessage(cChatColor.Green .. Player:GetName().." teleported to you!");
end
end
end
World = Player:GetWorld()
if (not(World:DoWithPlayer(Split[2], TeleportDestination))) then
Player:SendMessage( cChatColor.Green .. "Can't find player " .. Split[2] )
local World = Player:GetWorld();
if (not(World:DoWithPlayer(s_DstPlayerName, teleport))) then
a_SrcPlayer:SendMessage(cChatColor.Green .. "Can't find player " .. a_DstPlayerName);
end
return true
end