summaryrefslogblamecommitdiffstats
path: root/MCServer/Plugins/Core/teleport.lua
blob: 5a004591b1100fdefd492eed6d307e4d76c003db (plain) (tree)
1
2
3
4
5
6
7
8
9
10
                                          

                                                                                         

                            
         



                                                                                     
                                                     

                                                                                                                   


                                                                                                                       
                    


                                                                         
                                                                                           
            
                    
    
function HandleTPCommand( Split, Player )
	if( Split[2] == nil )  then
		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 :)" )
		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!" )
			end
		end
	end
	World = Player:GetWorld()
	if (not(World:DoWithPlayer(Split[2], TeleportDestination))) then
		Player:SendMessage( cChatColor.Green .. "Can't find player " .. Split[2] )
	end
	return true
end