the full code is 1156 lines so i will just send the code from 0 - 650 so here is the code
local Positions = {}
function TickToDate(s)
print("timedato")
local get = os.date("*t",os.time())
local date = {}
for t,v in pairs(get) do
if t == "month" then
table.insert(date,v)
elseif t == "day" then
table.insert(date,v)
elseif t == "year" then
table.insert(date,v)
end
end
print("i will return: "..tostring(date))
return date
end
game.Lighting.TimeToDate.Event:Connect(TickToDate)
function LoadPlrData(plr)
wait(0.5)
if plr:FindFirstChild("_dogcheck") == nil then
if string.sub(plr.Name,1,#"Guest ") == "Guest " then
plr:Kick("Guests are gone, use an account.")
end
local data = game:GetService("DataStoreService"):GetDataStore("DataStore"..plr.UserId)
local BanInfo = data:GetAsync("BanInfo")
if BanInfo == nil then
local BossChart = data:GetAsync("BossChartData")
local Used = data:GetAsync("UsedData")
local Weapons = data:GetAsync("WeaponsData")
local Armor = data:GetAsync("ArmorData")
local Food = data:GetAsync("FoodData")
local Frag = data:GetAsync("SOULFragmentsData")
local SOULs = data:GetAsync("SOULsData")
local SkinsData = data:GetAsync("SkinsData")
local LOVE = data:GetAsync("LOVE")
local Gold = data:GetAsync("Gold")
local EXP = data:GetAsync("XP")
local Resets = data:GetAsync("Resets")
local TrueResets = data:GetAsync("TrueResets")
local SoulFragments = Instance.new("Folder")
local Souls = Instance.new("Folder")
local UsedWeapon = Instance.new("StringValue")
local weapons = Instance.new("Folder")
local DisableInvite = Instance.new("BoolValue")
DisableInvite.Name = "InvitationsDisabled"
local Skins = Instance.new("Folder")
Skins.Name = "Skins"
local ArmorDesign = Instance.new("BoolValue")
ArmorDesign.Name = "ArmorDesignDisabled"
local DamageCounter = Instance.new("BoolValue")
DamageCounter.Name = "DamageCounterDisabled"
weapons.Name = "Weapons"
UsedWeapon.Name = "Weapon"
SoulFragments.Name = "SoulFragments"
local Voice = Instance.new("IntValue")
Voice.Name = "Voice"
Voice.Value = 360449521
local Font = Instance.new("StringValue")
Font.Name = "Font"
Font.Value = "Arcade"
local SelectedArmor = Instance.new("ObjectValue")
SelectedArmor.Name = "EquippedArmor"
Souls.Name = "SOULs"
local ArmorF = Instance.new("Folder")
ArmorF.Name = "Armor"
local foods = Instance.new("Folder")
foods.Name = "Food"
local SelectedSoul = Instance.new("ObjectValue")
SelectedSoul.Name = "SelectedSOUL"
local SoulFragments = Instance.new("Folder")
SoulFragments.Name = "SoulFragments"
local BossChartF = Instance.new("Folder")
BossChartF.Name = "BossChart"
local CapNumbers = Instance.new("BoolValue")
CapNumbers.Name = "CapNumbers"
CapNumbers.Value = true
local TextColor = Instance.new("Color3Value")
TextColor.Name = "TextColor"
TextColor.Value = Color3.new(1,1,1)
local NotifyMessages = Instance.new("BoolValue")
NotifyMessages.Name = "NotifyMessages"
NotifyMessages.Value = true
if BossChart then
for i=1,#BossChart do
local folder = Instance.new("Folder")
folder.Name = BossChart[i][1] --String, name
local LOVEB = Instance.new("IntValue")
LOVEB.Name = "LOVE"
LOVEB.Value = BossChart[i][2]
LOVEB.Parent = folder
local ResetsB = Instance.new("IntValue")
ResetsB.Name = "Resets"
ResetsB.Value = BossChart[i][3]
ResetsB.Parent = folder
local Fought = Instance.new("IntValue")
Fought.Name = "TimesFought"
Fought.Value = BossChart[i][4]
Fought.Parent = folder
local FoughtMulti = Instance.new("IntValue")
FoughtMulti.Name = "TimesFoughtMulti"
FoughtMulti.Value = BossChart[i][5]
FoughtMulti.Parent = folder
local Date = Instance.new("StringValue")
Date.Name = "Date"
Date.Value = BossChart[i][6]
Date.Parent = folder
folder.Parent = BossChartF
end
local c = game.Lighting.Battles:GetChildren()
for i=1,#c do
if BossChartF:FindFirstChild(c[i].Name) == nil then
local folder = Instance.new("Folder")
folder.Name = c[i].Name --String, name
local LOVEB = Instance.new("IntValue")
LOVEB.Name = "LOVE"
LOVEB.Value = 1
LOVEB.Parent = folder
local ResetsB = Instance.new("IntValue")
ResetsB.Name = "Resets"
ResetsB.Value = 0
ResetsB.Parent = folder
local Fought = Instance.new("IntValue")
Fought.Name = "TimesFought"
Fought.Value = 0
Fought.Parent = folder
local FoughtMulti = Instance.new("IntValue")
FoughtMulti.Name = "TimesFoughtMulti"
FoughtMulti.Value = 0
FoughtMulti.Parent = folder
local Date = Instance.new("StringValue")
Date.Name = "Date"
Date.Value = "Never"
Date.Parent = folder
folder.Parent = BossChartF
end
end
BossChartF.Parent = plr
else
local c = game.Lighting.Battles:GetChildren()
for i=1,#c do
local folder = Instance.new("Folder")
folder.Name = c[i].Name --String, name
local LOVEB = Instance.new("IntValue")
LOVEB.Name = "LOVE"
LOVEB.Value = 0
LOVEB.Parent = folder
local ResetsB = Instance.new("IntValue")
ResetsB.Name = "Resets"
ResetsB.Value = 0
ResetsB.Parent = folder
local Fought = Instance.new("IntValue")
Fought.Name = "TimesFought"
Fought.Value = 0
Fought.Parent = folder
local FoughtMulti = Instance.new("IntValue")
FoughtMulti.Name = "TimesFoughtMulti"
FoughtMulti.Value = 0
FoughtMulti.Parent = folder
local Date = Instance.new("StringValue")
Date.Name = "Date"
Date.Value = "Never"
Date.Parent = folder
folder.Parent = BossChartF
end
BossChartF.Parent = plr
end
if Gold then
plr.Gold.Value = Gold
else
plr.Gold.Value = 0
end
if LOVE then
plr.LOVE.Value = LOVE
else
plr.LOVE.Value = 1
end
if EXP then
plr.XP.Value = EXP
else
plr.XP.Value = 0
end
if Resets then
plr.Resets.Value = Resets
else
plr.Resets.Value = 0
end
if TrueResets then
plr.TrueResets.Value = TrueResets
else
plr.TrueResets.Value = 0
end
if Used then
local color = Color3.new(1,1,1)
UsedWeapon.Value = Used[1]
SelectedArmor.Value = game.Lighting.Armor:FindFirstChild(Used[2])
SelectedSoul.Value = game.Lighting.SOULs:FindFirstChild(Used[3])
if Used[4] then
DisableInvite.Value = Used[4] == "true"
end
if Used[5] then
ArmorDesign.Value = Used[5] == "true"
end
if Used[6] then
DamageCounter.Value = Used[6] == "true"
end
if Used[7] then
Voice.Value = Used[7]
end
if Used[8] then
Font.Value = Used[8]
end
if Used[9] then
CapNumbers.Value = Used[9] == "true"
end
if tonumber(Used[10]) ~= nil then
color = Color3.new(tonumber(Used[10]),color.g,color.b)
end
if tonumber(Used[11]) ~= nil then
color = Color3.new(color.r,tonumber(Used[11]),color.b)
end
if tonumber(Used[12]) ~= nil then
color = Color3.new(tonumber(Used[10]),color.g,color.b)
end
NotifyMessages.Parent = plr
TextColor.Parent = plr
CapNumbers.Parent = plr
Font.Parent = plr
Voice.Parent = plr
DamageCounter.Parent = plr
ArmorDesign.Parent = plr
DisableInvite.Parent = plr
UsedWeapon.Parent = plr
SelectedArmor.Parent = plr
SelectedSoul.Parent = plr
else
UsedWeapon.Value = "Stick"
SelectedArmor.Value = game.Lighting.Armor.Bandage
SelectedSoul.Value = game.Lighting.SOULs.Basic
NotifyMessages.Parent = plr
TextColor.Parent = plr
CapNumbers.Parent = plr
Font.Parent = plr
Voice.Parent = plr
DamageCounter.Parent = plr
ArmorDesign.Parent = plr
DisableInvite.Parent = plr
UsedWeapon.Parent = plr
SelectedArmor.Parent = plr
SelectedSoul.Parent = plr
end
if Weapons then
local c = game.Lighting.Weapons:GetChildren()
for i=1,#c do
for i2=1,#Weapons do
if c[i].Name == string.sub(Weapons[i2],1,#c[i].Name) and weapons:FindFirstChild(c[i].Name) == nil then
local v = Instance.new("BoolValue")
v.Name = c[i].Name
print(string.sub(Weapons[i2],#c[i].Name+2))
v.Value = string.sub(Weapons[i2],#c[i].Name+2) == "true"
v.Parent = weapons
end
end
if weapons:FindFirstChild(c[i].Name) == nil then
local v = Instance.new("BoolValue")
v.Name = c[i].Name
v.Value = false
v.Parent = weapons
end
end
weapons.Parent = plr
else
local c = game.Lighting.Weapons:GetChildren()
for i2=1,#c do
local v = Instance.new("BoolValue")
v.Name = c[i2].Name
v.Value = false
v.Parent = weapons
end
weapons.Parent = plr
end
--------------------
if SkinsData then
local c = game.Lighting.Skins:GetChildren()
for i=1,#c do
for i2=1,#SkinsData[1] do
if c[i].Name == string.sub(SkinsData[1][i2],1,#c[i].Name) and Skins:FindFirstChild(c[i].Name) == nil then
local v = Instance.new("BoolValue")
v.Name = c[i].Name
print(string.sub(SkinsData[1][i2],#c[i].Name+2))
v.Value = string.sub(SkinsData[1][i2],#c[i].Name+2) == "true"
v.Parent = Skins
end
end
if Skins:FindFirstChild(c[i].Name) == nil then
local v = Instance.new("BoolValue")
v.Name = c[i].Name
v.Value = false
v.Parent = Skins
end
end
c = game.Lighting.Weapons:GetChildren()
for i=1,#c do
for i2=1,#SkinsData[2] do
if c[i].Name == string.sub(SkinsData[2][i2],1,#c[i].Name) then
local v = Instance.new("ObjectValue")
v.Name = "Skin"
v.Value = game.Lighting.Skins:FindFirstChild(string.sub(SkinsData[2][i2],#c[i].Name+2))
if v.Value == nil then
v.Value = c[i]
end
v.Parent = weapons:FindFirstChild(c[i].Name)
end
end
if weapons:FindFirstChild(c[i].Name):FindFirstChild("Skin") == nil then
local s = Instance.new("ObjectValue")
s.Name = "Skin"
s.Value = c[i]
s.Parent = weapons:FindFirstChild(c[i].Name)
end
end
Skins.Parent = plr
else
local c = game.Lighting.Skins:GetChildren()
for i2=1,#c do
local v = Instance.new("BoolValue")
v.Name = c[i2].Name
v.Value = false
v.Parent = Skins
end
c = weapons:GetChildren()
for i=1,#c do
local s = Instance.new("ObjectValue")
s.Name = "Skin"
s.Value = game.Lighting.Weapons:FindFirstChild(c[i].Name)
s.Parent = c[i]
end
Skins.Parent = plr
end
--------------------
if Armor then
local c = game.Lighting.Armor:GetChildren()
for i=1,#c do
for i2=1,#Armor do
if c[i].Name == string.sub(Armor[i2],1,#c[i].Name) and ArmorF:FindFirstChild(c[i].Name) == nil then
local v = Instance.new("BoolValue")
v.Name = c[i].Name
v.Value = string.sub(Armor[i2],#c[i].Name+2) == "true"
v.Parent = ArmorF
end
end
if ArmorF:FindFirstChild(c[i].Name) == nil then
local v = Instance.new("BoolValue")
v.Name = c[i].Name
v.Value = false
v.Parent = ArmorF
end
end
ArmorF.Parent = plr
else
local c = game.Lighting.Armor:GetChildren()
for i2=1,#c do
local v = Instance.new("BoolValue")
v.Name = c[i2].Name
v.Value = false
v.Parent = ArmorF
end
ArmorF.Parent = plr
end
------------------------
if Food then
local c = game.Lighting.Food:GetChildren()
for i=1,#c do
for i2=1,#Food do
if c[i].Name == string.sub(Food[i2],1,#c[i].Name) and foods:FindFirstChild(c[i].Name) == nil then
local v = Instance.new("IntValue")
v.Name = c[i].Name
v.Value = string.sub(Food[i2],#c[i].Name+2)
v.Parent = foods
end
end
if foods:FindFirstChild(c[i].Name) == nil then
local v = Instance.new("IntValue")
v.Name = c[i].Name
v.Value = 0
v.Parent = foods
end
end
foods.Parent = plr
else
local c = game.Lighting.Food:GetChildren()
for i2=1,#c do
local v = Instance.new("IntValue")
v.Name = c[i2].Name
v.Value = 0
v.Parent = foods
end
foods.Parent = plr
end
---------
if Frag then
local c = game.Lighting.SOULs:GetChildren()
for i=1,#c do
for i2=1,#Frag do
if c[i].Name == string.sub(Frag[i2],1,#c[i].Name) and SoulFragments:FindFirstChild(c[i].Name) == nil then
local v = Instance.new("IntValue")
v.Name = c[i].Name
v.Value = string.sub(Frag[i2],#c[i].Name+2)
v.Parent = SoulFragments
end
end
if SoulFragments:FindFirstChild(c[i].Name) == nil then
local v = Instance.new("IntValue")
v.Name = c[i].Name
v.Value = 0
v.Parent = SoulFragments
end
end
SoulFragments.Parent = plr
else
local c = game.Lighting.SOULs:GetChildren()
for i=1,#c do
local v = Instance.new("IntValue")
v.Name = c[i].Name
v.Value = 0
v.Parent = SoulFragments
end
SoulFragments.Parent = plr
end
-------------------
if SOULs then
local c = game.Lighting.SOULs:GetChildren()
for i=1,#c do
for i2=1,#SOULs do
if c[i].Name == string.sub(SOULs[i2],1,#c[i].Name) and Souls:FindFirstChild(c[i].Name) == nil then
local v = Instance.new("BoolValue")
v.Name = c[i].Name
v.Value = string.sub(SOULs[i2],#c[i].Name+2) == "true"
v.Parent = Souls
end
end
if Souls:FindFirstChild(c[i].Name) == nil then
local v = Instance.new("BoolValue")
v.Name = c[i].Name
v.Value = false
v.Parent = Souls
end
end
Souls.Parent = plr
else
local c = game.Lighting.SOULs:GetChildren()
for i2=1,#c do
local v = Instance.new("BoolValue")
v.Name = c[i2].Name
v.Value = false
v.Parent = Souls
end
Souls.Parent = plr
end
weapons.Stick.Value = true
Souls.Basic.Value = true
ArmorF.Bandage.Value = true
local CanChat = game.Chat:CanUserChatAsync(plr.UserId)
if CanChat == false then
game.Lighting.DisableChat:FireClient(plr)
end
local loadeddata = Instance.new("ObjectValue")
loadeddata.Name = "_loadeddata"
loadeddata.Parent = plr
game.Lighting.DataLoaden:FireClient(plr)
local t1= weapons:FindFirstChild(UsedWeapon.Value).Skin.Value.Tool:FindFirstChildOfClass("Tool"):Clone()
local p1 = Instance.new("ObjectValue")
p1.Name = "Player"
p1.Value = plr
p1.Parent = t1
local i1 = Instance.new("ObjectValue")
i1.Name = "BaseWeapon"
i1.Value = game.Lighting.Weapons:FindFirstChild(UsedWeapon.Value)
i1.Parent = t1
t1.Parent = plr.StarterGear
plr:LoadCharacter()
else
plr:LoadCharacter()
game.Lighting.Assets.Despacito2:Clone().Parent = plr.PlayerGui
wait(.5)
plr.Character:Destroy()
wait(9.5)
plr:Kick("You have been banned for: "..BanInfo[3])
end
end
end
function GenerateValue()
local value = Vector3.new(math.random(1,500)*200,10000,math.random(1,500)*200)
for i=1,#Positions do
if value == Positions[i] then
for i=1,#Positions do
if value == Positions[i] then
local value = Vector3.new(math.random(1,500)*200,10000,math.random(1,500)*200)
end
end
end
end
return value
end
game.Players.PlayerAdded:connect(function(plr)
local data = game:GetService("DataStoreService"):GetDataStore("DataStore"..plr.UserId)
local love = Instance.new("NumberValue")
love.Name = "LOVE"
love.Value = 1
local gold = Instance.new("NumberValue")
gold.Name = "Gold"
local XP = Instance.new("NumberValue")
local resets = Instance.new("NumberValue")
resets.Name = "Resets"
local trueresets = Instance.new("NumberValue")
trueresets.Name = "TrueResets"
game.Debris:AddItem(plr.Character,3)
XP.Name = "XP"
love.Parent = plr
XP.Parent = plr
resets.Parent = plr
gold.Parent = plr
trueresets.Parent = plr
local pos = Instance.new("Vector3Value")
pos.Name = "Pos"
table.insert(Positions,1,pos.Value)
pos.Parent = plr
plr.ChildAdded:Connect(function(c)
if c.Name == "_nickname" then
if plr.Character then
plr.Character.Head.RobotName.Text = plr["_nickname"].Value
plr.Character.Head.RobotName.TextColor3 = Color3.new(1,1,1)
end
c.Changed:Connect(function()
if plr.Character then
plr.Character.Head.RobotName.Text = plr["_nickname"].Value
plr.Character.Head.RobotName.TextColor3 = Color3.new(1,1,1)
end
end)
end
end)
plr.ChildRemoved:Connect(function()
if plr:WaitForChild("_nickname") == nil then
if plr:FindFirstChild("Character") then
plr.Character.Head:WaitForChild("StatsHuman").RobotName.Text = plr.Name
if plr:FindFirstChild("Badge") then
plr.Character.Head.RobotName.TextColor3 = plr.Badge.BadgeColor.Value
end
end
end
end)
plr:LoadCharacter()
plr.CharacterAdded:Connect(function(char)
local SelectedArmor = plr:FindFirstChild("EquippedArmor")
local SelectedSoul = plr:FindFirstChild("SelectedSOUL")
local value = GenerateValue()
pos.Value = value
repeat wait() until plr.Character:FindFirstChild("Humanoid")
char.Humanoid.WalkSpeed = 46
local stats = game.Lighting.StatsHuman:Clone()
if plr:FindFirstChild("Badge") then
stats.RobotName.TextColor3 = plr.Badge.BadgeColor.Value
end
if plr:FindFirstChild("_nickname") == nil then
stats.RobotName.Text = plr.Name
else
stats.RobotName.Text = plr["_nickname"].Value
stats.RobotName.TextColor3 = Color3.new(1,1,1)
end
stats.HP.Text.Text = "HP "..char.Humanoid.Health.."/"..char.Humanoid.MaxHealth
stats.HP.Bar.Size = UDim2.new(char.Humanoid.Health/char.Humanoid.MaxHealth,0,1,0)
stats.PlayerToHideFrom = plr
stats.Parent = char.Head
local function Yes()
if stats:FindFirstChild("HP") and char:FindFirstChild("Humanoid") then
stats.HP.Text.Text = "HP "..char.Humanoid.Health.."/"..char.Humanoid.MaxHealth
stats.HP.Bar.Size = UDim2.new(char.Humanoid.Health/char.Humanoid.MaxHealth,0,1,0)
end
if char:FindFirstChild("KR") then
if char.KR.Value > 0 then
stats.HP.Text.TextColor3 = Color3.new(1,0,1)
else
stats.HP.Text.TextColor3 = Color3.new(1,1,1)
end
stats.HP.Bar.KR.Size = UDim2.new(char.KR.Value/char.Humanoid.Health,0,1,0)
stats.HP.Bar.KR.Position = UDim2.new(1-char.KR.Value/char.Humanoid.Health,0,0,0)
else
stats.HP.Text.TextColor3 = Color3.new(1,1,1)
end
end
char:FindFirstChild("Humanoid").Changed:Connect(Yes)
char:WaitForChild("KR").Changed:Connect(Yes)
if plr.LOVE.Value < 20 then
plr.Character.Humanoid.MaxHealth = (20 + (4*(plr.LOVE.Value-1))) + SelectedArmor.Value.HPBonus.Value
plr.Character.Humanoid.Health = (20 + (4*(plr.LOVE.Value-1))) + SelectedArmor.Value.HPBonus.Value
elseif plr.LOVE.Value >= 20 then
plr.Character.Humanoid.MaxHealth = (100 + (5*(plr.LOVE.Value-20))) + SelectedArmor.Value.HPBonus.Value
plr.Character.Humanoid.Health = (100 + (5*(plr.LOVE.Value-20))) + SelectedArmor.Value.HPBonus.Value
end
print("char")
local c = SelectedArmor.Value.Design:GetChildren()
for i=1,#c do
local clone = c[i]:Clone()
if (clone:IsA("Model") or clone:IsA("Accessory")) then
local f = clone:GetChildren()
for i2=1,#f do
if f[i2]:IsA("BasePart") then
local Transparency = Instance.new("NumberValue")
Transparency.Name = "_transparency"
Transparency.Value = f[i2].Transparency
Transparency.Parent = f[i2]
if plr.ArmorDesignDisabled.Value then
f[i2].Transparency = 1
end
end
end
end
clone.Parent = char
end