0% found this document useful (0 votes)
284 views49 pages

GPO CFA Hub

The document contains code for a Grand Piece Online script that provides various in-game cheats and utilities. It loads a script from an external source, saves and loads player settings to a local file, implements auto-farming features, and modifies combat mechanics.

Uploaded by

Xein
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
284 views49 pages

GPO CFA Hub

The document contains code for a Grand Piece Online script that provides various in-game cheats and utilities. It loads a script from an external source, saves and loads player settings to a local file, implements auto-farming features, and modifies combat mechanics.

Uploaded by

Xein
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 49

repeat wait() until game.Players.

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 rnd = tostring(math.random(1,100000))

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 index = math.huge


local questchecker
local level = data.Stats.Level.Value
local path = FarmPath.Melee
if a == "Rifle" then
path = FarmPath.Rifle
end
if b then
path=path.Advance
else
path=path.Normal
end
for i, v in pairs(path) do
if (level - i) >= 0 then
if (level - i) < math.abs(level - index) then
index = i
end
end
end
return path[index]
end
function CheckEN(str)
local cac = Temp[str]
for k, v in pairs(cac) do
if v then
return true
end
end
return false
end
function SetEN(str, cac, rac)
Temp[str][cac] = rac
end
function IsFishMan(pos)
return pos.Y < -2000
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)

local tvktrumskid = tostring(math.random(0, 100000))


local TweenFloatVelocity = Vector3.new(0,0,0)
function CreateTweenFloat()
local BV = plr.Character.HumanoidRootPart:FindFirstChild(tvktrumskid) or
Instance.new("BodyVelocity")
BV.Parent = plr.Character.HumanoidRootPart
BV.Name = tvktrumskid
BV.MaxForce = Vector3.new(100000, 100000, 100000)
BV.Velocity = TweenFloatVelocity
end
function TweenFloat(tvk)
if tvk and not
plr.Character.HumanoidRootPart:FindFirstChild(tvktrumskid..tvktrumskid) then
local BV = Instance.new("BodyVelocity")
BV.Parent = plr.Character.HumanoidRootPart
BV.Name = tvktrumskid..tvktrumskid
BV.MaxForce = Vector3.new(100000, 100000, 100000)
BV.Velocity = Vector3.new(0, 0, 0)
else
if not tvk and
plr.Character.HumanoidRootPart:FindFirstChild(tvktrumskid..tvktrumskid) then
plr.Character.HumanoidRootPart[tvktrumskid..tvktrumskid]:Destroy()
end
end
end
function QuayNgang(pos)
local bulon = CFrame.new(pos.X,pos.Y,pos.Z,-0.008880537, 0.999960601, -
6.28793302e-08, -5.37608429e-08, -5.96046448e-08, -0.99999994, -0.999960601, -
0.008880537, 6.35593764e-08)
return bulon
end
function GetAllState()
local cac = {}
for k,v in pairs(Enum.HumanoidStateType:GetEnumItems()) do
if plr.Character:FindFirstChild("Humanoid") then
cac[v]=plr.Character.Humanoid:GetStateEnabled(v)
end
end
return cac
end
function SetAllState(rac)
local cac = {}
for k,v in pairs(Enum.HumanoidStateType:GetEnumItems()) do
if plr.Character:FindFirstChild("Humanoid") then
plr.Character.Humanoid:SetStateEnabled(v,rac)
end
end
return cac
end
local speaker = game.Players.LocalPlayer
local StopFloat=false

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

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 not StopFloat then
CreateTweenFloat()
end

for _, child in pairs(speaker.Character:GetDescendants())


do
if child:IsA("BasePart") and child.CanCollide == true
then
child.CanCollide = false
end
end
else
if
plr.Character.HumanoidRootPart:FindFirstChild(tvktrumskid) then
plr.Character.HumanoidRootPart[tvktrumskid]:Destroy()

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}

local raycastParameters = RaycastParams.new()


