if not game:IsLoaded() then
game.Loaded:Wait()
end
if game.PlaceId == 9431156611 then
if game.CoreGui:FindFirstChild("CombatTab", 1) then
getgenv().Running = true
else
getgenv().Running = false
end
if not getgenv().Running then
local Items = {"Speed Potion","Frog Potion","Frog Brew","Speed Brew","Sphere of Fury","Forcefield Crystal","True Power"}
local HealItems = {["Apple"]=20,["Healing Brew"]=25,["Bandage"]=35,["First Aid Kit"]=50,["Healing Potion"]=80}
local PermItems = {"Potion of Strength", "Boba" ,"Bull's essence", "Strength Brew"}
local Lplr = game.Players.LocalPlayer
local Functions = loadstring(game:HttpGet("https://raw.githubusercontent.com/cheesynob39/R20-EXPLOITER/main/Files/Functions.lua"))()
local OrionLib = loadstring(game:HttpGet(('https://raw.githubusercontent.com/shlexware/Orion/main/source')))()
local healhp=40
local gloveString="Pack-A-Punch"
local healsafestaple=80
local tweenAuraS=300
local tweenAura
local slapAura
local healAura
local namecall
namecall = hookmetamethod(game, "__namecall", function(self, ...)
local Args = {...}
if getnamecallmethod() == "FireServer" and tostring(self) == "WS" then
return
elseif getnamecallmethod() == "FireServer" and tostring(self) == "WS2" then
return
elseif getnamecallmethod() == "FireServer" and tostring(self) == "AdminGUI" then
return
elseif getnamecallmethod() == "FireServer" and tostring(self) == "Ban" then
return
end
return namecall(self, ...)
end)
local Coasting=OrionLib:MakeWindow({Name = "R21 Script", SaveConfig = true, ConfigFolder = "OrionR21 Slap Royal"})
local CUMBAT = Coasting:MakeTab("Combat")
CUMBAT = CUMBAT:AddSection("Combat")
local MISCUM = Coasting:MakeTab("Misc")
MISCUM = MISCUM:AddSection("Items")
local Game = Coasting:MakeTab("Game")
Game = Game:AddSection("Map")
local function GetFirstChildren(instance,string)
local Children = {}
for _, Obj in pairs(instance:GetChildren()) do
if Obj.Name == string then
table.insert(Children, Obj)
end
end return Children
end
local function TweenNetworkPart(Part,CFrameValue,TweenStudsPerSec)
local PartFrame=Part.CFrame
local Distance=(CFrameValue.p-PartFrame.p)
local TimeValue=Distance/TweenStudsPerSec
local tween = game:GetService("TweenService")
local humroot = plr.Character:WaitForChild("HumanoidRootPart")
local startTween =
tween:Create(
Part,
TweenInfo.new(TimeValue, Enum.EasingStyle.Linear, Enum.EasingDirection.Out, 0, false, 0),
{CFrame = CFrameValue})
pcall(startTween.Play,startTween)
return startTween
end
CUMBAT:AddSlider({
Name = "Auto heal at hp",
Min = 0,
Max = 100,
Default = 40,
Color = Color3.fromRGB(255,0,0),
Increment = 1,
ValueName = "healhp",
Callback = function(Value)
healhp=Value
end
})
CUMBAT:AddSlider({
Name = "Safe level hp auto heal",
Min = 0,
Max = 200,
Default = 80,
Color = Color3.fromRGB(0,255,0),
Increment = 1,
ValueName = "healsafestaple",
Callback = function(Value)
healsafestaple=Value
end
})
CUMBAT:AddToggle(Name = "Slap Aura",Default=false,Callback=function(bool)
slapAura = bool
if bool then
while slapAura == true do
task.wait(.1)
for _, L_8 in pairs(game.Players:GetPlayers()) do
if L_8 ~= Lplr then
if L_8.Character:FindFirstChild("HumanoidRootPart") ~= nil and L_8.Character:FindFirstChild("Humanoid") and not L_8.Character:FindFirstChild("Dead") and not Lplr.Character:FindFirstChild("Dead") then
local magnitude = (L_8.Character.HumanoidRootPart.Position - Lplr.Character.HumanoidRootPart.Position).Magnitude
if 20 >= magnitude then
game:GetService("ReplicatedStorage").Events.Slap:FireServer(L_8.Character.Torso)
end
end
end
end
end
end
end)
CUMBAT:AddToggle(Name = "Auto Heal HP",Default=false,Callback=function(bool)
if not bool and not Lplr.Character.inMatch.Value then return end
healAura = bool
local function heal()
local LC=Lplr.Character
local LH=LC:FindFirstChild("Humanoid")
if not Lh then return OrionLib:MakeNotification({
Name = "Combat",Content = "Auto heal failed",Time = 0.5});
end
local function applyHeal(h)
if h<=healhp then
local p=healhp-h
local LowestHealValue=math.huge
for Item,HpHealed in next,HealItems do
if LC:FindFirstChild(Item) and HpHealed<HealItems[LowestHealValue.Name] then
LowestHealValue=Item
elseif Lplr.Backpack:FindFirstChild(Item) and HpHealed<HealItems[LowestHealValue.Name] then
LowestHealValue=Item
end
end
if LowestHealValue and typeof(LowestHealValue)=="Instance" then
LowestHealValue:EquipTool()
LowestHealValue:Activate() return true
end
end return false
end
if Lh.Health<healhp then
return applyHeal(Lh.Health)
end
return
end
if bool then
while healAura == true do
task.wait(.1)
heal()
OrionLib:MakeNotification({
Name = "Combat",Content = "HEALING",Time = 0.05})
end
end
end)
MISCUM:AddToggle(Name = "Auto Collect All Items",Default=false,Callback= function(v)
if not v and not Lplr.Character.inMatch.Value then return end
pcall(function()
repeat wait()until Lplr.Character.inMatch.Value
local itemint_=0
for _, Items in ipairs(game.Workspace:GetDescendants()) do
if Items:IsA("Tool") and not game.Players:FindFirstChild(Items:FindFirstAncestorWhichIsA('Model'))and Items:FindFirstChild("Handle") then
Lplr.Character.Humanoid:EquipTool(Items.Parent.Parent)
itemint_=itemint_+1
end
end
Lplr.Character.Humanoid:UnequipTools()
OrionLib:MakeNotification({
Name = "Items",
Content = "ItemsCollected:"..tonumber(itemint_),
Time = 1.5
})
end)
end)
MISCUM:AddToggle(Name = "Auto Use All Permanent Items",Default=false,Callback= function(v)
if not v and not Lplr.Character.inMatch.Value then return end
pcall(function()
for _, L_3 in pairs(game:GetService("Players").LocalPlayer.Backpack:GetChildren()) do
if L_3:IsA("Tool") and table.find(PermItems, L_3.Name) then
L_3.Parent = Lplr.Character
end
end
task.wait(.3)
for _, L_4 in pairs(Lplr.Character:GetChildren()) do
if L_4:IsA("Tool") then
L_4:Activate()
end
end
end)
end)
MISCUM:AddToggle(Name = "Auto bomb Bus",Default=false,Callback=function(v)
if not v and not Lplr.Character.inMatch.Value then return end
pcall(function()
repeat wait() until workspace:FindFirstChild("BusModel")
for _, L_5 in ipairs(game.Workspace:GetDescendants()) do
if L_5:IsA("TouchTransmitter") and L_5.Parent.Name == "Handle" and L_5.Parent.Parent.Name == "Bomb" and workspace:FindFirstChild("BusModel") then
Lplr.Character.Humanoid:EquipTool(L_5.Parent.Parent)
end
end
wait(.1)
for _, L_6 in pairs(lp.Backpack:GetChildren()) do
if L_6:IsA("Tool") and L_6.Name == "Bomb" then
L_6.Parent = Lplr.Character
end
end
wait(.25)
for _, L_7 in pairs(Lplr.Character:GetChildren()) do
if L_7:IsA("Tool") and L_7.Name == "Bomb" then
L_7:Activate()
end
end
end)
end)
MISCUM:AddTextbox({
Name = "Glove",
Default = "Pack-A-Punch",
Callback = function(Value)
gloveString=Value
end
})
MISCUM:AddToggle(Name = "Auto equip glove",Default=false,Callback=function(v)
if not v and Lplr.Character.inMatch.Value then return end
game.ReplicatedStorage:WaitForChild("RemoteFunctions"):WaitForChild("EquipGlove"):InvokeServer(gloveString)
end)
Tab:AddSlider({
Name = "Tween Speed (DO NOT DO TOO MUCH YOU WILL GET KICKED!)",
Min = 100,
Max = 600,
Default = 300,
Color = Color3.fromRGB(100,100,100),
Increment = 1,
ValueName = "bananas",
Callback = function(Value)
tweenAura=Value
end
})
Game:AddToggle(Name = "Hunt Players",Default=false,Callback=function(v)
tweenAura=v
if v then
while tweenAura==true do
if Lplr.Character.inMatch.Value then
local LC=Lplr.Character
local LHRP=LC:FindFirstChild("HumanoidRootPart")
for _,p in next,game:GetPlayers() do
local TC=p.Character
local TH=TC:FindFirstChild("Humanoid")
local THRP=TC:FindFirstChild("HumanoidRootPart")
if TH and TH.Health<=0 and TH:FindFirstChild("Ragdolled").Value then
local tw=TweenNetworkPart(LHRP,THRP.CFrame,tweenAuraS)
tw.Completed:Wait()
game:GetService("ReplicatedStorage").Events.Slap:FireServer(p.Character.Torso)
end
end
end
end
end
end)
Game:AddButton(Name = "Anti Acid", function()
game.Workspace:FindFirstChild("antiAcid").CanCollide = true
end)
Game:AddButton(Name = "Anti Lava", function()
game.workspace:FindFirstChild("antiLava").CanCollide = true
end)
Game:AddButton(Name = "Remove Zone Blur", function()
game:GetService("ReplicatedStorage").ZoneEffects.ZoneBlur:Destroy()
game:GetService("ReplicatedStorage").ZoneEffects.ZoneColorCorrection:Destroy()
end)
local antiAcid = Instance.new("Part", workspace)
antiAcid.Name = "antiAcid"
antiAcid.Size = Vector3.new(154, 26, 132)
antiAcid.Position = Vector3.new(-60, -5, -731)
antiAcid.Transparency = 1
antiAcid.CanCollide = true
antiAcid.Anchored = true
workspace.Map.AcidAbnormality.Acid:Destroy()
workspace.Map.AcidAbnormality.Acid:Destroy()
workspace.Map.AcidAbnormality.Acid:Destroy()
local antiLava = Instance.new("Part", workspace)
antiLava.Name = "antiLava"
antiLava.Position = Vector3.new(-238, -43, 401)
antiLava.Size = Vector3.new(150,10,150)
antiLava.Anchored = true
antiLava.Transparency = 1
antiLava.CanCollide = true
end
end
