local Settings = {
PointSlot = "Slot1"; -- Slot that will receive points
NamekSlot = "Slot2"; -- Namekian slot that gives points
Mode2 = true; -- (Recommended) Forces more dialogs and more speed with less
vaules in talk times, If it behaves worse then turn Mode2 to False.
WaitTimeSlotChange = 0.2; -- less = faster (Recommended 0.1 - 0.3) Wait time
when talking to slot changer
WaitTimeTalk = 0.3; -- (Recommended 0.1 - 0.3 ) Wait time when talking to level
NPCs
ExtraTime = 0; -- If you need more load time increase the value
KamiChatDelay = 0.28; -- Delay talking to kami (0.270 - 0.450 Recommended)
CharacterDelayTime = 0.5; -- Time waited after character loads on top of
another 0.5 seconds
MaxPoints = [Link]; -- [Link] means infinite
AutoStats = false; -- Auto upgrades a stat
HideName = true; -- Will hide your name in the stats UI
Stat = "Phys-Damage"; -- Health-Max, Ki-Max,Phys-Damage, Phys-Resist, Ki-
Damage, Ki-Resist, Speed
IsPointSlotANamekian = false; -- If your character is a Namekian but is less
secure.
}
if not game:IsLoaded() then
[Link]:Wait()
end
local Player = [Link]
local PG = [Link]
pcall(function()
for _,v in
game:GetService("CoreGui").[Link]:GetChildren() do
if [Link] == "ErrorPrompt" and v:FindFirstChild("MessageArea") and
[Link]:FindFirstChild("ErrorFrame") then
[Link](2)
for _ = 1, 30 do
game:GetService("TeleportService"):Teleport(536102540, Player)
[Link](2)
end
end
end
game:GetService("CoreGui").[Link]:Connect(functio
n(child)
if [Link] == "ErrorPrompt" and child:FindFirstChild("MessageArea") and
[Link]:FindFirstChild("ErrorFrame") then
[Link](2)
for _ = 1, 30 do
game:GetService("TeleportService"):Teleport(536102540, Player)
[Link](2)
end
end
end)
end)
local Stop = false
local Temp = [Link] or [Link]:Wait()
local WaitingForPointSlot
Fixing = false
local BoosterTries = 0
local HardResets = 0
local Successful = 0
local Failed = 0
Finished = false
Last = false
Doing = false
[Link]:Connect(function()
game:GetService("VirtualUser"):CaptureController()
game:GetService("VirtualUser"):ClickButton2([Link]())
end)
[Link](1 + [Link])
if [Link] == 552500546 then
[Link](1)
repeat
[Link](0.5)
[Link]:FireServer([Link],"up")
[Link](0.5)
if [Link] == "Namekian" then break end
until [Link] == "Namekian"
[Link]:FireServer("woah")
return
end
local function SendNotification(Title, Text, Duration)
game:GetService("StarterGui"):SetCore("SendNotification",{Title = Title,Text =
Text,Duration = Duration})
end
local function WaitTill(instance, Text, ExtraTime, npc)
repeat [Link]() until ([Link] == Text and
[Link] == true)
if ExtraTime > 0 then
[Link](ExtraTime)
end
end
local function Talk(NPC, Content, WaitTime, Texts, Wait, SkipStop)
if not [Link]:FindFirstChild("ServerTraits") then
[Link]:WaitForChild("ServerTraits", 30)
end
[Link]:FireServer(NPC ~= "Korin" and
[Link][NPC] or (NPC == "Korin" and
[Link][NPC].[Link]))
for idx = 1, #Content do
if Settings.Mode2 and NPC == "Character Slot Changer" and Texts and Texts
~= true and Texts[idx] == "Change Character Slots?" then
repeat
[Link]:FireServer([Link]["Character
Slot Changer"])
[Link]()
until [Link] == true
end
if Wait then
WaitTill([Link], Texts[idx],
WaitTime, NPC)
else
[Link]([Link] + 0.250)
end
if not SkipStop and Stop then
repeat [Link]() until not Stop
end
if Settings.Mode2 and Texts and Texts ~= true and Texts[idx] == "Change
Character Slots?" then
repeat
[Link]:FireServer({"Yes"})
[Link]()
until [Link] == "Alright"
repeat
[Link]:FireServer({"k"})
[Link]()
until [Link] == "Which slot would you
like to play in?"
[Link]([Link] + 0.150)
[Link]:FireServer({Content[3]})
[Link](1, function()
if [Link] == "Which slot would you
like to play in?" then
[Link]:FireServer({Content[3]})
end
end)
break
end
[Link]:FireServer({Content[idx]})
end
end
if [Link]:FindFirstChild("HUD") and not Finished then
[Link](0.1)
[Link]:GetPropertyChangedSignal("Text"):Conn
ect(function()
if [Link] == "Mr Popo is a nice
guy" then
Stop = true
[Link](6 + [Link])
if not [Link] and [Link] ~=
"Namekian" then
local Tries = 0
repeat
Talk("Character Slot Changer", {"Yes", "k",
[Link]}, [Link] + 0.3, {"Change Character Slots?",
"Alright", "Which slot would you like to play in?", "Loading!"}, true, true)
[Link](6)
if Tries >= 3 then
makefolder("HauntRejoin")
end
if [Link] ~= "Namekian" then
Tries += 1
end
until [Link] == "Namekian"
Talk("Start New Game [Redo Character]", {"Yes", "k", "Yes"}, 0.6,
nil, false, true)
elseif [Link] == "Namekian" then
Talk("Character Slot Changer", {"Yes", "k", [Link]},
[Link] + 0.3, {"Change Character Slots?", "Alright", "Which
slot would you like to play in?", "Loading!"}, true, true)
[Link](6)
Talk("Start New Game [Redo Character]", {"Yes", "k", "Yes"}, 0.6,
nil, false, true)
end
end
end)
end
[Link]:Connect(function(Child)
if [Link] == "HUD" and not Finished then
[Link](0.1)
[Link]:GetPropertyChangedSignal("Text"):Conn
ect(function()
if [Link] == "Mr Popo is a
nice guy" then
Stop = true
[Link](6 + [Link])
if not [Link] and
[Link] ~= "Namekian" then
local Tries = 0
repeat
Talk("Character Slot Changer", {"Yes", "k",
[Link]}, [Link] + 0.3, {"Change Character Slots?",
"Alright", "Which slot would you like to play in?", "Loading!"}, true, true)
[Link](6)
if Tries >= 3 then
makefolder("FanoutHaunt")
end
if [Link] ~= "Namekian" then
Tries += 1
end
until [Link] == "Namekian"
Talk("Start New Game [Redo Character]", {"Yes", "k", "Yes"},
0.6, nil, false, true)
elseif [Link] == "Namekian" then
Talk("Character Slot Changer", {"Yes", "k",
[Link]}, [Link] + 0.3, {"Change Character Slots?",
"Alright", "Which slot would you like to play in?", "Loading!"}, true, true)
[Link](6)
Talk("Start New Game [Redo Character]", {"Yes", "k", "Yes"},
0.6, nil, false, true)
end
end
end)
end
end)
if not [Link] and [Link] ~= "Namekian"
then
Talk("Character Slot Changer", {"Yes", "k", [Link]},
[Link], {"Change Character Slots?", "Alright", "Which slot
would you like to play in?", "Loading!"}, true)
[Link](6)
end
if [Link] == "76" then
if not [Link] and [Link] ==
"Namekian" then
Talk("Character Slot Changer", {"Yes", "k", [Link]},
[Link] + 0.3, {"Change Character Slots?", "Alright", "Which
slot would you like to play in?", "Loading!"}, true)
[Link](6)
end
Talk("Start New Game [Redo Character]", {"Yes", "k", "Yes"}, 0.6, nil, false)
end
if tonumber([Link]) >=
[Link] then
Finished = true
[Link] = "MAX POINTS REACHED"
SendNotification("FanoutHaunt", "Max points reached", 5)
return
end
if tonumber([Link]) < 44 then
Talk("Bulma", {"k", "Yes", "k"} , [Link], nil, false)
[Link](0.8)
Talk("Spaceship", {"No", "k"}, [Link], nil, false)
[Link](0.5)
Talk("Trunks [Future]", {"k","Yes","k"}, [Link], nil, false)
[Link](0.8)
Talk("TimeMachine",{"No", "k"}, [Link], nil, false)
[Link](0.5)
[Link]["Quest Giver"]:Destroy()
[Link]["Quest Giver"]:Destroy()
Talk("Quest Giver",{"k","Yes","k"}, [Link], nil, false)
[Link](0.8)
Talk("NamekianShip",{"k","No","k"}, [Link], nil, false)
[Link](0.7)
Talk("Elder Kai",{"k","Yes","k", "k"}, [Link], nil, false)
[Link](0.7)
Talk("Korin", {"k", "k", "DRINK", "k"}, {"Hello", "When you drink it increases
your power!", "*DRINKS*"}, true)
[Link](3)
elseif tonumber([Link]) == 44 then
Talk("Korin", {"k", "k", "DRINK", "k"}, {"Hello", "When you drink it increases
your power!", "*DRINKS*"}, true)
[Link](3)
end
local Conn
Conn = [Link]:Connect(function()
[Link]:WaitForChild("HumanoidRootPart", 30)
repeat
[Link]()
[Link] = [Link](-569.78302,
23.587471, -2883.4939)
until [Link]:FindFirstChild("PowerOutput")
local Conn2
Conn2 = PG:WaitForChild("HUD",
30).[Link]:GetPropertyChangedSignal("Text"):Connect(function()
Last = tick()
[Link](10)
if tick() - Last >= 10 and BoosterTries < 5 and not Doing then
Doing = true
if Finished then
Conn:Disconnect()
Conn2:Disconnect()
return
end
HardResets += 1
if HardResets >= 10 then
makefolder("FanoutHaunt rejoin")
end
Fixing = true
Stop = true
[Link] = 0
[Link]:Destroy()
[Link]:Wait()
[Link]:WaitForChild("PowerOutput", 30)
[Link](1)
Stop = false
local took = "none"
if WaitingForPointSlot then
took = "namek"
Talk("Character Slot Changer", {"Yes", "k", [Link]},
[Link], {"Change Character Slots?", "Alright", "Which slot
would you like to play in?", "Loading!"}, true)
else
took = "point"
Talk("Character Slot Changer", {"Yes", "k", [Link]},
[Link], {"Change Character Slots?", "Alright", "Which slot
would you like to play in?", "Loading!"}, true)
end
Stop = true
local Char = [Link]
[Link](6, function()
Stop = false
if [Link] == Char then
if took == "namek" then
Talk("Character Slot Changer", {"Yes", "k",
[Link]}, [Link], {"Change Character Slots?",
"Alright", "Which slot would you like to play in?", "Loading!"}, true)
else
Talk("Character Slot Changer", {"Yes", "k",
[Link]}, [Link], {"Change Character Slots?",
"Alright", "Which slot would you like to play in?", "Loading!"}, true)
end
end
end)
[Link]:Wait()
Doing = false
Fixing = false
end
end)
end)
[Link](function()
while true do
if BoosterTries >= 5 then
Stop = true
[Link](6 + [Link])
if not [Link] and [Link] ~=
"Namekian" then
local Tries = 0
repeat
Talk("Character Slot Changer", {"Yes", "k",
[Link]}, [Link] + 0.3, {"Change Character Slots?",
"Alright", "Which slot would you like to play in?", "Loading!"}, true, true)
[Link](6)
if Tries >= 3 then
makefolder("HauntRejoin")
end
if [Link] ~= "Namekian" then
Tries += 1
end
until [Link] == "Namekian"
Talk("Start New Game [Redo Character]", {"Yes", "k", "Yes"}, 0.6,
nil, false, true)
elseif [Link] == "Namekian" then
Talk("Character Slot Changer", {"Yes", "k", [Link]},
[Link] + 0.3, {"Change Character Slots?", "Alright", "Which
slot would you like to play in?", "Loading!"}, true, true)
[Link](6)
Talk("Start New Game [Redo Character]", {"Yes", "k", "Yes"}, 0.6,
nil, false, true)
end
break
end
[Link]()
end
end)
while true do
pcall(function()
if [Link] ~= "Namekian" and not
[Link] then
[Link](1)
Talk("Character Slot Changer", {"Yes", "k", [Link]},
[Link], {"Change Character Slots?", "Alright", "Which slot
would you like to play in?", "Loading!"}, true)
[Link]:Wait()
if Fixing then
repeat [Link]() until not Fixing
end
[Link](0.5)
[Link]:WaitForChild("PowerOutput", 30)
[Link]([Link])
end
end)
WaitingForPointSlot = false
[Link]:Connect(function(Child)
if [Link] == "Booster" then
Failed -= 1
Successful += 1
BoosterTries = 0
end
end)
Failed += 1
BoosterTries += 1
pcall(function()
Talk("Character Slot Changer", {"Yes", "k", [Link]},
[Link], {"Change Character Slots?", "Alright", "Which slot
would you like to play in?", "Loading!"}, true)
end)
[Link]([Link])
if not [Link]:FindFirstChild("ServerTraits") then
pcall(function()
[Link]:WaitForChild("ServerTraits", 30)
end)
end
if [Link]:FindFirstChild("KAMI") then
[Link]:FireServer([Link])
[Link]:FireServer({"k"})
elseif [Link]:FindFirstChild("KAMI") then
[Link]:FireServer([Link]
[Link])
[Link]:FireServer({"k"})
end
[Link]:Wait()
if Fixing then
repeat [Link]() until not Fixing
end
[Link](0.5)
[Link]:WaitForChild("PowerOutput", 30)
[Link]([Link])
local breakk = false
pcall(function()
if [Link] == "Namekian" and not
[Link] then
[Link](1)
Talk("Character Slot Changer", {"Yes", "k", [Link]},
[Link], {"Change Character Slots?", "Alright", "Which slot
would you like to play in?", "Loading!"}, true)
[Link]:Wait()
if Fixing then
repeat [Link]() until not Fixing
end
[Link](0.5)
[Link]:WaitForChild("PowerOutput", 30)
[Link]([Link])
end
if [Link] then
[Link]:WaitForChild("Bottom", 30).[Link] =
"FanoutHaunt"
end
[Link] = true
local AccuracyRate
if Successful == 0 or Failed == 0 then
AccuracyRate = Successful == 0 and "0%" or Failed == 0 and "100%"
else
AccuracyRate = [Link]("%.2f", (Successful / (Successful +
Failed)) * 100) .. "%"
end
pcall(function()
[Link] = "Haunt's Infinte Stats|
ACCURACY RATE : " .. AccuracyRate
end)
if tonumber([Link]) >=
[Link] then
Finished = true
[Link] = "Haunt's Infinte Stats |
MAX POINTS REACHED | ACCURACY RATE : " .. AccuracyRate
SendNotification("FanoutHaunt", "Max points reached", 5)
breakk = true
return
end
end)
[Link](function()
if [Link] then
for _ = 1, 500 do
[Link]:FireServer([Link].
Stats[[Link]])
end
end
end)
if breakk then
break
end
WaitingForPointSlot = true
pcall(function()
Talk("Character Slot Changer", {"Yes", "k", [Link]},
[Link], {"Change Character Slots?", "Alright", "Which slot
would you like to play in?", "Loading!"}, true)
end)
[Link]:Wait()
if Fixing then
repeat [Link]() until not Fixing
end
[Link](0.5)
[Link]:WaitForChild("PowerOutput", 30)
[Link]([Link])
end
