Apoc Scripts (No GUIs)

Godmode (Infinite Regen Version, sry)
------------------------------------
lp = game.Workspace:findFirstChild(game.Players.LocalPlayer.Name)
remote = game.Lighting.Remote

while true do
wait(0.1)
remote.AddHealth:FireServer(lp.Humanoid, 120)
end
-------------------------------------
FAL Kit (Server Sided)
-------------------------------------
remote = game.Lighting.Remote
ao = remote.AddObject
slots = game.Players.LocalPlayer.playerstats.slots
cp = remote.ChangeProperty
di = remote.DropItem
item1 = 4016
slot1 = slots.slotbackpack --Millibag
ao:FireServer(slot1, item1)
wait(0.2)
item2 = 1029
slot2 = slots.slotprimary --FAL
ao:FireServer(slot2, item2)
wait(0.2)
item3 = 64
slot3 = slots.slot5 --FAL MAG
ao:FireServer(slot3, item3)
wait(0.2)
item4 = 64
slot4 = slots.slot6
ao:FireServer(slot4, item4) --FAL MAG

wait(0.2)
item5 = 64
slot5 = slots.slot7
ao:FireServer(slot5, item5) -- FAL MAG
wait(0.2)
item51 = 64
slot51 = slots.slot10
ao:FireServer(slot51, item51) -- FAL MAG
wait(0.2)
item52 = 64
slot52 = slots.slot11
ao:FireServer(slot52, item52) -- FAL MAG
wait(0.2)
item6 = 9013
slot6 = slots.slot8
ao:FireServer(slot6, item6) -- ACOG SIGHT FOR FAL
wait(0.2)
item7 = 9005
slot7 = slots.slot9
ao:FireServer(slot7, item7) -- SUPPRESSOR FOR FAL
wait(0.2)
item8 = 9010
slot8 = slots.slot13
ao:FireServer(slot8, item8) -- GRIP FOR FAL
wait(0.2)
item8 = 11
slot8 = slots.slot14
ao:FireServer(slot8, item8) -- BLOOD BAG
wait(0.2)
item8 = 11
slot8 = slots.slot15
ao:FireServer(slot8, item8) -- BLOOD BAG
wait(0.2)
item8 = 11
slot8 = slots.slot16
ao:FireServer(slot8, item8) -- BLOOD BAG
wait(0.2)
item8 = 11
slot8 = slots.slot17
ao:FireServer(slot8, item8) -- BLOOD BAG
wait(0.2)
item8 = 11
slot8 = slots.slot18
ao:FireServer(slot8, item8) -- BLOOD BAG
wait(0.2)
item8 = 12
slot8 = slots.slot19
ao:FireServer(slot8, item8) -- PAINKILLERS
-------------------------------------
Click to Teleport to Cursor (Press E)
-------------------------------------
plr = game.Players.LocalPlayer

hum = plr.Character.HumanoidRootPart

mouse = plr:GetMouse()



mouse.KeyDown:connect(function(key)

if key == "e" then

if mouse.Target then

hum.CFrame = CFrame.new(mouse.Hit.x, mouse.Hit.y + 5, mouse.Hit.z)

end

end
end)
-------------------------------------
Car/Bike Speed
-------------------------------------
local MaxSpeed = 500
for i,v in pairs(workspace.Vehicles:GetChildren()) do
if v.Name ~= 'VehicleWreck' then
v.Stats.MaxSpeed.Value = MaxSpeed
v.Stats.MaxSpeed.Offroad.Value = MaxSpeed
end
end
-------------------------------------
MSG Gui
-------------------------------------
wait(3)
local plr = game:GetService("Players").LocalPlayer
local char = plr.Character
local gui = plr.PlayerGui
local mouse = plr:GetMouse()

local UI = Instance.new("ScreenGui", gui)

local Back = Instance.new("TextLabel", UI)
local Red = Instance.new("TextButton", Back)
local Yellow = Instance.new("TextButton", Back)
local Blue = Instance.new("TextButton", Back)
local Green = Instance.new("TextButton", Back)
local Msg = Instance.new("TextLabel", Back)
local TXTBOX = Instance.new("TextBox", Back)
local var = Instance.new("StringValue", UI)
local exec = Instance.new("TextButton", Back)

Back.BackgroundColor3 = Color3.new(155, 155, 155)
Back.BackgroundTransparency = 0.7
Back.BorderColor3 = Color3.new(27, 42, 53)
Back.Name = "Background"
Back.Position = UDim2.new(0, 900, 0, 350)
Back.Size = UDim2.new(0, 200, 0, 200)
Back.Text = ""

