-- Define variables
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local ServerStorage = game:GetService("ServerStorage")
local MapsFolder = ServerStorage:WaitForChild("Maps")
local Status = ReplicatedStorage:WaitForChild("Status")
local GameLength = 50
-- Game Loop
while true do
Status.Value = "Waiting for enough players"
repeat wait(1) until game.Players.NumPlayers >= 2
Status.Value = "Intermission"
wait(10)
local plrs = {}
for i, player in pairs(game.Players:GetPlayers()) do
if player then
table.insert(plrs,player) -- Add each player into plrs table
end
end
wait (2)
local AvailableMaps = MapsFolder:GetChildren()
local ChosenMap = AvailableMaps[math.random(1,#AvailableMaps)]
Status.Value = ChosenMap.Name.." Chosen"
local ClonedMap = ChosenMap:Clone()
ClonedMap.Parent = workspace
-- Teleport players to the map
local SpawnPoints = ClonedMap:FindFirstChild("SpawnPoints")
if not SpawnPoints then
print("SpawnPoints not found!")
end
local AvailbleSpawnPoints = SpawnPoints:GetChildren()
for i, player in pairs(plrs) do
if player then
character = player.Character
if character then
-- Teleport them
character:FindFirstchild("HumanoidRootPart").CFrame = AvailbleSpawnPoints[1].CFrame
table.remove(AvailbleSpawnPoints,1)
-- Give then a sword
local Sword = ServerStorage.Sword:Clone()
Sword.Parant = player.BackPack
local GameTag = Instance.new("BoolValue")
GameTag.Name = "GameTag"
GameTag.Parent = player.Character
else
-- Their is no character
if not player then
table.remove(plrs,i)
end
end
end
end
Status.Value = "Get ready to play!"
wait(2)
for i = GameLength,0,-1 do
for x,player in pairs(plrs) do
if player then
character = player.Characher
if not character then
-- Left the game
else
if character:FindFirstChild("GameTag") then
-- They are still alive
print(player.Name.." is still in the game!")
else
-- They are dead
table.remove(plrs,x)
print(player.Name.." has been removed!")
end
end
else
table.remove(plrs,x)
print(player.Name.." has been removed!")
end
end
Status.Value = "There are "..i.." seconds remaining, and"..#plrs.." players left"
if #plrs == 1 then
-- Last person standing
Status.Value = "The winner is "..plrs[1].Name
break
elseif #plrs == 0 then
Status.Value = "Nobody won!"
break
elseif i == 0 then
Status.Value = "Times up!"
break
end
wait(1)
end
print("End of game")
for i, player in pairs(game.Players:GetPlayers ()) do
character = player.Character
if not character then
-- Ignore them
else
if character:FindFirstChild("GameTag")then
character.GameTag:Destory()
end
if player.Backpack:FindFirstChild("Sword")then
player.BackPack.Sword:Destroy()
end
if character:FindFirstChild("Sword")then
character.Sword:Destroy()
end
end
player.LoadCharacter()
end
ClonedMap:Destroy()
Status.Value = "Game ended"
wait(2)
end
