Blood Moon Tycoon | God Mode , Kill Zombies , Tp Tool |

-- Gui to Lua
-- Version: 3

-- Instances:

local Bloodmoongui = Instance.new("ScreenGui")
local gui = Instance.new("Frame")
local crdits = Instance.new("TextLabel")
local credits = Instance.new("TextLabel")
local godmode = Instance.new("TextButton")
local killallzombies = Instance.new("TextButton")
local killallpeople = Instance.new("TextButton")
local lookkillzombies = Instance.new("TextButton")
local infiniterubies = Instance.new("TextButton")
local TPtool = Instance.new("TextButton")
local infsaphhires = Instance.new("TextButton")
local Autorebirth = Instance.new("TextButton")
local credits_2 = Instance.new("TextLabel")
local TextLabel = Instance.new("TextLabel")
local TextLabel_2 = Instance.new("TextLabel")
local Exitbutton = Instance.new("TextButton")

--Properties:

Bloodmoongui.Name = "Bloodmoon gui"
Bloodmoongui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")
Bloodmoongui.ResetOnSpawn = false

gui.Archivable = false
gui.Name = "gui"
gui.Parent = Bloodmoongui
gui.Active = true
gui.BackgroundColor3 = Color3.new(0.478431, 0.384314, 1)
gui.BorderColor3 = Color3.new(0.47451, 0.431373, 0.945098)
gui.BorderSizePixel = 0
gui.NextSelectionRight = TPtool
gui.Position = UDim2.new(0.330907702, 0, 0.197259963, 0)
gui.Size = UDim2.new(0, 429, 0, 440)
gui.Style = Enum.FrameStyle.RobloxRound

crdits.Name = "crdits"
crdits.Parent = gui
crdits.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
crdits.BackgroundTransparency = 1
crdits.BorderColor3 = Color3.new(0.117647, 0.117647, 0.117647)
crdits.BorderSizePixel = 0
crdits.Position = UDim2.new(0.0800650343, 0, 0.753929019, 0)
crdits.Size = UDim2.new(0, 350, 0, 90)
crdits.Font = Enum.Font.SourceSans
crdits.Text = "Made by !DancingDoggo#9986 you fucking skiddr"
crdits.TextColor3 = Color3.new(0.984314, 0.435294, 1)
crdits.TextSize = 15

credits.Name = "credits"
credits.Parent = gui
credits.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
credits.BackgroundTransparency = 1
credits.BorderSizePixel = 0
credits.Position = UDim2.new(0.256258041, 0, 0.905273736, 0)
credits.Size = UDim2.new(0, 200, 0, 25)
credits.Font = Enum.Font.SourceSans
credits.Text = "Please leave a vouch if you enjoyed"
credits.TextColor3 = Color3.new(0.984314, 0.435294, 1)
credits.TextSize = 14

godmode.Name = "godmode"
godmode.Parent = gui
godmode.Active = false
godmode.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
godmode.BorderColor3 = Color3.new(0.117647, 0.117647, 0.117647)
godmode.BorderSizePixel = 0
godmode.Position = UDim2.new(0.00466200337, 0, 0.102272727, 0)
godmode.Size = UDim2.new(0, 200, 0, 50)
godmode.Font = Enum.Font.SourceSans
godmode.Text = "God mode"
godmode.TextColor3 = Color3.new(0.984314, 0.435294, 1)
godmode.TextSize = 20
godmode.TextStrokeColor3 = Color3.new(0.984314, 0.435294, 1)

killallzombies.Name = "kill all zombies"
killallzombies.Parent = gui
killallzombies.Active = false
killallzombies.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
killallzombies.BorderColor3 = Color3.new(0.117647, 0.117647, 0.117647)
killallzombies.BorderSizePixel = 0
killallzombies.Position = UDim2.new(0.00466200337, 0, 0.279545456, 0)
killallzombies.Size = UDim2.new(0, 200, 0, 50)
killallzombies.Font = Enum.Font.SourceSans
killallzombies.Text = "kill all monsters"
killallzombies.TextColor3 = Color3.new(0.984314, 0.435294, 1)
killallzombies.TextSize = 20
killallzombies.TextStrokeColor3 = Color3.new(0.984314, 0.435294, 1)

print("Made by your fucking boy, dancing doggo make sure to harras kilex for being a clout hungry racist ass bitch")

killallpeople.Name = "kill all people"
killallpeople.Parent = gui
killallpeople.Active = false
killallpeople.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
killallpeople.BorderColor3 = Color3.new(0.117647, 0.117647, 0.117647)
killallpeople.BorderSizePixel = 0
killallpeople.Position = UDim2.new(0.515151501, 0, 0.102272727, 0)
killallpeople.Size = UDim2.new(0, 200, 0, 50)
killallpeople.Font = Enum.Font.SourceSans
killallpeople.Text = "Kill all people"
killallpeople.TextColor3 = Color3.new(0.984314, 0.435294, 1)
killallpeople.TextSize = 20
killallpeople.TextStrokeColor3 = Color3.new(0.984314, 0.435294, 1)