Red.BackgroundColor3 = Color3.new(255, 255, 255)
Red.BackgroundTransparency = 0.7
Red.BorderColor3 = Color3.new(255, 0, 0)
Red.BorderSizePixel = 2
Red.Name = "Red"
Red.Position = UDim2.new(0, 0, 0, 0)
Red.Size = UDim2.new(0, 50, 0, 25)
Red.Text = "Red"

Blue.BackgroundColor3 = Color3.new(255, 255, 255)
Blue.BackgroundTransparency = 0.7
Blue.BorderColor3 = Color3.new(0, 0, 255)
Blue.BorderSizePixel = 2
Blue.Name = "Blue"
Blue.Position = UDim2.new(0, 50, 0, 0)
Blue.Size = UDim2.new(0, 50, 0, 25)
Blue.Text = "Blue"

Green.BackgroundColor3 = Color3.new(255, 255, 255)
Green.BackgroundTransparency = 0.7
Green.BorderColor3 = Color3.new(0, 255, 0)
Green.BorderSizePixel = 2
Green.Name = "Green"
Green.Position = UDim2.new(0, 100, 0, 0)
Green.Size = UDim2.new(0, 50, 0, 25)
Green.Text = "Green"

Yellow.BackgroundColor3 = Color3.new(255, 255, 255)
Yellow.BackgroundTransparency = 0.7
Yellow.BorderColor3 = Color3.new(255, 255, 0)
Yellow.BorderSizePixel = 2
Yellow.Name = "Yellow"
Yellow.Position = UDim2.new(0, 150, 0, 0)
Yellow.Size = UDim2.new(0, 50, 0, 25)
Yellow.Text = "Yellow"

TXTBOX.BackgroundColor3 = Color3.new(1, 1, 1)
TXTBOX.BackgroundTransparency = 0.7
TXTBOX.BorderColor3 = Color3.new(50, 50, 50)
TXTBOX.BorderSizePixel = 2
TXTBOX.Name = "Msg"
TXTBOX.Position = UDim2.new(0, 25, 0, 100)
TXTBOX.Size = UDim2.new(0, 150, 0, 25)
TXTBOX.Text = "Message"
TXTBOX.TextColor3 = Color3.new(51, 255, 51)

Msg.BackgroundColor3 = Color3.new(1, 1, 1)
Msg.BackgroundTransparency = 1
Msg.BorderColor3 = Color3.new(50, 50, 50)
Msg.BorderSizePixel = 0
Msg.Name = "MSGLabel"
Msg.Position = UDim2.new(0, 25, 0, 75)
Msg.Size = UDim2.new(0, 150, 0, 25)
Msg.Text = "Type message here.."
Msg.TextColor3 = Color3.new(51, 255, 255)


exec.BackgroundColor3 = Color3.new(1, 1, 1)
exec.BackgroundTransparency = 0.5
exec.BorderColor3 = Color3.new(50, 50, 50)
exec.BorderSizePixel = 1
exec.Name = "Execute"
exec.Position = UDim2.new(0, 50, 0, 130)
exec.Size = UDim2.new(0, 100, 0, 20)
exec.Text = "Execute"
exec.TextColor3 = Color3.new(51, 255, 255)



Red.MouseButton1Down:connect(function()
var.Value = "Red"
print("Loaded Yellow")
ife()
end)

Blue.MouseButton1Down:connect(function()
var.Value = "Blue"
print("Loaded Blue")
ife()
end)

Yellow.MouseButton1Down:connect(function()
var.Value = "Yellow"
print("Loaded Yellow")
ife()
end)

Green.MouseButton1Down:connect(function()
var.Value = "Green"
print("Loaded Green")
ife()
end)

function ife()
if var.Value == "Red" then
Red.BorderSizePixel = 3
Blue.BorderSizePixel = 2
Green.BorderSizePixel = 2
Yellow.BorderSizePixel = 2
print("Loaded Red Val")
elseif var.Value == "Blue" then
Red.BorderSizePixel = 2
Blue.BorderSizePixel = 3
Green.BorderSizePixel = 2
Yellow.BorderSizePixel = 2
print("Loaded Red Val")
elseif var.Value == "Green" then
Red.BorderSizePixel = 2
Blue.BorderSizePixel = 2
Green.BorderSizePixel = 3
Yellow.BorderSizePixel = 2
print("Loaded Green Val")
elseif var.Value == "Yellow" then
Red.BorderSizePixel = 2
Blue.BorderSizePixel = 2
Green.BorderSizePixel = 2
Yellow.BorderSizePixel = 3
print("Loaded Green Val")
end
end

