-------------------------------Variables
Player = game.Players.LocalPlayer
Player:WaitForChild("PlayerGui")
-------------------------------Gui
Gui = Instance.new("ScreenGui", Player.PlayerGui)
Gui.Name = "BloodMoonTycoonGui"
Gui.ResetOnSpawn = false
Frame = Instance.new("Frame", Gui)
Frame.BackgroundColor3 = Color3.fromRGB(255,255,255)
Frame.Size = UDim2.new(0.353,0,0.294,0)
Frame.Position = UDim2.new(0.069,0,0.415,0)
Frame.Active = true
Frame.Draggable = true
Name = Instance.new("TextLabel", Frame)
Name.BackgroundColor3 = Color3.fromRGB(110, 156, 255)
Name.Size = UDim2.new(1,0,0.226,0)
Name.Position = UDim2.new(0,0,0,0)
Name.Text = "Blood Moon Tycoon Gui V2"
InfRubies = Instance.new("TextButton", Frame)
InfRubies.BackgroundColor3 = Color3.fromRGB(255,255,255)
InfRubies.Size = UDim2.new(0.3,0,0.213,0)
InfRubies.Position = UDim2.new(0.016,0,0.266,0)
InfRubies.Text = "Infinite Rubies"
----------------------------------Event
InfRubies.MouseButton1Click:Connect(function()
	game.ReplicatedStorage.BuyItemFunction:InvokeServer("EmojiHatFrame",-999999)
end)
----------------------------------Gui
InfSapp = Instance.new("TextButton", Frame)
InfSapp.BackgroundColor3 = Color3.fromRGB(255,255,255)
InfSapp.Size = UDim2.new(0.3,0,0.213,0)
InfSapp.Position = UDim2.new(0.349,0,0.266,0)
InfSapp.Text = "Infinite Sapphire"
-----------------------------------Event
InfSapp.MouseButton1Click:Connect(function()
	game.ReplicatedStorage.BuySapphireItemFunction:InvokeServer("PikachuFrame",-999999)
end)
-----------------------------------Gui
KillOthers = Instance.new("TextButton", Frame)
KillOthers.BackgroundColor3 = Color3.fromRGB(255,255,255)
KillOthers.Size = UDim2.new(0.3,0,0.213,0)
KillOthers.Position = UDim2.new(0.685, 0,0.266,0)
KillOthers.Text = "Loop Kill Others Off"
LoopKillOthersOn = false
-----------------------------------Event
function LoopKillOthers()
	while _G.LoopKillOthers do
		for i,v in pairs(game.Players:children()) do
			if v ~= game.Players.LocalPlayer then
				game.ReplicatedStorage.DamageEvent:FireServer(v.Character:findFirstChildOfClass("Humanoid"), v.Character:findFirstChildOfClass("Humanoid").Health)
			end
		end
		wait(0.1)
	end
end
-----------------------------------Function
KillOthers.MouseButton1Click:Connect(function()
	if LoopKillOthersOn == false then
		LoopKillOthersOn = true
		KillOthers.Text = "Loop Kill Others On"
		_G.LoopKillOthers = true
		spawn(LoopKillOthers)
	else
		LoopKillOthersOn = false
		_G.LoopKillOthers = false
		KillOthers.Text = "Loop Kill Others Off"
	end
end)
-----------------------------------Gui
LoopKillZoms = Instance.new("TextButton", Frame)
LoopKillZoms.BackgroundColor3 = Color3.fromRGB(255,255,255)
LoopKillZoms.Size = UDim2.new(0.506,0,0.213,0)
LoopKillZoms.Position = UDim2.new(0.016,0,0.525,0)
LoopKillZoms.Text = "Loop Kill Zombies"
LoopKillZomsOn = Instance.new("TextLabel", Frame)
LoopKillZomsOn.BackgroundColor3 = Color3.fromRGB(255,255,255)
LoopKillZomsOn.Size = UDim2.new(0.432,0,0.216,0)
LoopKillZomsOn.Position = UDim2.new(0.553,0,0.522,0)
LoopKillZomsOn.Text = "Off"
------------------------------------Variables
ZOn = false
------------------------------------Event
function LoopKillZombies()
	while _G.LoopKillZombies do
		wait()
		for i,v in pairs(workspace:children()) do
			if v:findFirstChildOfClass("Humanoid") and v:findFirstChild("Head") and not game.Players:GetPlayerFromCharacter(v) then
				game.ReplicatedStorage.DamageEvent:FireServer(v:findFirstChildOfClass("Humanoid"), v:findFirstChildOfClass("Humanoid").Health)
			end
		end
	end
end
LoopKillZoms.MouseButton1Click:Connect(function()
	if ZOn == false then
		ZOn = true
		LoopKillZomsOn.Text = "On"
		_G.LoopKillZombies = true
		spawn(LoopKillZombies)
	else
		ZOn = false
		LoopKillZomsOn.Text = "Off"
		_G.LoopKillZombies = false
	end
end)
------------------------------------Gui
function PlayerKillLoop()
	name = Subject.Text
	while _G.PlayerLoop == true do
		wait(0.1)
		game.ReplicatedStorage.DamageEvent:FireServer(game.Players[name].Character:findFirstChildOfClass("Humanoid"), game.Players[name].Character:findFirstChildOfClass("Humanoid").Health)
	end
end
-------------------------------------
KillPlayer = Instance.new("TextButton", Frame)
KillPlayer.BackgroundColor3 = Color3.fromRGB(255,255,255)
KillPlayer.Size = UDim2.new(0.506,0,0.213,0)
KillPlayer.Position = UDim2.new(0.016,0,0.766,0)
KillPlayer.Text = "Loop Kill Player Off"
Subject = Instance.new("TextBox", Frame)
Subject.BackgroundColor3 = Color3.fromRGB(255,255,255)
Subject.Size = UDim2.new(0.432,0,0.216,0)
Subject.Position = UDim2.new(0.553,0,0.764,0)
Subject.PlaceholderText = "Player Name(Exact)"
Subject.Text = ""
PlayerLoopOn = false
------------------------------------Event
KillPlayer.MouseButton1Click:Connect(function()
 	if PlayerLoopOn == false then
		PlayerLoopOn = true
		_G.PlayerLoop = true
		KillPlayer.Text = "Loop Kill Player On"
		spawn(PlayerKillLoop)
	else
		PlayerLoopOn = false
		KillPlayer.Text = "Loop Kill Player Off"
		_G.PlayerLoop = false
	end
end)