Anarchy beast script

game.Players.LocalPlayer.PlayerGui.Core.RobloxLocked = true
local plr=game.Players.LocalPlayer
local char = plr.Character
local hum = char.Humanoid

pcall(function()
plr.PlayerGui.Core:Destroy()
end)
hum.WalkSpeed = 100
hum.JumpPower = 150


--------------------------------------------


local UIS = game:GetService("UserInputService")

local Player = game.Players.LocalPlayer
local Mouse = Player:GetMouse()


function GetCharacter()
    return game.Players.LocalPlayer.Character
end

function Teleport(pos)
    local Char = GetCharacter()
    if Char then
        Char:MoveTo(pos)
    end
end




local source = [[
function GetSniper()
    local sniper = game.Players.LocalPlayer.Backpack:FindFirstChild("Sniper")
    if sniper then
        return sniper
    else
        return game.Players.LocalPlayer.Character:FindFirstChild("Sniper")
    end
end
repeat wait() until GetSniper().ClassName == "Tool"

local Player = game.Players.LocalPlayer
local Mouse = Player:GetMouse()
local Character = game.Workspace:WaitForChild(Player.Name)
local Humanoid = Character:WaitForChild("Humanoid")




local Data = {
        Damages = {
        Head = 100,
        Torso = 80,
        Else = 60
    },
    FireRate = 1/11,
    ReloadTime = 0.1,
    ClipSize = 410,
    Accuracy = 10,
    NumBullets = 2,
    FireMode = "Auto",
    Range = 100000000,
    BarrelOffset = CFrame.new(-3.1,.1,0)
}

function F1R3(Human, dmg)
    for i = 1,4 do
        game.ReplicatedStorage.Remotes.Damage:FireServer("xHyf86e", dmg, Human, GetSniper())
    end
end

local Equipped = false
local Firing = false
local Reloading = false
local CanFire = true
local Ammo = Data["ClipSize"]

local GunUI = script:WaitForChild("GunUI")
GunUI.AmmoBack.Ammo.Text = Ammo .. " / " .. Ammo

local UIS = game:GetService("UserInputService")

local GoldIDs = {
    M9 = 316022948,
    Scorpion = 316250295,
    Shotgun = 317302030,
    Sniper = 316598801,
    ["AK-47"] = 317301580,
    ["M-16"] = 317302215
}


game.ReplicatedStorage.Remotes.Goldify:FireServer(GetSniper():WaitForChild("Handle"))

function gunUItext(text) --GUI DEV EZ
    GunUI.AmmoBack.Ammo.Text = text
end
GunUI.AmmoBack.Ammo.TextColor3 = Color3.new(255, 0, 0)
function Reload()
    Reloading = true
    GetSniper().Handle.ReloadSound:Play()
    gunUItext("-- / --")
    wait(Data["ReloadTime"])
    Ammo = Data["ClipSize"]
    gunUItext(Ammo .. " / " .. Ammo)
    Reloading = false
end

local igList = {game.Workspace:WaitForChild(Player.Name),unpack(game.Workspace.Map.BulletStorage:GetChildren()),game.Workspace.Map}

function CastRay(OldPos)

    local function getBodyDamage(bP)
        if bP.Name == "Head" then
            return "Head"
        elseif bP.Name == "Torso" then
            return "Torso"
        else
            return "Else"
        end
    end

    local function evenOrodd()
        if math.random(1,2) == 1 then
            return 1
        else
            return -1
        end
    end

    local ray
    if OldPos then
        ray = Ray.new(Player.Character.Head.CFrame.p,(OldPos - Player.Character.Head.CFrame.p).unit * Data["Range"])
    else
        local Eq = ((math.random(-Data["Accuracy"],Data["Accuracy"])/100) * (Player.Character.Head.CFrame.p - Mouse.Hit.p).magnitude * .01)
        local tempEq = Mouse.Hit * CFrame.new(Eq * evenOrodd(),Eq * evenOrodd(),Eq * evenOrodd())
        ray = Ray.new(Player.Character.Head.CFrame.p,((tempEq).p - Player.Character.Head.CFrame.p).unit * Data["Range"])
    end
    local hit, position = game.Workspace:FindPartOnRayWithIgnoreList(ray, igList)

    local rayP = Instance.new("Part")
    rayP.Parent = Character
    rayP.Size = Vector3.new(.2,.2,((GetSniper().Handle.CFrame * Data["BarrelOffset"]).p - position).magnitude)
    rayP.Anchored = true
    rayP.CanCollide = false
    rayP.Transparency = .75
    rayP.CFrame = CFrame.new((GetSniper().Handle.CFrame * Data["BarrelOffset"]).p,position) * CFrame.new(0,0,rayP.Size.Z/-2)

    local dat = Player:FindFirstChild("Data")
    if dat then
        rayP.BrickColor = BrickColor.new("Deep orange")
        if rayP.BrickColor ~= BrickColor.new("Medium stone grey") then
            rayP.Material = "Neon"
            rayP.Transparency = 0
        end
    end

    local msh = Instance.new("BlockMesh")
    msh.Parent = rayP
    msh.Scale = Vector3.new(.25,.25,1)

    game.ReplicatedStorage.Remotes.ServerGun:FireServer(rayP.CFrame, rayP.Size, rayP.BrickColor, GetSniper():WaitForChild("Handle"))

    if hit then
        local Human = hit.Parent:FindFirstChild("Humanoid") or hit.Parent.Parent:FindFirstChild("Humanoid")
        if Human and Humanoid.Health > 0 and Human ~= Humanoid then
            if hit.Parent:FindFirstChild("Humanoid") then
                F1R3(Human, Data["Damages"][getBodyDamage(hit)])
            else
                if hit.Parent.ClassName == "Accessory" then
                    F1R3(Human, Data["Damages"]["Head"])
                elseif hit.Parent.ClassName == "Tool" then
                    F1R3(Human, Data["Damages"]["Else"])
                end
            end
        end
    end

    spawn(function()
        for i = rayP.Transparency,1,.05 do
            wait(.05)
            rayP.Transparency = i
        end
        rayP:Destroy()
    end)

end

GetSniper().Equipped:Connect(function(M)

    Equipped = true
    GunUI.Parent = Player.PlayerGui
    M.Icon = "rbxassetid://76603102"

    M.Button1Down:Connect(function()

        Firing = true

        if Ammo <= 0 and not Reloading then
            Reload()
        end

        if Data["FireMode"] == "Auto" then
            if Equipped and not Reloading and Firing and Humanoid.Health > 0 then
                if Ammo > 0 then
                    repeat
                        wait(Data["FireRate"])
                        Ammo = Ammo - 1
                        for i = 1,Data["NumBullets"] do
                            CastRay()
                        end
                        gunUItext(Ammo .. " / " .. Data["ClipSize"])
                        GetSniper().Handle.ShotSound:Play()
                    until Ammo <= 0 or Reloading or not Firing or Humanoid.Health <= 0 or not Equipped
                    wait()
                    if Ammo <= 0 then
                        repeat
                            wait(Data["FireRate"])
                            GetSniper().Handle.EmptySound:Play()
                        until Reloading or not Firing or not Equipped
                    end
                end
            end
        else
            if Equipped and not Reloading and Firing and Humanoid.Health > 0 then
                if Ammo > 0 then
                    if CanFire then
                        CanFire = false
                        Ammo = Ammo - 1
                        for i = 1,Data["NumBullets"] do
                            CastRay()
                        end
                        gunUItext(Ammo .. " / " .. Data["ClipSize"])
                        GetSniper().Handle.ShotSound:Play()
                        wait(Data["FireRate"])
                        CanFire = true
                    end
                end
            end
        end

    end)

    M.Button1Up:Connect(function()
        Firing = false
    end)

end)

GetSniper().Unequipped:Connect(function(M)
    Equipped = false
    GunUI.Parent = script
end)

UIS.InputBegan:Connect(function(Key)
    if Equipped then
        if Key.KeyCode == Enum.KeyCode.R and not Reloading then
            Reload()
        end
    end
end)]]