exec.MouseButton1Down:connect(function()
executed()
end)
function executed()
for i,v in pairs(game.Players:GetChildren()) do game.Lighting.Remote.SendMessage:FireServer(v, tostring(var.Value) , tostring(TXTBOX.Text)) end



end


print("Loaded Succesfully!")

-------------------------------------
Car Parts Spawn (4 RWheels, Scrap Metal, Ballistic Glass)(Server Sided)
-------------------------------------
remote = game.Lighting.Remote
ao = remote.AddObject
slots = game.Players.LocalPlayer.playerstats.slots
cp = remote.ChangeProperty
di = remote.DropItem
item3 = 189
slot3 = slots.slot3 -- Reinforced Wheel
ao:FireServer(slot3, item3)
wait(0.2)
item4 = 189
slot4 = slots.slot4
ao:FireServer(slot4, item4) -- Reinforced Wheel
wait(0.2)
item5 = 189
slot5 = slots.slot5
ao:FireServer(slot5, item5) -- Reinforced Wheel
wait(0.2)
item51 = 189
slot51 = slots.slot6
ao:FireServer(slot51, item51) -- Reinforced Wheel
wait(0.2)
item52 = 188
slot52 = slots.slot7
ao:FireServer(slot52, item52) -- Armor Plates
wait(0.2)
item6 = 187
slot6 = slots.slot8
ao:FireServer(slot6, item6) -- Ballistic Glass
wait(0.2)
item7 = 185
slot7 = slots.slot9
ao:FireServer(slot7, item7) -- Jerry Can
wait(0.2)
item8 = 181
slot8 = slots.slot10
ao:FireServer(slot8, item8) -- Engine Parts
wait(0.2)
item8 = 182
slot8 = slots.slot11
ao:FireServer(slot8, item8) -- Fuel Tank
wait(0.2)
item8 = 183
slot8 = slots.slot12
ao:FireServer(slot8, item8) -- Scrap Metal
-------------------------------------
Car Godmode
-------------------------------------
workspace.Vehicles.Name.Stats.Armor.Value = 9999999
-------------------------------------
Blow Up All Cars
-------------------------------------
for i,v in pairs(game.Workspace.Vehicles:GetChildren()) do
if v.Name ~= "Holder" or v.Name ~= "VehicleWreck" then
if v:findFirstChild("Stats") then
v.Stats.Engine.Value = 0
end
end
end
-------------------------------------
Patriot Kit
-------------------------------------
remote = game.Lighting.Remote
ao = remote.AddObject
slots = game.Players.LocalPlayer.playerstats.slots
cp = remote.ChangeProperty
di = remote.DropItem
item1 = 4016
slot1 = slots.slotbackpack --Millibag
ao:FireServer(slot1, item1)
wait(0.2)
item2 = 1021
slot2 = slots.slotprimary --FAL
ao:FireServer(slot2, item2)
wait(0.2)
item3 = 53
slot3 = slots.slot5 --FAL MAG
ao:FireServer(slot3, item3)
wait(0.2)
item4 = 53
slot4 = slots.slot6
ao:FireServer(slot4, item4) --FAL MAG

wait(0.2)
item5 = 53
slot5 = slots.slot7
ao:FireServer(slot5, item5) -- FAL MAG
wait(0.2)
item51 = 53
slot51 = slots.slot10
ao:FireServer(slot51, item51) -- FAL MAG
wait(0.2)
item52 = 53
slot52 = slots.slot11
ao:FireServer(slot52, item52) -- FAL MAG
wait(0.2)
item6 = 9013
slot6 = slots.slot8
ao:FireServer(slot6, item6) -- ACOG SIGHT FOR FAL
wait(0.2)
item7 = 9005
slot7 = slots.slot9
ao:FireServer(slot7, item7) -- GRIP FOR FAL
item8 = 9010
slot8 = slots.slot13
ao:FireServer(slot8, item8) -- GRIP FOR FAL
wait(0.2)
item8 = 11
slot8 = slots.slot14
ao:FireServer(slot8, item8) -- BLOOD BAG
wait(0.2)
item8 = 11
slot8 = slots.slot15
ao:FireServer(slot8, item8) -- BLOOD BAG
wait(0.2)
item8 = 53
slot8 = slots.slot16
ao:FireServer(slot8, item8) -- BLOOD BAG
wait(0.2)
item8 = 11
slot8 = slots.slot17
ao:FireServer(slot8, item8) -- BLOOD BAG
wait(0.2)
item8 = 11
slot8 = slots.slot18
ao:FireServer(slot8, item8) -- BLOOD BAG
wait(0.2)
item8 = 12
slot8 = slots.slot19
ao:FireServer(slot8, item8) -- PAINKILLERS