GPO CFA Hub
GPO CFA Hub
LocalPlayer
if not getgenv().tvk then getgenv().tvk={} end
for k,v in pairs(getgenv().tvk) do v.On=false end
local plr = game.Players.LocalPlayer
local queue_on_teleport = queue_on_teleport
if syn then queue_on_teleport = syn.queue_on_teleport end
queue_on_teleport([[
loadstring(game:HttpGet("https://raw.githubusercontent.com/CFA-HUB/CFAHub-
Free/main/cfahubfree.lua"))()
]])
local NguyHiem=false
local Settings = {
AutoStat = {
Strength = false,
Stamina = false,
Defense = false,
GunMastery = false,
SwordMastery = false
}
}
local Temp = {
Nodrown = {},
Noclip = {},
DashNoStam = {},
NoFallDame = {},
Drown={}
}
function TableToSave(tb)
local cac = {}
for k,v in pairs(tb) do
if type(v)=="vector" then
cac[k]={v.X,v.Y,v.Z,"Vector3"}
else
cac[k]=v
end
end
return cac
end
function SaveToTable(tb)
local cac = {}
for k,v in pairs(tb) do
if type(v)=="table" and #v==4 and v[4]=="Vector3" then
cac[k]=Vector3.new(v[1],v[2],v[3])
else
cac[k]=v
end
end
return cac
end
local SaveFileName = plr.Name.."_GPO.json"
function SaveSettings()
local HttpService = game:GetService("HttpService")
if not isfolder("CFA HUB") then
makefolder("CFA HUB")
end
writefile("CFA HUB/" .. SaveFileName,
HttpService:JSONEncode(TableToSave(Settings)))
end
function ReadSetting()
local s,e = pcall(function()
local HttpService = game:GetService("HttpService")
if not isfolder("CFA HUB") then
makefolder("CFA HUB")
end
return HttpService:JSONDecode(readfile("CFA HUB/" .. SaveFileName))
end)
if s then return e
else
SaveSettings()
return ReadSetting()
end
end
local tvkdumb = {On=true}
function tvkdumb:cac(self)
spawn(function()
while wait(1) and self.On do SaveSettings() end
print("Stoped")
end)
end
tvkdumb:cac(tvkdumb)
table.insert(getgenv().tvk,tvkdumb)
Settings = SaveToTable(ReadSetting())
repeat wait() until game:IsLoaded()
repeat wait(.25)
until plr:FindFirstChild("Loaded")
and plr.Loaded.Value == true
and plr.Character
and plr:FindFirstChild("Backpack")
and plr.Character:FindFirstChild("Humanoid")
and plr:FindFirstChild("PlayerGui")
and plr.PlayerGui:FindFirstChild("Notifications")
and #plr.Backpack:GetChildren() ~= 0 and pcall(function()
return game.Players.LocalPlayer.Idled
end)
local function FireButton(x)
for i, v in pairs(getconnections(x.MouseButton1Click)) do
v:Function()
end
end
if game.PlaceId==1730877806 then
repeat wait() until
game:GetService("ReplicatedStorage").Events:FindFirstChild("reserved")
if Settings.PSCode and Settings.PSCode~="" then
local clicked = false
while wait(2) do
game:GetService("ReplicatedStorage").Events.reserved:InvokeServer(Settings.PSCode)
pcall(function()
FireButton(game:GetService("Players").LocalPlayer.PlayerGui.chooseType.Frame.regula
r)
clicked=true
end)
end
else
while wait(2) do
game:GetService("ReplicatedStorage").Events.playgame:FireServer()
end
end
return
end
local plr = game.Players.LocalPlayer
local request=request
if syn then request=syn.request end
local StoringDF = false
for i, v in next, getconnections(game.Players.LocalPlayer.Idled) do
v:Disable()
end
local vu = game:GetService("VirtualUser")
game:GetService("Players").LocalPlayer.Idled:connect(
function()
vu:Button2Down(Vector2.new(0, 0), workspace.CurrentCamera.CFrame)
wait(1)
vu:Button2Up(Vector2.new(0, 0), workspace.CurrentCamera.CFrame)
end
)
local SwordPos = CFrame.new(5410.0478515625, 155.58578491210938, -5168.189453125)
function BuyKatana()
fireclickdetector(game:GetService("Workspace").BuyableItems.Katana.ShopPart.ClickDe
tector)
end
local FindNearest
for k, v in pairs(getgc()) do
if debug.getinfo(v).name == "FindNearest" and tostring(getfenv(v).script) ==
"Hitbox" then
FindNearest = v
break
end
end
if not FindNearest then
game.Players.LocalPlayer:Kick("Script error when loading, rejoin and try
again")
end
MucTieu = {}
MucTieu.old =
hookfunction(
FindNearest,
function(a, b)
if MucTieu.MucTieu then
return MucTieu.MucTieu
end
return MucTieu.old(a, b)
end
)
local secure_call = (syn and syn.secure_call) or function(f)
setthreadcontext(2)
f()
setthreadcontext(7)
end
local old = getrenv()._G.hitbox.start
getrenv()._G.hitbox.start = function(...)
local arg = {...}
arg[3] = Vector3.new(30, 30, 30)
return old(unpack(arg))
end
local data = game.ReplicatedStorage["Stats" .. game.Players.LocalPlayer.Name]
print(data.Stats.SpawnPoint.Value)
local FarmPath = {
Buso = {
[1] = {
Mob = "Yeti",
RiflePos = CFrame.new(-6770.1044921875, 96.480255126953,
2113.1389160156),
Mobpos = CFrame.new(-6684.44, 10, 1828.623),
Questpos = CFrame.new(-6566.0034179688, 169.4822845459,
1995.3051757813),
Quest = "Road to Armament",
Spawn = CFrame.new(-1314.5081787109, 10.434856414795, 1113.4360351563),
Island = "Sandora",
LevelReq = 80,
CooldownY = 52.4,
SwordY = 68,
LevelRequest = 80,
RapidY = 70
}
},
Melee = {
Normal = {
[1] = {
Mob = "Fishman Karate User",
Mobpos = CFrame.new(7670.65137, -2189.93994, -17322.8379, 1, 0, 0,
0, 1, 0, 0, 0, 1),
Questpos = CFrame.new(
7730.92773,
-2175.83203,
-17222.5781,
0.0217917003,
-7.93145247e-08,
0.999762535,
-3.60022554e-08,
1,
8.01180988e-08,
-0.999762535,
-3.77396141e-08,
0.0217917003
),
Quest = "Help becky",
Spawn = CFrame.new(
7976.84131,
-2152.8313,
-17073.9063,
0.647454381,
1.1295689e-07,
0.762104213,
-4.50578455e-08,
1,
-1.09937709e-07,
-0.762104213,
3.68408735e-08,
0.647454381
),
Island = "Fishman Island",
LevelReq = 190,
SwordY = -2182.94,
BlackLegY = -2182.94,
CooldownY=-2189.94,
RapidY=-2182.94
}
},
Advance = {
[160] = {
Mob = "Gravito's Undermen",
Mobpos = CFrame.new(2718.87573, 60.1180725, -15689.9375, -
0.965884089, -1.76300429e-19, 0.25897485, -1.13688492e-19, 1, 2.56745101e-19, -
0.25897485, 2.18543522e-19, -0.965884089),
Questpos = CFrame.new(2510.30103, 41.4681244, -15541.5859,
0.996558726, -4.13273469e-08, 0.0828894675, 3.50337892e-08, 1, 7.73815572e-08, -
0.0828894675, -7.42113357e-08, 0.996558726),
Quest = "Help Miska",
Spawn = CFrame.new(2585.16138, 7.64981413, -15364.9072,
0.999508381, 4.34313142e-06, 0.0313485563, -5.47222771e-06, 0.99999994,
3.59315163e-05, -0.0313485563, -3.60853955e-05, 0.999508381),
Island = "Gravito's Fort",
LevelReq = 160,
SwordY = 31.861898422241,
BlackLegY = 34.6,
CooldownY=7.6498141288757,
RapidY=35.39432144165,
BlackLegPos = CFrame.new(2604.27148, 37.3680725, -15549.2383,
0.999779046, -3.19521938e-08, -0.0210261438, 3.2335997e-08, 1, 1.79135871e-08,
0.0210261438, -1.85895299e-08, 0.999779046)
},
}
},
Rifle = {
Normal = {
[1] = {
Mob = "Fishman Karate User",
Mobpos = CFrame.new(
7824.5166,
-2138.18994,
-17138.4766,
0.916648865,
0,
0.399693429,
0,
1,
0,
-0.399693429,
0,
0.916648865
),
Questpos = CFrame.new(
7730.92773,
-2175.83203,
-17222.5781,
0.0217917003,
-7.93145247e-08,
0.999762535,
-3.60022554e-08,
1,
8.01180988e-08,
-0.999762535,
-3.77396141e-08,
0.0217917003
),
Quest = "Help becky",
LevelRequest = 190,
Spawn = CFrame.new(
7976.84131,
-2152.8313,
-17073.9063,
0.647454381,
1.1295689e-07,
0.762104213,
-4.50578455e-08,
1,
-1.09937709e-07,
-0.762104213,
3.68408735e-08,
0.647454381
),
Island = "Fishman Island"
}
},
Advance = {
[160] = {
Mob = "Gravito's Undermen",
Mobpos = CFrame.new(2718.87573, 60.1180725, -15689.9375, -
0.965884089, -1.76300429e-19, 0.25897485, -1.13688492e-19, 1, 2.56745101e-19, -
0.25897485, 2.18543522e-19, -0.965884089),
Questpos = CFrame.new(2510.30103, 41.4681244, -15541.5859,
0.996558726, -4.13273469e-08, 0.0828894675, 3.50337892e-08, 1, 7.73815572e-08, -
0.0828894675, -7.42113357e-08, 0.996558726),
Quest = "Help Miska",
LevelRequest = 160,
Spawn = CFrame.new(2585.16138, 7.64981413, -15364.9072,
0.999508381, 4.34313142e-06, 0.0313485563, -5.47222771e-06, 0.99999994,
3.59315163e-05, -0.0313485563, -3.60853955e-05, 0.999508381),
Island = "Gravito's Fort"
}
}
}
FarmPath.Rifle.Advance[1]=FarmPath.Rifle.Normal[1]
FarmPath.Melee.Advance[1]=FarmPath.Melee.Normal[1]
local lvadd=190
FarmPath.Rifle.Advance[lvadd]=FarmPath.Rifle.Advance[1]
FarmPath.Melee.Advance[lvadd]=FarmPath.Melee.Advance[1]
function CheckQuest(a, b, d)
if d == "Buso" then
return FarmPath.Buso[1]
end
local thieunang =
CFrame.new(
-1287.51025,
62.1618462,
248.200958,
0.160935402,
-3.94616087e-31,
0.98696506,
-1.16209818e-31,
1,
4.18777198e-31,
-0.98696506,
-1.8209114e-31,
0.160935402
)
if setfflag then
setfflag("HumanoidParallelRemoveNoPhysics", "False")
setfflag("HumanoidParallelRemoveNoPhysicsNoSimulate2", "False")
end
local banvaudau = 0
function SetVaoDau(i)
banvaudau=i
end
function GetVauDau()
return banvaudau
end
local DisableNoDrown = false
local old
old = hookfunction(Instance.new("RemoteEvent").FireServer, function(...)
local Self = ...
if CheckEN("Nodrown")
and tostring(Self) == "swim" then
return nil
end
return old(...)
end)
local old
old = hookmetamethod(game, "__namecall", function(...)
local Self = ...
if CheckEN("NoFallDame")
and tostring(Self) == "FallDmg" then
return nil
end
if CheckEN("DashNoStam")
and tostring(Self) == "takestam" then
return nil
end
if CheckEN("Nodrown")
and tostring(Self) == "swim" then
return nil
end
local args = {...}
if getnamecallmethod()=="InvokeServer" and tostring(Self)=="Skill" and
args[2]=="Blocking " then
return
end
if tostring(Self)=="CIcklcon" then
SetVaoDau(GetVauDau()+1)
if Settings.RifleKick then
if GetVaoDau()>480 then
plr:Kick("\n[CFA Hub]\nKicked 499th rifle shoot (Rifle Kick)")
end
end
end
return old(...)
end)
game:GetService("RunService").Stepped:Connect(
function()
if StopFloat then
if plr.Character.HumanoidRootPart:FindFirstChild(tvktrumskid) then
plr.Character.HumanoidRootPart[tvktrumskid]:Destroy()
end
end
if game.Players.LocalPlayer.Character:FindFirstChild("Humanoid") and
game.Players.LocalPlayer.Character:FindFirstChild("Humanoid").Health > 0
and
game.Players.LocalPlayer.Character.Parent ==
game.Workspace.PlayerCharacters and
not plr.PlayerGui:FindFirstChild("DEATHGUI") then
if CheckEN("Noclip") then
if (not setfflag or (identifyexecutor and
identifyexecutor():upper() == "KRNL")) then
if
speaker.Character ~= nil and CheckEN("Noclip") and
game.Players.LocalPlayer.Character:FindFirstChild("Humanoid") and
end
end
else
if CheckEN("Noclip") then
if not StopFloat then
plr.Character.Humanoid:ChangeState(11)
end
for _, child in pairs(plr.Character:GetDescendants()) do
if child:IsA("BasePart") and child.CanCollide == true
then
child.CanCollide = false
end
end
end
end
else
if plr.Character.HumanoidRootPart:FindFirstChild(tvktrumskid) then
plr.Character.HumanoidRootPart[tvktrumskid]:Destroy()
end
end
end
pcall(
function()
-- if CheckEN("Nodrown") then
-- plr.Character.HumanoidRootPart.SwimPosition.Position =
Vector3.new(0, -2.71834, 0)
-- end
if CheckEN("Nodrown") and not DisableNoDrown then
plr.Character.HumanoidRootPart.SwimPosition.Position =
Vector3.new(0, -2.71834, 0)
end
if CheckEN("Drown") then
plr.Character.HumanoidRootPart.SwimPosition:Destroy()
end
end
)
end
)
--local vt = 100
if not Settings.vt then Settings.vt=80 end
function RayCast2(a, b, c)
local ignored = {game.Players.LocalPlayer.Character,
game:GetService("Workspace").Effects, part0}
(game.Players.LocalPlayer.Character:WaitForChild("HumanoidRootPart").Position -
t.p).magnitude / Settings.vt,
Enum.EasingStyle.Linear
)
local tic_k = tick()
local cframe = t
local tween, err =
tvk(
function()
local tween =
tween_s:Create(plr.Character:WaitForChild("HumanoidRootPart"), info, {CFrame =
cframe})
local done = false
tween.Completed:Connect(
function()
done = true
end
)
cb(
function()
done = true
tween:Cancel()
end
)
noclip = true
tween:Play()
while (done == false) do
SetEN("Noclip", "Tween", true)
if
not( game.Players.LocalPlayer.Character:FindFirstChild("Humanoid") and
noclip = false
end
)
end
spawn(function()
while wait() do
if plr.Character:FindFirstChild("Humanoid") then
if plr.Character.Humanoid.Sit then
StopFloat=true
wait(.1)
plr.Character.Humanoid.Sit=false
StopFloat=false
end
end
end
end)
function y0(vc)
return Vector3.new(vc.X,0,vc.Z)
end
local DisableSafeMode = false
local Last
local FishUp = CFrame.new(8585.81641, -2136.12305, -17087.8145, 1, 0, 0, 0, 1, 0,
0, 0, 1)
function FireTouch(part)
if plr.Character:FindFirstChild("HumanoidRootPart") then
firetouchinterest(plr.Character:WaitForChild("HumanoidRootPart"), part, 0)
firetouchinterest(plr.Character:WaitForChild("HumanoidRootPart"), part, 1)
end
end
function tpT(Pos,k,Origin,dieukien,DisableBypass,Float)
if Last then
Last()
Last = nil
end
if not plr.Character:FindFirstChild("HumanoidRootPart") then return end
if (plr.Character.HumanoidRootPart.Position-Pos.Position).magnitude <40 then
plr.Character.HumanoidRootPart.CFrame=Pos
--tween:Cancel()
return
end
if not Float then
StopFloat=true
else
StopFloat=false
end
local tvk = function()
if not IsFishMan(Pos) and
IsFishMan(game.Players.LocalPlayer.Character:WaitForChild("HumanoidRootPart").Posit
ion) then
tpT(FishUp,nil,nil,dieukien,DisableBypass,Float)
DisableSafeMode=true
FireTouch(game:GetService("Workspace").Fishman.Part2)
wait(1)
if not
IsFishMan(game.Players.LocalPlayer.Character:WaitForChild("HumanoidRootPart").Posit
ion) then
DisableSafeMode=false
return tpT(Pos,nil,nil,dieukien,DisableBypass,Float)
end
end
if IsFishMan(Pos) and not
IsFishMan(game.Players.LocalPlayer.Character:WaitForChild("HumanoidRootPart").Posit
ion) then
tpT(CFrame.new(5682.19, 5, -16458.479),dieukien,DisableBypass,Float)
SetEN("Drown","Tween",true)
tpT(CFrame.new(5639.86865, -92.762001, -16611.4688, -1, 0, 0, 0, 1, 0,
0, 0, -1),nil,nil,dieukien,DisableBypass,Float)
DisableSafeMode=true
FireTouch(game:GetService("Workspace").Fishman.Part)
wait(1)
SetEN("Drown","Tween",true)
if
IsFishMan(game.Players.LocalPlayer.Character:WaitForChild("HumanoidRootPart").Posit
ion) then
DisableSafeMode=false
return tpT(Pos,nil,nil,dieukien,DisableBypass,Float)
end
-- TpTween(pos,sp,part)
end
if (IsFishMan(Pos) and
IsFishMan(game.Players.LocalPlayer.Character:WaitForChild("HumanoidRootPart").Posit
ion)) or (not IsFishMan(Pos) and not
IsFishMan(game.Players.LocalPlayer.Character:WaitForChild("HumanoidRootPart").Posit
ion)) then
if math.abs(Pos.Position.Y-
plr.Character.HumanoidRootPart.Position.Y)>50 then
StopFloat=false
else
if not Float then
StopFloat=true
else
StopFloat=false
end
end
wait(.1)
if sp and not part.Parent then
return
end
if done then return end
if (plr.Character.HumanoidRootPart.Position-Pos.Position).magnitude
<40 then
plr.Character.HumanoidRootPart.CFrame=Pos
tween:Cancel()
return
end
do
local hp =
game.Players.LocalPlayer.Character.HumanoidRootPart.Position
local p1 = Vector3.new(Origin.X, 0, Origin.Z)
local p2 = Vector3.new(hp.X, 0, hp.Z)
if (p1 - p2).magnitude < 200 then
tween:Cancel()
return tpT(Origin,nil,Origin,dieukien,true,true)
end
end
if not DisableBypass then
local pos = -2.7848949432373
if
not
IsFishMan(game.Players.LocalPlayer.Character:WaitForChild("HumanoidRootPart").Posit
ion) and IsSea() and
math.abs(plr.Character.HumanoidRootPart.Position.Y -
pos) > .1
then
tween:Cancel()
local cf = plr.Character.HumanoidRootPart.CFrame
return tpT(
CFrame.new(Pos.X, cf.Y, Pos.Z),
k,
Origin,
dieukien,DisableBypass,Float
)
end
if not IsSea() and
(game.Players.LocalPlayer.Character.Humanoid.FloorMaterial == Enum.Material.Air)
then
--print("bu cu")
local tss =
RayCast2(game.Players.LocalPlayer.Character.HumanoidRootPart.Position+Vector3.new(0
,3,0), Vector3.new(0, -500, 0))
local tvk =
RayCast2(game.Players.LocalPlayer.Character.HumanoidRootPart.Position+Vector3.new(0
,3,0), Vector3.new(0, -7, 0))
if not tvk then
if tss and tss.Instance then
tween:Cancel()
local cf = plr.Character.HumanoidRootPart.CFrame
return tpT(CFrame.new(Pos.X, cf.Y, Pos.Z), k,
Origin,dieukien,DisableBypass,Float)
end
end
end
end
if not done then
return tpT(CFrame.new(Pos.X, Pos.Y, Pos.Z), k,
Origin,dieukien,DisableBypass,Float)
end
end
end
end
tvk()
StopFloat=false
end
function TpTween(cf,checkfunc)
SetEN("Nodrown", "Tween", true)
SetEN("Noclip", "Tween", true)
tpT(cf,nil,cf,checkfunc)
SetEN("Noclip", "Tween", false)
SetEN("Nodrown", "Tween", false)
end
function Tp(pos, checkfunc)
if Last then
Last()
Last = nil
end
TpTween(pos,checkfunc)
-- if plr.Character:FindFirstChild("HumanoidRootPart") then
-- if (plr.Character.HumanoidRootPart.Position - pos.p).magnitude < 25 then
-- plr.Character.HumanoidRootPart.CFrame = pos
-- return
-- end
-- end
-- if IsFishMan(pos) and
IsFishMan(game.Players.LocalPlayer.Character:WaitForChild("HumanoidRootPart").Posit
ion) then
-- TpTween(pos,checkfunc)
-- end
-- if not IsFishMan(pos) and
IsFishMan(game.Players.LocalPlayer.Character:WaitForChild("HumanoidRootPart").Posit
ion) then
-- TpTween(FishUp, checkfunc)
-- DisableSafeMode=true
-- FireTouch(game:GetService("Workspace").Fishman.Part2)
-- wait(1)
-- if not
IsFishMan(game.Players.LocalPlayer.Character:WaitForChild("HumanoidRootPart").Posit
ion) then
-- DisableSafeMode=false
-- TpTween(pos, checkfunc)
-- end
-- end
-- if IsFishMan(pos) and not
IsFishMan(game.Players.LocalPlayer.Character:WaitForChild("HumanoidRootPart").Posit
ion) then
-- TpTween(CFrame.new(5639.86865, -92.762001, -16611.4688, -1, 0, 0, 0, 1,
0, 0, 0, -1), checkfunc)
-- DisableSafeMode=true
-- FireTouch(game:GetService("Workspace").Fishman.Part)
-- wait(1)
-- if
IsFishMan(game.Players.LocalPlayer.Character:WaitForChild("HumanoidRootPart").Posit
ion) then
-- DisableSafeMode=false
-- TpTween(pos, checkfunc)
-- end
-- -- TpTween(pos,sp,part)
-- end
-- if
-- not IsFishMan(pos) and
-- not
IsFishMan(game.Players.LocalPlayer.Character:WaitForChild("HumanoidRootPart").Posit
ion)
-- then
-- TpTween(pos,checkfunc)
-- end
end
local CFAHub =
loadstring(game:HttpGet("https://raw.githubusercontent.com/Kiet1308/tvkhub/main/
rac"))()
local txt="Grand Piece Online"
if identifyexecutor()=="Krnl" then
txt="Grand Piece Online (KRNL)"
end
local Window = CFAHub:CreateWindow("<font color=\"#4FC3F7\">CFA Hub</font>", txt,
true)
function CollectChest(chest)
Tp(chest.MeshPart.CFrame * CFrame.new(0, 5, 0),function()
if not IsChestAlive(chest) then
return false
end
if GetNearestChest()~=chest then
return false
end
return true
end)
if IsChestAlive(chest) then
wait(1)
for i, v in ipairs(game.workspace.Env:GetChildren()) do
if v:FindFirstChild("ClickDetector") then
if (v.Position - plr.Character.HumanoidRootPart.Position).magnitude
<10 then
fireclickdetector(v.ClickDetector, 2)
end
end
end
end
end
function GetCurrentQuest()
local rac
rac=data
return tostring(rac.Quest.CurrentQuest.Value)
end
local t = tick()
repeat
wait()
game:GetService("VirtualInputManager"):SendKeyEvent(true, Enum.KeyCode.T,
false, game)
until game.Players.LocalPlayer.PlayerGui:FindFirstChild("NPCCHAT") or tick() -
t > 3
if game.Players.LocalPlayer.PlayerGui:FindFirstChild("NPCCHAT") and
plr.Character:FindFirstChild("HumanoidRootPart") then
local cur = plr.Character.HumanoidRootPart.CFrame
repeat
wait()
if plr.Character:FindFirstChild("HumanoidRootPart") and rac then
plr.Character.HumanoidRootPart.CFrame = cur + Vector3.new(0, -11,
0)
end
pcall(
function()
for k, v in pairs(
getconnections(
game.Players.LocalPlayer.PlayerGui:FindFirstChild("NPCCHAT").Frame.go.MouseButton1C
lick
)
) do
v:Fire()
end
end
)
until not game.Players.LocalPlayer.PlayerGui:FindFirstChild("NPCCHAT")
end
--
game:GetService("ReplicatedStorage").Events.Quest:InvokeServer({"takequest",quest})
end
local function GetNeak()
if game.workspace.Effects:FindFirstChild("Folder") then
for i, v in ipairs(game.workspace.Effects.Folder:GetDescendants()) do
if v.Name == "Part" and v.Parent.Name == "Folder" and
v:FindFirstChild("Mesh") and v.Mesh.TextureId == "http://www.roblox.com/asset/?
id=28461501" and v:FindFirstChild("ClickDetector") then
return v
end
end
end
end
function GetSword()
for k, v in pairs(plr.Character:GetChildren()) do
if v:FindFirstChild("SwordEquip") then
return v, true
end
end
for k, v in pairs(plr.Backpack:GetChildren()) do
if v:FindFirstChild("SwordEquip") then
return v, false
end
end
end
spawn(function()
while wait() do
if Settings.Chest then
local chest = GetNearestChest()
if chest then
CollectChest(chest)
else
if not game.Players.LocalPlayer.QuestCD.Value then
local cac = CFrame.new(1009.720458984375, 8.999988555908203,
1179.4952392578125)
local old = plr.CameraMinZoomDistance
local old2 = plr.CameraMaxZoomDistance
game:GetService("ReplicatedStorage").Events.Quest:InvokeServer({"quit"})
end
Tp(cac)
GetQuest("Sarah", true)
end
plr.CameraMinZoomDistance = 128
game.Players.LocalPlayer.CameraMaxZoomDistance = 256
game.Players.LocalPlayer.CameraMinZoomDistance = 256
Tp(CFrame.new(982.9542846679688, 41.349090576171875,
1264.251708984375))
local t = tick()
repeat wait()
local cac = GetNeak()
if cac then
local rac = cac.CFrame+Vector3.new(0,5,0)
Tp(CFrame.new(rac.X,rac.Y,rac.Z))
wait(1)
if cac:FindFirstChild("ClickDetector") then
fireclickdetector(cac.ClickDetector,2)
end
else
Tp(CFrame.new(982.9542846679688, 41.349090576171875,
1264.251708984375))
end
until GetCurrentQuest()=="None" or tick()-t>20 or
data.Quest.QuestProgress.Value==1 or not Settings.Chest
game.Players.LocalPlayer.CameraMaxZoomDistance = old2
game.Players.LocalPlayer.CameraMinZoomDistance = old
Tp(cac)
GetQuest("Sarah", true)
else
end
end
end
end
end)
-- end)
local olf = Section2:CreateToggle("1 Click Level Farm",
{Toggled=Settings.OneClick,Description = "Will auto farm beli -> Buy weapons then
start level farm"}, function(state)
SetEN("Noclip", "OneClick", state)
SetEN("NoFallDame","OneClick",state)
Settings.OneClick = state
end)
Section2:CreateToggle("Auto Buso Quest",
{Toggled=Settings.AutoBusoQuest,Description = "Must enable with level farm"},
function(state)
Settings.AutoBusoQuest=state
end)
Section2:CreateDropdown("Level Farm Method", {
List = {"Rifle","Sword","Black Leg"},
Default = Settings.FarmMode
}, function(item)
Settings.FarmMode = item
end)
function IsAdvanceMode(k)
if k=="1-500 at Fishman" then return false else return true end
end
Section2:CreateDropdown("Level Farm Path", {
List = {"1-500 at Fishman","1-160 at Fishman, 160-190 at gravito fort, 190-500
at Fishman"},
Default = Settings.FarmPath or "1-500 at Fishman"
}, function(item)
Settings.FarmPath = item
end)
local Section2 = Tab2:CreateSection("Misc Farm")
local AFB= Section2:CreateToggle("Auto Farm Beli (For Begginer Only)",
{Toggled=Settings.Chest,Description = "Auto Farm Chest then do Sarah quest"},
function(state)
Settings.Chest = state
SetEN("Noclip", "Chest", state)
SetEN("NoFallDame","Chest",state)
end)
spawn(function()
while wait() do
local mode
local price
local GetItem
local BuyItem
local Pos
if Settings.FarmMode=="Sword" then
mode="Katana"
price=1000
GetItem = GetSword
BuyItem=BuyKatana
Pos = SwordPos
end
if Settings.FarmMode=="Rifle" then
mode="Rifle"
price=300
GetItem=GetRifle
BuyItem=function()
fireclickdetector(game:GetService("Workspace").BuyableItems.Rifle.ShopPart.ClickDet
ector)
end
Pos = CFrame.new(999.6433715820312, 9.092554092407227,
1133.33740234375)
end
game:GetService("ReplicatedStorage").Events.Tools:InvokeServer("equip", mode)
end
AFB.SetValue(false)
lf.SetValue(true)
olf.SetValue(false)
end
end
end
end)
local DoneSeq="0 1 1 1 0 1 1 1 1 0 "
function IsSkillUnlocked(skill)
if plr.PlayerGui:FindFirstChild("Keys") then
if plr.PlayerGui.Keys:FindFirstChild("Frame") then
if plr.PlayerGui.Keys.Frame:FindFirstChild(skill) then
if plr.PlayerGui.Keys.Frame[skill].TextLabel.TextLabel.Text ~=
"???" then
return true
end
end
end
end
return false
end
function IsSkillReady(skill)
if plr.PlayerGui:FindFirstChild("Keys") then
if plr.PlayerGui.Keys:FindFirstChild("Frame") then
if plr.PlayerGui.Keys.Frame:FindFirstChild(skill) then
if pcall(function() return
plr.PlayerGui.Keys.Frame[skill].TextLabel.Frame.UIGradient.Color end) then
if
tostring(plr.PlayerGui.Keys.Frame[skill].TextLabel.Frame.UIGradient.Color)==DoneSeq
then
return true
end
end
end
end
end
return false
end
local Section2 = Tab2:CreateSection("Ship Farm")
Section2:CreateToggle("Ship Farm", {Toggled=Settings.ShipFarm,Description = false},
function(state)
Settings.ShipFarm = state
SetEN("Noclip", "ShipFarm", state)
SetEN("NoFallDame","ShipFarm",state)
end)
Section2:CreateDropdown("Ship Farm Method", {
List = {"Sword","Black Leg"},
Default = Settings.ShipFarmMode
}, function(item)
Settings.ShipFarmMode = item
end)
Section2:CreateToggle("Kill Cannoners", {Toggled=Settings.KillCannon,Description =
false}, function(state)
Settings.KillCannon = state
end)
-- Section2:CreateToggle("Ignore Galleons", {Description = false}, function(state)
-- Settings.IgnoreGalleon = state
-- end)
Section2:CreateButton("Set Ship Spawn Location", function(args)
Settings.ShipPos=game.Players.LocalPlayer.Character.HumanoidRootPart.Position--
Vector3.new(6013.2841796875, -3.5988941192626953, -18909.974609375)--
CFAHub:AddNoti("Notification", "Set Ship Farm Position Complete", 5)
end)
function TpE(e,f)
if e:FindFirstChild("HumanoidRootPart") then
repeat wait()
spawn(function()
if e:FindFirstChild("HumanoidRootPart") then
Tp(e.HumanoidRootPart.CFrame*CFrame.new(0, -0.75, 3))
end
end)
until not e:FindFirstChild("HumanoidRootPart") or not pcall(function()
return game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame end) or
(game.Players.LocalPlayer.Character.HumanoidRootPart.Position-
e.HumanoidRootPart.Position).magnitude<5 or not e.Parent or not f()
end
end
local function KillCaMap()
for i, v in ipairs(game.workspace.NPCs:GetChildren()) do
if plr.Character:FindFirstChild("HumanoidRootPart") and v.Name ==
"Shark" and v:FindFirstChild("HumanoidRootPart") and v:FindFirstChild("Humanoid")
and v.Humanoid.Health ~= 0 then
local magnitude = (v.HumanoidRootPart.Position -
plr.Character.HumanoidRootPart.Position).magnitude
if magnitude < 10 then
Click()
end
end
end
end
function EquipWpShip()
if StoringDF then return end
if Settings.ShipFarmMode == "Black Leg" then
if
game.Players.LocalPlayer.Character:FindFirstChild("Humanoid") and
plr.Backpack:FindFirstChild("BlackLeg")
then
plr.Character.Humanoid:EquipTool(plr.Backpack.BlackLeg)
end
else
local sword, equip = GetSword()
if sword and not equip then
if game.Players.LocalPlayer.Character:FindFirstChild("Humanoid") then
game.Players.LocalPlayer.Character.Humanoid:EquipTool(sword)
end
end
end
end
function GetAllMobInShip(ship)
local Mobs = {}
for k,v in pairs(game:GetService("Workspace").NPCs:GetChildren()) do
if v:FindFirstChild("assignedShip") and v:FindFirstChild("Humanoid") and
v.Humanoid.Health>0 then
if v:FindFirstChild("HumanoidRootPart") then
if v.assignedShip.Value==ship then
table.insert(Mobs,v)
end
end
end
end
return Mobs
end
function Kill(v,f)
local tween=true
repeat
wait()
EquipWpShip()
if v:FindFirstChild("HumanoidRootPart") and
game.Players.LocalPlayer.Character:FindFirstChild("HumanoidRootPart") then
TpE(v,function()
return tween
end)
if v:FindFirstChild("HumanoidRootPart") and
game.Players.LocalPlayer.Character:FindFirstChild("HumanoidRootPart") and
(game.Players.LocalPlayer.Character.HumanoidRootPart.Position-
v.HumanoidRootPart.Position).magnitude<5 then
--game:GetService("VirtualInputManager"):SendKeyEvent(true,
Enum.KeyCode.X, false,game)
MucTieu.MucTieu = v.HumanoidRootPart
Click()
if Settings.ShipFarmMode=="Black Leg" then
if IsSkillUnlocked("Party Table Kick Course") then
if data.Stamina.Value>40 then
game:GetService("ReplicatedStorage").Events.Skill:InvokeServer("Rapid Slashes")
end
end
end
end
end
until f(v)
MucTieu.MucTieu =nil
tween=false
end
plr.Backpack.ChildAdded:Connect(function(fruit)
if fruit:FindFirstChild("FruitModel") then
spawn(function()
if Settings.AutoStoreDF then
local s, DFBackpackOwn =
pcall(game:GetService("MarketplaceService").UserOwnsGamePassAsync,
game:GetService("MarketplaceService"), plr.UserId, 12776768)
if (s and DFBackpackOwn)
or string.find(data.Inventory.Inventory.Value, "Fruit Bag") then
local v = fruit
StoringDF=true
local t = tick()
repeat wait(1)
plr.Character.Humanoid:EquipTool(v)
wait(.5)
if pcall(function() return
plr.PlayerGui.storefruit.TextButton end) and
plr.PlayerGui.storefruit.TextButton.Visible == true then
FireButton(plr.PlayerGui.storefruit.TextButton)
end
until not v
or not v.Parent
or not Settings.AutoStoreDF or tick()-t>5
StoringDF=false
end
end
end)
if Settings.DFWebHook then
if Settings.WebHookUrl then
local msg = {
["content"] = (Settings.MentionEveryone and "@everyone") or "",
["embeds"] = {{
["title"] = "Grand Piece Online",
["description"] = "Fruit Gotten",
["type"] = "rich",
["color"] = tonumber(47103),
["fields"] = {
{
["name"] = "Name",
["value"] = "||" .. plr.Name .. "||",
["inline"] = false
},
{
["name"] = "Item",
["value"] = fruit.Name,
["inline"] = false
}
},
["footer"] = {
["icon_url"] =
"https://cdn.discordapp.com/attachments/880433061307772958/994650337485000804/
dc6e727bd4a71a981a037834b8c8fe38.png",
["text"] = "CFA Hub (" .. os.date("%X") .. ")"
}
}}
}
local function SendWebHook()
request({
Url =Settings.WebHookUrl,
Method = "POST",
Headers = {
["Content-Type"] = "application/json"
},
Body = game:GetService("HttpService"):JSONEncode(msg)
})
end
SendWebHook()
end
end
end
end)
function GetMob(name,stud)
for k,v in pairs(game.Workspace.NPCs:GetChildren()) do
if v.Name==name and v:FindFirstChild("HumanoidRootPart") then
if plr.Character:FindFirstChild("HumanoidRootPart") and
(game.Players.LocalPlayer.Character.HumanoidRootPart.Position-
v.HumanoidRootPart.Position).magnitude<stud then
return v
end
end
end
end
function ShipGetNearestMobSM(mob)
local nr = nil
for k, v in pairs(game:GetService("Workspace").NPCs:GetChildren()) do
if string.match(v.Name,mob) and v:FindFirstChild("assignedShip") then
if
plr.Character:FindFirstChild("HumanoidRootPart") and
v:FindFirstChild("HumanoidRootPart") and
v:FindFirstChild("Humanoid") and
v.Humanoid.Health > 0
then
if not nr then
nr = v
end
if
nr and nr:FindFirstChild("HumanoidRootPart") and
(plr.Character.HumanoidRootPart.Position -
v.HumanoidRootPart.Position).magnitude <
(plr.Character.HumanoidRootPart.Position -
nr.HumanoidRootPart.Position).magnitude
then
nr = v
end
end
end
end
if nr then
if
plr.Character:FindFirstChild("HumanoidRootPart") and
nr:FindFirstChild("HumanoidRootPart") and
nr:FindFirstChild("Humanoid") and
nr.Humanoid.Health > 0 then
if (plr.Character.HumanoidRootPart.Position -
nr.HumanoidRootPart.Position).magnitude <1000 then
return nr
end
end
end
--return nr
end
spawn(function()
while wait(.5) do
if Settings.ShipFarm then
if Settings.ShipPos and Settings.ShipPos~=Vector3.new(0,0,0) and not
ShipGetNearestMobSM("Captain") then
if Settings.KillCannon then
if not ShipGetNearestMobSM("Cannoneer") then
Tp(CFrame.new(Settings.ShipPos))
end
else
Tp(CFrame.new(Settings.ShipPos))
end
end
if not game.Workspace.Ships:FindFirstChild(plr.Name.."Ship") then
game:GetService("ReplicatedStorage").Events.ShipEvents.Spawn:InvokeServer("true")
end
EquipWpShip()
KillCaMap()
local v = ShipGetNearestMobSM("Captain")
if v then
if v:FindFirstChild("HumanoidRootPart") and
plr.Character:FindFirstChild("HumanoidRootPart") and
(game.Players.LocalPlayer.Character.HumanoidRootPart.Position-
v.HumanoidRootPart.Position).magnitude<1000 then
if v.Name=="Marine Captain" or v.Name=="Pirate Captain" and
Settings.ShipFarm and v:FindFirstChild("assignedShip") then
local ship = v.assignedShip.Value
if ship then
local function dk(v)
return not v.Parent or not
v:FindFirstChild("HumanoidRootPart") or not v:FindFirstChild("Humanoid") or
v.Humanoid.Health==0 or not Settings.ShipFarm
end
Kill(v,dk)
end
end
end
else
if Settings.KillCannon then
if Settings.ShipFarm then
local v=ShipGetNearestMobSM("Cannoneer")
if v and v:FindFirstChild("HumanoidRootPart") then
local function dk(v)
return not v.Parent or not
v:FindFirstChild("HumanoidRootPart") or not v:FindFirstChild("Humanoid") or
v.Humanoid.Health==0 or not Settings.ShipFarm
end
Kill(v,dk)
end
end
end
end
end
if not Settings.ShipFarm then
AutoClick=false
end
end
end)
for k, v in pairs(Settings.AutoStat) do
Section2:CreateToggle(k, {Description = false,Toggled=v}, function(state)
Settings.AutoStat[k] = state
end)
end
spawn(
function()
while wait(.5) do
if Settings.AutoStat then
for k, v in pairs(Settings.AutoStat) do
if v and data.Stats.SkillPoints.Value > 0 then
game.ReplicatedStorage.Events.stats:FireServer(k, nil, 1)
end
end
end
end
end
)
LocationsCoord = {
["Town of Beginnings"] = CFrame.new(965.146, 10, 1195.127),
["Marine Fort F-1"] = CFrame.new(2904.113, 25, -994.2),
["Sandora"] = CFrame.new(-1316.089, 15, 1129.95),
["Shell's Town"] = CFrame.new(-605.248, 15, -4430.41),
["Zou"] = CFrame.new(-4458.681, 10, -2502.741),
["Restaurant Baratie"] = CFrame.new(-3909.713, 55, -5569.912),
["Orange Town"] = CFrame.new(-6999.987, 10, -5345.705),
["Mysterious Cliff"] = CFrame.new(2180.005, 415, -8628.285),
["Roca Island"] = CFrame.new(5426.218, 20, -4918.854),
["Colosseum"] = CFrame.new(-2019.975, 10, -7661.091),
["Sphinx Island"] = CFrame.new(-6327.812, 45, -10129.278),
["Kori Island"] = CFrame.new(-6684.44, 10, 1828.623),
["Arlong Park"] = CFrame.new(652.855, 15, -13122.346),
["Land of the Sky"] = CFrame.new(9016.793, 1440, -10542.829),
["Knock-Up Stream Rock"] = CFrame.new(8116, 10, -9819),
["Gravito's Fort"] = CFrame.new(2611.159, 15, -15359.032),
["Fishman Cave"] = CFrame.new(5682.19, 5, -16458.479),
["Fishman Island"] = CFrame.new(8003.553, -2150, -17056.971),
["Marine Base G-1"] = CFrame.new(-9955.175, 70, -14910.613),
["Coco Island"] = CFrame.new(-4262.249, 10, -15531.864),
["Reverse Mountain"] = CFrame.new(-14338, 20, -9446),
["Shrine"] = CFrame.new(-12184.12890625, 3.2737002372742, -18545.69921875)
}
function WTS(part, toggle)
local screen = workspace.CurrentCamera:WorldToViewportPoint(part)
return Vector2.new(screen.x, screen.y)
end
local esplist = {}
game:GetService("RunService").Stepped:connect(
function()
for k, v in pairs(esplist) do
v()
end
end
)
function ESP(part, text, color, toggle)
local name = Drawing.new("Text")
name.Text = text
name.Color = color
name.Position = WTS(part)
name.Size = 20.0
name.Outline = true
name.Center = true
name.Visible = true
table.insert(
esplist,
function()
pcall(
function()
if part ~= nil then
name.Position = WTS(part)
end
local _, screen =
workspace.CurrentCamera:WorldToViewportPoint(part)
if screen and Settings[toggle] then
name.Visible = true
else
name.Visible = false
end
end
)
end
)
end
for k, v in pairs(LocationsCoord) do
ESP(Vector3.new(v.X, v.Y, v.Z), k, Color3.fromRGB(255, 255, 255), "IslandE")
end
local rac = {}
for k, v in pairs(LocationsCoord) do
table.insert(rac, k)
end
end)
game.CoreGui.DescendantAdded:Connect(function()
wait(2)
pcall(function()
if
game.CoreGui.RobloxPromptGui.promptOverlay:FindFirstChild("ErrorPrompt")
and Settings.AutoRejoin then
while wait() do
game:GetService("TeleportService"):Teleport(1730877806,
plr)
wait(5)
end
end
end)
end)
local current = tick()
local last = current
-- local humadd = function(v)
-- if v.Name=="Humanoid" then
-- v:GetPropertyChangedSignal("FloorMaterial"):Connect(function()
-- if plr.Character.Humanoid.FloorMaterial == Enum.Material.Air
-- then
-- last=tick() --tren troi
-- else
-- current=tick() --duoi dat
-- end
-- end)
-- end
-- end
-- if plr.Character:FindFirstChild("Humanoid") then
-- humadd(plr.Character.Humanoid)
-- end
function RCDetect()
if plr.Character:FindFirstChild("HumanoidRootPart") and
plr.Character:FindFirstChild("Humanoid") and plr.Character.Humanoid.Health>0 then
local plrPos = plr.Character.HumanoidRootPart.Position
local Distance
if plr.Character.HumanoidRootPart.Position.Y <= 20 then
Distance = -5
else
Distance = -5
end
local rcu = RayCast2(Vector3.new(plrPos.X, plrPos.Y,
plrPos.Z),Vector3.new(0, Distance, 0))
if plr.Character.Humanoid.FloorMaterial ~= Enum.Material.Air
or game.workspace.Ragdolls:FindFirstChild(plr.Name)
or plr.Character.HumanoidRootPart:FindFirstChild("geppo")
or plr.Character.HumanoidRootPart:FindFirstChild("SwimPosition")
or plr.Character:FindFirstChild("ToriFullForm")
or plr.Character:FindFirstChild("AirBypass")
or rcu or IsSea() then
--print("duoi dat")
current=tick()-- duoi dat
else
last=tick() --tren troi
end
else
current=tick() -- duoi dat
end
end
function Detect()
if game.workspace.PlayerCharacters:FindFirstChild(plr.Name)
and not game.workspace.Ragdolls:FindFirstChild(plr.Name)
and not plr.PlayerGui:FindFirstChild("DEATHGUI")
and not plr.PlayerGui:FindFirstChild("Blackout")
and plr.Character:FindFirstChild("HumanoidRootPart") then
return true
end
return false
end
function SafeModeKick()
plr:Kick("\n[CFA Hub]\nKicked for suspicious movements (Safe Mode)")
end
plr.Character.ChildAdded:Connect(humadd)
spawn(function()
while wait() do
if Detect() then
local old = plr.Character.HumanoidRootPart.Position
wait(1)
local new = plr.Character.HumanoidRootPart.Position
local speed = (old - new).magnitude
if Detect() and speed >= 300 and not DisableSafeMode then
if Settings.SafeMode then
SafeModeKick()
else
if Last then Last() end
end
end
end
end
end)
local LastNguyHiem = tick()
spawn(function()
while wait() do
RCDetect()
spawn(function()
while wait(1) do
pcall(function()
game.Players.LocalPlayer.Character.Humanoid.WalkSpeed=ws
end)
end
end)
local Section2 = Tab2:CreateSection("ESP")
Section2:CreateToggle("Island ESP", {Toggled=Settings.IslandE,Description = false},
function(state)
Settings.IslandE=state
end)
local Tab2 = Window:CreatePage("Web Hook")
local Section2 = Tab2:CreateSection("Main")
function IsBusoActivated()
if not plr.Character then
return false
end
for k, v in pairs(plr.Character:GetChildren()) do
if string.match(v.Name, "Buso") then
return true
end
end
return false
end
spawn(
function()
while wait(1) do
if Settings.AutoBuso and data.Stats.BusoMastery.Value > 0 then
local a = true
if Settings.BusoMethod == "Enable When Stand Near Mob" then
local function GetAllNearMob()
for k, v in
pairs(game:GetService("Workspace").NPCs:GetChildren()) do
if
v:FindFirstChild("Humanoid") and
v.Humanoid:IsA("Humanoid") and
v:FindFirstChild("HumanoidRootPart") and
plr.Character:FindFirstChild("HumanoidRootPart")
then
if
(v.HumanoidRootPart.Position -
plr.Character.HumanoidRootPart.Position).magnitude <
50
then
return true
end
end
end
return false
end
if GetAllNearMob() then
a = true
else
if IsBusoActivated() then
game:GetService("ReplicatedStorage").Events.Haki:FireServer("Buso")
end
a = false
end
end
if a and not IsBusoActivated() then
game:GetService("ReplicatedStorage").Events.Haki:FireServer("Buso")
end
end
end
end
)
local g = {
KeyCode = Enum.KeyCode.Unknown,
UserInputState = Enum.UserInputState.Begin,
UserInputType = Enum.UserInputType.MouseButton1
}
local funcr
function GetReload()
for k, v in pairs(getgc()) do
if tostring(getfenv(v).script) == "GunMain" and (getfenv(v).script.Parent)
~= nil then
if tostring(debug.getconstant(v, 1)) == "Reloaded" then
-- v(g,false)
-- print(getfenv(v).script:GetFullName())
return v
end
end
end
end
local func
function GetClick(x, m)
for i, v in ipairs(getgc()) do
if pcall(function() return tostring(getfenv(v).script) end) and
tostring(getfenv(v).script) == x and (getfenv(v).script.Parent) ~= nil then
if
pcall(
function()
getconstant(v, m)
end
) == true
then
return v
end
end
end
end
func = GetClick("MeleeScript", 85)
function AttackInCooldown()
if NguyHiem then return true end
if not func or getfenv(func).script.Parent == nil then
func = GetClick("MeleeScript", 85)
end
if func then
return debug.getupvalue(func, 11) >=4
else
return false
end
end
local collector = Instance.new("ScreenGui")
collector.Parent=game.CoreGui
local c= false
local g = {
KeyCode = Enum.KeyCode.Unknown,
UserInputState = Enum.UserInputState.Begin,
UserInputType = Enum.UserInputType.MouseButton1
}
local func
function GetClick(x, m)
for i, v in ipairs(getgc()) do
if pcall(function() return tostring(getfenv(v).script) end) and
tostring(getfenv(v).script) == x and (getfenv(v).script.Parent) ~= nil then
if pcall(function() getconstant(v, m) end ) == true then
return v
end
end
end
end
function Clickc()
spawn(function()
if pcall(function() return tostring(getfenv(func).script) end) and not func
or getfenv(func).script.Parent == nil then
func = GetClick("MeleeScript", 85)
end
if func then
func(g,false)
end
end)
end
function GetClickGun()
for k, v in pairs(getgc()) do
if tostring(getfenv(v).script) == "GunMain" and (getfenv(v).script.Parent)
~= nil then
if tostring(debug.getconstant(v, 1)) == "script" then
return v
end
end
end
end
local gunfunc
function ClickcGun()
spawn(function()
if pcall(function() return tostring(getfenv(gunfunc).script) end) and not
gunfunc or getfenv(gunfunc).script.Parent == nil then
gunfunc = GetClickGun()
end
if gunfunc then
gunfunc(g,false)
end
end)
end
local noprint
local old
old=hookfunction(getrenv().warn,function(...)
local self =...
if self=="peli change" then
if c then
if not AttackInCooldown() then
Clickc()
end
return
end
if cGun then
ClickcGun()
return
end
if noprint then return end
end
return old(...)
end)
local data = game.ReplicatedStorage["Stats"..game.Players.LocalPlayer.Name]
getgenv().ClickMelee = function()
c=true
data.Stats.Peli.Value=data.Stats.Peli.Value+1
c=false
noprint=true
data.Stats.Peli.Value=data.Stats.Peli.Value-1
noprint=false
end
getgenv().ClickGun = function()
cGun=true
data.Stats.Peli.Value=data.Stats.Peli.Value+1
cGun=false
noprint=true
data.Stats.Peli.Value=data.Stats.Peli.Value-1
noprint=false
end
function Click(type)
getgenv().ClickMelee()
end
function GetClickGun()
for k, v in pairs(getgc()) do
if tostring(getfenv(v).script) == "GunMain" and (getfenv(v).script.Parent)
~= nil then
if tostring(debug.getconstant(v, 1)) == "script" then
return v
end
end
end
end
local reloadfunc
function Reload()
if not reloadfunc or getfenv(reloadfunc).script.Parent == nil then
reloadfunc = GetReload()
end
spawn(
function()
reloadfunc()
end
)
end
function ShootSuke(pos)
end
function Shoot(pos)
shooting = true
shootpos = pos
getgenv().ClickGun()
Reload()
-- --pcall(Reload)
-- game:GetService("VirtualInputManager"):SendKeyEvent(true, "R", false, game)
-- game:GetService("VirtualInputManager"):SendKeyEvent(false, "R", false,
game)
wait(.3)
shooting = false
end
function GetNearestMob(mob)
local nr = nil
for k, v in pairs(game:GetService("Workspace").NPCs:GetChildren()) do
if v.Name == mob and not v:FindFirstChild("Rac") then
if
plr.Character:FindFirstChild("HumanoidRootPart") and
v:FindFirstChild("HumanoidRootPart") and
v:FindFirstChild("Humanoid") and
v.Humanoid.Health > 0 and
v:FindFirstChild("Info") and
v.Info:FindFirstChild("Target")
then
local kiet = true
if mob == "Yeti" then
local yetiY = 79
if math.abs(v.HumanoidRootPart.Position.Y - yetiY) > 5 then
kiet = false
end
end
if v.Info.Target.Value ==
game.Players.LocalPlayer.Character.HumanoidRootPart and kiet then
return v
end
while wait() do
if Settings.Farm then
if Settings.FarmMode == "Sword" or Settings.FarmMode == "Black Leg" then
if not StoringDF then
EquipTool()
end
local Dt = CheckQuest(nil,IsAdvanceMode(Settings.FarmPath))
if Settings.AutoBusoQuest and data.Stats.BusoMastery.Value == 0 and
data.Stats.Level.Value > 80 and Settings.FarmMode == "Sword" then
if GetCurrentQuest() == "Road to Armament" then
Dt = CheckQuest(nil, nil, "Buso")
else
if data.Stats.Peli.Value > 25000 then
Dt = CheckQuest(nil, nil, "Buso")
end
end
end
local mob = Dt.Mob
local Quest = Dt.Questpos
game:GetService("ReplicatedStorage").Events.Quest:InvokeServer({"quit"})
end
end
--if not syn then Dt.LevelReq=math.huge end
if
true and
game:GetService("Players").LocalPlayer.PlayerGui.Quest.Quest.Visible == false and
not game.Players.LocalPlayer.QuestCD.Value and
data.Stats.Level.Value >= Dt.LevelReq
then
Tp(Dt.Questpos)
wait(1)
GetQuest(Dt.Quest, true)
end
olddd = Dt
local v = GetNearestMob(mob)
if v then
if
v.Name == mob and Settings.Farm and not
plr.PlayerGui:FindFirstChild("DEATHGUI") and
not v:FindFirstChild("Rac")
then
if
(game:GetService("Players").LocalPlayer.PlayerGui.Quest.Quest.Visible == true or
game.Players.LocalPlayer.QuestCD.Value or
((Dt.LevelReq and data.Stats.Level.Value <=
Dt.LevelReq) or not Dt.LevelReq)) and
v:FindFirstChild("Humanoid") and
v:FindFirstChild("HumanoidRootPart") and
v.Humanoid.Health > 0
then
MucTieu.MucTieu = v.HumanoidRootPart
AutoClick = true
local orgin = v.HumanoidRootPart.Position.Y
local tk = tick()
local curstate = 1 -- 1: UP 0: DOWN
local curr = v.HumanoidRootPart.CFrame
local function Ff(v)
if Dt.Mob~="Yeti" then return true end
local yetiY = 79
if math.abs(v.HumanoidRootPart.Position.Y - yetiY) < 5
then
return true
end
end
repeat
MucTieu.MucTieu = v.HumanoidRootPart
if
CheckReq() and
CountNear(mob, 15,Ff) < CountNear(mob, 1000,
Ff) and Dt.Mob~="Yeti"
then
for k, v in
pairs(game.Workspace.NPCs:GetChildren()) do
if v.Name == mob then
if
(game:GetService("Players").LocalPlayer.PlayerGui.Quest.Quest.Visible ==
true or
game.Players.LocalPlayer.QuestCD.Value or
((Dt.LevelReq and
data.Stats.Level.Value <= Dt.LevelReq) or
not Dt.LevelReq)) and
v:FindFirstChild("Humanoid") and
v:FindFirstChild("HumanoidRootPart") and
v.Humanoid.Health > 0 and
v:FindFirstChild("Info") and
v.Info:FindFirstChild("Target") and
v.Info.Target.Value == nil and
Settings.Farm and Ff(v)
then
local t = tick()
repeat
wait()
EquipTool()
local curr =
v.HumanoidRootPart.CFrame
MucTieu.MucTieu =
v.HumanoidRootPart
local posf =
(Settings.FarmMode=="Sword" and Dt.SwordY) or (Settings.FarmMode=="Black Leg" and
Dt.BlackLegY)
if AttackInCooldown() then
posf=Dt.CooldownY
end
local cf = CFrame.new(curr.X, posf,
curr.Z)
Tp(cf)
Click()
until not v.Parent or
not (v:FindFirstChild("Humanoid")
and
v:FindFirstChild("HumanoidRootPart") and
v.Humanoid.Health > 0) or
not Settings.Farm or
not (v:FindFirstChild("Humanoid")
and
v:FindFirstChild("HumanoidRootPart") and
v.Humanoid.Health > 0) or
v.Info.Target.Value ~= nil
or tick() - t > 6
end
end
end
end
if v:FindFirstChild("HumanoidRootPart") then
if (v.HumanoidRootPart.Position-
curr.p).magnitude>20 then
curr = v.HumanoidRootPart.CFrame
end
MucTieu.MucTieu = v.HumanoidRootPart
end
wait()
EquipTool()
if CanFarm(v) then
if
v:FindFirstChild("Info") and
v.Info:FindFirstChild("Target") and
v.Info.Target.Value ~=
plr.Character.HumanoidRootPart
then
curr = v.HumanoidRootPart.CFrame
end
local cf
if Settings.FarmMode == "Black Leg" then
cf = CFrame.new(curr.X, Dt.BlackLegY, curr.Z)
else
if Dt.SwordY then
cf = CFrame.new(curr.X, Dt.SwordY, curr.Z)
else
cf = curr + Vector3.new(0, -11, 0)
end
end
local dist = -1
if Settings.FarmMode == "Black Leg" then
dist = 14
else
dist = 20
end
if CountNear(mob, dist) > 0 then
if CheckReq() then
local function Farmable()
if Dt.Mob=="Yeti" then return false end
return CountNear(mob, 23,Ff) ==
CountNear(mob, 1000, Ff) and CountNear(mob, 23,Ff)>0
end
if Farmable() then
if Settings.FarmMode=="Black Leg" and
data.Stamina.Value>50 then
game:GetService("VirtualInputManager"):SendKeyEvent(
true,
Enum.KeyCode.X,
false,
game
)
elseif Settings.FarmMode =="Sword" then
if IsSkillReady("Rapid Slashes")
and data.Stamina.Value>25 then
if CountNear(mob,23,Ff)>0 then
game:GetService("VirtualInputManager"):SendKeyEvent(
true,
Enum.KeyCode.R,
false,
game
)
else
game:GetService("VirtualInputManager"):SendKeyEvent(
false,
Enum.KeyCode.R,
false,
game
)
end
end
end
end
end
if not AttackInCooldown() and curstate == 1 and
tick() - lastup > 0.4 then
Click()
lastclick = tick()
end
end
local oldstate = curstate
if true then
if (AttackInCooldown() and tick() - lastclick >
0.6) then
if Dt.CooldownY then
cf = CFrame.new(cf.X, Dt.CooldownY,
cf.Z)
curstate = 0
end
else
curstate = 1
if Dt.Mob == "Yeti" then
cf = cf + Vector3.new(0, -1, 0)
end
if v:FindFirstChild("Humanoid") and
v.Humanoid.Jump or v:FindFirstChild("Tvk") then
if Dt.Mob == "Yeti" then
cf = cf + Vector3.new(0, 3, 0)
if not v:FindFirstChild("Tvk") then
local t =
Instance.new("BoolValue", v)
t.Name = "Tvk"
game.Debris:AddItem(t, 4)
end
else
-- cf = cf + Vector3.new(0, 6, 0)
end
else
end
end
end
-- local bm =
plr.Character.UpperTorso:FindFirstChild(rnd) or
Instance.new("BodyGyro",game.Players.LocalPlayer.Character.UpperTorso)
-- bm.Name=rnd
-- bm.CFrame =
QuayNgang(CFrame.new(rac.X,Dt.RapidY,rac.Z))
-- bm.MaxTorque =
Vector3.new(0, math.huge, 0)
-- bm.D = tonumber(shared.D or
0)
-- bm.P = tonumber(shared.P or
5000)
cf = (rac*CFrame.new(0,0,10))
---TpPoss=rac*CFrame.new(0,0,7)
end
end--
plr.Character.Humanoid.PlatformStand=true
end
end
end
-- if Dt.BlackLegPos then
-- cf=Dt.BlackLegPos
-- end
-- print(curstate,oldstate)
if oldstate == 0 and curstate == 1 then
lastup = tick()
print("Changed")
end
local pos = cf
Tp(pos)
end
until not v.Parent or
not (v:FindFirstChild("Humanoid") and
v:FindFirstChild("HumanoidRootPart") and
v.Humanoid.Health > 0) or
not Settings.Farm or
not (v:FindFirstChild("Humanoid") and
v:FindFirstChild("HumanoidRootPart") and
v.Humanoid.Health > 0) or
tick() - tk > 60 * 5
AutoClick = false
end
end
end
MucTieu.MucTieu = nil
elseif Settings.FarmMode == "Rifle" or Settings.FarmMode == "Suke" then
local questdata = CheckQuest("Rifle",IsAdvanceMode())
if Settings.AutoBusoQuest and data.Stats.BusoMastery.Value == 0 and
data.Stats.Level.Value > 80 then
if GetCurrentQuest() == "Road to Armament" then
questdata = CheckQuest(nil, nil, "Buso")
else
if data.Stats.Peli.Value > 25000 then
questdata = CheckQuest(nil, nil, "Buso")
end
end
end
if data.Stats.SpawnPoint.Value ~= questdata.Island then
Tp(questdata.Spawn)
GetQuest(questdata.Quest)
end
if game:GetService("Players").LocalPlayer.PlayerGui.Quest.Quest.Visible
== true then
if GetCurrentQuest()~=questdata.Quest then
game:GetService("ReplicatedStorage").Events.Quest:InvokeServer({"quit"})
end
end
--if not syn then questdata.LevelRequest=math.huge end
if
for k, v in pairs(game:GetService("Workspace").NPCs:GetChildren()) do
if
(game:GetService("Players").LocalPlayer.PlayerGui.Quest.Quest.Visible == true or
game.Players.LocalPlayer.QuestCD.Value or
((questdata.LevelRequest and data.Stats.Level.Value <=
questdata.LevelRequest) or
not questdata.LevelRequest)) and
v.Name == questdata.Mob and
Settings.Farm and
v:FindFirstChild("HumanoidRootPart") and
v:FindFirstChild("Humanoid") and
v:FindFirstChild("Head") and
v.Humanoid.Health > 0
then
Tp(pos)
local tkk = tick()
repeat
wait()
Tp(pos)
if
Settings.FarmMode == "Rifle" and
game:GetService("Players").LocalPlayer.Backpack:FindFirstChild("Rifle") and
game.Players.LocalPlayer.Character:FindFirstChild("Humanoid")
then
game.Players.LocalPlayer.Character.Humanoid:EquipTool(
game:GetService("Players").LocalPlayer.Backpack:FindFirstChild("Rifle")
)
end
if v:FindFirstChild("Head") and
v:FindFirstChild("HumanoidRootPart") then
if banvaudau%4==0 then
if Settings.FarmMode == "Rifle" then
--print("head")
Shoot(v.Head.CFrame)
else
ShootSuke(v.Head.CFrame)
end
else
if Settings.FarmMode == "Rifle" then
--print("humroot")
Shoot(v.HumanoidRootPart.CFrame)
else
ShootSuke(v.HumanoidRootPart.CFrame)
end
end
end
until -- local ohString1 = "fire"
not Settings.Farm or
not (v:FindFirstChild("Humanoid") and
v:FindFirstChild("Head") and
v:FindFirstChild("HumanoidRootPart") and
v.Humanoid.Health > 0) or
tick() - tkk > 60 * 5
if tick() - tkk > 60 * 5 then
if v and not v:FindFirstChild("Rac") then
local t = Instance.new("BoolValue", v)
t.Name = "Rac"
end
end
end
end
end
end
end