Electric State DarkRP Script

-- 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-B"
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 = "Nope"
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 = "Nope"
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)



B1.MouseButton1Click:connect(function() --This is saying, when the gui button name (B1) is left clicked, perform a function

rs = game:GetService("ReplicatedStorage")
while true do
rs.Events.MenuActionEvent:FireServer(6, true)
wait(0.01)
end

end)


B2.MouseButton1Click:connect(function()

function highlightModel(objObject, color)
local v = objObject
local bHA=Instance.new('BoxHandleAdornment',v)
bHA.Adornee=v
bHA.Size= Vector3.new(1,1,1)
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.MoneyPrinters:GetChildren()) do
if gg:FindFirstChild("BoxHandleAdornment") then
unHighlightModel(gg)
end
if gg.Name == "Money Printer Advanced " then
highlightModel(gg, Color3.new(255,200,200)) --red
elseif gg.Name == "Money Printer Basic" then
highlightModel(gg, Color3.new(255,100,100)) --white
else
highlightModel(gg)
end
end

end)


B3.MouseButton1Click:connect(function()

    --Insert script here

end)


B4.MouseButton1Click:connect(function()

    --Insert script here

end)