raycastParameters.FilterDescendantsInstances = ignored
raycastParameters.FilterType = Enum.RaycastFilterType.Blacklist
raycastParameters.IgnoreWater = false
local rels = workspace:Raycast(a, b, raycastParameters)
return rels
end
function IsSea()
local t =
RayCast2(game.Players.LocalPlayer.Character.HumanoidRootPart.Position,
Vector3.new(0, -500, 0))
--print(t.Instance)
if t == nil or t.Instance.Name == "InvisSandd" then
return true
end
return false
end
local tvk = function(f) f() end
local plr = game:service "Players".LocalPlayer
local tween_s = game:service "TweenService"
function Tween2(t, cb)
local plr = game:service "Players".LocalPlayer
local tween_s = game:service "TweenService"
local info =
TweenInfo.new(

(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

game.Players.LocalPlayer.Character:FindFirstChild("Humanoid").Health > 0 and


game.Players.LocalPlayer.Character.Parent ==
game.Workspace.PlayerCharacters and
not plr.PlayerGui:FindFirstChild("DEATHGUI")) then done = true
tween:Cancel() return end
if (plr.Character.HumanoidRootPart.Position-t.Position).magnitude
<40 then
plr.Character.HumanoidRootPart.CFrame=t
tween:Cancel()
return
end
wait()
end

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 not Origin then


Origin = Pos
end

local info = TweenInfo.new((plr.Character.HumanoidRootPart.Position -


Pos.p).magnitude / Settings.vt, Enum.EasingStyle.Linear)
if k == nil then
k = 1
end
local tween_s = game:service "TweenService"
local tween = game:service
"TweenService":Create(plr.Character:WaitForChild("HumanoidRootPart"), info, {CFrame
= Pos})
local done = false
tween.Completed:Connect(
function()
done = true
end
)
tween:Play()
local Stop = function()
tween:Cancel()
done = true
SetEN("Noclip", "Tween", false)
end
Last = Stop
while (done == false) do
if dieukien and not dieukien() then Stop() return end
SetEN("Noclip", "Tween", true)
if
not( 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 Stop() return
end
if not plr.Character:FindFirstChild("Humanoid") then Stop() return
end

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)

--CFAHub:AddNoti("CFA Hub Premium", "UI Loaded!", 6)


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
function CheckInven(item)
local cac =
game:GetService("HttpService"):JSONDecode(data.Inventory.Inventory.Value)
for k,v in pairs(cac) do
if k==item then
return k
end
end
end
function GetRifle()
return game:GetService("Players").LocalPlayer.Backpack:FindFirstChild("Rifle")
or game:GetService("Players").LocalPlayer.Character:FindFirstChild("Rifle")
end

local function GetNearestChest()


local Chest
for i, v in ipairs(game.workspace.Env:GetChildren()) do
if plr.Character:FindFirstChild("HumanoidRootPart") and v.Name ==
"Chest" and v:IsA("Model") and v:FindFirstChild("MeshPart") then
if not Chest then
Chest=v
end
if (v.MeshPart.Position -
plr.Character.HumanoidRootPart.Position).magnitude<(Chest.MeshPart.Position -
plr.Character.HumanoidRootPart.Position).magnitude then
Chest=v
end
end
end
return Chest
end
function IsChestAlive(chest)
if chest.Parent and chest:FindFirstChild("MeshPart") then
return true
end
return false
end

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

function GetQuest(quest, rac)

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

if GetCurrentQuest()~="Find Sarah's necklace" then


if GetCurrentQuest()~="None" then

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)

local Tab2 = Window:CreatePage("Farm")


local Section2 = Tab2:CreateSection("Main Farm")

local executor = identifyexecutor()

if (executor == "Synapse X" or executor == "Krnl") and secure_call then