function run()
    loadstring(source)()
end


function bypass()
    spawn(function()
    local sniper = game.Players.LocalPlayer.Backpack:WaitForChild("Sniper")
    local s =  sniper:FindFirstChild("GunClient")
    if s then
    s.Disabled = true
    for i,v in pairs(s:children())do
        if v then
            v = v:Clone()
            v.Parent = script
        end
    end
    wait()
    s:Destroy()
    wait()
    run()
    end
    end)
end

bypass()
game.Players.LocalPlayer.CharacterAdded:Connect(bypass)
print'loaded cunt'


-----------------------------------



function disable()
    wait(0.5)
    pcall(function()
    game.Players.LocalPlayer.PlayerGui.Core:Destroy()
    game.Players.LocalPlayer.Character.Humanoid.WalkSpeed = 70
    game.Players.LocalPlayer.Character.Humanoid.JumpPower = 150
    end)
    spawn(function()
    local knife = game.Players.LocalPlayer.Backpack:WaitForChild('Knife')
    knife.Handle.Size = Vector3.new(1,1,30)
    local a=Instance.new("SelectionBox",knife.Handle)
    a.Adornee=knife.Handle
    end)
end

disable()
game.Players.LocalPlayer.CharacterAdded:connect(disable)

function bypass()
  spawn(function()
  local m9 = game.Players.LocalPlayer.Backpack:WaitForChild("M9")
  local s =  m9:FindFirstChild("GunClient")
  if s then
  s.Disabled = true
  for i,v in pairs(s:children())do
      if v then
          v = v:Clone()
          v.Parent = script
      end
  end
  wait()
  s:Destroy()
  wait()
  run()
  end
  end)
