Ninja legends GUI

--defining variables
local Finity = loadstring(game:HttpGet("https://pastebin.com/raw/BbxzJKTw"))()
local players = game.Players
local player = players.LocalPlayer
local char = player.Character
local event = game:GetService("Players").LocalPlayer.ninjaEvent
local TeleportService = game:GetService("TeleportService")
local selectedisland
local selectedchest
local selectedtraining
local selectedother
local selectedboss
local selectedelement
local selectedrank
local selectedbossfarm
local selectedcrystal
local allcrystals = {}
local index, value = {}
local lastisland

--getting global envirements
getgenv().swing = false --for auto swing
getgenv().sell = false --for auto sell
getgenv().buyswords = false --for auto buy swords
getgenv().buybelts = false -- for auto buy belts
getgenv().buyranks = false -- for auto buy ranks
getgenv().farm = false --for farming bosses
getgenv().hoopsncoins = false --for farming hoops and coins
getgenv().petsell = false -- for auto selling pets
getgenv().open = false --for opening crystals
getgenv().evolve = false --for auto evolving
getgenv().theme = true -- change this to change UI Theme true is Darkmode false is Whitemode

--functions
--auto swing
function doswing()
    spawn(function()
        while wait() do
            if char:WaitForChild("HumanoidRootPart") then
                if not getgenv().swing then break end;
                --equiping katana
                for i, v in pairs(game:GetService("Players").LocalPlayer.Backpack:GetChildren()) do
                    if v:FindFirstChild("attackKatanaScript") then
                        char.Humanoid:EquipTool(v)
                    end
                end
                --calling the swing remote
                event:FireServer("swingKatana")
            end
        end
    end)
end


--auto sell
function dosell()
    spawn(function()
        local playerHead = char.Head
        while wait() do
            for i, v in pairs(game:GetService("Workspace").sellAreaCircles:GetDescendants()) do
                if v.Name == "sellAreaCircle16" and v.sellMultiplier.Value == 35 and getgenv().sell then
                    local sellCircle = v.circleInner
                    if char:WaitForChild("HumanoidRootPart") then
                        firetouchinterest(playerHead, sellCircle, 0)
                        wait(0.1)
                        firetouchinterest(playerHead, sellCircle, 1)
                    end
                end
            end
        end
    end)
end


