*UPDATED* Fray Unlock All, Crates, and Credits

-- run this script and press f9 to open the console to see the status

-- if you get kicked, change the eventDelay variable at the top to .5 or so, but this will make it take longer

-- what this does by default:
-- 50 legendary crates,
-- 5000 credits
-- all weapons unlocked
-- all streaks unlocked
-- all camos unlocked

-- how to use:
-- join the main menu, run this script, and don't touch anything other than f9 until it's done

-- updated 10/22/18
-- 8:59 pm







local ReplicatedStorage = game:GetService('ReplicatedStorage')
local Players = game:GetService('Players')

local player = Players.LocalPlayer
local events = {}
for i, event in next, ReplicatedStorage.Events:GetChildren() do
	events[event.Name] = event
end

local maxCredits = 500
local maxCrates = 1
local eventDelay = .4 -- change this to .5 or so if you're missing items at the price of speed
local calls = 0

local initialize

local function getInitialize()
	if getnilinstances then
		for i, v in next, getnilinstances() do
			if v:FindFirstChild('ServerTime') then
				return require(v:Clone()).Initialize
			end
		end
	else
		return function()
			local f = Workspace.Terrain:FindFirstChild('BrightnessCoefficient')
			if f then
				return math.floor(100000000 * (f.Value - 55) ^ .1943)
			end
		end
	end

	error('Failed to get Initialize')
end

local function getKey()
	if not initialize then
		initialize = getInitialize()
	end

	calls = calls + 1
	return initialize(calls)
end

local function giveCredits(amount)
	events.ChangeData:FireServer(player.Data.Credits, player.Data.Credits.Value + amount, getKey(), amount + 1)
	wait(eventDelay)
end

local function giveCrate(_type)
	local crate = 'Free' .. _type
	events.ChangeData:FireServer(player.Data[crate], player.Data[crate].Value + 1, getKey(), 2)
	wait(eventDelay)
end

local function earlyUnlock(name)
	events.ChangeData:FireServer(player.Data.EarlyUnlocks, player.Data.EarlyUnlocks.Value .. name, getKey())
	wait(eventDelay)
end

local function unlockCamo(weapon, name)
	events.ChangeData:FireServer(player.WeaponData[weapon].Items, player.WeaponData[weapon].Items.Value .. name, getKey())
	wait(eventDelay)
end

local perks = {
	'Munition Expert',
	'Nickle-back', -- doesn't save, probably a game bug
	'Overclock',
	'Focused',
	'Longblade',
	'Extra Security',
	'Starved Arms',
	'False Security',
	'Tagged',
	'Bottomless Pockets',
	'Depreciation',
	'Good Credit',
	'Armed & Dangerous',
	'Hollow Bones',
	'Time Stopper',
	'Classified',
	'Armored',
	'Shadow',
}

local streaks = {
	'UAV',
	'CounterUAV',
	'Advanced UAV',
	'Anti Air',
	'Carpet Bomber',
	'Attack Drone',
	'A10',
	'AGV',
	'Orbital Strike'
}

--[[
by default, this script does the following:
	50 legendary crates,
	5000 credits
	all weapons unlocked
	all streaks unlocked
	all camos unlocked
]]

-- crates
local amount = 50
local done = 0
for i = 1, amount / maxCrates do
	giveCrate('Legendary')
	done = done + maxCrates
	print('Crates ' .. done .. '/' .. amount)
end
print('Gave ' .. amount .. ' Crates')

-- credits
amount = 5000
done = 0
for i = 1, amount / maxCredits do
	giveCredits(maxCredits)
	done = done + maxCredits
	print('Credits ' .. done .. '/' .. amount)
end
print('Gave ' .. amount .. ' Credits')

local weapons = {unpack(ReplicatedStorage.Weapons:GetChildren())}
for i, weapon in next, weapons do
	earlyUnlock(weapon.Name)
	print('Weapon (' .. i .. '/' .. #weapons .. ')')
end
print('Unlocked Weapons')

-- streaks
for i, streak in next, streaks do
	earlyUnlock(streak)
	print('Streak (' .. i .. '/' .. #streaks .. ')')
end
print('Unlocked Streaks')

-- perks
for i, perk in next, perks do
	earlyUnlock(perk)
	print('Perk (' .. i .. '/' .. #perks .. ')')
end
print('Unlocked Perks')

-- camos
local camos = {unpack(ReplicatedStorage.Camos:GetChildren())}
local weapons = {unpack(player.WeaponData:GetChildren())}
for i, camo in next, camos do
	for z, weapon in next, weapons do
		unlockCamo(weapon.Name, camo.Name)
	end
	print('Camo (' .. i .. '/' .. #camos .. ')')
end
print('Unlocked Camos')