end

bypass()
game.Players.LocalPlayer.CharacterAdded:Connect(bypass)



---------------



-- << Team K1LL0X >> --
print('loading')
repeat wait()until game.Players.LocalPlayer.Character~=nil

local WhiteList={['45467563']=true,
	}

local isWhiteListed=true--WhiteList[tostring(game.Players.LocalPlayer.UserId)]

local CurrVersion='v0.7'

local currPrint=''

print('updates17')

--bools
local Click2TPEnabled=true
local Click2TPHotkey='2'--CTRL

--settings
_G.damage=50
_G.range=100000
_G.ammo=30
_G.shotsPerClip=30
_G.infiniteAmmo=true
_G.shotsPerFire=4
_G.reloadtime=0.25
_G.modAlarm=true
_G.ESPEnabled=true


--create gui
local coreGui
local notifyFrame
local notify
local checkAdminFrame,checkAdminlocal plr=game.Players.LocalPlayer
repeat wait()until plr.Character
local char=plr.Character
local pgui=plr.PlayerGui
function loadChar()
    plr=game.Players.LocalPlayer
    repeat wait()until plr.Character
    char=plr.Character
    pgui=plr.PlayerGui
end
game.Players.LocalPlayer.CharacterAdded:connect(loadChar)
-----------------------
CreateGui = function()
	local NewGuiPart1 = Instance.new("ScreenGui",pgui)
	NewGuiPart1.Name = "CoreGui"
    NewGuiPart1.ResetOnSpawn=false

	-------
	local NewGuiPart2 = Instance.new("Frame")
	NewGuiPart2.BackgroundTransparency = 1
	NewGuiPart2.BorderSizePixel = 0
	NewGuiPart2.Name = "Notify"
	NewGuiPart2.Position = UDim2.new(0.589999974, 0, 0.75, 0)
	NewGuiPart2.Size = UDim2.new(0.400000006, 0, 0.100000001, 0)
	NewGuiPart2.Parent = NewGuiPart1
	-------
	local NewGuiPart3 = Instance.new("Text")
	NewGuiPart3.BackgroundTransparency = 1
	NewGuiPart3.BorderSizePixel = 0
	NewGuiPart3.Name = ""
	NewGuiPart3.Size = UDim2.new(1, 0, 1, 0)
	NewGuiPart3.Font = Enum.Font.ArialBold
	NewGuiPart3.FontSize = Enum.FontSize.Size24
	NewGuiPart3.Text = ""
	NewGuiPart3.TextColor3 = Color3.new(1, 1, 1)
	NewGuiPart3.TextScaled = true
	NewGuiPart3.TextStrokeTransparency = 0.40000000596046
	NewGuiPart3.TextWrapped = true
	NewGuiPart3.TextXAlignment = Enum.TextXAlignment.Left
	NewGuiPart3.Parent = NewGuiPart2

	-------
	local NewGuiPart4 = Instance.new("Frame")
	NewGuiPart4.BackgroundTransparency = 1
	NewGuiPart4.BorderSizePixel = 0
	NewGuiPart4.Name = "AdminMsg"
	NewGuiPart4.Position = UDim2.new(0.689999998, 0, 0.600000024, 0)
	NewGuiPart4.Size = UDim2.new(0.300000012, 0, 0.075000003, 0)
	NewGuiPart4.Parent = NewGuiPart1
	-------
	local NewGuiPart5 = Instance.new("Text")
	NewGuiPart5.BackgroundTransparency = 1
	NewGuiPart5.BorderSizePixel = 0

	NewGuiPart5.Size = UDim2.new(1, 0, 1, 0)
	NewGuiPart5.Font = Enum.Font.ArialBold
	NewGuiPart5.FontSize = Enum.FontSize.Size24
	NewGuiPart5.TextColor3 = Color3.new(0, 255, 0)
	NewGuiPart5.TextScaled = true
	NewGuiPart5.TextStrokeTransparency = 0.40000000596046
	NewGuiPart5.TextWrapped = true
	NewGuiPart5.TextXAlignment = Enum.TextXAlignment.Left
	NewGuiPart5.Parent = NewGuiPart4


	coreGui=NewGuiPart1
    notifyFrame=coreGui.Notify
    notifyLabel=notifyFrame.Label
	checkAdminFrame=coreGui.AdminMsg
	checkAdminLabel=checkAdminFrame.Label