game.ReplicatedStorage.DefaultChatSystemChatEvents.SayMessageRequest:FireServer("Made by Dancingdoggo. Enjoy" ,"All")

lookkillzombies.Name = "look kill zombies"
lookkillzombies.Parent = gui
lookkillzombies.Active = false
lookkillzombies.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
lookkillzombies.BorderColor3 = Color3.new(0.117647, 0.117647, 0.117647)
lookkillzombies.BorderSizePixel = 0
lookkillzombies.Position = UDim2.new(0.512820482, 0, 0.277272731, 0)
lookkillzombies.Size = UDim2.new(0, 200, 0, 50)
lookkillzombies.Font = Enum.Font.SourceSans
lookkillzombies.Text = "Loopkill zombies"
lookkillzombies.TextColor3 = Color3.new(0.984314, 0.435294, 1)
lookkillzombies.TextSize = 20
lookkillzombies.TextStrokeColor3 = Color3.new(0.984314, 0.435294, 1)

infiniterubies.Name = "infinite rubies"
infiniterubies.Parent = gui
infiniterubies.Active = false
infiniterubies.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
infiniterubies.BorderColor3 = Color3.new(0.117647, 0.117647, 0.117647)
infiniterubies.BorderSizePixel = 0
infiniterubies.Position = UDim2.new(0.00466201082, 0, 0.438636363, 0)
infiniterubies.Size = UDim2.new(0, 200, 0, 50)
infiniterubies.Font = Enum.Font.SourceSans
infiniterubies.Text = "Infinite rubbies"
infiniterubies.TextColor3 = Color3.new(0.984314, 0.435294, 1)
infiniterubies.TextSize = 20
infiniterubies.TextStrokeColor3 = Color3.new(0.984314, 0.435294, 1)

TPtool.Name = "TP tool"
TPtool.Parent = gui
TPtool.Active = false
TPtool.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
TPtool.BorderColor3 = Color3.new(0.117647, 0.117647, 0.117647)
TPtool.BorderSizePixel = 0
TPtool.Position = UDim2.new(0.512820482, 0, 0.438636363, 0)
TPtool.Size = UDim2.new(0, 200, 0, 50)
TPtool.Font = Enum.Font.SourceSans
TPtool.Text = "Tp tool "
TPtool.TextColor3 = Color3.new(0.984314, 0.435294, 1)
TPtool.TextSize = 20
TPtool.TextStrokeColor3 = Color3.new(0.984314, 0.435294, 1)

infsaphhires.Name = "inf saphhires"
infsaphhires.Parent = gui
infsaphhires.Active = false
infsaphhires.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
infsaphhires.BorderColor3 = Color3.new(0.117647, 0.117647, 0.117647)
infsaphhires.BorderSizePixel = 0
infsaphhires.Position = UDim2.new(0.00466201082, 0, 0.600000024, 0)
infsaphhires.Size = UDim2.new(0, 200, 0, 50)
infsaphhires.Font = Enum.Font.SourceSans
infsaphhires.Text = "Inf sapphire"
infsaphhires.TextColor3 = Color3.new(0.984314, 0.435294, 1)
infsaphhires.TextSize = 20
infsaphhires.TextStrokeColor3 = Color3.new(0.984314, 0.435294, 1)

Autorebirth.Name = "Auto rebirth"
Autorebirth.Parent = gui
Autorebirth.Active = false
Autorebirth.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
Autorebirth.BorderColor3 = Color3.new(0.117647, 0.117647, 0.117647)
Autorebirth.BorderSizePixel = 0
Autorebirth.Position = UDim2.new(0.512820482, 0, 0.600000024, 0)
Autorebirth.Size = UDim2.new(0, 200, 0, 50)
Autorebirth.Font = Enum.Font.SourceSans
Autorebirth.Text = "Auto rebirth"
Autorebirth.TextColor3 = Color3.new(0.984314, 0.435294, 1)
Autorebirth.TextSize = 20
Autorebirth.TextStrokeColor3 = Color3.new(0.984314, 0.435294, 1)

credits_2.Name = "credits"
credits_2.Parent = gui
credits_2.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
credits_2.BackgroundTransparency = 1
credits_2.BorderSizePixel = 0
credits_2.Position = UDim2.new(0.256258041, 0, 0.962091923, 0)
credits_2.Size = UDim2.new(0, 200, 0, 25)
credits_2.Font = Enum.Font.SourceSans
credits_2.Text = "This is my first ever gui so im sorry if its a bit crappy"
credits_2.TextColor3 = Color3.new(0.984314, 0.435294, 1)
credits_2.TextSize = 14

