Military Simulator GUI [Synapse or Sintinel Required]

-- Instances:
local MilGUI = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local title = Instance.new("TextLabel")
local tpguns = Instance.new("TextButton")
local rlist = Instance.new("TextButton")
local infjump = Instance.new("TextButton")
local moresoon = Instance.new("TextButton")
local openclose = Instance.new("TextButton")
--Properties:
MilGUI.Name = "MilGUI"
MilGUI.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")
MilGUI.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
MilGUI.ResetOnSpawn = false

Frame.Parent = MilGUI
Frame.BackgroundColor3 = Color3.new(0.188235, 0.188235, 0.188235)
Frame.BorderColor3 = Color3.new(1, 0, 0)
Frame.BorderSizePixel = 5
Frame.Position = UDim2.new(0.0645577759, 0, 0.428977281, 0)
Frame.Size = UDim2.new(0, 200, 0, 209)

title.Name = "title"
title.Parent = Frame
title.BackgroundColor3 = Color3.new(0.156863, 0.156863, 0.156863)
title.BorderColor3 = Color3.new(1, 0, 0)
title.BorderSizePixel = 5
title.Size = UDim2.new(0, 200, 0, 39)
title.Font = Enum.Font.GothamSemibold
title.Text = "Military Simulator GUI"
title.TextColor3 = Color3.new(1, 1, 1)
title.TextScaled = true
title.TextSize = 25
title.TextStrokeColor3 = Color3.new(1, 0, 0.0156863)
title.TextStrokeTransparency = 0
title.TextWrapped = true

tpguns.Name = "tpguns"
tpguns.Parent = Frame
tpguns.BackgroundColor3 = Color3.new(1, 1, 1)
tpguns.BackgroundTransparency = 1
tpguns.BorderColor3 = Color3.new(1, 0, 0)
tpguns.BorderSizePixel = 0
tpguns.Position = UDim2.new(0, 0, 0.234728873, 0)
tpguns.Size = UDim2.new(0, 200, 0, 50)
tpguns.Font = Enum.Font.Gotham
tpguns.Text = "Teleport guns to Immigrant spawn"
tpguns.TextColor3 = Color3.new(1, 1, 1)
tpguns.TextSize = 25
tpguns.TextStrokeColor3 = Color3.new(1, 0, 0)
tpguns.TextStrokeTransparency = 0
tpguns.TextWrapped = true

rlist.Name = "rlist"
rlist.Parent = Frame
rlist.BackgroundColor3 = Color3.new(1, 1, 1)
rlist.BackgroundTransparency = 1
rlist.BorderColor3 = Color3.new(1, 0, 0)
rlist.BorderSizePixel = 0
rlist.Position = UDim2.new(0, 0, 0.533034325, 0)
rlist.Size = UDim2.new(0, 200, 0, 27)
rlist.Font = Enum.Font.Gotham
rlist.Text = "Toggle player list"
rlist.TextColor3 = Color3.new(1, 1, 1)
rlist.TextSize = 25
rlist.TextStrokeColor3 = Color3.new(1, 0, 0)
rlist.TextStrokeTransparency = 0
rlist.TextWrapped = true

infjump.Name = "infjump"
infjump.Parent = Frame
infjump.BackgroundColor3 = Color3.new(1, 1, 1)
infjump.BackgroundTransparency = 1
infjump.BorderColor3 = Color3.new(1, 0, 0)
infjump.BorderSizePixel = 0
infjump.Position = UDim2.new(0, 0, 0.72717303, 0)
infjump.Size = UDim2.new(0, 200, 0, 27)
infjump.Font = Enum.Font.Gotham
infjump.Text = "Infinite jump"
infjump.TextColor3 = Color3.new(1, 1, 1)
infjump.TextSize = 25
infjump.TextStrokeColor3 = Color3.new(1, 0, 0)
infjump.TextStrokeTransparency = 0
infjump.TextWrapped = true

moresoon.Name = "moresoon"
moresoon.Parent = Frame
moresoon.BackgroundColor3 = Color3.new(1, 1, 1)
moresoon.BackgroundTransparency = 1
moresoon.BorderColor3 = Color3.new(1, 0, 0)
moresoon.BorderSizePixel = 0
moresoon.Position = UDim2.new(0, 0, 0.889852583, 0)
moresoon.Size = UDim2.new(0, 200, 0, 22)
moresoon.Font = Enum.Font.Gotham
moresoon.Text = "Probably no new functions soon"
moresoon.TextColor3 = Color3.new(0, 0, 0)
moresoon.TextSize = 13
moresoon.TextStrokeColor3 = Color3.new(1, 0, 0)
moresoon.TextStrokeTransparency = 0
moresoon.TextWrapped = true