else
CFAHub:AddNoti("Warning", "Your Exploit Is Not Supported, Our Script's might
not working perfectly (Supported Exploit: KRNL,Synapse X)", 1)
end
local lf = Section2:CreateToggle("Level Farm", {Toggled=Settings.Farm,Description =
"Will farm at Fishman Island (best way)"}, function(state)
Settings.Farm = state
SetEN("Noclip", "Farm", state)
SetEN("NoFallDame","Farm",state)
end)
-- local lf = Section2:CreateToggle("Legit Farm",
{Toggled=Settings.Legit,Description = "Legit Farm"}, function(state)
-- Settings.Legit = state

-- 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

if Settings.OneClick and mode then


lf.SetValue(false)
if not GetItem() and not CheckInven(mode) then
if data.Stats.Peli.Value < price then
AFB.SetValue(true)
else
AFB.SetValue(false)
Tp(Pos)
wait(5)
local t = tick()
repeat
wait(1)
pcall(BuyItem)
until
game.Players.LocalPlayer.PlayerGui:FindFirstChild("NPCCHAT") or tick() - t > 3
repeat wait()
pcall(function()
for k, v in
pairs(getconnections(game.Players.LocalPlayer.PlayerGui:FindFirstChild("NPCCHAT").F
rame.go.MouseButton1Click)) do
v:Fire()
end
end)
until not
game.Players.LocalPlayer.PlayerGui:FindFirstChild("NPCCHAT")
end
else
if CheckInven(mode) then

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("Party Table Kick


Course")
end
end
end
if Settings.ShipFarmMode=="Sword" then
if IsSkillUnlocked("Rapid Slashes") then
if data.Stamina.Value>20 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)

local Tab2 = Window:CreatePage("Auto Stats")


local Section2 = Tab2:CreateSection("Main")

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

local Tab2 = Window:CreatePage("Misc")


local Section2 = Tab2:CreateSection("Teleport")
Section2:CreateDropdown("Teleport", {
List = rac,
Default = ""
}, function(item)
if item and item~="" then
local s,e = xpcall(function()Tp(LocationsCoord[item]) end,function(e)
print(e)
print(debug.traceback())
end)
-- print(s,e)
end
end)
local Section2 = Tab2:CreateSection("Stuff")
Section2:CreateToggle("Auto Store DF", {Toggled=Settings.AutoStoreDF,Description =
false}, function(state)
Settings.AutoStoreDF = state
end)

Section2:CreateToggle("Auto Buso Haki", {Toggled=Settings.AutoBuso,Description =


false}, function(state)
Settings.AutoBuso = state
end)
Section2:CreateDropdown("Auto Buso Method", {
List = {"Always Enable","Enable When Stand Near Mob"},
Default = Settings.BusoMethod or "Enable When Stand Near Mob"
}, function(item)
Settings.BusoMethod=item

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()

if last-current >8 then


NguyHiem=true
wait(1)
else
NguyHiem=false
end
--print(last-current)
if Settings.SafeMode and Detect() then
if plr.Character.HumanoidRootPart.Velocity.Y > 700
or plr.Character.HumanoidRootPart.Velocity.Y < -700 then
SafeModeKick()
end
if last-current >13 then
SafeModeKick()
end
if game.workspace.Ragdolls:FindFirstChild(plr.Name) then
if Last then Last() end
if game.workspace.Ragdolls[plr.Name].HumanoidRootPart.Position.Y <
-100
and (Vector3.new(8073.316, -2016.831, -17376.289) -
game.workspace.Ragdolls[plr.Name].HumanoidRootPart.Position).magnitude >= 3000 then
SafeModeKick()
end
end
end
end
end)

local Section2 = Tab2:CreateSection("Security")


Section2:CreateToggle("Safe Mode", {Toggled=Settings.SafeMode,Description = "Will
kick you if your character having suspicious movements"}, function(state)
Settings.SafeMode = state
end)
Section2:CreateToggle("Auto Kick at 499 rifle shoot",
{Toggled=Settings.RifleKick,Description = "Will kick you if you shooted more than
499 shoot"}, function(state)
Settings.RifleKick = state
end)
Section2:CreateToggle("Auto Kick", {Toggled=Settings.AutoKick,Description = "Auto
kick you from the game after selected minute"}, function(state)
Settings.AutoKick = state
spawn(function()
while Settings.AutoKick and wait() do
if Settings.AutoKickTimer then
pcall(function()
local CurrentTick = tick()
repeat wait(1)
until tick() - CurrentTick >= Settings.AutoKickTimer * 60
or not Settings.AutoKick
if Settings.AutoKick then
plr:Kick("\n[CFA Hub]\n".. Settings.AutoKickTimer .."
minute reached (Auto Kick)")
end
end)
end
end
end)
end)
Section2:CreateSlider("Auto Kick Timer (minute)", {Min = 1, Max = 120, DefaultValue
= Settings.AutoKickTimer or 15}, function(value)
Settings.AutoKickTimer=value
end)
Section2:CreateToggle("Auto Rejoin", {Toggled=Settings.AutoRejoin,Description =
false}, function(state)
Settings.AutoRejoin = state
end)
Section2:CreateTextbox("PS Code", "(Leave if you want rejoin to normal server)",
function(args)
Settings.PSCode=args
end,Settings.PSCode)
local Section2 = Tab2:CreateSection("Local Player")
Section2:CreateToggle("No Drown", {Toggled=Settings.Nodrown,Description = "Make you
cant drown in water"}, function(state)
Settings.Nodrown = state
SetEN("Nodrown", "Setting", state)
end)
Section2:CreateToggle("No Fall Damage", {Toggled=Settings.NoFallDame,Description =
"Make you get no damage when fall"}, function(state)
Settings.NoFallDame = state
SetEN("NoFallDame", "Setting", state)
end)
Section2:CreateToggle("Dash No Stamina", {Toggled=Settings.DashNoStam,Description =
"Dashing wont take stamina"}, function(state)
Settings.DashNoStam = state
SetEN("DashNoStam", "Setting", state)
end)
-- Section2:CreateToggle("No Clip", {Description = "Make you get no damage when
fall"}, function(state)
-- Settings.Noclip = state
-- SetEN("Noclip", "Setting", state)
-- end)
local ws = 16
Section2:CreateSlider("WalkSpeed Changer", {Min = 16, Max = 100, DefaultValue =
16}, function(value)
ws=value
end)

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")

Section2:CreateTextbox("Web Hook Url", "Enter here!", function(args)


Settings.WebHookUrl=args
end,Settings.WebHookUrl)
Section2:CreateToggle("Mention Everyone",
{Toggled=Settings.MentionEveryone,Description = false}, function(state)
Settings.MentionEveryone=state
end)
local Section2 = Tab2:CreateSection("DF")
Section2:CreateToggle("DF Webhook", {Toggled=Settings.DFWebHook,Description = "Will
notify when you have DF"}, function(state)
Settings.DFWebHook=state
end)
local Tab2 = Window:CreatePage("Settings")
local Section2 = Tab2:CreateSection("Main")
Section2:CreateSlider("Tween Speed", {Min = 50, Max = 120, DefaultValue =
Settings.vt}, function(value)
Settings.vt=value
end)

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 shooting = false


local shootpos = CFrame.new(0, 0, 0)
local cf = getrenv()._G.MouseCF
getrenv()._G.MouseCF = nil
setmetatable(
getrenv()._G,
{
__index = function(a, b)
if b == "MouseCF" then
if shooting then
return shootpos
else
return cf
end
end
return rawget(a, b)
end,
__newindex = function(a, b, c)
if b == "MouseCF" then
cf = c
return
end
return rawset(a, b, c)
end
}
)

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

if not nr and kiet 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 and
kiet
then
nr = v
end
end
end
end
return nr
end

function CountNear(mob, mag, kk)


local kk = function() return true end
local c = 0
for k, v in pairs(game:GetService("Workspace").NPCs:GetChildren()) do
if v.Name == mob then
if plr.Character:FindFirstChild("HumanoidRootPart") and
v:FindFirstChild("HumanoidRootPart") then
-- local c = false
-- if not k then
-- c=true
-- else
-- if v:FindFirstChild("Info") and
v.Info.Target==plr.Character.HumanoidRootPart then
-- c=true
-- end
-- end
if (plr.Character.HumanoidRootPart.Position -
v.HumanoidRootPart.Position).magnitude < mag and kk(v) then
c = c + 1
end
end
end
end
return c
end
function CheckReq()
if Settings.FarmMode=="Sword" then
if IsSkillUnlocked("Rapid Slashes") then
return true
end
end
if Settings.FarmMode=="Black Leg" then
if IsSkillUnlocked("Party Table Kick Course") then
return true
end
end
return false
end
function RapidHold()
if not game.Players.LocalPlayer.Character:FindFirstChild("Humanoid") then
return end
local cac = game.Players.LocalPlayer.Character.Humanoid
local rac = cac:GetPlayingAnimationTracks()
for k,v in pairs(rac) do
if tostring(v)=="rapidHold" then return true end
end
end
function EquipTool()
if StoringDF then return end
if Settings.FarmMode == "Black Leg" then
if
game.Players.LocalPlayer.Character:FindFirstChild("Humanoid") and
plr.Backpack:FindFirstChild("BlackLeg")
then
plr.Character.Humanoid:EquipTool(plr.Backpack.BlackLeg)
end
elseif Settings.FarmMode=="Sword" then
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 CanFarm(v)
return 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") and
v:FindFirstChild("HumanoidRootPart")
end
function InstantTp(pos)
if plr.Character:FindFirstChild("HumanoidRootPart") then
plr.Character.HumanoidRootPart.CFrame=pos
end
end
local TpPoss
do
local cc = false
game:GetService("RunService").Stepped:connect(function()
if not cc and TpPoss then
cc=true
pcall(function()
Tp(TpPoss)
end)
cc=false
else
end
end)
end
function SendKey(Key,a)
game:GetService("VirtualInputManager"):SendKeyEvent(
a,
Enum.KeyCode[Key],
false,
game
)
end
spawn(function()
while wait() do
if Settings.Legit then
if AttackInCooldown() then
SendKey("F",true)
else
SendKey("F",false)
Click()
end
end
end
end)

local mob = "Bandit"


local olddd
local pos =
CFrame.new(
1054.63916,
8.99998665,
1298.18445,
0.69716531,
-9.41179668e-09,
0.716910422,
-2.24304877e-08,
1,
3.49409817e-08,
-0.716910422,
-4.04402911e-08,
0.69716531
)
local lastclick = tick()
local lastup = tick()

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

if data.Stats.SpawnPoint.Value ~= Dt.Island then


Tp(Dt.Spawn)
wait(1)
GetQuest()
end

if not game.Workspace.NPCs:FindFirstChild(mob) and not


plr.PlayerGui:FindFirstChild("DEATHGUI") then
Tp(Dt.Mobpos)
end
if game:GetService("Players").LocalPlayer.PlayerGui.Quest.Quest.Visible
== true then
if GetCurrentQuest()~=Dt.Quest then

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

if Dt.Mob~="Yeti" and RapidHold() then


local Y = Dt.RapidY
if
plr.Character:FindFirstChild("HumanoidRootPart") then
if syn then
local rac = curr
cf =
QuayNgang(CFrame.new(rac.X,Y,rac.Z))
else
if RapidHold() then
local v = GetNearestMob(mob)
if v and
v:FindFirstChild("HumanoidRootPart") then
local rac =
v.HumanoidRootPart.CFrame

-- 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

game:GetService("Players").LocalPlayer.PlayerGui.Quest.Quest.Visible == false and


not game.Players.LocalPlayer.QuestCD.Value and
(questdata.LevelRequest and data.Stats.Level.Value >=
questdata.LevelRequest)
then
Tp(questdata.Questpos)
wait(1)
GetQuest(questdata.Quest, true)
end
olddd = questdata
local pos = questdata.RiflePos or questdata.Mobpos
Tp(pos)

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

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy