des KI

print("Load Hook")
repeat wait(90) until game:IsLoaded()
if not game:IsLoaded() then
    game.Loaded:Wait()
end

_G.Port = "7963"
_G.Dely = 600

if _G.Port == "" then
    game.Players.LocalPlayer:Kick("Port Server empty..")
end
if _G.Dely == nil then
    _G.Dely = 600
end

_G.Name = game.Players.LocalPlayer.Name

local numbers = {}
local Sword = {}
local Gun = {}
local Fruit = {}
local RacV4 = {}

local Log_Sword = {}
local Log_FightingStyle = {}
local Log_Fruit = {}
local Log_RacV4 = {}
local Log_Money = {}
local Log_RacCheck = {}

local placeId = game.PlaceId
Magnet = bring
if placeId == 2753915549 then
    _G.World = "W1"
elseif placeId == 4442272183 then
    _G.World = "W2"
elseif placeId == 7449423635 then
    _G.World = "W3"
end
if Masteryfruit == nil then
Masteryfruit = "unknow"
end
if CountAwaken  == nil then
CountAwaken = "unknow"
end
if _G.Sword_ToolTip == nil then
_G.Sword_ToolTip = ""
end
if game:GetService("Players").LocalPlayer.Data.DevilFruit.Value == "" then
_G.fruit = "unknow"
end
function comma_value(amount)
    local formatted = amount
    while true do
        formatted, k = string.gsub(formatted, "^(-?%d+)(%d%d%d)", '%1,%2')
        if (k==0) then
            break
        end
    end
    return formatted
end
function concat(ta)
    return table.concat(ta," ")
end
local function CheckFightingStyle(...)
local ResponeData;
if #{...} > 1 then
    ResponeData = game:GetService("ReplicatedStorage").Remotes.CommF_:InvokeServer(...)
else
    ResponeData = game:GetService("ReplicatedStorage").Remotes.CommF_:InvokeServer(...,true)
end
if ResponeData == 1 or ResponeData == 2 then
    return true
end
return false
end
function SetDescription_RamTool(Url,Content)
    local Request = (syn and syn.request) or request or (http and http.request) or http_request
    local Response = Request({
        Url = Url,
        Method = "POST",
        Body = Content
    })
end
function checK_fruit(name)
  if table.find(Fruit,tostring(name)) then
        table.insert(Log_Fruit,tostring(name))
    end
end
getgenv().Material = function()
    Mat_Make = {}
    for i, v in pairs(game:GetService("ReplicatedStorage").Remotes.CommF_:InvokeServer("getInventory")) do
        if v.Type == "Material" then
            if string.find(v.Name,"Dark Fragment") then
                Amount = v.Count
            	table.insert(Mat_Make,"Dark Fragment")
            end
        end
    end
    if #Mat_Make >= 1 then
        return "["..concat(Mat_Make,'').."]"
    end
    return ''
end

