-- Farewell Infortality.
-- Version: 2.82
-- Instances:
local ScreenGui = Instance.new("ScreenGui")
local Menu = Instance.new("Frame")
local Frame = Instance.new("Frame")
local B1 = Instance.new("TextButton")
local B3 = Instance.new("TextButton")
local B4 = Instance.new("TextButton")
local B2 = Instance.new("TextButton")
local Credit = Instance.new("TextLabel")
local Button = Instance.new("TextButton")
--Properties:
ScreenGui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")

Menu.Name = "Menu"
Menu.Parent = ScreenGui
Menu.Active = true
Menu.BackgroundColor3 = Color3.new(0, 0, 0)
Menu.BackgroundTransparency = 0.40000000596046
Menu.BorderColor3 = Color3.new(1, 0, 0)
Menu.BorderSizePixel = 2
Menu.Draggable = true
Menu.Position = UDim2.new(0.220274389, -171, 0.686549664, -141)
Menu.Selectable = true
Menu.Size = UDim2.new(0, 275, 0, 172)

Frame.Parent = Menu
Frame.Active = true
Frame.BackgroundColor3 = Color3.new(1, 0, 0)
Frame.BackgroundTransparency = 0.40000000596046
Frame.BorderSizePixel = 0
Frame.Draggable = true
Frame.Position = UDim2.new(-0.0020011086, 0, 0.238562495, 0)
Frame.Selectable = true
Frame.Size = UDim2.new(0, 275, 0, 6)

B1.Name = "B1"
B1.Parent = Menu
B1.BackgroundColor3 = Color3.new(0.517647, 0.517647, 0.517647)
B1.BackgroundTransparency = 0.40000000596046
B1.Position = UDim2.new(0.0989911258, 0, 0.394675642, 0)
B1.Size = UDim2.new(0, 93, 0, 35)
B1.Font = Enum.Font.SourceSans
B1.Text = "A-R-N"
B1.TextColor3 = Color3.new(0, 0, 0)
B1.TextSize = 14

B3.Name = "B3"
B3.Parent = Menu
B3.BackgroundColor3 = Color3.new(0.517647, 0.517647, 0.517647)
B3.BackgroundTransparency = 0.40000000596046
B3.Position = UDim2.new(0.561887503, 0, 0.708629131, 0)
B3.Size = UDim2.new(0, 93, 0, 35)
B3.Font = Enum.Font.SourceSans
B3.Text = "Edit3"
B3.TextColor3 = Color3.new(0, 0, 0)
B3.TextSize = 14

B4.Name = "B4"
B4.Parent = Menu
B4.BackgroundColor3 = Color3.new(0.517647, 0.517647, 0.517647)
B4.BackgroundTransparency = 0.40000000596046
B4.Position = UDim2.new(0.0989911258, 0, 0.706663966, 0)
B4.Size = UDim2.new(0, 93, 0, 35)
B4.Font = Enum.Font.SourceSans
B4.Text = "Edit4"
B4.TextColor3 = Color3.new(0, 0, 0)
B4.TextSize = 14

B2.Name = "B2"
B2.Parent = Menu
B2.BackgroundColor3 = Color3.new(0.517647, 0.517647, 0.517647)
B2.BackgroundTransparency = 0.40000000596046
B2.Position = UDim2.new(0.561887503, 0, 0.392710447, 0)
B2.Size = UDim2.new(0, 93, 0, 35)
B2.Font = Enum.Font.SourceSans
B2.Text = "ESP"
B2.TextColor3 = Color3.new(0, 0, 0)
B2.TextSize = 14

Credit.Name = "Credit"
Credit.Parent = Menu
Credit.BackgroundColor3 = Color3.new(0, 0, 0)
Credit.BackgroundTransparency = 1
Credit.Position = UDim2.new(0.134764418, 0, 0.0475180149, 0)
Credit.Size = UDim2.new(0, 200, 0, 25)
Credit.Font = Enum.Font.Cartoon
Credit.Text = "Made by Rob123"
Credit.TextColor3 = Color3.new(1, 1, 1)
Credit.TextSize = 20

Button.Name = "Button"
Button.Parent = ScreenGui
Button.BackgroundColor3 = Color3.new(0, 0, 0)
Button.BackgroundTransparency = 0.5
Button.Position = UDim2.new(0.452743888, 0, 0, 0)
Button.Size = UDim2.new(0, 200, 0, 25)
Button.Font = Enum.Font.ArialBold
Button.Text = "Open/Close"
Button.TextColor3 = Color3.new(1, 1, 1)
Button.TextSize = 20


-- Scripts:
Menu.Active = true
Menu.Selectable = true
Menu.Draggable = true
Frame.Draggable = true
Frame.Active = true
Frame.Selectable = true
OC = 0
Button.MouseButton1Click:connect(function()
    if OC == 0 then
        OC = 1
        Menu.Visible = true
    elseif OC == 1 then
        OC = 0
        Menu.Visible = false
    end
end)


Var = 0 -- This will be your variable for the first button to check if it's on or off, this can not be similar to any other variable already made like "B1" or "OC" or "Frame" etc.
B1.MouseButton1Click:connect(function() --This is saying, when the gui button name (B1) is left clicked, perform a function
    if Var == 0 then -- this checks if the variable is at 0, in this case var is on or off so if it's off it will turn on
        Var = 1  -- this is turning var to 1 turning it on in this case
        while Var == 1 do -- while the script is on and working do the following
            game:GetService('RunService').Stepped:wait() -- this is a wait
			--Script 1
			rs = game:GetService("ReplicatedStorage")

while true do
rs.Events.MenuActionEvent:FireServer(6, true)
wait(0.01)
end

			else --else if var does not = 0 do the following
        Var = 0 --make var 0 basically saying the script is off
    end
end)

Var2 = 0
B2.MouseButton1Click:connect(function()
    if Var2 == 0 then
        Var2 = 1
        while Var2 == 1 do
            game:GetService('RunService').Stepped:wait()
			--Script 2


			function highlightModel(objObject, color)
local v = objObject
local bHA=Instance.new('BoxHandleAdornment',v)
bHA.Adornee=v
bHA.Size= v.Size
bHA.Color3= color or Color3.new(255,255,255)
bHA.Transparency=.5
bHA.ZIndex=1
bHA.AlwaysOnTop=true
end

function unHighlightModel(objObject)
objObject.BoxHandleAdornment:Destroy()
end

for _,gg in pairs(game.Workspace.Gold:GetChildren()) do
if gg:FindFirstChild("BoxHandleAdornment") then
unHighlightModel(gg)
end
if gg.Name == "Advanced Money Printer" then
highlightModel(gg, Color3.new(255,200,200)) --red
elseif gg.Name == "Basic Money Printer" then
highlightModel(gg, Color3.new(255,100,100)) --white
else
highlightModel(gg)
end
end

			else
        Var2 = 0
    end
end)

Var3 = 0
B3.MouseButton1Click:connect(function()
    if Var3 == 0 then
        Var3 = 1
        while Var3 == 1 do
            game:GetService('RunService').Stepped:wait()
            --code here
        end
    else
        Var3 = 0
    end
end)

Var4 = 0
B4.MouseButton1Click:connect(function()
    if Var4 == 0 then
        Var4 = 1
        while Var4 == 1 do
            game:GetService('RunService').Stepped:wait()
            --code
        end
    else
        Var4 = 0
    end
end)