(Roblox) Horror Tycoon GUI

-- Game Link: https://www.roblox.com/games/3264958220/Horror-Tycoon

function GetPlayer(plrname)
	for _,player in pairs(game.Players:GetPlayers()) do
		if plrname:lower() == player.Name:sub(1,plrname:len()):lower() then
			return player
		end
	end
	return nil
end

function destroy(arg1)
    game:GetService("ReplicatedStorage").Events.destryObj:FireServer(arg1)
end

local library = loadstring(game:HttpGet("https://pastebin.com/raw/7Z6TzFnv", true))()
local cash = library:CreateWindow({
  text = "Cash"
})

local admin = library:CreateWindow({
    text = "Admin"
})

local tycoon = library:CreateWindow({
    text = "Tycoon Stuff"
})

local credits = library:CreateWindow({
  text = "Credits"
})

credits:AddLabel("Credits to ScriptX#3145")
credits:AddLabel("for the destroy function!")
credits:AddLabel("")
credits:AddLabel("Credits to Randomize#0001")
credits:AddLabel("for the money script!")

cash:AddButton("+10", function()
    game.ReplicatedStorage.Events.CrateClaim:FireServer("Cash", 10)
end)

cash:AddLabel("")

cash:AddButton("+100", function()
    game.ReplicatedStorage.Events.CrateClaim:FireServer("Cash", 100)
end)

cash:AddLabel("")

cash:AddButton("+1000", function()
    game.ReplicatedStorage.Events.CrateClaim:FireServer("Cash", 1000)
end)

cash:AddLabel("")

cash:AddButton("+10000", function()
    game.ReplicatedStorage.Events.CrateClaim:FireServer("Cash", 10000)
end)

cash:AddLabel("")

cash:AddButton("+100000", function()
    game.ReplicatedStorage.Events.CrateClaim:FireServer("Cash", 100000)
end)

cash:AddLabel("")

cash:AddButton("+1000000", function()
    game.ReplicatedStorage.Events.CrateClaim:FireServer("Cash", 1000000)
end)

cash:AddLabel("")

cash:AddButton("+10000000", function()
    game.ReplicatedStorage.Events.CrateClaim:FireServer("Cash", 10000000)
end)

cash:AddLabel("")

cash:AddButton("+100000000", function()
    game.ReplicatedStorage.Events.CrateClaim:FireServer("Cash", 100000000)
end)

cash:AddLabel("")

admin:AddBox("Player To Kick", function(object, focus)
    if focus then
        local saved = object.Text
        object.Text = ""
        local pl = GetPlayer(saved)
        destroy(pl)
        object.Text = ""
    end
end)

admin:AddLabel("")

admin:AddBox("Player To Punish", function(object, focus)
    if focus then
        local saved = object.Text
        object.Text = ""
        local pl = GetPlayer(saved)
        destroy(pl.Character)
        object.Text = ""
    end
end)

admin:AddLabel("")

admin:AddBox("Player To Goto", function(object, focus)
    if focus then
        local saved = object.Text
        object.Text = ""
        local pl = GetPlayer(saved)
        game.Players.LocalPlayer.Character:MoveTo(pl.Character.HumanoidRootPart.Position)
    end
end)

admin:AddLabel("")

admin:AddBox("Player To Kill", function (object, focus)
    if focus then
        local saved = object.Text
        object.Text = ""
        local pl = GetPlayer(saved)
        destroy(pl.Character.Torso.Neck)
        object.Text = ""
    end
end)

admin:AddLabel("")

admin:AddBox("Player To Mute", function (object, focus)
    if focus then
        local saved = object.Text
        object.Text = ""
        local pl = GetPlayer(saved)
        destroy(pl.PlayerGui)
        object.Text = ""
    end
end)

admin:AddLabel("")

admin:AddButton("Shutdown Game", function()
    for i,v in pairs(game.Players:GetChildren()) do
        destroy(v)
    end
end)

tycoon:AddButton("Delete All Tycoons", function()
    destroy(game:GetService("Workspace")["Zednov's Tycoon Kit"])
end)

tycoon:AddLabel("")

tycoon:AddDropdown({'HOLDER', 'Baldi', 'Freddy', 'Sonic.exe', 'John Doe', 'Big Foot', 'Hello Neighbor', 'Killer Clown', 'Bendy', 'Slenderman', 'Granny'}, function(a)
     if a == 'Baldi' then
        destroy(game:GetService("Workspace")["Zednov's Tycoon Kit"].Tycoons.Baldi)
     elseif a == 'Freddy' then
        destroy(game:GetService("Workspace")["Zednov's Tycoon Kit"].Tycoons.Freddy)
     elseif a == 'Sonic.exe' then
        destroy(game:GetService("Workspace")["Zednov's Tycoon Kit"].Tycoons["Sonic.exe"])
     elseif a == 'John Doe' then
        destroy(game:GetService("Workspace")["Zednov's Tycoon Kit"].Tycoons["John Doe"])
     elseif a == 'Big Foot' then
        destroy(game:GetService("Workspace")["Zednov's Tycoon Kit"].Tycoons["Big Foot"])
     elseif a == 'Hello Neighbor' then
        destroy(game:GetService("Workspace")["Zednov's Tycoon Kit"].Tycoons["Hello Neighbor"])
     elseif a == 'Killer Clown' then
        destroy(game:GetService("Workspace")["Zednov's Tycoon Kit"].Tycoons["Killer Clown"])
     elseif a == 'Bendy' then
        destroy(game:GetService("Workspace")["Zednov's Tycoon Kit"].Tycoons.Bendy)
     elseif a == 'Slenderman' then
        destroy(game:GetService("Workspace")["Zednov's Tycoon Kit"].Tycoons.Slenderman)
     elseif a == 'Granny' then
        destroy(game:GetService("Workspace")["Zednov's Tycoon Kit"].Tycoons.Granny)
     end
end)