wait(0.5)
shops = {}
doctors = {}
skills = {}
levels = {}
local trades = {}
function find(x)
	for a,b in pairs(x:GetChildren()) do
	if b.Name == "ShopData" and b.Parent:findFirstChild("BasicShop",true) then
	shops[#shops+1] = b.Parent
	elseif b.Name == "Visit Doctor" then
	doctors[#doctors+1] = b.Head
	elseif b.Name == "ShopData" and b.Parent:findFirstChild("SkillShop",true) then
	skills[#skills+1] = b.Parent
	elseif b.Name == "ShopData" and b.Parent:findFirstChild("LevelShop",true) then
	levels[#levels+1] = b.Parent
	elseif b.Name == "ShopData" and b.Parent:findFirstChild("Trade",true) then
	trades[#trades+1] = b.Parent
	elseif b:IsA("BasePart") and b.Name == "Head" then
		find(b)
	elseif b:IsA("Model") then
		find(b)
	end
	end
end

find(game.Workspace)

function setupshop(part)
	local en = true
	if part.ShopData:findFirstChild("MarineOnly") then
	part.BrickColor = BrickColor.new("Bright blue")
	else
	part.BrickColor = BrickColor.new("Bright green")
	end
	part.ShopData.Cost.Value = math.floor(part.ShopData.Cost.Value * (math.random(1,2) + math.random()))
		part.Parent.Name = ""..part.ShopData.Item.Value.." $"..part.ShopData.Cost.Value..""
part.ClickDetector.MouseClick:connect(function(play)
	if play ~= nil then
		if not en then return end
		en = false

		part.BrickColor = BrickColor.new("Bright red")
		local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(play.Name)
		if part:findFirstChild(pfolder.Race.Value,true) then
		part.Parent.Name = "Not allowed for "..pfolder.Race.Value.."s" wait(1)
			part.Parent.Name = ""..part.ShopData.Item.Value.." $"..part.ShopData.Cost.Value..""
		if part.ShopData:findFirstChild("MarineOnly") then
		part.BrickColor = BrickColor.new("Bright blue")
		else
		part.BrickColor = BrickColor.new("Bright green")
		end
		 en = true
		return
		 end
		if pfolder then
			local go = true
			local req = nil
			local skills = nil
			local skillreq = true
			skills = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)
			if part.ShopData:findFirstChild("Req") then
				 skills = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)
				 req = game:GetService("HttpService"):JSONDecode(part.ShopData.Req.Value)
				for a,b in pairs(req) do
					if skills[a] and skills[a] >=  b then
					else
						go = false
						skillreq = false
					end
				end
			end
			if part.ShopData:findFirstChild("OneType") then
				for a,b in pairs(play.Backpack:GetChildren()) do
					if b:findFirstChild("Type") and b.Type.Value == part.ShopData.OneType.Value then
						go = false
					end
				end

				if play.Character:findFirstChild("Type",true) and play.Character:findFirstChild("Type",true).Value == part.ShopData.OneType.Value then
					go =false
				end

				if skills["Arsenal"] and not play.Backpack:FindFirstChild(part.ShopData.Item.Value) and not play.Character:FindFirstChild(part.ShopData.Item.Value) then
					go = true
				end
			end
			if part.ShopData:findFirstChild("MarineOnly") and pfolder.Class.Value ~= "Marine" then
				go =false
			end
			if part.ShopData:findFirstChild("RebelOnly") and pfolder.Class.Value ~= "Revolutionary" then
				go =false
			end

			if pfolder.Gold.Value >= part.ShopData.Cost.Value and go   then
				local ring = play.Character:FindFirstChild("Rings")
				if ring and ring:FindFirstChild("Bargain Ring") and math.random(1,2) == 1 then
					pfolder.Gold.Value = pfolder.Gold.Value - (part.ShopData.Cost.Value / 2)
				else
					pfolder.Gold.Value = pfolder.Gold.Value - part.ShopData.Cost.Value
				end

				part.Parent.Name = "Bought "..part.ShopData.Item.Value..""
				if	game.ServerStorage.Tools:FindFirstChild(part.ShopData.Item.Value,true) then
				game.ServerStorage.Tools:FindFirstChild(part.ShopData.Item.Value,true):clone().Parent =  play.Backpack
				end
			elseif go == false then

				if skillreq == false then

					part.Parent.Name = "Skill in this field isnt high enough!"
		wait(0.3)

				elseif part.ShopData:findFirstChild("MarineOnly") and pfolder.Class.Value ~= "Marine" then
						part.Parent.Name = "Marines only!"
		wait(0.3)

				elseif part.ShopData:findFirstChild("RebelOnly") and pfolder.Class.Value ~= "Revolutionary" then
						part.Parent.Name = "Revolutionaries only!"
		wait(0.3)
					else
						part.Parent.Name = "You can only have one!"
		wait(0.3)

				end
			else
				part.Parent.Name = "Can't afford "..part.ShopData.Item.Value.."!"
		wait(0.3)

			end
		end
		wait(0.3)
		part.Parent.Name = ""..part.ShopData.Item.Value.." $"..part.ShopData.Cost.Value..""
		if part.ShopData:findFirstChild("MarineOnly") then
		part.BrickColor = BrickColor.new("Bright blue")
		else
		part.BrickColor = BrickColor.new("Bright green")
		end
		en = true
	end
end)
end

prices={
["Cut"]=500,
["Bruise"]=600,
["Puncture"]=700,
["Cold"]=700,
["Infection"]=1100,
["Cough"]=1700,
["Large Cut"]=2500,
["Scurvy"] = 5000,
["Malnutrition"] = 6000
}
function setupdoc(part)
	local shop = part.Parent
	local en = true
	shop.Name = "Visit Doctor"
	part.ClickDetector.MouseClick:connect(function(play)
		if play ~= nil then
			if not en then return end
			en = false
			local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(play.Name)
			if pfolder then
			local price = 0
			part.BrickColor = BrickColor.new("Bright red")
			local disease = game:GetService("HttpService"):JSONDecode(pfolder.HealthConditions.Value)
			for a,b in pairs(disease) do
				if prices[b] and pfolder.Gold.Value >= prices[b] then
					pfolder.Gold.Value = pfolder.Gold.Value - prices[b]
					table.remove(disease,a)
				elseif prices[b] then
				price = price +  prices[b]
				else
				end
			end
			if price ~= 0 then
				shop.Name = "You still need $"..price
			end
			pfolder.HealthConditions.Value = game:GetService("HttpService"):JSONEncode(disease)
			 wait(1)
	shop.Name = "Visit Doctor"
			part.BrickColor = BrickColor.new("Bright green")
			en = true
			end
		end
	end)
end



function setuptrade(part)
	local shop = part.Parent
	local en = true
	shop.Name = part.ShopData.Item.Value .. " : " ..part.ShopData.Trade.Value.. " (x"..part.ShopData.Amount.Value..") "
	part.ClickDetector.MouseClick:connect(function(play)
		if play ~= nil then
			if not en then return end

			en = false

			local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(play.Name)
			if pfolder then
				local am = 0
 				for a,b in pairs(play.Backpack:GetChildren()) do
					if b.Name == part.ShopData.Trade.Value then
						am = am + 1
					end
				end
				if am >= part.ShopData.Amount.Value then
					for i=1,part.ShopData.Amount.Value do
						if play.Backpack:findFirstChild(part.ShopData.Trade.Value)  then
							play.Backpack:findFirstChild(part.ShopData.Trade.Value):Destroy()
						end
					end
					local tol = game.ServerStorage.Tools:FindFirstChild(part.ShopData.Item.Value,true):clone()
					tol.Parent = play.Backpack
				end
			end
			wait(0.5)
			en = true
		end
	end)
end

function commaValue(amount)
	local formatted = amount
	local k
	repeat
		formatted, k = string.gsub(formatted, "^(-?%d+)(%d%d%d)", '%1,%2')
	until k == 0
	return formatted
end

function setupskill(part)
	local en = true
	part.BrickColor = BrickColor.new("Bright yellow")


	part.Parent.Name = ""..part.ShopData.Item.Value.." $"..commaValue(part.ShopData.Cost.Value)..", "..commaValue(part.ShopData.CostB.Value*10).."B"
		part.ClickDetector.MouseClick:connect(function(play)
	if play ~= nil then
		if not en then return end
		en = false
		part.BrickColor = BrickColor.new("Bright yellow")
		local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(play.Name)
		if pfolder then
			if part:findFirstChild(pfolder.Race.Value,true) then part.Parent.Name = "Not allowed for "..pfolder.Race.Value.."s" wait(1) en = true return end
			local go = true
			local race = true
			local pathbad = true
			local skills = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)
			local req = game:GetService("HttpService"):JSONDecode(part.ShopData.Req.Value)
			for a,b in pairs(req) do
				if (skills[a] and skills[a] >=  b) or (skills[a] == nil and b == 0) then
					if a == "Mirage" and skills["Cannon"] or a == "Cannon" and skills["Mirage"]
					 or a == "Impact" and skills["Barrage"] or a == "Barrage" and skills["Impact"]
					 or a == "1sProjectile" and skills["1sParry"] or a == "1sParry" and skills["1sProjectile"]
					 or a == "Yeet" and skills["Heavy"] or a == "Heavy" and skills["Yeet"]
					 or a == "Reload" and skills["CannonMaster"] or  a == "CannonMaster" and skills["Reload"]
					 or a == "Spin" and skills["Pound"] or  a == "Pound" and skills["Spin"]
					 or a == "SamuraiAOE" and skills["Slice"] or  a == "Slice" and skills["SamuraiAOE"]
					 or a == "Slashes" and not skills["Cannon"]
					 or a =="DragonsBreath" and not skills["Barrage"]
					 or a =="SamuraiAOE" and not skills["SamuraiCounter"]
					 or a =="WaterDash" and not skills["Wavey"] or a =="Wavey" and not skills["WaterDash"]
					 or a == "Blocker" and not skills["Reload"] or a == "Arsenal" and not skills["CannonMaster"] then
						pathbad = false
					end
				else
					go = false
				end
			end
			if req["Rokushiki"] and pfolder.Race.Value ~= "Human" or req["Fishman Karate"] and pfolder.Race.Value ~= "Fishman"  or req["Dwarf"] and pfolder.Race.Value ~= "Dwarf"  then
				race = false
			end

			if pfolder.Race.Value == "Human" then
				pathbad = true
			end

			if pfolder.Gold.Value >= part.ShopData.Cost.Value and  pfolder.Bounty.Value >= part.ShopData.CostB.Value and go and race and pathbad  then
			if pfolder.SkillsLeft.Value == 0 then en = true return end
			if pfolder.Race.Value == "Giant" then return end
			pfolder.SkillsLeft.Value = 	pfolder.SkillsLeft.Value - 1
				part.Parent.Name = "Learned "..part.ShopData.Item.Value..""
					pfolder.EXP.Value = pfolder.EXP.Value + 500
					 for a,b in pairs(req) do
						if skills[a] and skills[a] ==  b then
							skills[a] = b+1 -- laerna  new level...
						elseif not skills[a] then --they dont have that skill yet
							skills[a] = 1
						end
					end
				pfolder.Skills.Value = game:GetService("HttpService"):JSONEncode(skills)
				pfolder.Bounty.Value  = pfolder.Bounty.Value - (part.ShopData.CostB.Value/2)
				pfolder.Gold.Value = pfolder.Gold.Value - part.ShopData.Cost.Value
			elseif go == false then

				part.Parent.Name = "Skill in this field isnt high enough!"
			 --cant buy?
			elseif not race then
				part.Parent.Name = pfolder.Race.Value .. "'s cannot obtain this skill!"
			elseif pathbad == false then
				part.Parent.Name = "You can only go one path!"
			elseif  pfolder.Gold.Value < part.ShopData.Cost.Value then

				part.Parent.Name = "Can't afford "..part.ShopData.Item.Value.."!"
			elseif pfolder.Bounty.Value < part.ShopData.CostB.Value   then

				part.Parent.Name = "Need more bounty!"

			end
		end
		wait(2)
		part.Parent.Name = ""..part.ShopData.Item.Value.." $"..commaValue(part.ShopData.Cost.Value)..", "..commaValue(part.ShopData.CostB.Value*10).."B"

		part.BrickColor = BrickColor.new("Bright yellow")

		en = true
	end
end)
end

skillys = {["Soru"]=true,["Geppo"]=true}
function setupslevl(part)
	local en = true
	part.BrickColor = BrickColor.new("Hot pink")


	part.Parent.Name = part.ShopData.Item.Value .. "| 35k Bounty"

		part.ClickDetector.MouseClick:connect(function(play)
	if play ~= nil then
		if not en then return end
		en = false
		part.BrickColor = BrickColor.new("Hot pink")
		local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(play.Name)
		if pfolder then
			local go = true
			 local skills = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)
			local req = game:GetService("HttpService"):JSONDecode(part.ShopData.Req.Value)
			for a,b in pairs(skills) do
				if skillys[a] and (not skills["Rokushiki"] or skills["Rokushiki"] ~= 4) then
					go = false
				end
			end
			if pfolder.LVL.Value >= part.ShopData.LevelShop.Value and go and pfolder.Bounty.Value >= 3500  then
			if pfolder.Race.Value == "Giant" then return end
				part.Parent.Name = "Learned "..part.ShopData.Item.Value..""
					 for a,b in pairs(req) do
						if skills[a] and skills[a] ==  b then
							skills[a] = b+1 -- laerna  new level...
						elseif not skills[a] then --they dont have that skill yet
							skills[a] = 1
						end
					end
				pfolder.Skills.Value = game:GetService("HttpService"):JSONEncode(skills)
			elseif go == false then

				part.Parent.Name = "Only 1 purple skill allowed!"
			 --cant buy?
			elseif pfolder.Bounty.Value < 3500  then

				part.Parent.Name = "Not enough bounty!"

			elseif pfolder.LVL.Value < part.ShopData.LevelShop.Value then

				part.Parent.Name = "Level not high enough!"


			end
		end
		wait(2)
	part.BrickColor = BrickColor.new("Hot pink")
	part.Parent.Name = part.ShopData.Item.Value .. "| 35k Bounty"
		en = true
	end
end)
end

for a,b in pairs(shops) do
	setupshop(b)
end

for a,b in pairs(trades) do
	setuptrade(b)
end

for a,b in pairs(doctors) do
	setupdoc(b)
end
for a,b in pairs(skills) do
	setupskill(b)
end

for a,b in pairs(levels) do
	setupslevl(b)
end

--[[spawn(function()
	local Spawned = false
	local SpawnLocations = {Vector3.new(866.763, 37.908, -7957.939),Vector3.new(5980.527, 15.501, -6393.399),Vector3.new(3618, 4.764, -5111),Vector3.new(2176, 10.301, 738), Vector3.new(-2810.5, 44.291, 5880.5), Vector3.new(7369.897, 16.586, 1687.807), Vector3.new(1043.417, 55.557, 1724.539)}
	local Rayleigh = game.ServerStorage.Rayleigh
	local Clicked = false
	local Ken = false
	local Buso = false

	Rayleigh.Torso.ClickDetector.MouseClick:Connect(function(plr)
		if not Clicked and plr then
			Clicked = true
			local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(plr.Name)
			if pfolder then
				skills = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)
				if skills["Ken"] then
					Ken = true
				end
				if skills["Buso"] then
					Buso = true
				end
			end
			if Buso and Ken or pfolder.Bounty.Value < 1500 then
				Clicked = false
			else
			if Buso then
				Rayleigh.Torso.Ken:Play()
				skills["Ken"] = 1
			elseif Ken then
				Rayleigh.Torso.Buso:Play()
				skills["Buso"] = 1
			else
				if math.random(1,2) == 1 then
					Rayleigh.Torso.Buso:Play()
					skills["Buso"] = 1
				else
					Rayleigh.Torso.Ken:Play()
					skills["Ken"] = 1
				end
			end
				pfolder.Skills.Value = game:GetService("HttpService"):JSONEncode(skills)
				pfolder.EXP.Value = pfolder.EXP.Value + 1000
				workspace.HAKITOOK:Play()
				wait(3)
				Rayleigh.Parent = game.ServerStorage
				Spawned = false
				Clicked = false
			end
		end
	end)

	game.Players.PlayerAdded:Connect(function(Plr)
		if Plr.Name == "123imnotmomo" or Plr.Name == "MomoAscension" or Plr.Name == "SiIozi" then
			Plr.Chatted:Connect(function(MSG)
				if MSG == "APPLEFRUITPIE2000" and not Spawned then
					Spawned = true
					Rayleigh.Parent = workspace
					Rayleigh:SetPrimaryPartCFrame(CFrame.new(SpawnLocations[math.random(1,#SpawnLocations)] + Vector3.new(0,3,0)))
					workspace.HAKI:Play()
					wait(5)
					workspace.HAKI:Stop()
				end
			end)
		end
	end)

	while true do
		wait(3600)
		if math.random(1,100) == 1 and not Spawned then
			Spawned = true
			Rayleigh.Parent = workspace
			Rayleigh:SetPrimaryPartCFrame(CFrame.new(SpawnLocations[math.random(1,#SpawnLocations)] + Vector3.new(0,3,0)))
			workspace.HAKI:Play()
			wait(5)
			workspace.HAKI:Stop()
		end
		repeat wait() until Spawned == false
		Clicked = false
	end
end)]]

local Debounce = false
RebirthPart = workspace:WaitForChild("Rebirth")

workspace.Rebirth.Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if pfolder.Bounty.Value >= 5000 and pfolder.LVL.Value >= 15 and not Debounce and pfolder.Rebirth.Value < 5 then
		Debounce = true


		local Continue = false
		for a,b in pairs(Skillsdab) do
			print(b)
			if b >= 3 then
				Continue = true
			end
		end

		if Continue == true  then
			pfolder.Bounty.Value = 0
			pfolder.Skills.Value = "[]"
			pfolder.Gold.Value = 5000
			pfolder.GiantCutlass.Value = false
			pfolder.DwarfUpgrade.Value = false
			pfolder.DwarfUpgrade2.Value = false
			pfolder.DwarfUpgrade3.Value = false
			pfolder.SkypieanUpgrade.Value = false
			pfolder.SkypieanUpgrade2.Value = false
			pfolder.SkypeianUpgrade3.Value = false
			pfolder.CyborgUpgrade3.Value = false
			pfolder.CyborgUpgrade2.Value = false
			pfolder.CyborgUpgrade.Value = false
			pfolder.FishmanUpgrade.Value = false
			pfolder.GiantUpgrade.Value = false
			pfolder.GiantUpgrade2.Value = false
			pfolder.GiantCutlass2.Value = false
			pfolder.MinkUpgradee.Value = false
			pfolder.Buso3.Value = false
			pfolder.Ken3.Value = false
			pfolder.Muscle.Value = 0
			pfolder.Fat.Value = 0
			pfolder.LVL.Value = 1
			pfolder.EXP.Value = 0
			pfolder.BankGold.Value = 10000
			pfolder.Stomach.Value = pfolder.Stomach.MaxValue
			pfolder.HealthConditions.Value = "[]"
			pfolder.Rebirth.Value = pfolder.Rebirth.Value + 1
			pfolder.SkillsLeft.Value = 5 + pfolder.Rebirth.Value
			if math.random(1,50/pfolder.Rebirth.Value) == 1 then
				pfolder.HaoBorn.Value = true
			end
			Plr:LoadCharacter()
			RebirthPart.Name = "REBORNNNNNNNNNNNNNNNNNNNN!"
			wait(2)
			RebirthPart.Name = "Rebirth"
			Debounce = false
		else
			RebirthPart.Name = "..."
			wait(2)
			Debounce = false
			RebirthPart.Name = "Rebirth"
		end

	elseif not Debounce then
		RebirthPart.Name = "..."
		wait(2)
		Debounce = false
		RebirthPart.Name = "Rebirth"
	end
end)

local Debounce2 = false

workspace["Cyborg Upgrade3 [40k Beli] [Level 15]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce2 then
	 	CyborgPart = workspace["Cyborg Upgrade3 [40k Beli] [Level 15]"]
	end

	if pfolder.Gold.Value >= 40000 and pfolder.LVL.Value >= 15 and not Debounce2 and pfolder.Race.Value == "Cyborg" and pfolder.CyborgUpgrade2.Value == true then
		Debounce2 = true
		CyborgPart.Name = "SUUUPPPEEEEEEERRRRRRRRR!"
		pfolder.Gold.Value = pfolder.Gold.Value - 40000
		pfolder.CyborgUpgrade3.Value = true
		wait(2)
		Debounce2 = false
		CyborgPart.Name = "Cyborg Upgrade3 [40k Beli] [Level 15]"
	elseif not Debounce2 then

		Debounce2 = true
		if pfolder.Gold.Value < 40000 then
			CyborgPart.Name = "Need more gold."
		elseif pfolder.Race.Value ~= "Cyborg" then
			CyborgPart.Name = "Cyborg's only loser!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce2 = false
		CyborgPart.Name = "Cyborg Upgrade3 [40k Beli] [Level 15]"
	end
end)

local Debounce3 = false

workspace["Cyborg Upgrade2 [20k Beli] [Level 10]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce3 then
	 	CyborgPart = workspace["Cyborg Upgrade2 [20k Beli] [Level 10]"]
	end

	if pfolder.Gold.Value >= 20000 and pfolder.LVL.Value >= 10 and not Debounce3 and pfolder.Race.Value == "Cyborg" and pfolder.CyborgUpgrade.Value == true then
		Debounce3 = true
		CyborgPart.Name = "SUUUPPPEEEEEEERRRRRRRRR!"
		pfolder.Gold.Value = pfolder.Gold.Value - 20000
		pfolder.CyborgUpgrade2.Value = true
		wait(2)
		Debounce3 = false
		CyborgPart.Name = "Cyborg Upgrade2 [20k Beli] [Level 10]"
	elseif not Debounce3 then

		Debounce3 = true
		if pfolder.Gold.Value < 20000 then
			CyborgPart.Name = "Need more gold."
		elseif pfolder.Race.Value ~= "Cyborg" then
			CyborgPart.Name = "Cyborg's only loser!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce3 = false
		CyborgPart.Name = "Cyborg Upgrade2 [20k Beli] [Level 10]"
	end
end)
local Debounce4 = false

workspace["Cyborg Upgrade [10k Beli] [Level 5]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce4 then
	 	CyborgPart = workspace["Cyborg Upgrade [10k Beli] [Level 5]"]
	end

	if pfolder.Gold.Value >= 10000 and pfolder.LVL.Value >= 5 and not Debounce4 and pfolder.Race.Value == "Cyborg" then
		Debounce4 = true
		CyborgPart.Name = "SUUUPPPEEEEEEERRRRRRRRR!"
		pfolder.Gold.Value = pfolder.Gold.Value - 10000
		pfolder.CyborgUpgrade.Value = true
		wait(2)
		Debounce4 = false
		CyborgPart.Name = "Cyborg Upgrade [10k Beli] [Level 5]"
	elseif not Debounce4 then

		Debounce4 = true
		if pfolder.Gold.Value < 10000 then
			CyborgPart.Name = "Need more gold."
		elseif pfolder.Race.Value ~= "Cyborg" then
			CyborgPart.Name = "Cyborg's only loser!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce4 = false
		CyborgPart.Name = "Cyborg Upgrade [10k Beli] [Level 5]"
	end
end)

local Debounce5 = false

workspace["Skypiean Upgrade [20k Beli] [Level 5]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce5 then
	 	CyborgPart = workspace["Skypiean Upgrade [20k Beli] [Level 5]"]
	end

	if pfolder.Gold.Value >= 20000 and pfolder.LVL.Value >= 5 and not Debounce5 and pfolder.Race.Value == "Skypeian" then
		Debounce5 = true
		CyborgPart.Name = "GRAVITY!"
		pfolder.Gold.Value = pfolder.Gold.Value - 20000
		pfolder.SkypieanUpgrade.Value = true
		wait(2)
		Debounce5 = false
		CyborgPart.Name = "Skypiean Upgrade [20k Beli] [Level 5]"
	elseif not Debounce5 then

		Debounce5 = true
		if pfolder.Gold.Value < 20000 then
			CyborgPart.Name = "Need more gold."
		elseif pfolder.Race.Value ~= "Skypeian" then
			CyborgPart.Name = "Skypeian's only loser!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce5 = false
		CyborgPart.Name = "Skypiean Upgrade [20k Beli] [Level 5]"
	end
end)

local Debounce6 = false

workspace["Skypiean Upgrade2 [30k Beli] [Level 10]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce6 then
	 	CyborgPart = workspace["Skypiean Upgrade2 [30k Beli] [Level 10]"]
	end

	if pfolder.Gold.Value >= 30000 and pfolder.LVL.Value >= 10 and not Debounce6 and pfolder.Race.Value == "Skypeian" and pfolder.SkypieanUpgrade.Value == true then
		Debounce6 = true
		CyborgPart.Name = "FRICTION!"
		pfolder.Gold.Value = pfolder.Gold.Value - 30000
		pfolder.SkypieanUpgrade2.Value = true
		wait(2)
		Debounce6 = false
		CyborgPart.Name = "Skypiean Upgrade2 [30k Beli] [Level 10]"
	elseif not Debounce6 then

		Debounce6 = true
		if pfolder.Gold.Value < 30000 then
			CyborgPart.Name = "Need more gold."
		elseif pfolder.Race.Value ~= "Skypeian" then
			CyborgPart.Name = "Skypeian's only loser!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce6 = false
		CyborgPart.Name = "Skypiean Upgrade2 [30k Beli] [Level 10]"
	end
end)
local Debounce7 = false

workspace["Fishman Upgrade [30k Beli] [Level 5]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce7 then
	 	CyborgPart = workspace["Fishman Upgrade [30k Beli] [Level 5]"]
	end

	if pfolder.Gold.Value >= 30000 and pfolder.LVL.Value >= 5 and not Debounce7 and pfolder.Race.Value == "Fishman" then
		Debounce7 = true
		CyborgPart.Name = "SPEEDY!"
		pfolder.Gold.Value = pfolder.Gold.Value - 30000
		pfolder.FishmanUpgrade.Value = true
		wait(2)
		Debounce7 = false
		CyborgPart.Name = "Fishman Upgrade [30k Beli] [Level 5]"
	elseif not Debounce7 then

		Debounce7 = true
		if pfolder.Gold.Value < 30000 then
			CyborgPart.Name = "Need more gold."
		elseif pfolder.Race.Value ~= "Fishman" then
			CyborgPart.Name = "Fishman's only loser!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce7 = false
		CyborgPart.Name = "Fishman Upgrade [30k Beli] [Level 5]"
	end
end)

local Debounce8 = false

workspace["Giant Upgrade [30k Beli] [Level 5]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce8 then
	 	CyborgPart = workspace["Giant Upgrade [30k Beli] [Level 5]"]
	end

	if pfolder.Gold.Value >= 30000 and pfolder.LVL.Value >= 5 and not Debounce8 and pfolder.Race.Value == "Giant" then
		Debounce8 = true
		CyborgPart.Name = "SPEEDY!"
		pfolder.Gold.Value = pfolder.Gold.Value - 30000
		pfolder.GiantUpgrade.Value = true
		wait(2)
		Debounce8 = false
		CyborgPart.Name = "Giant Upgrade [30k Beli] [Level 5]"
	elseif not Debounce8 then

		Debounce8 = true
		if pfolder.Gold.Value < 30000 then
			CyborgPart.Name = "Need more gold."
		elseif pfolder.Race.Value ~= "Giant" then
			CyborgPart.Name = "Giant's only loser!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce8 = false
		CyborgPart.Name = "Giant Upgrade [30k Beli] [Level 5]"
	end
end)
local Debounce9 = false

workspace["Giant Upgrade2 [40k Beli] [Level 10]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce9 then
	 	CyborgPart = workspace["Giant Upgrade2 [40k Beli] [Level 10]"]
	end

	if pfolder.Gold.Value >= 40000 and pfolder.LVL.Value >= 10 and not Debounce9 and pfolder.Race.Value == "Giant" then
		Debounce9 = true
		CyborgPart.Name = "SPEEDY!"
		pfolder.Gold.Value = pfolder.Gold.Value - 40000
		pfolder.GiantUpgrade.Value = true
		wait(2)
		Debounce9 = false
		CyborgPart.Name = "Giant Upgrade2 [40k Beli] [Level 10]"
	elseif not Debounce9 then

		Debounce9 = true
		if pfolder.Gold.Value < 40000 then
			CyborgPart.Name = "Need more gold."
		elseif pfolder.Race.Value ~= "Giant" then
			CyborgPart.Name = "Giant's only loser!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce9 = false
		CyborgPart.Name = "Giant Upgrade2 [40k Beli] [Level 10]"
	end
end)

local Debounce10 = false
workspace["Giant Sword Upgrade [20k Beli] [15k Bounty]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce10 then
	 	CyborgPart = workspace["Giant Sword Upgrade [20k Beli] [15k Bounty]"]
	end

	if pfolder.Gold.Value >= 20000 and pfolder.Bounty.Value >= 1500 and not Debounce10 and pfolder.Race.Value == "Giant" then
		Debounce10 = true
		CyborgPart.Name = "SPEEDY!"
		pfolder.Gold.Value = pfolder.Gold.Value - 20000
		pfolder.Bounty.Value = pfolder.Bounty.Value - 750
		pfolder.GiantCutlass.Value = true
		wait(2)
		Debounce10 = false
		CyborgPart.Name = "Giant Sword Upgrade [20k Beli] [15k Bounty]"
	elseif not Debounce10 then

		Debounce10 = true
		if pfolder.Gold.Value < 20000 then
			CyborgPart.Name = "Need more gold."
		elseif pfolder.Race.Value ~= "Giant" then
			CyborgPart.Name = "Giant's only loser!"
		elseif pfolder.Bounty.Value < 1500 then
			CyborgPart.Name = "YOU FOOLISH BEING, YOU NEED MORE BOUNTY! REEEEEEEEEEEEEEEEEEEEE!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce10 = false
		CyborgPart.Name = "Giant Sword Upgrade [20k Beli] [15k Bounty]"
	end
end)
local Debounce11 = false
workspace["Mink Upgrade [35k Beli] [Level 15]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce11 then
	 	CyborgPart = workspace["Mink Upgrade [35k Beli] [Level 15]"]
	end

	if pfolder.Gold.Value >= 3500 and pfolder.LVL.Value >= 15 and not Debounce11 and pfolder.Race.Value == "Mink" then
		Debounce11 = true
		CyborgPart.Name = "SPEEDY!"
		pfolder.Gold.Value = pfolder.Gold.Value - 35000
        pfolder.MinkUpgradee.Value = true
		wait(2)
		Debounce11 = false
		CyborgPart.Name = "Mink Upgrade [35k Beli] [Level 15]"
	elseif not Debounce11 then

		Debounce11 = true
		if pfolder.Gold.Value < 35000 then
			CyborgPart.Name = "Need more beli."
		elseif pfolder.Race.Value ~= "Mink" then
			CyborgPart.Name = "Mink's only loser!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce11 = false
		CyborgPart.Name = "Mink Upgrade [35k Beli] [Level 15]"
	end
end)
local Debounce12 = false
workspace["Dwarf Upgrade [20k Beli] [Level 5]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce12 then
	 	CyborgPart = workspace["Dwarf Upgrade [20k Beli] [Level 5]"]
	end

	if pfolder.Gold.Value >= 20000 and pfolder.LVL.Value >= 5 and not Debounce12 and pfolder.Race.Value == "Dwarf" then
		Debounce12 = true
		CyborgPart.Name = "SPEEDY!"
		pfolder.Gold.Value = pfolder.Gold.Value - 20000
		pfolder.DwarfUpgrade.Value = true
		wait(2)
		Debounce12 = false
		CyborgPart.Name = "Dwarf Upgrade [20k Beli] [Level 5]"
	elseif not Debounce12 then

		Debounce12 = true
		if pfolder.Gold.Value < 20000 then
			CyborgPart.Name = "Need more gold."
		elseif pfolder.Race.Value ~= "Dwarf" then
			CyborgPart.Name = "Dwarf's only loser!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce12 = false
		CyborgPart.Name = "Dwarf Upgrade [20k Beli] [Level 5]"
	end
end)
local Debounce13 = false
workspace["Dwarf Upgrade2 [40k Beli] [Level 10]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce13 then
	 	CyborgPart = workspace["Dwarf Upgrade2 [40k Beli] [Level 10]"]
	end

	if pfolder.Gold.Value >= 40000 and pfolder.LVL.Value >= 10 and not Debounce13 and pfolder.Race.Value == "Dwarf"  and pfolder.DwarfUpgrade.Value == true  then
		Debounce13 = true
		CyborgPart.Name = "SPEEDY!"
		pfolder.Gold.Value = pfolder.Gold.Value - 40000
		pfolder.DwarfUpgrade2.Value = true
		wait(2)
		Debounce13 = false
		CyborgPart.Name = "Dwarf Upgrade2 [40k Beli] [Level 10]"
	elseif not Debounce13 then

		Debounce13 = true
		if pfolder.Gold.Value < 40000 then
			CyborgPart.Name = "Need more gold."
		elseif pfolder.Race.Value ~= "Dwarf" then
			CyborgPart.Name = "Dwarf's only loser!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce13 = false
		CyborgPart.Name = "Dwarf Upgrade2 [40k Beli] [Level 10]"
	end
end)
local Debounce14 = false
workspace["Dwarf Upgrade3 [60k Beli] [Level 15]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce14 then
	 	CyborgPart = workspace["Dwarf Upgrade3 [60k Beli] [Level 15]"]
	end

	if pfolder.Gold.Value >= 60000 and pfolder.LVL.Value >= 15 and not Debounce14 and pfolder.Race.Value == "Dwarf"  and pfolder.DwarfUpgrade2.Value == true then
		Debounce14 = true
		CyborgPart.Name = "SPEEDY!"
		pfolder.Gold.Value = pfolder.Gold.Value - 60000
		pfolder.DwarfUpgrade3.Value = true
		wait(2)
		Debounce14 = false
		CyborgPart.Name = "Dwarf Upgrade3 [60k Beli] [Level 15]"
	elseif not Debounce13 then

		Debounce14 = true
		if pfolder.Gold.Value < 60000 then
			CyborgPart.Name = "Need more gold."
		elseif pfolder.Race.Value ~= "Dwarf" then
			CyborgPart.Name = "Dwarf's only loser!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce14 = false
		CyborgPart.Name = "Dwarf Upgrade3 [60k Beli] [Level 15]"
	end
end)
local Debounce15 = false
workspace["Giant Sword Upgrade2 [40k Beli] [30k Bounty]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce15 then
	 	CyborgPart = workspace["Giant Sword Upgrade2 [40k Beli] [30k Bounty]"]
	end

	if pfolder.Gold.Value >= 40000 and pfolder.Bounty.Value >= 3000 and not Debounce15 and pfolder.Race.Value == "Giant" then
		Debounce15 = true
		CyborgPart.Name = "SPEEDY!"
		pfolder.Gold.Value = pfolder.Gold.Value - 40000
		pfolder.Bounty.Value = pfolder.Bounty.Value - 1500
		pfolder.GiantCutlass2.Value = true
		wait(2)
		Debounce15 = false
		CyborgPart.Name = "Giant Sword Upgrade2 [40k Beli] [30k Bounty]"
	elseif not Debounce15 then

		Debounce15 = true
		if pfolder.Gold.Value < 40000 then
			CyborgPart.Name = "Need more gold."
		elseif pfolder.Race.Value ~= "Giant" then
			CyborgPart.Name = "Giant's only loser!"
		elseif pfolder.Bounty.Value < 1500 then
			CyborgPart.Name = "YOU FOOLISH BEING, YOU NEED MORE BOUNTY! REEEEEEEEEEEEEEEEEEEEE!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce15 = false
		CyborgPart.Name = "Giant Sword Upgrade2 [40k Beli] [30k Bounty]"
	end
end)

local Debounce16 = false

workspace["Skypiean Upgrade3 [60k Beli] [Level 15]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce16 then
	 	CyborgPart = workspace["Skypiean Upgrade3 [60k Beli] [Level 15]"]
	end

	if pfolder.Gold.Value >= 60000 and pfolder.LVL.Value >= 15 and not Debounce16 and pfolder.Race.Value == "Skypeian" and pfolder.SkypieanUpgrade2.Value == true then
		Debounce16 = true
		CyborgPart.Name = "Bounce!"
		pfolder.Gold.Value = pfolder.Gold.Value - 60000
		pfolder.SkypieanUpgrade3.Value = true
		wait(2)
		Debounce16 = false
		CyborgPart.Name = "Skypiean Upgrade3 [60k Beli] [Level 15]"
	elseif not Debounce16 then

		Debounce16 = true
		if pfolder.Gold.Value < 60000 then
			CyborgPart.Name = "Need more beli."
		elseif pfolder.Race.Value ~= "Skypeian" then
			CyborgPart.Name = "Skypeian's only loser!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce16 = false
		CyborgPart.Name = "Skypiean Upgrade3 [60k Beli] [Level 15]"
	end
end)

local Debounce17 = false
workspace["Giant Upgrade3 [60k Beli] [Level 15]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce17 then
	 	CyborgPart = workspace["Giant Upgrade3 [60k Beli] [Level 15]"]
	end

	if pfolder.Gold.Value >= 60000 and pfolder.LVL.Value >= 15 and not Debounce17 and pfolder.Race.Value == "Giant" then
		Debounce17 = true
		CyborgPart.Name = "REGENNNNN!"
		pfolder.Gold.Value = pfolder.Gold.Value - 60000
		pfolder.GiantUpgrade3.Value = true
		wait(2)
		Debounce17 = false
		CyborgPart.Name = "Giant Upgrade3 [60k Beli] [Level 15]"
	elseif not Debounce17 then

		Debounce17 = true
		if pfolder.Gold.Value < 60000 then
			CyborgPart.Name = "Need more gold."
		elseif pfolder.Race.Value ~= "Giant" then
			CyborgPart.Name = "Giant's only loser!"
		elseif pfolder.LVL.Value < 15 then
			CyborgPart.Name = "YOU FOOLISH BEING, YOU NEED MORE LVLS! REEEEEEEEEEEEEEEEEEEEE!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce17 = false
		CyborgPart.Name = "Giant Upgrade3 [60k Beli] [Level 15]"
	end
end)

local Debounce18 = false
workspace["Mink Upgrade 2 [60k Beli] [Level 25]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce18 then
	 	CyborgPart = workspace["Mink Upgrade 2 [60k Beli] [Level 25]"]
	end

	if pfolder.Gold.Value >= 60000 and pfolder.LVL.Value >= 25 and not Debounce18 and pfolder.Race.Value == "Mink" and pfolder.MinkUpgradee.Value == true then
		Debounce18 = true
		CyborgPart.Name = "the boy cried wolf"
		pfolder.Gold.Value = pfolder.Gold.Value - 60000
        pfolder.MinkUpgradee2.Value = true
		wait(2)
		Debounce18 = false
		CyborgPart.Name = "Mink Upgrade 2 [60k Beli] [Level 25]"
	elseif not Debounce18 then

		Debounce18 = true
		if pfolder.Gold.Value < 60000 then
			CyborgPart.Name = "Need more beli."
		elseif pfolder.Race.Value ~= "Mink" then
			CyborgPart.Name = "Mink's only loser!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce18 = false
		CyborgPart.Name = "Mink Upgrade 2 [60k Beli] [Level 25]"
	end
end)
local Debounce19 = false
workspace["Fishman Upgrade 2 [30k Beli] [Level 10]"].Head.ClickDetector.MouseClick:Connect(function(Plr)
	local pfolder = game.ServerStorage.PlayerFolders:WaitForChild(Plr.Name)
	local Skillsdab = game:GetService("HttpService"):JSONDecode(pfolder.Skills.Value)

	if not Debounce19 then
	 	CyborgPart = workspace["Fishman Upgrade 2 [30k Beli] [Level 10]"]
	end

	if pfolder.Gold.Value >= 30000 and pfolder.LVL.Value >= 10 and not Debounce19 and pfolder.Race.Value == "Fishman" then
		Debounce19 = true
		CyborgPart.Name = "Weak humans!"
		pfolder.Gold.Value = pfolder.Gold.Value - 30000
        pfolder.FishmanUpgrade2.Value = true
		wait(2)
		Debounce19 = false
		CyborgPart.Name = "Fishman Upgrade 2 [30k Beli] [Level 10]"
	elseif not Debounce19 then

		Debounce19 = true
		if pfolder.Gold.Value < 30000 then
			CyborgPart.Name = "Need more gold."
		elseif pfolder.Race.Value ~= "Fishman" then
			CyborgPart.Name = "Fishman's only loser!"
		else
			CyborgPart.Name = "Need higher level."
		end

		wait(2)
		Debounce19 = false
		CyborgPart.Name = "Fishman Upgrade 2 [30k Beli] [Level 10]"
	end
end)