--getting the last island for the auto buy functions
function getlastisland()
    local allislands = game:GetService("ReplicatedStorage").islandColors:GetChildren()
    lastisland = allislands[#allislands].Name
end


--auto buy swords
function dobuyswords()
    spawn(function()
        while wait() do
            if char:WaitForChild("HumanoidRootPart") then
                if not getgenv().buyswords then break end;
                getlastisland()
                local args = {
                    [1] = "buyAllSwords",
                    [2] = lastisland
                }

                event:FireServer(unpack(args))
            end
        end
    end)
end


--auto buy belts
function dobuybelts()
    spawn(function()
        while wait() do
            if char:WaitForChild("HumanoidRootPart") then
                getlastisland()
                if not getgenv().buybelts then break end;
                local args = {
                    [1] = "buyAllBelts",
                    [2] = lastisland
                }

                event:FireServer(unpack(args))
            end
        end
    end)
end


--auto buy ranks
function dobuyranks()
    spawn(function()
        while wait() do
            if not getgenv().buyranks then break end;
            if char:WaitForChild("HumanoidRootPart") then
                local rank = game:GetService("ReplicatedStorage").Ranks.Ground:GetChildren()
                for i = 1, #rank do
                    event:FireServer("buyRank", rank[i].Name)
                end
            end
        end
    end)
end


--teleport function
function TeleportTO(placeCFrame)
    if char:WaitForChild("HumanoidRootPart") then
        char.HumanoidRootPart.CFrame = placeCFrame
    end
end


--teleport to island from dropdown (see GUI section)
function Teleport(place)
    TeleportTO(game:GetService("Workspace").areaTeleportParts[place].CFrame)
end


--teleport to valley
function TeleportValley()
    if char:WaitForChild("HumanoidRootPart") then
        TeleportTO(CFrame.new(15,64,31))
    end
end


--claim all chests
function doclaim(Karma)
    local chests = {"Golden Chest","Enchanted Chest","Magma Chest","Mythical Chest","Legends Chest","Eternal Chest","Sahara Chest","Thunder Chest","Ancient Chest","Midnight Shadow Chest",Karma,"Wonder Chest","Golden Zen Chest","Ultra Ninjitsu Chest","Skystorm Masters Chest","Chaos Legends Chest","Soul Fusion Chest"}
    for i = 1, #chests do
        wait(3)
        game:GetService("ReplicatedStorage").rEvents.checkChestRemote:InvokeServer(chests[i])
    end
end


--teleport to training area from dropdown (see GUI section)
function TeleportTraining(area)
    for i, v in pairs(game:GetService("Workspace").trainingAreaParts:GetDescendants()) do
        if v.ClassName =="TextLabel" and v.Name == "nameLabel" and v.Text == ("Training Area: " .. area) then
            if char:WaitForChild("HumanoidRootPart") then
                TeleportTO(v.Parent.Parent.CFrame)
            end
        end
    end
end


--teleport to boss from dropdown (see GUI section)
function TeleportBoss(boss)
    if char:WaitForChild("HumanoidRootPart") then
        TeleportTO(game:GetService("Workspace").bossFolder[boss].HumanoidRootPart.CFrame)
    end
end


--auto farm boss
function dofarmboss(bossfarm)
    spawn(function()
        while true do
            if not getgenv().farm then break end;
            if char:WaitForChild("HumanoidRootPart") then
                if game:GetService("Workspace").bossFolder:FindFirstChild(bossfarm):FindFirstChild("HumanoidRootPart") then
                    TeleportTO(game:GetService("Workspace").bossFolder[bossfarm].HumanoidRootPart.CFrame)
                    wait()
                    --equiping katana
                    for i, v in pairs(game:GetService("Players").LocalPlayer.Backpack:GetChildren()) do
                        if v:FindFirstChild("attackKatanaScript") then
                            char.Humanoid:EquipTool(v)
                        end
                    end
                    --calling the swing remote
                    event:FireServer("swingKatana")
                end
            end
        end
    end)
end


--auto teleport to hoops
function hoop()
    spawn(function()
        while wait() do
            if not getgenv().hoopsncoins then break end;
            local hoop = game:GetService("Workspace").Hoops:GetChildren()
            for i = 1, #hoop do
                if hoop[i]:FindFirstChild("chi") then
                    if hoop[i].chi.Value >= 40 then
                        local text = hoop[i].hoopGui.rewardLabel.Text
                        if string.find(text, "Chi") then
                            wait()
                            hoop[i].touchPart.CFrame = char.HumanoidRootPart.CFrame
                        else coins()
                        end
                    end
                end
            end
        end
    end)
end


--auto teleport to coins (trigered by hoop() if there is no hoop ready to be collected)
function coins()
    spawn(function()
        for i, v in pairs(game:GetService("Workspace").spawnedCoins.Valley:GetChildren()) do
            if v.ClassName == "Part" and string.find(v.Name, "Chi") then
                char.HumanoidRootPart.CFrame = v.CFrame + Vector3.new(0,3,0)
            end
        end
    end)
end


--claim element from dropdown (see GUI section)
function doclaimelement(element)
    game:GetService("ReplicatedStorage").rEvents.elementMasteryEvent:FireServer(element)
end


--gets all the crystals in the game
function getallcrystals()
    for i, v in pairs(game:GetService("Workspace").mapCrystalsFolder:GetChildren()) do
        table.insert(allcrystals, v.Name)
    end
end
getallcrystals()


--invokes the server to open a crystal
function doopencrystal(crystal)
    spawn(function()
        while wait() do
            if not getgenv().open then break end
            --checks if we reached our max pet capacity
            local currentcapacity = game:GetService("Players").LocalPlayer.PlayerGui.gameGui.petsMenu.bottomPetMenu.capacityLabel.Text
            local maxcapacity = tostring(game:GetService("Players").LocalPlayer.maxPetCapacity.Value)
            currentcapacity = string.gsub(currentcapacity, "Capacity: ", "")
            currentcapacity = string.gsub(currentcapacity, "/" .. maxcapacity, "")
            currentcapacity = tonumber(currentcapacity)
            if maxcapacity == currentcapacity then return end
            --invoking the server
            game:GetService("ReplicatedStorage").rEvents.openCrystalRemote:InvokeServer("openCrystal", crystal)
        end
    end)
end


--Claim all islands (for whichever reason you want that)
function doclaimislands()
    spawn(function()
        local oldpos = game:GetService("Players").LocalPlayer.Character.HumanoidRootPart.CFrame --old position--
        local repeattimes = 0
        --defining variables--
        local claimedislands = game:GetService("Players").LocalPlayer.foundIslands:GetChildren()
        local allislands = game:GetService("ReplicatedStorage").islandColors:GetChildren()
        while #claimedislands ~= #allislands do
            wait()
            local islandtoclaim = allislands[#claimedislands + 1].Name
            wait(0.3)
            --modifying the name of the island to be able to teleport to it--
            islandtoclaim = string.gsub(islandtoclaim, "%s+", "")
            if not string.find(islandtoclaim, "Island") then
                islandtoclaim = islandtoclaim .. "Island"
            end
            if string.find(islandtoclaim, "Shadow") then
                islandtoclaim = string.gsub(islandtoclaim, "Shadow", "")
            end
            --teleporting to last island
            Teleport("groundTo" .. islandtoclaim)
            claimedislands = game:GetService("Players").LocalPlayer.foundIslands:GetChildren() --getting the clamed island again to maintain the loop
            if #claimedislands == #allislands then TeleportTO(oldpos) end --teleport to old position after getting all islands
        end
    end)
end


--Auto Evolve
function doevolve()
    spawn(function()
        while wait() do
            if not getgenv().evolve then break end
            game:GetService("ReplicatedStorage").rEvents.autoEvolveRemote:InvokeServer("autoEvolvePets")
        end
    end)
end


--gets the index and value of selected petrank
function getrank(rank)
    spawn(function()
        while wait() do
            if not getgenv().petsell then break end
            for i, v in pairs(game:GetService("Players").LocalPlayer.petsFolder:GetChildren()) do
                if v.Name == rank then
                    index, value = i, v
                end
            end
        end
    end)
end


--sell the pets
function rank()
    spawn(function()
        while wait() do
            if not getgenv().petsell then break end
            for i, v in pairs(game:GetService("Players").LocalPlayer.petsFolder:GetChildren()) do
                for i2, v2 in pairs(v:GetChildren()) do
                    if i > index then return end
                    game:GetService("ReplicatedStorage").rEvents.sellPetEvent:FireServer("sellPet", v2)
                end
            end
        end
    end)
end


--Auto claim codes
function doclaimcodes()
    local codes = {
        "epictrain15","roboninja15",
        "christmasninja500","innerpeace5k",
        "skyblades10K","silentshadows1000",
        "darkelements2000","silentshadows1000"
        ,"omegasecrets5000","ultrasecrets10k"
        ,"elementmaster750","secretcrystal1000","skymaster750"
        ,"legends700m","dojomasters500","dragonlegend750"
        ,"zenmaster500","epicelements500","goldninja500"
        ,"goldupdate500","legends500m","senseisanta500"
        ,"blizzardninja500","mythicalninja500"
        ,"legendaryninja500","shadowninja500","legends200M"
        ,"epicflyingninja500","flyingninja500","dragonwarrior500"
        ,"swiftblade300","DesertNinja250","fastninja100"
        ,"epicninja250","masterninja750"
        ,"sparkninja20","soulhunter5"
    }
    for i = 1, #codes do
        game:GetService("ReplicatedStorage").rEvents.codeRemote:InvokeServer(codes[i])
    end
end




--GUI section
--Categories
local FinityWindow = Finity.new(getgenv().theme, "Ninja Legends GUI")
local FarmingCat = FinityWindow:Category("Farming")
local TeleportCat = FinityWindow:Category("Teleportation")
local ClaimCat = FinityWindow:Category("Claim")
local PetsCat = FinityWindow:Category("Eggs and Pets")
local settingsCat = FinityWindow:Category("Settings")
local Credits = FinityWindow:Category("Credits")
FinityWindow.ChangeToggleKey(Enum.KeyCode.RightShift)


--Sectors
local Autostuff = FarmingCat:Sector("swing, sell and buy")
local islands = TeleportCat:Sector("Islands")
local training = TeleportCat:Sector("Training areas")
local bosses = TeleportCat:Sector("Bosses")
local otherplaces = TeleportCat:Sector("OtherPlaces")
local Chest = ClaimCat:Sector("Claim Chest")
local UICredit = Credits:Sector("UI Library Creator")
local CodeCredit = Credits:Sector("Code Credit")
local elements = ClaimCat:Sector("Get Elements")
local farmboss = FarmingCat:Sector("Farm Bosses")
local farmhoop = FarmingCat:Sector("Farm hoops and coins")
local isclaim = ClaimCat:Sector("Claim all islands")
local codes = ClaimCat:Sector("Claim all codes")
local open = PetsCat:Sector("Open eggs")
local Pets = PetsCat:Sector("Pets Stuff")
local sell = PetsCat:Sector("Auto Sell Pets")
local settings = settingsCat:Sector("Main Settings")


Autostuff:Cheat("Checkbox","Auto swing",function(bool)
    getgenv().swing = bool
    if bool then doswing() end;
end)

Autostuff:Cheat("Checkbox","Auto sell",function(bool)
    getgenv().sell = bool
    if bool then dosell() end;
end)

Autostuff:Cheat("Checkbox","Buy ranks",function(bool)
    getgenv().buyranks = bool
    if bool then dobuyranks() end;
end)

Autostuff:Cheat("Checkbox","Buy swords",function(bool)
    getgenv().buyswords = bool
    if bool then dobuyswords() end;
end)

Autostuff:Cheat("Checkbox","Buy belts",function(bool)
    getgenv().buybelts = bool
    if bool then dobuybelts() end;
end)

islands:Cheat("Dropdown", "Islands", function(options)
    selectedisland = options
    if selectedisland then
        Teleport("groundTo" .. selectedisland)
    end
end, {
    options = {"EnchantedIsland",
    "AstralIsland","MysticalIsland",
    "SpaceIsland","TundraIsland",
    "EternalIsland","SandstormIsland",
    "ThunderstormIsland","AncientInfernoIsland",
    "MidnightIsland","MythicalSoulsIsland",
    "WinterWonderIsland","GoldenMasterIsland",
    "DragonLegendIsland","CyberneticLegendsIsland",
    "SkystormUltrausIsland","ChaosLegendsIsland",
    "SoulFusionIsland","DarkElementsIsland",
    "InnerPeaceIsland","BlazingVortexIsland"
    },
    default = 'Island'
})

training:Cheat("Dropdown", "Training Area", function(options)
    selectedtraining = options
    if selectedtraining then
        TeleportTraining(selectedtraining)
    end
end, {
    options = {
    "Mystical Waters","Sword Of Legends",
    "Elemental Tornado","Zen Master's Blade",
    "Lava Pit","Tornado",
    "Swords Of Ancients","Fallen Infinity Blade"
    },
    default = 'Training Area'
})

bosses:Cheat("Dropdown", "Boss", function(options)
    selectedboss = options
    if selectedboss then
        TeleportBoss(selectedboss)
    end
end, {
    options = {
        "RobotBoss","EternalBoss","AncientMagmaBoss"
    },
    default = 'Boss'
})

otherplaces:Cheat("Dropdown", "Others", function(options)
    selectedother = options
    if selectedother then
        if selectedother == "Valley" then TeleportValley() end
        Teleport("valleyTo" .. selectedother)
    end
end, {
    options = {
        "CloningAltar","AltarOfElements",
        "InfinityStatsDojo","Valley"
    },
    default = 'Others'
})

Chest:Cheat("Dropdown" ,"Karma Chest", function(options)
    selectedchest = options
end, {
    options = {"Light Karma","Evil Karma"},
    default = 'Karma'
})

Chest:Cheat("Button","",function()
    if selectedchest then
        doclaim(selectedchest .. " Chest")
    end
end,{text = 'Claim'})

elements:Cheat("Dropdown", "Elements", function(options)
    selectedelement = options
end, {
    options = {"Frost",
    "Inferno","Lightning",
    "Shadow Charge","Masterful Wrath",
    "Electral Chaos","Eternity Storm",
    "Shadowfire","Blazing Entity"
    },
    default = 'Element'
})


elements:Cheat("Button","",function()
    if selectedelement then
        doclaimelement(selectedelement)
    end
end,{text = 'Claim'})

elements:Cheat("Button","",function()
    local allelements = game:GetService("ReplicatedStorage").Elements:GetChildren()
    for i, v in pairs(allelements) do
        doclaimelement(v.Name)
    end
end,{text = 'Claim All Elements'})

farmboss:Cheat("Dropdown", "Boss", function(options)
    selectedbossfarm = options
end, {
    options = {
        "RobotBoss","EternalBoss","AncientMagmaBoss"
    },
    default = 'Boss'
})


farmboss:Cheat("Checkbox","Farm",function(bool)
    if selectedbossfarm then
        getgenv().farm = bool
        if bool then dofarmboss(selectedbossfarm) end;
    end
end)

farmhoop:Cheat("Checkbox","Farm",function(bool)
    getgenv().hoopsncoins = bool
    if bool then hoop() end;
end)

isclaim:Cheat("Button","Claim Islands",function()
    doclaimislands()
end,{text = 'Claim'})

codes:Cheat("Button","Claim",function()
    doclaimcodes()
end,{text = 'Claim'})

open:Cheat("Dropdown", "Crystal", function(options)
    selectedcrystal = options
end, {
    options = allcrystals,
    default = 'Crystal'
})

open:Cheat("Button", "", function()
    if selectedcrystal then
        game:GetService("ReplicatedStorage").rEvents.openCrystalRemote:InvokeServer("openCrystal", selectedcrystal)
    end
end,{text = 'Open Once'})

open:Cheat("Checkbox", "Auto open",function(bool)
    if selectedcrystal then
        getgenv().open = bool
        if bool then doopencrystal(selectedcrystal) end
    end
end)

Pets:Cheat("Checkbox", "Auto Evolve",function(bool)
    getgenv().evolve = bool
    if bool then doevolve() end
end)

sell:Cheat("Label", "Note: This sells all the pets in the rank and the ranks below it")
sell:Cheat("Label", "Example: You chose the Epic rank so it will sell all the epic pets and all of the pets of inferior ranks as well")

sell:Cheat("Dropdown", "Ranks", function(options)
    selectedrank = options
end, {
    options = {"Advanced",
    "Rare","Basic",
    "Epic","Unique",
    "Omega","Elite",
    "Infinity","Awakened",
    "Master Legend","BEAST",
    "Skystorm","Soul Master",
    "Rising Hero","Q-STRIKE",
    "Skyblade"
    },
    default = 'Rank'
})

sell:Cheat("Checkbox", "Auto Sell", function(bool)
    if selectedrank then
        while wait() do
            getgenv().petsell = bool
            if bool then getrank(selectedrank) rank() end
        end
    end
end)

function getkeycode()
    for i, v in pairs(debug.getupvalues(FinityWindow.ChangeToggleKey)) do
        if type(v) == "table" then
            for i2, v2 in pairs(v) do
                if i2 == "ToggleKey" then
                    return string.sub(tostring(v2), 14)
                end
            end
        end
    end
end

settings:Cheat("Label", "The hide menu toggle is " .. getkeycode() )

settings:Cheat("Keybind", "Change hide menu hotkey", function(value)
    FinityWindow.ChangeToggleKey(value)
    game:GetService("CoreGui").FinityUI.Container.Categories.Settings.L["Main Settings"].Container["The hide menu toggle is RightShift"].Title.Text = "The hide menu toggle is " .. string.sub(tostring(value), 14)
end)

settings:Cheat("Button", "Destroy GUI",function()
    game:GetService("CoreGui").FinityUI:Destroy()
end,{text = 'Destroy'})

settings:Cheat("Button", "Rejoin Game",function()
    TeleportService:Teleport(game.PlaceId, game:GetService("Players").LocalPlayer)
end,{text = 'Rejoin'})

UICredit:Cheat("Label", "detourious @ v3rmillion.net")
UICredit:Cheat("Label", "deto#7612 @ discord.gg")

CodeCredit:Cheat("Label", "stagnant @ v3rmillion.net")
CodeCredit:Cheat("Label", "stagnant#2392 @ discord.gg")