TextLabel.Parent = gui
TextLabel.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
TextLabel.BackgroundTransparency = 1
TextLabel.BorderColor3 = Color3.new(0.117647, 0.117647, 0.117647)
TextLabel.BorderSizePixel = 0
TextLabel.Position = UDim2.new(0.261072248, 0, -0.0159090906, 0)
TextLabel.Size = UDim2.new(0, 200, 0, 50)
TextLabel.Font = Enum.Font.SourceSans
TextLabel.Text = "This is free exploits-friendly so dont worry"
TextLabel.TextColor3 = Color3.new(0.984314, 0.435294, 1)
TextLabel.TextSize = 14
TextLabel.TextStrokeColor3 = Color3.new(0.117647, 0.117647, 0.117647)

TextLabel_2.Parent = gui
TextLabel_2.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
TextLabel_2.BackgroundTransparency = 1
TextLabel_2.BorderColor3 = Color3.new(0.117647, 0.117647, 0.117647)
TextLabel_2.BorderSizePixel = 0
TextLabel_2.Position = UDim2.new(0.254079252, 0, 0.690909088, 0)
TextLabel_2.Size = UDim2.new(0, 200, 0, 50)
TextLabel_2.Font = Enum.Font.SourceSans
TextLabel_2.Text = "Please dont abuse this, or do i cant stop you"
TextLabel_2.TextColor3 = Color3.new(0.984314, 0.435294, 1)
TextLabel_2.TextSize = 14
TextLabel_2.TextStrokeColor3 = Color3.new(0.117647, 0.117647, 0.117647)

Exitbutton.Name = "Exit button"
Exitbutton.Parent = gui
Exitbutton.Active = false
Exitbutton.BackgroundColor3 = Color3.new(1, 1, 1)
Exitbutton.BackgroundTransparency = 1
Exitbutton.Position = UDim2.new(0.807162583, 0, -0.0198760293, 0)
Exitbutton.Size = UDim2.new(0, 87, 0, 49)
Exitbutton.Font = Enum.Font.SourceSans
Exitbutton.Text = "X"
Exitbutton.TextColor3 = Color3.new(1, 1, 1)
Exitbutton.TextScaled = true
Exitbutton.TextSize = 14
Exitbutton.TextStrokeColor3 = Color3.new(1, 1, 1)
Exitbutton.TextWrapped = true

-- Scripts:

local function JCBZJLJ_fake_script() -- Exitbutton.LocalScript
	local script = Instance.new('LocalScript', Exitbutton)

	local mouse = game.Players.LocalPlayer:GetMouse()
	local frame = script.Parent.Parent

	script.Parent.MouseButton1Down:Connect(function()
	frame.Position = UDim2.new(mouse.X, mouse.Y)
	end)
end
coroutine.wrap(JCBZJLJ_fake_script)()
local function TXKOC_fake_script() -- Bloodmoongui.LocalScript
	local script = Instance.new('LocalScript', Bloodmoongui)

	for _,v in ipairs(script.Parent:GetDescendants()) do
	if not v:IsA("LocalScript") then
	v.Draggable = true
	end
	end
end
coroutine.wrap(TXKOC_fake_script)()





---auto rebirth

Autorebirth.MouseButton1Click:connect(function()
wait(0.5)
while wait(6) do
local A_1 = 121
local A_2 = game:GetService("Workspace").Tycoons["Really blue"]
local A_3 = 765329874
local Event = game:GetService("ReplicatedStorage").PlayerRebirthEvent
Event:FireServer(A_1, A_2, A_3)
end
end)


---tp tool


TPtool.MouseButton1Click:connect(function()
wait(0.5)
mouse = game.Players.LocalPlayer:GetMouse()
tool = Instance.new("Tool")
tool.RequiresHandle = false
tool.Name = "Click Teleport"
tool.Activated:connect(function()
local pos = mouse.Hit+Vector3.new(0,2.5,0)
pos = CFrame.new(pos.X,pos.Y,pos.Z)
game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = pos
end)
tool.Parent = game.Players.LocalPlayer.Backpack
end)


---god mode


godmode.MouseButton1Click:connect(function()
wait(0.5)
game.ReplicatedStorage.DamageEvent:FireServer(game.Players.LocalPlayer.Character.Humanoid, -math.huge)
end)


---inf sapphire


infsaphhires.MouseButton1Click:connect(function()
wait(0.5)
game.ReplicatedStorage.BuySapphireItemFunction:InvokeServer("HealingOrb",-1e+99999999)
end)


---inf rubbies


infiniterubies.MouseButton1Click:connect(function()
wait(0.5)
game.ReplicatedStorage.BuyItemFunction:InvokeServer("EmojiHatFrame",-1e+99999999)
end)


--kill everyone


killallpeople.MouseButton1Click:connect(function()
wait(0.5)
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
end)


---kill all zombies


killallzombies.MouseButton1Click:connect(function()
wait(0.5)
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)


---loopkill all zombies


loopkillzombies.MouseButton1Click:connect(function()
wait(0.5)
while wait() do
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)