core/spawn.lua at master · aokod/core · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82

--- Teleports the specified player to the spawn of the world they're in
local function SendPlayerToWorldSpawn(a_Player)
	-- Get the spawn coords:
	local World = a_Player:GetWorld()
	local SpawnX = World:GetSpawnX()
	local SpawnY = World:GetSpawnY()
	local SpawnZ = World:GetSpawnZ()

	-- Teleport to spawn (with ChunkStay):
	local PlayerUUID = a_Player:GetUUID()
	World:ChunkStay(
		{{SpawnX / 16, SpawnZ / 16}},
		nil,  -- OnChunkAvailable
		function()  -- OnAllChunksAvailable
			World:DoWithPlayerByUUID(PlayerUUID,
				function(a_CBPlayer)
					a_CBPlayer:TeleportToCoords(SpawnX, SpawnY, SpawnZ)
				end
			)
		end
	)
end


function HandleSpawnCommand(a_Split, a_Player)
	--[[
	Command signatures:
	/spawn  --> returns the player to the world's spawn
	/spawn <playername>  --> returns the specified player to the spawn of the world they're in
	--]]

	if ((#a_Split == 2) and (a_Split[2] ~= a_Player:GetName())) then
		if not(a_Player:HasPermission("core.spawn.others")) then
			SendMessageFailure(a_Player, "You don't have the permission to do that!")
			LOG(string.format(
				"Player \"%s\" tried to send \"%s\" to spawn, for which they don't have the required permission, core.spawn.others",
				a_Player:GetName(), a_Split[2]
			))
			return true
		end

		cRoot:Get():FindAndDoWithPlayer(a_Split[2],
			function(OtherPlayer)
				if (OtherPlayer:GetName() ~= a_Split[2]) then
					SendMessageFailure(a_Player, "Player " .. a_Split[2] .. " not found!" )
					return
				end
				SendMessageSuccess(a_Player, "Returned " .. OtherPlayer:GetName() .. " to world spawn")
				SendPlayerToWorldSpawn(OtherPlayer)
			end
		)
	else
		SendPlayerToWorldSpawn(a_Player)
	end
	return true
end


function HandleSetSpawnCommand(Split, Player)

	local World = Player:GetWorld()

	local PlayerX = Player:GetPosX()
	local PlayerY = Player:GetPosY()
	local PlayerZ = Player:GetPosZ()

	if ( World:SetSpawn(PlayerX, PlayerY, PlayerZ) ) then
		SendMessageSuccess(Player, string.format("Changed spawn position to [X:%i Y:%i Z:%i]", PlayerX, PlayerY, PlayerZ))
		return true
	else
		SendMessageFailure(Player, "Spawn setting failed.")
		return false
	end

end