Roblox November, 09

Dragon Soul | Anime Adventure Script - Auto Farm GUI

Developer: xHeptc
Status:
UNDETECTED
Updated: 09.11.24
Current version: 1.0

Anime Adventure Script

One of the best free working key-less scripts for Dragon Soul | Anime Adventure with GUI and Auto Farm functions on PC Roblox that you can get from this page. This is a simple but effective script with automatic functions, easy menu control and the ability to customize the functions yourself. Using this script you will be able to activate Auto Farm, Auto Quests, Auto Upgrade, Auto Reveal Fragments and other additional features. This is the best Dragon Soul Anime Adventure script to date, it is free and does not require an activation key, and you will be able to add features yourself using the open source code.

Get Dragon Soul | Anime Adventure Script Pastebin

local plr = game.Players.LocalPlayer
local Library = loadstring(game:HttpGet("https://raw.githubusercontent.com/xHeptc/Kavo-UI-Library/main/source.lua"))()
-- documents https://xheptcofficial.gitbook.io/kavo-library#update
local Window = Library.CreateLib("CHEATER.FUN | Dragon Soul - Anime Adventure Script", "DarkTheme")
local Tab = Window:NewTab("Farming")
local Misc = Window:NewTab("Misc")
local Section = Tab:NewSection("Enemy Farm")
--Section:NewLabel("LabelText")
local dd
function updateDropDown()
    local updatedList = {}
    for i, v in pairs(workspace.Main.Live:GetChildren()) do
        if not table.find(updatedList, v.Name) and v.PrimaryPart then
            table.insert(updatedList, v.Name)
        end
    end
    dd:Refresh(updatedList)
end
local farming = false
local tog = Section:NewToggle("Farming", "Start the whole farming process", function(state)
    farming = state
end)
Section:NewKeybind("KeybindText", "KeybindInfo", Enum.KeyCode.Plus, function()
    farming = not farming
end)
local range = 5
Section:NewSlider("Range", "How far you are from the enemy Upwards", 15, 0, function(s) -- 500 (MaxValue) | 0 (MinValue)
    range = s
end)
Section:NewButton("Update Enemy List", "Specific for this game, due to loading NPCs", function()
    updateDropDown()
end)
local enemyName = ""
dd = Section:NewDropdown("Enemy", "List of current Enemies loaded", {}, function(currentOption)
    enemyName = currentOption
end)
updateDropDown()
local dd2
function updateDropDown2()
    local updatedList = {}
    for i, v in pairs(workspace.QuestObjects:GetChildren()) do
        if not table.find(updatedList, v.Name) and v:IsA("Model") and v.PrimaryPart and v.PrimaryPart:FindFirstChild("ProximityPrompt") then
            table.insert(updatedList, v.Name)
        end
    end
    dd2:Refresh(updatedList)
end
local Questsos = Tab:NewSection("Auto Quest")
local questing = false
Questsos:NewToggle("Auto Quest", "Automatically Start the Quest", function(state)
    questing = state
end)
Questsos:NewButton("Update Quest List", "Specific for this game, due to loading NPCs", function()
    updateDropDown2()
end)
local questNPC = ""
dd2 = Questsos:NewDropdown("Quests", "List of current Quests loaded", {}, function(currentOption)
    questNPC = currentOption
end)
updateDropDown2()
local miscTab = Misc:NewSection("Random Stuff ngl")
local revF = false
miscTab:NewToggle("Auto Reveal Fragments", "Automatically Reveals the ? Fragment", function(state)
    revF = state
end)
miscTab:NewButton("Reveal Soul Orbss", "Shows the Names of the 5 Orbs in Soul Wish", function()
    for i, v in pairs(workspace.Camera:GetChildren()) do
    if v.Name == "SelectableEffect" and v.Glow:FindFirstChild("BillboardGui") then
        v.Glow.BillboardGui.ZIndexBehavior = Enum.ZIndexBehavior.Global
    end
    end
end)
coroutine.wrap(function()
local ui = game:GetService("Players").LocalPlayer.PlayerGui.Inventory.Root.RightPanel.InventoryGridContainer.InventoryGrid
while task.wait(.3) do
    if revF == false then return end
for i, v in pairs(ui:GetDescendants()) do
    if v:IsA("TextLabel") and v.Text == "?" then
       game:GetService("ReplicatedStorage").dataRemoteEvent:FireServer(
{
    [1] = {
        ["GUID"] = v.Parent.Parent.Name,
        ["Data"] = {
            ["Revealed"] = true
        },
        ["Category"] = "Bindable"
    },
    [2] = "~"
})
    end
end
end
end)
function findEnemy()
    for i, v in pairs(workspace.Main.Live:GetChildren()) do
        if v.PrimaryPart and v:GetAttribute("Dead") == false and v.Name == enemyName then
            return v
        end
    end
    return nil
end
local questName = ""
while task.wait() do
    if questing then
        pcall(function()
       if not workspace.QuestObjects:FindFirstChild(questNPC) then return end
        local npc = workspace.QuestObjects:FindFirstChild(questNPC)
        local theQuestName = ""
        if npc == nil then return end
        for i, v in pairs(workspace.QuestPackages:GetChildren()) do
            if v:FindFirstChildWhichIsA("Model") and v:FindFirstChildWhichIsA("Model").PrimaryPart and v:FindFirstChildWhichIsA("Model").PrimaryPart.Name == "HumanoidRootPart" and (npc.PrimaryPart.Position - v:FindFirstChildWhichIsA("Model").PrimaryPart.Position).Magnitude < 6 then
                theQuestName = v.Name
            end
        end
        if theQuestName ~= "" then
            if not plr.PlayerGui.QuestCards.Root.QuestCardsList:FindFirstChild(theQuestName) then
                game:GetService("ReplicatedStorage").dataRemoteEvent:FireServer({
    [1] = theQuestName,
    [2] = utf8.char(6)
})
            end
        end
    end)
    end
    if farming then
        local enemy = findEnemy()
        if enemy then
            spawn(function()
                while farming and enemy and enemy.Name == enemyName and enemy.PrimaryPart and enemy:GetAttribute("Dead") == false do
                    task.wait()
                    pcall(function()
                        plr.Character:MoveTo(enemy.PrimaryPart.Position + Vector3.new(0, range, 0))
                    end)
                end
            end)
            repeat task.wait(1.3)
                    for i = 1, 7 do
                        if enemy and enemy.PrimaryPart and farming and enemy:GetAttribute("Dead") == false and enemy.Name == enemyName then
                        game:GetService("ReplicatedStorage").Events.TryAttack:FireServer({
                            ["Victim"] = enemy,
                            ["Type"] = "Light",
                            ["VictimPosition"] = enemy.PrimaryPart.Position,
                            ["LocalInfo"] = {
                                ["Flying"] = true,
                            },
                            ["CurrentLight"] = i,
                            ["CurrentLightCombo"] = 1,
                            ["CurrentHeavy"] = 3,
                            ["AnimSet"] = "Vegito"
                        })
                        task.wait(.08)
                    end
                end
            until not enemy or enemy:GetAttribute("Dead") == true or farming == false or enemy.Name ~= enemyName
        end
    end
end