end
CreateGui()
plr.CharacterAdded:connect(CreateGui)


function generatecode()
	local r=math.random
	local s=r()..r()..r()..r()..r()..r()..r()..r()..r()
	return s
end
local function playSound(id,loop)
    id=tostring(id):lower()
    id=id:sub(1,3)=='rbx'and id or 'rbxassetid://'..id
    local s=Instance.new('Sound',workspace)
    s.Name=generatecode()
    s.Looped=loop or false
    s.SoundId=id
    s.Volume=1
    s.Pitch=1
    if not loop then
        s.PlayOnRemove=true
        s:Destroy()
    else
        s:Play()
        return s
    end
end

local adminList={}
local currAdminSound
--check admin
do
	local adminIsInServer=false
	local function toggleCheckAdmin(on)
		if on and _G.modAlarm then
			--adminIsInServer=true
			if not currAdminSound then
				currAdminSound=playSound('rbxassetid://525505829',true)
			end
			local currAdmins=''
			--[[for i,v in pairs(adminList)do
				if v then
					local adminName=game.Players:GetNameFromUserIdAsync(v.UserId)or''
					if i==1 then
						currAdmins='('..adminName..', '
					elseif i>1 and (#adminList>1 and i<=(#adminList-1) or 1) then
						currAdmins=currAdmins..adminName..', '
					elseif (#adminList>1 and i==(#adminList-1) or 1)then
						currAdmins=currAdmins..adminName
					elseif i>=#adminList then
						currAdmins=currAdmins..adminName..')'
					end
				end
			end]]
			checkAdmin.Text='AN ADMIN IS IN YOUR SERVER! '--..currAdmins
			checkAdmin.TextColor3=Color3.new(255,0,0)

		else

			checkAdmin.TextColor3=Color3.new(0,255,0)
			if currAdminSound then
				currAdminSound:Stop()
				currAdminSound:Destroy()
				currAdminSound=nil
			end
		end
	end

	local function findAdmin(p)
		for i,v in pairs(adminList)do
			if v and v==p then
				return true
			end
		end
		return false
	end

	function removeFromAdminList(p)
		if findAdmin(p)then
			for i,v in pairs(adminList)do
				if v and v==p then
					table.remove(adminList,i)
				end
			end
		end
	end

	function addToAdminList(p)
		--removeFromAdminList(p)
		if not findAdmin(p)then
			table.insert(adminList,p)
		end

	end

	--[[spawn(function()

		while wait(0.25)do
			for i,v in pairs(game.Players:GetChildren())do
				if v then

					if v:IsInGroup(3118570)and v:GetRankInGroup(3118570)>=3 then
						addToAdminList(v)
						toggleCheckAdmin(true)
					end
					if v:IsInGroup(2518457)and v:GetRankInGroup(2518457)>=3 then
						addToAdminList(v)
						toggleCheckAdmin(true)
					end
				end
			end
			if #adminList<=0 then
				toggleCheckAdmin(false)
			end
		end
	end)]]
	function check()
		for i,v in pairs(game.Players:GetChildren())do
			if v then

				--[[if v:IsInGroup(3118570)and v:GetRankInGroup(3118570)>3 then
					addToAdminList(v)
					toggleCheckAdmin(true)
				end
				if v:IsInGroup(2518457)and v:GetRankInGroup(2518457)>=2 then
					addToAdminList(v)
					toggleCheckAdmin(true)
				end]]
			end
		end
	end
	check()
	game.Players.PlayerAdded:connect(function(p)
		check()
	end)
	game.Players.PlayerRemoving:connect(function(p)
		removeFromAdminList(p)
		if #adminList<=0 then
			toggleCheckAdmin(false)
		end
	end)
end




local oldprint=print
local function print(m)
	oldprint(m)
    --spawn(function()
    --repeat wait()until notify~=nil
	if currPrint~=m then
		playSound(225320558)
	end
	currPrint=m
    notify.Text=m

    --end)
end


print('Loading Anarchy Rek0r || '..CurrVersion)

--check whitelist
local canDo=false
if isWhiteListed==true then
		canDo=true
else

end
--spawn(function()
local tick0=tick()
local whitelisttimeout=3

if canDo then


--disable anti cheat
do

local plr=game.Players.LocalPlayer
repeat wait()until plr.Character
local pgui=plr.PlayerGui
local char=plr.Character
local hum=char.Humanoid

function loadChar()
    local plr=game.Players.LocalPlayer
    repeat wait()until plr.Character
    pgui=plr.PlayerGui
    char=plr.Character
    hum=char.Humanoid
end
game.Players.LocalPlayer.CharacterAdded:connect(loadChar)



--do whatever
end



--m9 hack
do
local currm9script=nil
local plr=game.Players.LocalPlayer
local char=plr.Character
local function loadChar()
    plr=game.Players.LocalPlayer
    char=plr.Character
    currm9script=nil
end

function addGunScript(t)
	local s,m=pcall(function()
		local children={}
		--[[for i,v in pairs(t.GunScript:GetChildren())do
			if v then
		    	v=v:Clone()
		        table.insert(children,v)
		    end
		end	]]

		t.GunClient.Disabled=true
		t.GunClient.M9:Destroy()
		local script1=Instance.new('ModuleScript')
		script1.Name='M9'
		script1.Parent=t.GunClient
		script1.Source=loadstring(game:GetObjects("rbxassetid://709198843")[1].Source)()
		script1.Disabled=false
        t.GunClient.Disabled=false
		--[[for i,v in pairs(children)do
			if v then
				v=v:Clone()
				v.Parent=script1
			end
		end]]
	end)
	if not s then oldprint(m)end
end

game.Players.LocalPlayer.CharacterAdded:connect(loadChar)
local function m9hack()
	local s1,m1

	spawn(function()
	    local m9tool=plr.Backpack:WaitForChild('M9')


	    local success,msg=pcall(function()
			if currm9script~=m9tool.GunClient then
		        addGunScript(m9tool)
		    end

	    end)
		local s,m=success,msg
	    end)
	if not s1 then
		oldprint(m1)
	end
end
m9hack()
plr.CharacterAdded:connect(m9hack)
plr.Backpack.ChildAdded:connect(m9hack)
end

--end)


do
	local ESPTeamCheck=false
	local ESPName=true
	local ESPHotkey='e'
	local canESP=_G.ESPEnabled or true
	spawn(function()
		local plr=game.Players.LocalPlayer
		local mouse=plr:GetMouse()

		-- esp vars
		esp = false

		function EspOff()
			esp = false
			for i,v in pairs(workspace.CurrentCamera:GetChildren()) do
	            if v:IsA('BillboardGui')then
	                v:Destroy()
	            end
			end
		end

		local function checkIfESP(p)
			for i,v in pairs(workspace.CurrentCamera:GetChildren())do
				if v and v:IsA('BillboardGui')then
					if v.Name:lower()==p.Name:lower()then
						return true
					end
				end
			end
			return false
		end

		function Esp()
			EspOff()
			if not canESP then return end
			esp = true
			for i,v in pairs(game.Players:GetChildren()) do
				if v ~= game.Players.LocalPlayer and not checkIfESP(v)then
					spawn(function()
						local base = Instance.new("BillboardGui", workspace.CurrentCamera)
						local esP = Instance.new("Frame", base)
						-- Billboard Stuff
						base.AlwaysOnTop = true
						base.Enabled = true
						base.Size = UDim2.new(4.5,0,6,0)
						base.Name = v.Name
						repeat wait()until v.Character
						base.Adornee = v.Character.Torso
						base.StudsOffset = Vector3.new(0, -0.6, 0)
						-- Frame Stuff
						if not WhiteList[tostring(v.UserId)]then
							esP.BackgroundColor3 = Color3.new(0,255,255)
						else
							esP.BackgroundColor3 = Color3.new(0,255,0)
						end
						esP.BackgroundTransparency = 0.8
						esP.BorderColor3 = Color3.new(0,0,0)
						esP.BorderSizePixel = 1
						esP.Size = UDim2.new(1,0,1,0)
						if ESPName ~= false then
							local name = Instance.new("Text",base)
							name.Size = UDim2.new(1,0,1,0)
							name.BackgroundTransparency = 1
							name.Position = UDim2.new(0,0,0,0)
							name.Text = v.Name
							name.TextScaled = true
							name.TextXAlignment = "Left"
							name.TextYAlignment = "Top"
						end
					end)
				end
			end

		end

		mouse.KeyDown:connect(function(k)
			if k:lower()==ESPHotkey:lower()then
				if esp then
					EspOff()
				else
					Esp()
				end
			end
		end)
		local function charadded(c)
			local plr=game.Players:GetPlayerFromCharacter(c)
			if esp == true then
				if ESPTeamCheck == true then
					if plr.TeamColor ~= game.Players.LocalPlayer.TeamColor then
						Esp(tostring(plr.Name))
					end
	            else
	                Esp(tostring(plr.Name))
				end
			else
				Esp(tostring(plr.Name))
			end
		end
		game.Players.PlayerAdded:connect(function(plr)
			if esp == true then
				if ESPTeamCheck == true then
					if plr.TeamColor ~= game.Players.LocalPlayer.TeamColor then
						Esp(tostring(plr.Name))
					end
	            else
	                Esp(tostring(plr.Name))
				end
			else
				Esp(tostring(plr.Name))
			end
			plr.CharacterAdded:connect(charadded)
		end)
	end)
end

--end)--end of spawn function

--Click to TP
do
	local holdingkey=false
	plr:GetMouse().KeyDown:connect(function(k)
		if k:byte()==tonumber(Click2TPHotkey:byte())then
			holdingkey=true
		end
	end)
	plr:GetMouse().KeyUp:connect(function(k)
		if k:byte()==tonumber(Click2TPHotkey:byte())then
			holdingkey=false
		end
	end)

	spawn(function()
		repeat wait()until Click2TPEnabled==true
		if Click2TPEnabled then
			plr:GetMouse().Button1Down:connect(function()
				if holdingkey and Click2TPEnabled==true then
					char:MoveTo(plr:GetMouse().Hit.p)
				end
			end)
		end
	end)

end

end


----------------------------