Open Source
Open Source
Open Source
task.wait(3)
local HttpService = game:GetService("HttpService")
local VirtualUser = game:GetService("VirtualUser")
local VIM = game:GetService("VirtualInputManager")
local UIS = game:GetService("UserInputService")
local OldNameCall
OldNameCall = hookmetamethod(game, "__newindex", function(A, B, ...)
if not checkcaller() and (B == "WalkSpeed" or B == "JumpPower") then
return
end
return OldNameCall(A, B, ...)
end)
-- getgenv().Args_Test53 = true
getgenv().Has_Been_Initiated = false
getgenv().Attack_ID = nil
function GetAttack_ID()
if getgenv().Has_Been_Initiated == false then
getgenv().Has_Been_Initiated = true
local OldNameCall = nil
OldNameCall = hookmetamethod(game, "__namecall", function(sel, ...)
local Args = {...}
if sel.Name == "UseSword" then
getgenv().Attack_ID = Args[2]
end
return OldNameCall(sel, unpack(Args))
end)
end
Attack()
end
local Neverlose_Main =
loadstring(game:HttpGet("https://raw.githubusercontent.com/Mana42138/Neverlose-UI/
main/Source.lua"))()
local Win = Neverlose_Main:Window({
Title = "NEVERLOSE",
CFG = "Neverlose",
Key = Enum.KeyCode.RightControl,
External = {
KeySystem = false,
Key = {
"Test",
"Beta"
}
}
})
Neverlose_Main:Notify({
Title = "Important",
Text = "Please do not make any video's about this script!",
Time = 2,
AutoClose = true
})
function Attack()
VirtualUser:CaptureController()
wait()
VirtualUser:Button1Down(Vector2.new(1280, 672))
end
-- local Get_Load_2 =
HttpService:JSONDecode(readfile('Neverlose/Auto_Load_Dungeon.txt')).Auto_Load
-- if Get_Load_2 then
-- Auto_Load_DG:Set(true)
-- else
-- Auto_Load_DG:Set(false)
-- end
-- --[[
-- Names: UnderwaterDungeon, JungleDungeon, ArcticBastionDungeon,
BeginnersDungeon
-- difficulty: Easy, Medium, Hard, Hell, Hardcore
-- join: All, Friends, Private
-- hardcore: Normal
-- ]]--
--
game:GetService("ReplicatedStorage").ReplicatedStorage.Packages.Knit.Services.Party
Service.RF.StartParty:InvokeServer(a.UUID)
-- end
-- createDungeon(Get_Dungeon_Data.Dungeon, Get_Dungeon_Data.Difficulty,
Get_Dungeon_Data.Join, Get_Dungeon_Data.Normal)
-- end
local Get_Load =
HttpService:JSONDecode(readfile('Neverlose/Auto_Load.txt')).AutoLoad
if Get_Load then
Get_ALC:Set(true)
else
Get_ALC:Set(false)
end
spawn(function()
while task.wait() do
if Auto_Load then
pcall(function()
if game.PlaceId ~= 10515146389 then
if Is_Loaded == false then
Neverlose_Main:LoadCfg(Neverlose_Main:LastConfigSaved())
Is_Loaded = true
end
end
end)
end
end
end)
Autofarm_sec:Toggle("Defensive", function(t)
Defensive_Farm = t
if Defensive_Farm then
SASA:visibility(true)
SASA2:visibility(true)
else
SASA:visibility(false)
SASA2:visibility(false)
end
end)
SASA2 = Autofarm_sec:Dropdown("Positions", {
"Over",
"Under",
"Behind"
}, function(t)
Pos_Defensive = t
end)
Autofarm_sec:Line()
spawn(function()
while task.wait() do
if Auto_Leave_After_Set then
pcall(function()
task.wait(Auto_Leave_Time*60)
game:GetService("TeleportService"):Teleport(10515146389)
end)
end
end
end)
task.spawn(function()
while task.wait() do
if Remote_Aura then
pcall(function()
GetAttack_ID()
task.wait(5)
end)
end
end
end)
local Elements = {}
for i, v in
pairs(game:GetService("ReplicatedStorage").ReplicatedStorage.Abilities.Elements:Get
Children()) do
table.insert(Elements, v.Name)
end
local Sword_Elements = {}
for i, v in
pairs(game:GetService("ReplicatedStorage").ReplicatedStorage.Abilities.Sword:GetChi
ldren()) do
table.insert(Sword_Elements, v.Name)
end
UserInputService.InputEnded:Connect(function(Input)
if not bool then return end
if Input.KeyCode.Name == key then
Holding = false
callback(Holding)
end
end)
end
spawn(function()
while task.wait() do
if Auto_Chest then
pcall(function()
for i,v in pairs(game:GetService("Workspace"):GetChildren()) do
if string.find(v.Name, "Chest") and v:FindFirstChild("Primary")
and (v.Primary.Position -
Neverlose_Main.Client.Character.HumanoidRootPart.Position).Magnitude <=
Auto_Chest_Dist then
if Allow_Chest_Tp then
Neverlose_Main.Client.Character.HumanoidRootPart.CFrame
= v.Primary.CFrame
end
if (v.Primary.Position -
Neverlose_Main.Client.Character.HumanoidRootPart.Position).Magnitude <= 13 then
fireproximityprompt(v.Primary.ProximityPrompt)
end
end
end
end)
end
end
end)
game:GetService("ReplicatedStorage").ReplicatedStorage.Packages.Knit.Services.Weapo
nService.RF.EnchantedBlade:InvokeServer()
end
end)
spawn(function()
while task.wait() do
if Auto_Enchant then
pcall(function()
for i,v in pairs(Neverlose_Main.Client.Character:GetChildren()) do
if v:IsA("Tool") then
if not v:FindFirstChild("Part") then
game:GetService("ReplicatedStorage").ReplicatedStorage.Packages.Knit.Services.Weapo
nService.RF.EnchantedBlade:InvokeServer()
task.wait(.8)
end
end
end
end)
end
end
end)
spawn(function()
while task.wait() do
if Auto_Retry then
pcall(function()
if
game:GetService("Players").LocalPlayer.PlayerGui.DungeonComplete.Main.Frame.Visible
then
task.wait(2)
game:GetService("ReplicatedStorage").ReplicatedStorage.Packages.Knit.Services.Party
Service.RF.VoteOn:InvokeServer("Retry")
end
end)
end
end
end)
spawn(function()
while task.wait() do
if Auto_Start then
pcall(function()
if
game:GetService("Players").LocalPlayer.PlayerGui.Main.StartBtn.Visible then
game:GetService("ReplicatedStorage").ReplicatedStorage.Packages.Knit.Services.Dunge
onService.RF.StartDungeon:InvokeServer()
end
end)
end
end
end)
spawn(function()
while task.wait() do
if Auto_Collect_Drops then
pcall(function()
for i,v in
pairs(game:GetService("Workspace").Camera.Drops:GetDescendants()) do
if v:IsA("ProximityPrompt") then
fireproximityprompt(v)
end
end
end)
end
end
end)
spawn(function()
while task.wait() do
if Auto_Get_Potions then
pcall(function()
if not
game:GetService("Players").LocalPlayer.PlayerGui.Main.PlayerBar.Main.PotionBar.Visi
ble or
game:GetService("Players").LocalPlayer.PlayerGui.Main.PlayerBar.Main.PotionBar.Amou
nt.Text ~= "2/2" then
for i,v in
pairs(game:GetService("Workspace").Camera.Drops:GetChildren()) do
if v:FindFirstChild("Potion") then
fireproximityprompt(v.Center.ProximityPrompt)
end
end
end
end)
end
end
end)
spawn(function()
while task.wait() do
if Lunar_Shreds then
pcall(function()
if not
game:GetService("Players").LocalPlayer.PlayerGui.Main.PlayerBar.Main.PotionBar.Visi
ble or
game:GetService("Players").LocalPlayer.PlayerGui.Main.PlayerBar.Main.PotionBar.Amou
nt.Text ~= "2/2" then
for i,v in
pairs(game:GetService("Workspace").Camera.Drops:GetChildren()) do
if v.Center.A1.PointLight.Color == Color3.fromRGB(230, 126,
255) then
fireproximityprompt(v.Center.ProximityPrompt)
end
end
end
end)
end
end
end)
spawn(function()
while task.wait() do
if Auto_Heal then
pcall(function()
if Neverlose_Main.Client.Character.Humanoid.Health <=
Neverlose_Main.Client.Character.Humanoid.MaxHealth/2 then
game:GetService("ReplicatedStorage").ReplicatedStorage.Packages.Knit.Services.Heali
ngService.RF.UseHeal:InvokeServer()
task.wait(.5)
end
end)
end
end
end)
-- spawn(function()
-- while task.wait() do
-- if StartFarm then
-- pcall(function()
-- Attack()
-- end)
-- end
-- end
-- end)
spawn(function()
while task.wait() do
if Remote_Aura then
pcall(function()
local ohTable1 = {
["Direction"] = nil,
["Position"] = nil,
["Origin"] = nil
}
game:GetService("ReplicatedStorage").ReplicatedStorage.Packages.Knit.Services.Weapo
nService.RF.UseSword:InvokeServer(ohTable1, tostring(getgenv().Attack_ID))
end)
end
end
end)
spawn(function()
while task.wait() do
if Shoot_Element then
pcall(function()
if Can_Shoot_Element then
for i = 1,2 do
for i,v in
pairs(game:GetService("ReplicatedStorage").ReplicatedStorage.Abilities.Elements[Sel
ected_Element]:GetChildren()) do
local ohInstance1 =
game:GetService("ReplicatedStorage").ReplicatedStorage.Abilities.Elements[Selected_
Element][v.Name]
local ohTable2 = {
["Direction"] = 0, 0, 0,
["Position"] = 0,0,0,
["Origin"] = 0, 0, 0
}
local ohString3 = "Start"
game:GetService("ReplicatedStorage").ReplicatedStorage.Abilities.Templates.ToolTemp
late.RemoteEvent:FireServer(ohInstance1, ohTable2, ohString3)
end
end
end
end)
end
end
end)
spawn(function()
while task.wait() do
if Shoot_Sword_Element then
pcall(function()
for i,v in
pairs(game:GetService("ReplicatedStorage").ReplicatedStorage.Abilities.Sword[Select
ed_Sword_Element]:GetChildren()) do
local ohInstance1 =
game:GetService("ReplicatedStorage").ReplicatedStorage.Abilities.Sword[Selected_Swo
rd_Element][v.Name]
local ohTable2 = {
["Direction"] = 0, 0, 0,
["Position"] = 0,0,0,
["Origin"] = 0, 0, 0
}
local ohString3 = "Start"
game:GetService("ReplicatedStorage").ReplicatedStorage.Abilities.Templates.ToolTemp
late.RemoteEvent:FireServer(ohInstance1, ohTable2, ohString3)
end
end)
end
end
end)
function GetDistance(Endpoint)
local HumanoidRootPart =
Neverlose_Main.Client.Character:FindFirstChild("HumanoidRootPart")
if typeof(Endpoint) == "Instance" then
Endpoint = Vector3.new(Endpoint.Position.X, HumanoidRootPart.Position.Y,
Endpoint.Position.Z)
elseif typeof(Endpoint) == "CFrame" then
Endpoint = Vector3.new(Endpoint.Position.X, HumanoidRootPart.Position.Y,
Endpoint.Position.Z)
end
local Magnitude = (Endpoint - HumanoidRootPart.Position).Magnitude
return Magnitude
end
function GetPotentialDanger()
for i,v in pairs(game:GetService("Workspace").Effects:GetChildren()) do
if not v:IsA("Folder") and v.Name ~= "Part" then
return v.Position
end
end
return nil
end
end
Neverlose_Main.Players.PlayerRemoving:Connect(function(player)
if player.UserId == Neverlose_Main.Client.UserId then
game:GetService("TeleportService"):Teleport(10515146389)
end
end)
spawn(function()
pcall(function()
Neverlose_Main.RunService.Stepped:Connect(function()
if Tp_Farm then
for _, v in pairs(Neverlose_Main.Client.Character:GetDescendants())
do
if v:IsA("BasePart") then
v.CanCollide = false
end
end
end
end)
end)
end)
spawn(function()
pcall(function()
Neverlose_Main.RunService.Stepped:Connect(function()
if Tp_Farm then
if not
Neverlose_Main.Client.Character:WaitForChild("HumanoidRootPart"):FindFirstChild("Bo
dyClip") then
local Noclip = Instance.new("BodyVelocity")
Noclip.Name = "BodyClip"
Noclip.Parent =
Neverlose_Main.Client.Character:FindFirstChild("HumanoidRootPart")
Noclip.MaxForce = Vector3.new(100000,100000,100000)
Noclip.Velocity = Vector3.new(0,0,0)
end
else
if
Neverlose_Main.Client.Character:FindFirstChild("HumanoidRootPart"):FindFirstChild("
BodyClip") then
Neverlose_Main.Client.Character:FindFirstChild("HumanoidRootPart"):FindFirstChild("
BodyClip"):Destroy()
end
end
end)
end)
end)
if Allowed then
if v.HumanoidRootPart:FindFirstChild("Immune") then
_12(v, 0, 20, 30)
Can_Shoot_Element = false
else
if Selected_Mode == "Teleport" then
if Defensive_Farm then
if
Neverlose_Main.Client.Character.Humanoid.Health <=
Neverlose_Main.Client.Character.Humanoid.MaxHealth/Def_Meter then
if not v.Name:find("Ice Illusion")
then
if Pos_Defensive == "Behind"
then
_12(v, 0, 2, 8)
elseif Pos_Defensive == "Over"
then
_12(v, 0, 8, 2)
elseif Pos_Defensive == "Under"
then
_12(v, 0, -10, 0)
end
else
v:Destroy()
end
else
_12(v, 0, 0, 5)
end
else
_12(v, 0, 0, 5)
end
-- elseif Selected_Mode == "Walk" then
-- local is_done = false
-- repeat wait()
-- _11(v, is_done, 0, 0, 14)
-- is_done = false
-- until not Tp_Farm or v.Humanoid.Health
<= 0
-- if
(Neverlose_Main.Client.Character.HumanoidRootPart.Position -
v.HumanoidRootPart.Position).Magnitude <= 100 then
-- _12(v, 0, 8, -2)
-- is_done = true
-- end
Can_Shoot_Element = true
--
Neverlose_Main.Client.Character.HumanoidRootPart.CFrame = v.HumanoidRootPart.CFrame
* CFrame.new(0, 4.03, 0.9) * CFrame.Angles(math.rad(-90), 0, 0)
end
-- v.HitPart.Size = Vector3.new(5, 5, 5)
end
else
Can_Shoot_Element = false
end
-- v.Humanoid.WalkSpeed = 0
-- if v.Humanoid:FindFirstChild("Animator") then
-- v.Humanoid.Animator:Destroy()
-- end
end
end
end
end)
end
end
end)
spawn(function()
while task.wait(.5) do
if Bring_Mobs then
pcall(function()
for i,v in pairs(game:GetService("Workspace").Mobs:GetChildren())
do
if v.Humanoid.Health > 0 then
if Allowed then
if (v.HumanoidRootPart.Position -
PosMon.Position).Magnitude <= 35 then
v.HumanoidRootPart.CFrame = PosMon
-- v.HumanoidRootPart.Size = Vector3.new(5,5,5)
end
end
end
end
end)
end
end
end)
spawn(function()
while task.wait() do
if Reset_After_Rounds then
pcall(function()
local Wave_Num =
string.gsub(Neverlose_Main.Client.PlayerGui.Main.Timers.WaveLabel.Text, "Wave", "")
if tonumber(Wave_Num) == tonumber(Set_Ammount_Of_Rounds) + 1 then
if Reset_Character then
Neverlose_Main.Client.Character.Humanoid.Health = 0
else
TP_Farming_TG:Set(false)
end
end
end)
end
end
end)