spawn(function()
    pcall(function()
        while true do
            _G.level = comma_value(game:GetService("Players").LocalPlayer.Data.Level.Value)
            _G.fruit = game:GetService("Players").LocalPlayer.Data.DevilFruit.Value
            for _, v in pairs(game.Players.LocalPlayer.Character:GetChildren()) do
                if v.ClassName == "Tool" then
                    _G.Melee = v.Name
                else
                for i,v in pairs(game:GetService("Players").LocalPlayer.Backpack:GetChildren()) do
                    if v.ToolTip == 'Melee' then
                        _G.Melee = v.Name
                    end
                end
                end
            end
            if game:GetService("ReplicatedStorage").Remotes.CommF_:InvokeServer("AwakeningChanger", "Check") then
                for i,v in pairs(game:GetService("ReplicatedStorage").Remotes.CommF_:InvokeServer("getAwakenedAbilities")) do
                if v["Key"] then
                    if v["Awakened"] then
                        if i ~= "X" then
                            table.insert(numbers,v["Key"])
                        else
                            table.insert(numbers,v["Key"])
                        end
                    end
                end
                end
                CountAwaken = #numbers
            end
            if game.Players.LocalPlayer.Character:FindFirstChild(tostring(_G.fruit)) and _G.fruit ~= nil then
                for _, v in pairs(game.Players.LocalPlayer.Character:GetChildren()) do
                    if v.Name == _G.fruit then
                        if v.ClassName == "Tool" then
                            Masteryfruit = game.Players.LocalPlayer.Character[tostring(_G.fruit)].Level.Value
                        end
                    end
                end
            else
                for i,v in pairs(game:GetService("Players").LocalPlayer.Backpack:GetChildren()) do
                   if v.Name == _G.fruit then
                        Masteryfruit = game.Players.LocalPlayer.Backpack[tostring(_G.fruit)].Level.Value
                    end
                end
            end
            local args = {
                [1] = "getInventoryWeapons"
            }
            inventory = game:GetService("ReplicatedStorage").Remotes.CommF_:InvokeServer(unpack(args))
            for i,v in pairs(inventory) do
                if v.Type == "Sword" then
                    table.insert(Sword,v.Name)
                end
            end
            local args = {
                [1] = "getInventoryFruits"
            }
            __FR = game:GetService("ReplicatedStorage").Remotes.CommF_:InvokeServer(unpack(args))
            for i, v in pairs(__FR) do
                --rconsoleprint(v.Name.."\n")
                table.insert(Fruit,v.Name)
            end

            if table.find(Sword,"Yama") then
                table.insert(Log_Sword,"YA")
            end
            if table.find(Sword,"Hallow Scythe") then
                table.insert(Log_Sword,"HS")
            end
            if table.find(Sword,"Tushita") then
                table.insert(Log_Sword,"TU")
            end
            if table.find(Sword,"Dark Dagger") then
                table.insert(Log_Sword,"DDG")
            end
            if table.find(Sword,"Cursed Dual Katana") then
                table.insert(Log_Sword,"CTK")
            end
            if table.find(Sword,"True Triple Katana") then
                table.insert(Log_Sword,"3TK")
            end
            if table.find(Sword,"Spikey Trident") then
                table.insert(Log_Sword,"ST")
            end
            if table.find(Sword,"Shark Anchor") then
                table.insert(Log_Sword,"SH")
            end
            if CheckFightingStyle("BuyGodhuman") then
                table.insert(Log_FightingStyle,"G")
            end
            if CheckFightingStyle("BuyDragonTalon") then
                table.insert(Log_FightingStyle,"D")
            end
            if CheckFightingStyle("BuyElectricClaw") then
                table.insert(Log_FightingStyle,"E")
            end
            if CheckFightingStyle("BuySharkmanKarate") then
                table.insert(Log_FightingStyle,"S")
            end
            if CheckFightingStyle("BuyDeathStep") then
                table.insert(Log_FightingStyle,"B")
            end
            getgenv().Race_Awaken = function()
                plr = game.Players.LocalPlayer
                race = game:GetService("Players").LocalPlayer.Data.Race.Value
                p1 = game:GetService("ReplicatedStorage").Remotes.CommF_:InvokeServer("Alchemist","1")
                p2 = game:GetService("ReplicatedStorage").Remotes.CommF_:InvokeServer("Wenlocktoad","1")
                ab = game.Players.LocalPlayer.Backpack:FindFirstChild("Awakening") or game.Players.LocalPlayer.Character:FindFirstChild("Awakening")
                Gear, Tiers = game:GetService("ReplicatedStorage").Remotes.CommF_:InvokeServer("UpgradeRace", "Check")
                if Tiers ~= nil or type(Tiers) == number then
                    a = Tiers
                else
                    a = ''
                end
                if p1 ==-2 and p2 ~=-2 and tostring(p2) ~= "nil" then
                    return race..' (2)'
                elseif p2 ==-2 and p2 ~= nil and not ab then
                    return race..' (3)'
                elseif ab then
                    return race..' (T'..a..')'
                else
                    return race
                end
            end
            for _, v in pairs(game.Players.LocalPlayer.Character:GetChildren()) do
                if v.Name == "Yama" then
                    _G.Sword_ToolTip = "YA "
                end
                if v.Name == "Hallow Scythe" then
                    _G.Sword_ToolTip = "HS "
                end
                if v.Name == "Tushita" then
                    _G.Sword_ToolTip = "TU "
                end
                if v.Name == "Dark Dagger" then
                    _G.Sword_ToolTip = "DDG "
                end
                if v.Name == "Cursed Dual Katana" then
                    _G.Sword_ToolTip = "CTK "
                end
                if v.Name == "True Triple Katana" then
                    _G.Sword_ToolTip = "3TK "
                end
                if v.Name == "Spikey Trident" then
                    _G.Sword_ToolTip = "TS "
                end
                if v.Name == "Shark Anchor" then
                    _G.Sword_ToolTip = "SAH "
                end
            end
            for i,v in pairs(game:GetService("Players").LocalPlayer.Backpack:GetChildren()) do
                if v.Name == "Yama" then
                    _G.Sword_ToolTip = "YA "
                end
                if v.Name == "Hallow Scythe" then
                    _G.Sword_ToolTip = "HS "
                end
                if v.Name == "Tushita" then
                    _G.Sword_ToolTip = "TU "
                end
                if v.Name == "Dark Dagger" then
                    _G.Sword_ToolTip = "DDG "
                end
                if v.Name == "Cursed Dual Katana" then
                    _G.Sword_ToolTip = "CTK "
                end
                if v.Name == "True Triple Katana" then
                    _G.Sword_ToolTip = "3TK "
                end
                if v.Name == "Spikey Trident" then
                    _G.Sword_ToolTip = "TS "
                end
                if v.Name == "Shark Anchor" then
                    _G.Sword_ToolTip = "SAH "
                end
            end
            local args = {
                [1] = "getInventoryWeapons"
            }
            inventory2 = game:GetService("ReplicatedStorage").Remotes.CommF_:InvokeServer(unpack(args))
            for i,v in pairs(inventory2) do
                if v.Type == "Gun" then
                table.insert(Gun,v.Name)
                end
            end

            if table.find(Gun,"Soul Guitar") then
                table.insert(Log_Sword,"Gu")
            end
            for _, v in pairs(game.Players.LocalPlayer.Character:GetChildren()) do
                if v.Name == "Soul Guitar" then
                    _G.Sword_ToolTip = "Gu"
                end
            end
            for i,v in pairs(game:GetService("Players").LocalPlayer.Backpack:GetChildren()) do
                if v.Name == "Soul Guitar" then
                    _G.Sword_ToolTip = "Gu "
                end
            end
            ----------------------------------------------------------------------------------------
            local args = {
                [1] = "getInventory"
            }
            inventory5 = game:GetService("ReplicatedStorage").Remotes.CommF_:InvokeServer(unpack(args))
            for i,v in pairs(inventory5) do
                if v.Type == "Wear" then
                table.insert(RacV4,v.Name)
                end
            end
            if table.find(RacV4,"Valkyrie Helm") then
                table.insert(Log_RacV4,"VR")
            end
            if table.find(RacV4,"Dark Coat") then
                table.insert(Log_RacV4,"DC")
            end
            for i,v in pairs(inventory5) do
                if v.Type == "Material" then
                    table.insert(RacV4,v.Name)
                end
            end
                if table.find(RacV4,"Mirror Fractal") then
                table.insert(Log_RacV4,"MR")
            end
            if game:GetService("ReplicatedStorage").Remotes.CommF_:InvokeServer("CheckTempleDoor") then
                table.insert(Log_RacV4,"🕹")
            end
            -- local raceValue = game:GetService("Players").LocalPlayer.Data.Race.Value
            table.insert(Log_RacCheck,getgenv().Race_Awaken())
            local beli = comma_value(game:GetService("Players").LocalPlayer.Data.Beli.Value)
            table.insert(Log_Money,'B:'..beli..']')
            local fagment = comma_value(game:GetService("Players").LocalPlayer.Data.Fragments.Value)
            table.insert(Log_Money,'[F:'..fagment)
----------------------------------------------------------------------------------------
            checK_fruit("Leopard-Leopard")
            checK_fruit("Dragon-Dragon")
            checK_fruit("Dough-Dough")
            checK_fruit("Mammoth-Mammoth")
            checK_fruit("Kitsune-Kitsune")
            checK_fruit("T-Rex-T-Rex")

            SetDescription_RamTool('http://localhost:'.._G.Port..'/SetDescription?Account='.._G.Name..'','['..tostring(concat(Log_RacV4))..']'..'['..tostring(concat(Log_FightingStyle))..']'..'['.._G.Sword_ToolTip..tostring(concat(Log_Sword))..']'..'['..tostring(_G.fruit)..' Mas.'..tostring(Masteryfruit)..' Aw. '..tostring(CountAwaken)..']'..'['..tostring(concat(Log_Money))..']'..'['..tostring(concat(Log_RacCheck))..']'..'['..tostring(concat(Log_Fruit))..']'..tostring(getgenv().Material()))
            SetDescription_RamTool('http://localhost:'.._G.Port..'/SetAlias?Account='.._G.Name..'','['.._G.level.._G.World..']')

            print(tostring(CountAwaken))
            print("Loaded")

            table.clear(numbers)
            table.clear(Sword)
            table.clear(Fruit)
            table.clear(Log_Sword)
            table.clear(Log_FightingStyle)
            table.clear(Log_Fruit)
            table.clear(Log_RacV4)
            table.clear(Log_Money)
            table.clear(Log_RacCheck)
            wait(_G.Dely)
        end
    end)
end)