openclose.Name = "openclose"
openclose.Parent = MilGUI
openclose.BackgroundColor3 = Color3.new(0.235294, 0.235294, 0.235294)
openclose.BorderColor3 = Color3.new(1, 0, 0)
openclose.BorderSizePixel = 5
openclose.Position = UDim2.new(0.481023878, 0, -0.000863611698, 0)
openclose.Size = UDim2.new(0, 75, 0, 25)
openclose.Font = Enum.Font.SourceSans
openclose.Text = "Close"
openclose.TextColor3 = Color3.new(1, 1, 1)
openclose.TextScaled = true
openclose.TextSize = 14
openclose.TextStrokeColor3 = Color3.new(1, 0, 0)
openclose.TextStrokeTransparency = 0
openclose.TextWrapped = true
-- Scripts:
tpguns.MouseButton1Click:Connect(function()
    local d = game.workspace:GetDescendants()

    for index, descendant in pairs(d) do
        if descendant.Name == "PPsh41" then
            if descendant.Parent.Name == "Model" then
                descendant.Parent.PrimaryPart = descendant.Parent.Part
                descendant.Parent:SetPrimaryPartCFrame(CFrame.new(40.11, 3.5, 215.72))
            end
        end
    end

    for index, descendant in pairs(d) do
        if descendant.Name == "TrenchShotgun" then
            if descendant.Parent.Name == "Model" then
                descendant.Parent.PrimaryPart = descendant.Parent.Part
                descendant.Parent:SetPrimaryPartCFrame(CFrame.new(40.11, 6.5, 215.72))
            end
        end
    end
end)

rlist.MouseButton1Click:Connect(function()
    local list = game.Players.LocalPlayer.PlayerGui.playerList

    if list.Enabled == true then
        game.Players.LocalPlayer.PlayerGui.playerList.Enabled = false
        else
        game.Players.LocalPlayer.PlayerGui.playerList.Enabled = true
    end
end)

infjump.MouseButton1Click:Connect(function()
    local Player = game:GetService'Players'.LocalPlayer;
local UIS = game:GetService'UserInputService';

    _G.JumpHeight = 50;

function Action(Object, Function) if Object ~= nil then Function(Object); end end

UIS.InputBegan:connect(function(UserInput)
      if UserInput.UserInputType == Enum.UserInputType.Keyboard and UserInput.KeyCode == Enum.KeyCode.Space then
           Action(Player.Character.Humanoid, function(self)
             if self:GetState() == Enum.HumanoidStateType.Jumping or self:GetState() == Enum.HumanoidStateType.Freefall then
                    Action(self.Parent.HumanoidRootPart, function(self)
                      self.Velocity = Vector3.new(0, _G.JumpHeight, 0);
                    end)
            end
           end)
        end
    end)
end)


function zigzag(X) return math.acos(math.cos(X*math.pi))/math.pi end

counter = 0

open = true

openclose.MouseButton1Click:Connect(function()
    if open == true then
        Frame.Visible = false
        openclose.Text = "Open"
        open = false
    else
        Frame.Visible = true
        openclose.Text = "Close"
        open = true
    end
end)

while true do
                wait(0.1)
                tpguns.TextStrokeColor3 = Color3.fromHSV(zigzag(counter),1,1)
                rlist.TextStrokeColor3 = Color3.fromHSV(zigzag(counter),1,1)
                infjump.TextStrokeColor3 = Color3.fromHSV(zigzag(counter),1,1)
                title.TextStrokeColor3 = Color3.fromHSV(zigzag(counter),1,1)
                title.BorderColor3 = Color3.fromHSV(zigzag(counter),1,1)
                moresoon.TextStrokeColor3 = Color3.fromHSV(zigzag(counter),1,1)
                Frame.BorderColor3 = Color3.fromHSV(zigzag(counter),1,1)
                openclose.BorderColor3 = Color3.fromHSV(zigzag(counter),1,1)
                openclose.TextStrokeColor3 = Color3.fromHSV(zigzag(counter),1,1)
                counter = counter + 0.01
end