-- It is very important to consider all cases for arguments, as the client can send anything for arguments via exploit.
-- Pretty much just return false for requests with invalid arguments.

-- search "OVH" for overhaul notes
-- search "PDL" and also look for other potential pokemon data leaks
--   todo: search all instances of Pokemon:new on server, ensure PlayerData is included in call
--         destroy Pokemon objects where appropriate

-- OVH  remove rc4 as much as possible on server side
local _f = require(script.Parent)

local PlayerData, PC
local PlayerDataByPlayer = {}--setmetatable({}, {__mode = 'k'})
local function onPlayerEnter(player)
	if not player or not player:IsA('Player') or PlayerDataByPlayer[player] then return end
	local pd = PlayerData:new(player)
	PlayerDataByPlayer[player] = pd
end

local network = _f.Network
local context = _f.Context

local publicFns = {
	getContinueScreenInfo = true,
	continueGame          = true,
	startNewGame          = true,
	saveGame              = true,
	completeEvent         = true,

	getStarterData        = true,
	buyStarter            = true,
	buyAshGreninja        = true,
	roStatus              = true,

	getParty              = true,
	getPartyPokeBalls     = true,
	getPokemonSummary     = true,
	getCutter             = true,
	getDigger             = true,
	getHeadbutter         = true,
	getSmasher            = true,
	getClimber            = true,
	getHappiness          = true,

	getDex                = true,
	getCardInfo           = true,

	getBagPouch           = true,
	getTMs                = true,
	getBattleBag          = true,
	useItem               = true,
	giveItem              = true,
	takeItem              = true,
	tossItem              = true,
	teachTM               = true,
	obtainItem            = true,

	deleteMove            = true,
	remindMove            = true,
	getShop               = true,
	maxBuy                = true,
	buyItem               = true,
	bMaxBuy               = true,
	buyWithBP             = true,
	sellItem              = true,

	makeDecision          = true,
	openPC                = true,
	cPC                   = true,
	closePC               = true,

	getDCPhrase           = true,
	takeEgg               = true,
	getDCInfo             = true,
	leaveDCPokemon        = true,
	takeDCPokemon         = true,

	countBatteries        = true,
	hasFossil             = true,
	reviveFossil          = true,
	dive                  = true,
	nextDig               = true,
	finishDig             = true,

	nSpins                = true,
	spinForStamp          = true,
	stampInventory        = true,
	setStamps             = true,

	hasOKS                = true,
	hasSTP                = true,
	hasFlute              = true,
	hasRTM                = true,
	hasJKey               = true,
	getHoneyData          = true,
	getHoney              = true,
	isDinWM               = true,
	isTinD                = true,
	buySushi              = true,
	getGreenhouseState    = true,
	giveEkans             = true,
	motorize              = true,
	buyTicket 			  = true,
	giveTicketItems       = true,

	hover                 = true,
	setHoverboard         = true,
	ownsHoverboard        = true,
	purchaseHoverboard    = true,

	getWtrOp              = true, -- get water options (Surf/Old Rod/etc.)

	-- debug
	pdc = true
}
local publicEvents = {
	chooseName            = true,
	completedEggCycle     = true,
	rearrangeParty        = true,
	keepEgg               = true,
	resetFishStreak       = true,
	slatherHoney          = true,
	purchaseRoPower       = true,
	unhover               = true,
}
network:bindFunction('PDS', function(player, fnName, ...)
	if not publicFns[fnName] then network.GenerateReport(player, 'attempted to call PDS function "'..tostring(fnName)..'"') return end
	local pd = PlayerDataByPlayer[player]
	if not pd then
		-- uh, we should have created PlayerData for this player... what happened?
		error(player.Name .. ' has no Player Data')
	end
	return pd[fnName](pd, ...)
end)
network:bindEvent('PDS', function(player, fnName, ...)
	if not publicEvents[fnName] then network.GenerateReport(player, 'attempted to call PDS event "'..tostring(fnName)..'"') return end
	local pd = PlayerDataByPlayer[player]
	if not pd then
		-- uh, we should have created PlayerData for this player... what happened?
		error(player.Name .. ' has no Player Data')
	end
	pd[fnName](pd, ...)
end)


local storage = game:GetService('ServerStorage')
local Utilities = _f.Utilities
local BitBuffer = _f.BitBuffer--require(storage.Plugins.BitBuffer)
local Region = require(storage.Plugins.Region)
local Assets = require(storage.src.Assets) -- for game passes
local UsableItemsClient = require(storage.src.UsableItemsClient)() -- note: nothing passed for _p
local RoamingPokemon = require(storage.Data.Chunks).roamingEncounter

local MAX_MONEY = 9999999
local MAX_BP = 9999
local RO_POWER_EFFECT_DURATION = 60 * 60

local RUN_FULL_CHECK = false

PlayerData = Utilities.class({
	className = 'ServerPlayerData',
	gameBegan = false,
	trainerName = '',
	pokedex = '',
	money = 0,
	bp = 0,
	obtainedItems = '',
	tms = '',
	hms = '',
	defeatedTrainers = '',
	expShareOn = false,
	lcht = 0,
	lastDrifloonEncounterWeek = 0,
	lastTrubbishEncounterWeek = 0,
	lastHoneyGivenDay = 0,
	fishingStreak = 0,
	starterType = '',
	stampSpins = 0,
	currentHoverboard = '',

}, function(player)
	local self = {
		player = player,
		userId = player.UserId,
		trainerName = player.Name, -- temporary/backup
		pc = PC:new(),
		party = {},
		bag = {{},{},{},{},{}}, -- Items, Medicine, Poke Balls, Berries, Key Items
		badges = {},
		completedEvents = {},
		daycare = {
			depositedPokemon = {},
			manHasEgg = false
		},
		ownedGamePassCache = {},
		rtick = tick()%1,
		roPowers = {
			     powerLevel = {0, 0, 0, 0, 0, 0, 0},
			lastPurchasedAt = {0, 0, 0, 0, 0, 0, 0}
		},
		flags = {}, -- for indicating that the player is allowed to do certain tasks
		lastCompletedEggCycle = tick(),
--		eggCycleAbuseReports = 0, -- limit these per session
		decision_data = {},
		decision_count = 0,
		starterProductStack = {},
		ashGreninjaProductStack = {}, -- todo: unify this with the starter purchase system
		hoverboardProductStack = {},
		lottoticketProductStack = {},
		pbStamps = {},
		ownedHoverboards = {},
	}
	setmetatable(self, PlayerData)
	-- cache player save data as soon as possible
	Utilities.fastSpawn(PlayerData.getSaveData, self)
	-- cache owned game passes for quicker lookup
	if self.userId > 0 then
		Utilities.fastSpawn(function()
			for _, passId in pairs(Assets.passId) do
				self:ownsGamePass(passId)
			end
		end)
	end
	return self
end)

function PlayerData:random(x, y)
	local r = (math.random()+self.rtick)%1
	if x and y then
		return math.floor(x + (y+1-x)*r)
	elseif x then
		return math.floor(1 + x*r)
	end
	return r
end
function PlayerData:random2(x, y)
	local r = (math.random()-self.rtick+1)%1
	if x and y then
		return math.floor(x + (y+1-x)*r)
	elseif x then
		return math.floor(1 + x*r)
	end
	return r
end


function PlayerData:check() end -- OVH  todo


function PlayerData:isInBattle()
	return _f.BattleEngine:getBattleSideForPlayer(self.player) ~= nil
end

function PlayerData:isInTrade()
	return _f.TradeManager:playerIsInTrade(self.player)
end

function PlayerData:getParty(context)
	-- check for open battles involving this player
	--  party order may change, hp, etc.
	local battleSide = _f.BattleEngine:getBattleSideForPlayer(self.player)
	local battleParty
	if battleSide then
		battleParty = battleSide.pokemon
		-- 2v2
		if battleSide.isTwoPlayerSide and battleSide.battle.is2v2 then
			local lp = battleSide.battle.listeningPlayers
			local teamn = (lp[battleSide.id]==self.player) and 1 or 2
--			local indexOffset = (teamn==2) and battleSide.nPokemonFromTeam1 or 0
			local party = {}
			for _, battlePokemon in pairs(battleSide.pokemon) do
				if battlePokemon.teamn == teamn then
					table.insert(party, self.party[battlePokemon.originalPartyIndex]:getPartyData(battlePokemon, context))
				end
			end
			return party
		end
		--
	end

	local party = {0, 0, 0, 0, 0, 0} -- placeholders
	for i, pokemon in ipairs(self.party) do
		if battleParty then
			local battlePokemon
			for _, p in pairs(battleParty) do
				if p.index == i then
					battlePokemon = p
					break
				end
			end
			if battlePokemon then
				party[battlePokemon.position] = pokemon:getPartyData(battlePokemon, context)
			end
		else
			party[i] = pokemon:getPartyData({}, context)
		end
	end
	for i = 6, 1, -1 do
		if party[i] == 0 then
			table.remove(party, i)
		end
	end
	return party
end

function PlayerData:getPartyPokeBalls()
	-- we also (discretely) heal here
	self:heal()
	local balls = {}
	for _, p in pairs(self.party) do
		if not p.egg then
			table.insert(balls, p.pokeball or 1)
		end
	end
	return balls
end

function PlayerData:getPokemonSummary(index)
	local battleSide = _f.BattleEngine:getBattleSideForPlayer(self.player)
	local pokemon, battlePokemon
	if battleSide then
		-- 2v2
		if battleSide.isTwoPlayerSide and battleSide.battle.is2v2 then
			local lp = battleSide.battle.listeningPlayers
			local teamn = (lp[battleSide.id]==self.player) and 1 or 2
--			local indexOffset = (teamn==2) and battleSide.nPokemonFromTeam1 or 0
			for _, battlePokemon in pairs(battleSide.pokemon) do
				if battlePokemon.teamn == teamn then
					index = index - 1
					if index == 0 then
--					if battlePokemon.index == index then
						return self.party[battlePokemon.originalPartyIndex]:getSummary(battlePokemon)
					end
				end
			end
			return nil
		end
		--
		battlePokemon = battleSide.pokemon[index]
		pokemon = self.party[battlePokemon.index]
	else
		pokemon = self.party[index]
	end
	if not pokemon then return end
	return pokemon:getSummary(battlePokemon or {})
end

function PlayerData:getMoveUser(moveId)
	for _, p in pairs(self.party) do
		if not p.egg then
			for _, m in pairs(p.moves) do
				if m.id == moveId then
					return p:getName()
				end
			end
		end
	end
end
function PlayerData:getCutter()
	if not self.badges[1] then return end
	return self:getMoveUser('cut')
end
function PlayerData:getDigger()
	return self:getMoveUser('dig')
end
function PlayerData:getHeadbutter()
	return self:getMoveUser('headbutt')
end
local rockSmashEncounter
function PlayerData:getSmasher()
	if not self.badges[5] then return end
	local pName = self:getMoveUser('rocksmash')
	if pName then
		local model = storage.Models.BrokenRock:Clone()
		model.Parent = self.player:WaitForChild('PlayerGui')
		local enc
		if self:random2(3) == 2 then
			if not rockSmashEncounter then
				rockSmashEncounter = require(storage.Data.Chunks).rockSmashEncounter
			end
			enc = rockSmashEncounter
		end
		return pName, model, enc
	end
end
function PlayerData:getClimber()
	if not self.badges[6] then return end
	return self:getMoveUser('rockclimb')
end

function PlayerData:getHappiness()
	local p = self:getFirstNonEgg()
	if not p then return end
	local h = p.happiness
	local n = 'Your '..p.name..'...'
	if h >= 255 then
		return {n, 'It\'s extremely friendly toward you.', 'It couldn\'t possibly love you more.', 'It\'s a pleasure to see!'}
	elseif h >= 200 then
		return {n, 'It seems to be very happy.', 'It\'s obviously friendly toward you.'}
	elseif h >= 150 then
		return {n, 'It\'s quite friendly toward you.', 'It seems to want to be babied a little.'}
	elseif h >= 100 then
		return {n, 'It\'s getting used to you.', 'It seems to believe in you.'}
	elseif h >= 50 then
		return {n, 'It\'s not very used to you yet.', 'It neither loves nor hates you.'}
	elseif h > 0 then
		return {n, 'It\'s very wary.', 'It has a scary look in its eyes.', 'It doesn\'t like you much at all.'}
	end
	return {n, 'This is a little hard for me to say...', 'Your pokemon simply detests you.', 'Doesn\'t that make you uncomfortable?'}
end

function PlayerData:getDex()
	return self.pokedex
end

function PlayerData:getCardInfo()
	return {
		name = self.trainerName,
		dex = select(2, self:countSeenAndOwnedPokemon()),
		badges = Utilities.map({1,2,3,4,5,6,7,8}, function(i) return self.badges[i] and 1 or 0 end),
		money = self.money,
		bp = self.bp
	}
end

function PlayerData:chooseName(tName)
	self.trainerName = tName
end

function PlayerData:getBattleTeam(ignoreHPState, teamPreviewOrder) -- todo: connect team preview
	if ignoreHPState and teamPreviewOrder then
		local team = {}
		for teamIndex, partyIndex in pairs(teamPreviewOrder) do
			team[teamIndex] = self.party[partyIndex]:getBattleData(true)
		end
		return team
	end

	local team = {}
	local fainted = {}
	for _, p in pairs(self.party) do
		local d = p:getBattleData(ignoreHPState)
		if (ignoreHPState or p.hp > 0) and not p.egg then
			table.insert(team, d)
		else
			table.insert(fainted, d)
		end
	end
	assert(#team > 0, 'No healthy Pokemon')
	for _, d in pairs(fainted) do
		table.insert(team, d)
	end
	return team
end

function PlayerData:newPokemon(data)
	return _f.ServerPokemon:new(data, self)
end

function PlayerData:startNewGame()
	if self.gameBegan then --[[ERROR]] return false end
	self.gameBegan = true

	self:onGameBegin()
end

function PlayerData:continueGame()
	if self.gameBegan then --[[ERROR]] return false end
	local data, pcData = self:getSaveData()
	if not data then --[[ERROR]] return false end
	self.gameBegan = true
	self.loadedData = nil -- remove cached data

	local etc = self:deserialize(data)
	if pcData then
		self:PC_deserialize(pcData)
	end
	self:onGameBegin()
	return true, etc
end

function PlayerData:onGameBegin()
	if self.gameBeganExtras then return end -- dispatch once
	self.gameBeganExtras = true
	-- cache game passes that may have been deleted (but the player has the key item for them still)
	-- or, if they own the pass but not the key item, give them the key item
	for _, passName in pairs({'ShinyCharm', 'AbilityCharm', 'OvalCharm'}) do
		local itemId = passName:lower()
		if self:getBagDataById(itemId, 5) then
			self.ownedGamePassCache[Assets.passId[passName] ] = true
		elseif self.ownedGamePassCache[Assets.passId[passName] ] then
			self:addBagItems({id = itemId, quantity = 1})
		end
	end
	-- the following passes have a special function to run when purchased, activate them
	for _, passName in pairs({'ExpShare', 'MoreBoxes'}) do
		local passId = Assets.passId[passName]
		if self.ownedGamePassCache[passId] then
			self:onAssetPurchased(passId)
		end
	end
	-- let the player know what these initial values are
	local firstNonEgg = self:getFirstNonEgg()
	if firstNonEgg then
		_f.Network:post('PDChanged', self.player,
			'firstNonEggLevel', firstNonEgg.level,
			'firstNonEggAbility', firstNonEgg:getAbilityName(),
			'money', self.money,
			'bp', self.bp)
	end
	-- etc.
	self:checkForHatchables(true)
	self:updatePlayerListEntry()
end

local shopProducts = {
	[Assets.productId.MasterBall] = {id = 'masterball', icon = 87619102}
}
function PlayerData:onDevProductPurchased(id) -- todo: make processreceipt return a response based on this function's response
	if not id then return end
	local attemptAutosave = false
	-- Starter Product
	if id == Assets.productId.Starter then
		local s = self.starterProductStack
		if #s > 0 then
			table.remove(s, #s)()
		end
	-- Ash-Greninja
	elseif id == Assets.productId.AshGreninja then
		local s = self.ashGreninjaProductStack
		if #s > 0 then
			table.remove(s, #s)()
		end
	-- Hoverboard
	elseif id == Assets.productId.Hoverboard then
		local s = self.hoverboardProductStack
		if #s > 0 then
			table.remove(s, #s)()
		end
	-- Lotto Ticket
	elseif id == Assets.productId.LottoTicket then
		local s = self.lottoticketProductStack
		if #s > 0 then
			table.remove(s, #s)()
		end
	-- BP Products
	elseif id == Assets.productId.TenBP then
		self:addBP(10, true, true)
	elseif id == Assets.productId.FiftyBP then
		self:addBP(50, true, true)
	-- UMV Batter Products
	elseif id == Assets.productId.UMV1 then
		self:addBagItems({id = 'umvbattery', quantity = 6})
	elseif id == Assets.productId.UMV3 then
		self:addBagItems({id = 'umvbattery', quantity = 6})
	elseif id == Assets.productId.UMV6 then
		self:addBagItems({id = 'umvbattery', quantity = 6})
	-- Money Products
	elseif id == Assets.productId._10kP then
		self:addMoney(10000, true)
	elseif id == Assets.productId._50kP then
		self:addMoney(50000, true)
	elseif id == Assets.productId._100kP then
		self:addMoney(100000, true)
	elseif id == Assets.productId._200kP then
		self:addMoney(200000, true)
	-- Stamp Spinner Products
	elseif id == Assets.productId.PBSpins1 then
		self.stampSpins = math.min(999, self.stampSpins + 5)
		_f.Network:post('uPBSpins', self.player, self.stampSpins)
		attemptAutosave = true
	elseif id == Assets.productId.PBSpins5 then
		self.stampSpins = math.min(999, self.stampSpins + 10)
		_f.Network:post('uPBSpins', self.player, self.stampSpins)
		attemptAutosave = true
	elseif id == Assets.productId.PBSpins10 then
		self.stampSpins = math.min(999, self.stampSpins + 50)
		_f.Network:post('uPBSpins', self.player, self.stampSpins)
		attemptAutosave = true
	else
	-- Shop Products
		local shopItem = shopProducts[id]
		if shopItem then
			local item = _f.Database.ItemById[shopItem.id]
			self:addBagItems({num = item.num, quantity = shopItem.qty or 1})
			_f.Network:post('ItemProductPurchased', self.player, item.name, shopItem.icon)
		else
	-- RO-Power Products
			for g, list in pairs(Assets.productId.RoPowers) do
				for l, pId in pairs(list) do
					if pId == id then
--						print('RO POWER PURCHASED')
						_f.Network:post('rpActivate', self.player, g, l, RO_POWER_EFFECT_DURATION)
						self:ROPowers_setTimePurchasedAndLevelForPower(g, os.time(), l)
--						-- auto-save just the ro-power data
						self:ROPowers_save()
--						local s = pcall(function()
--							local buffer = BitBuffer.Create()
--							for i = 1, 7 do
--								buffer:WriteBool(self.roPowers.powerLevel[i] == 2)
--								buffer:WriteFloat64(self.roPowers.lastPurchasedAt[i])
--							end
--							_f.DataPersistence.ROPowerSave(self.player, 'save', buffer:ToBase64())
--						end)
--						if not s then warn('RO-Power autosave failed') end
						--
						break
					end
				end
			end
		end
	end
	if attemptAutosave then
		-- attempt an autosave of the received stamp & used spin
		spawn(function()
			if self.lastSaveEtc then
				self:saveGame(self.lastSaveEtc)
			end
		end)
	end
end

function PlayerData:onAssetPurchased(id) -- keep in mind this will be called at least once every session after the pass is purchased (protect it from multi-awarding)
	if id == Assets.passId.ExpShare then
		if not self:getBagDataById('expshare', 5) then
			self:addBagItems({id = 'expshare', quantity = 1})
			_f.Network:post('PDChanged', self.player, 'expShareOn', true) -- when initially given, automatically turn it on
		end
	elseif id == Assets.passId.MoreBoxes then
		if self.pc.maxBoxes == 8 then
			self.pc.maxBoxes = 50
			_f.Network:post('PCPassPurchased', self.player)
		end
	end
end

function PlayerData:completeEvent(eventName, ...)
	if self.completedEvents[eventName] then return false end
	local event = _f.PlayerEvents[eventName]
	if not event then return false end
	local r = event
	local pseudo = false -- pseudo-events do not store to PlayerData
	if type(event) == 'function' then
		r = event(self, ...)
	elseif type(event) == 'table' then
		if event.manual then return false end
		if event.pseudo then pseudo = true end
		if event.callback then
			r = event.callback(self, ...)
		end
		-- todo: continue to fill cases
	end
	if r ~= false and not pseudo then
		self.completedEvents[eventName] = true
	end
	return r
end

function PlayerData:completeEventServer(eventName, ...)
	if self.completedEvents[eventName] then return false end
	local event = _f.PlayerEvents[eventName]
	if event == nil then return false end
	local r = event
	if type(event) == 'function' then
		r = event(self, ...)
	elseif type(event) == 'table' then
		-- todo: other cases where server is concerned with the data in the table
		if type(event.pseudo) == 'function' and event.pseudo(self) then return false end
		if event.callback then
			r = event.callback(self, ...)
		end
	elseif r == false then
		r = nil
	end
	if r ~= false then
		self.completedEvents[eventName] = true
		_f.Network:post('eventCompleted', self.player, eventName) -- notify client
	end
	return r
end

function PlayerData:giveStoryAbsol(slot)
	local hadSeenAbsol  = self:hasSeenPokemon( 359)
	local hadOwnedAbsol = self:hasOwnedPokemon(359)
	local absol = self:newPokemon {
		name = 'Absol',
	    level = 60,
		shinyChance = 40,
		item = 534,-- Absolite
		moves = {{id = 'nightslash'},{id = 'psychocut'},{id = 'megahorn'},{id = 'detect'}}
	}
	local box, position
	if slot then
		box, position = self:PC_sendToStore(table.remove(self.party, slot), true)
	end
	table.insert(self.party, 1, absol)
	self:onOwnPokemon(359)
	self.absolMeta = {
		slot = slot, box = box, position = position,
		seen = hadSeenAbsol,
		owned = hadOwnedAbsol
	}
end

function PlayerData:undoGiveStoryAbsol()
	self:incrementBagItem('megakeystone', -1)
	self.flags.gotAbsol = nil
	if self.party[1].name == 'Absol' then
		table.remove(self.party, 1)
	end
	local meta = self.absolMeta
	if not meta then return end
	self.absolMeta = nil
	local slot, box, position = meta.slot, meta.box, meta.position
	if slot and box and position then
		table.insert(self.party, slot, _f.ServerPokemon:deserialize(self.pc.boxes[box][position][3], self))
		self.pc.boxes[box][position] = nil
	end
	if not meta.seen  then self:unseePokemon(359) end
	if not meta.owned then self:unownPokemon(359) end
end

function PlayerData:getStarterData()
	local starters = {} do
		for i, v in pairs({ -- starters are listed in 3 places: here, PlayerData:buyStarter (just below), and PlayerEvents.ChooseFirstPokemon
			'Bulbasaur', 'Charmander', 'Squirtle',
			'Chikorita', 'Cyndaquil',  'Totodile',
			'Treecko',   'Torchic',    'Mudkip',
			'Turtwig',   'Chimchar',   'Piplup',
			'Snivy',     'Tepig',      'Oshawott',
			'Chespin',   'Fennekin',   'Froakie',
			'Rowlet',    'Litten',     'Popplio',
		}) do
			starters[i] = {v, _f.Database.GifData._FRONT[v]}
		end
	end
	return starters
end

function PlayerData:buyStarter(species)
	local valid = {
		Bulbasaur = true, Charmander = true, Squirtle = true,
		Chikorita = true, Cyndaquil  = true, Totodile = true,
		Treecko   = true, Torchic    = true, Mudkip   = true,
		Turtwig   = true, Chimchar   = true, Piplup   = true,
		Snivy     = true, Tepig      = true, Oshawott = true,
		Chespin   = true, Fennekin   = true, Froakie  = true,
		Rowlet    = true, Litten     = true, Popplio  = true,
	}
	if not species or not valid[species] then return false end
	local sendToPC = false
	local processed = false
	local pokemon
	table.insert(self.starterProductStack, function()
		if processed then return end
		processed = true
		pokemon = self:newPokemon {
			name = species,
			level = 5,
			shinyChance = 2,
		}
		if sendToPC then
			self:PC_sendToStore(pokemon)
			return
		end
		-- defer storage until after nickname
	end)
	game:GetService('MarketplaceService'):PromptProductPurchase(self.player, Assets.productId.Starter)
	for i = 1, 40 do
		wait(.5)
		if processed then break end
	end
	if not processed then
		-- timed out
		sendToPC = true
		return 'to'
	end
	if pokemon then
		return {
			d = self:createDecision {
				callback = function(_, nickname)
					if type(nickname) == 'string' then
						pokemon:giveNickname(nickname)
					end
					local box = self:caughtPokemon(pokemon)
					if box then
						return pokemon:getName() .. ' has been transferred to Box ' .. box .. '!'
					end
				end
			},
			i = pokemon:getIcon(),
			s = pokemon.shiny
		}
	end
	-- is there a condition that reaches here?
end

function PlayerData:buyAshGreninja()
	if #self.party > 5 then return 'fp' end
	local sendToPC = false
	local processed = false
	local pokemon
	table.insert(self.ashGreninjaProductStack, function()
		if processed then return end
		processed = true
		pokemon = self:newPokemon {
			name = 'Greninja',
			forme = 'bb',
			level = 36,
			shinyChance = 1024,
			ot = 12301,
			moves = {
				{id = 'watershuriken'},{id = 'aerialace'},
				{id = 'doubleteam'},   {id = 'nightslash'}
			}
		}
		if sendToPC then
			-- processed after timeout, store without nicknaming
			self:PC_sendToStore(pokemon)
			return
		end
		-- defer storage until after nickname
	end)
	game:GetService('MarketplaceService'):PromptProductPurchase(self.player, Assets.productId.AshGreninja)
	for i = 1, 40 do
		wait(.5)
		if processed then break end
	end
	if not processed then
		-- timed out
		sendToPC = true
		return 'to'
	end
	if pokemon then
		return {
			d = self:createDecision {
				callback = function(_, nickname)
					if type(nickname) == 'string' then
						pokemon:giveNickname(nickname)
					end
					local box = self:caughtPokemon(pokemon)
					if box then
						return pokemon:getName() .. ' has been transferred to Box ' .. box .. '!'
					end
				end
			},
			i = pokemon:getIcon(),
			s = pokemon.shiny
		}
	end
end

function PlayerData:completedEggCycle()
	-- my fastest egg step completion was approx. 39.4 sec
	-- THIS MAY NO LONGER BE THE CASE WHEN WE RELEASE HOVERBOARDS
	-- reject & report anything faster than 30 seconds
	local now = tick()
	local duration = tick()-self.lastCompletedEggCycle
	local maxStepTime = (self.currentHoverboard~='' and self.hoverboardModel) and (self.currentHoverboard:sub(1,6)=='Basic ' and 20 or 15) or 30
	if duration < maxStepTime then--30 then
		-- TODO
		return
	end
	self.lastCompletedEggCycle = now

	local party = self.party
	self:Daycare_tryBreed()
	local reduceBy = 1
	for _, p in pairs(party) do
		local a = p:getAbilityName()
		if not p.egg and (a == 'Flame Body' or a == 'Magma Armor') then
			reduceBy = 2
			break
		end
	end
	reduceBy = reduceBy * (1 + self:ROPowers_getPowerLevel(2))
	for _, p in pairs(party) do
		if p.egg then
			if not p.fossilEgg then
				p.eggCycles = p.eggCycles - reduceBy
			end
		else
			p:addHappiness(2, 2, 1)
		end
	end
	self:checkForHatchables()
	-- add 256 Exp. to Pokemon in the Day Care
	for _, p in pairs(self.daycare.depositedPokemon) do
		p.experience = p.experience + 256
	end
end

function PlayerData:rearrangeParty(indices)
	if self:isInBattle() then return end
	local nParty = #self.party
	if #indices ~= nParty then return end
	local ii = {}
	local vv = {}
	for i, v in pairs(indices) do
		if type(i) ~= 'number' or i > nParty or type(v) ~= 'number' or v > nParty then return end
		if ii[i] or vv[v] then return end -- clone attempt
		ii[i] = true
		vv[v] = true
	end
	for i = 1, nParty do if not ii[i] or not vv[i] then return end end
	local party = {}
	for i = 1, nParty do
		party[i] = self.party[indices[i]]
	end
	self.party = party
	local firstNonEgg = self:getFirstNonEgg()
	_f.Network:post('PDChanged', self.player, 'firstNonEggLevel', firstNonEgg.level,
		'firstNonEggAbility', firstNonEgg:getAbilityName())
end

function PlayerData:getBattleBag()
	if not self:isInBattle() then return end
	local bags = {{},{},{}}
	for n = 1, 4 do
		for _, bd in pairs(self.bag[n]) do
			local item = _f.Database.ItemByNumber[bd.num]
			if item and item.battleCategory then
				table.insert(bags[item.battleCategory], {
					id = item.id,
					name = item.name,
					icon = item.icon or item.num,
					qty = bd.quantity,
					desc = item.desc,
					bUse = item.isPokeball or type(item.onUse) == 'function',
					bCat = item.battleCategory
				})
			end
		end
	end
	return bags
end

function PlayerData:getBagDataForTransfer(item, bd, context) -- helper function
	local itemId = item.id
	local canUse
	local usableItemClient = UsableItemsClient[itemId]
	if not usableItemClient or not usableItemClient.canUse then
		local usableItemServer = _f.UsableItems[itemId]
		if usableItemServer then
			local s_canUse = usableItemServer.canUse
			if s_canUse then
				if type(s_canUse) == 'function' then
					canUse = {}
					for i, p in pairs(self.party) do
						canUse[tostring(i)] = s_canUse(p) -- stupid table limitations...
					end
				else
					canUse = s_canUse
				end
			end
		end
	end
	return {
		id = itemId,
		name = item.name,
		icon = item.icon or item.num,
		qty = (item.bagCategory~=5 or item.showsQuantity) and bd.quantity or nil,
		desc = item.desc,
		canUse = canUse, -- true or false or a table of true/false (1 for each pokemon in party)
		-- ^ exists when UsableItemsServer has a canUse function but UsableItemsClient doesn't

		sell = (context=='sell' and item.sellPrice or nil),
	}
end

function PlayerData:getBagPouch(n, context)
	local pouch = {}
	local count = 0
	for _, bd in pairs(self.bag[n]) do
		local item = _f.Database.ItemByNumber[bd.num]
		count = count + 1
		pouch[count] = self:getBagDataForTransfer(item, bd, context)
	end
	return pouch
end

function PlayerData:getTMs()
	local list = {}

	local partyKnownMoves = {}
	local partyLearnedMachines = {}
	for i, p in pairs(self.party) do
		local k = {}
		local l = {}
		if not p.egg then
			for _, move in pairs(p:getMoves()) do
				k[move.num] = true
			end
			pcall(function()
				for _, num in pairs(p:getLearnedMoves().machine) do
					l[num] = true
				end
			end)
		end
		partyKnownMoves[i] = k
		partyLearnedMachines[i] = l
	end

	local buffer = BitBuffer.Create()
	local function add(str, isHMs)
		buffer:FromBase64(str)
		local data = _f.Database.Machines[isHMs and 'hms' or 'tms']
		for m = 1, str:len()*6 do
			if buffer:ReadBool() then
				local moveId = data[m]
				local move = _f.Database.MoveById[moveId]
				local moveNum = move.num
				local canLearn = {}
				for i, p in pairs(self.party) do
					canLearn[i] = (partyKnownMoves[i][moveNum] and 2) or (partyLearnedMachines[i][moveNum] and 1) or 0
				end
				list[#list+1] = {
					mName = move.name,
					num = m,
					hm = isHMs,
					type = move.type,
					desc = move.category..', '..move.type..'-type, '..(move.basePower or 0)..' Power,\n'..(move.accuracy==true and '--' or ((move.accuracy or 0)..'%'))..' Accuracy'..((move.desc and move.desc~='') and ('. Effect: '..move.desc) or ''),
					learn = canLearn
				}
			end
		end
	end
	add(self.tms)
	add(self.hms, true)

	return list
end

function PlayerData:teachTM(pokemonIndex, tmNum, isHM)
	-- verify arguments
	local moveId;  pcall(function() moveId  = _f.Database.Machines[isHM and 'hms' or 'tms'][tmNum] end)
	local pokemon; pcall(function() pokemon = self.party[pokemonIndex] end)
	if not moveId or not pokemon or pokemon.egg then return false end
	-- verify player owns TM/HM
	if not BitBuffer.GetBit(isHM and self.hms or self.tms, tmNum) then return false end
	-- verify pokemon can learn TM/HM
	local canLearn = false
	pcall(function()
		local moveNum = _f.Database.MoveById[moveId].num
		for _, num in pairs(pokemon:getLearnedMoves().machine) do
			if num == moveNum then
				canLearn = true
				break
			end
		end
	end)
	if not canLearn then return false end
	-- verify pokemon doesn't already know the move
	for _, move in pairs(pokemon.moves) do
		if move.id == moveId then
			return false
		end
	end
	-- learn immediately if there is space
	if #pokemon.moves < 4 then
		pokemon.moves[#pokemon.moves+1] = {id = moveId}
		return true
	end
	-- gather data about known moves and the move to learn
	local moves = {}
	local function add(move)
		moves[#moves+1] = {
			name = move.name,
			category = move.category,
			type = move.type,
			power = move.basePower,
			accuracy = move.accuracy,
			pp = move.pp,
			desc = move.desc
		}
	end
	for _, move in pairs(pokemon.moves) do
		if move.id == moveId then return false end -- make sure move is not already known
		add(_f.Database.MoveById[move.id])
	end
	add(_f.Database.MoveById[moveId])
	-- send data & new decision id to player
	return moves, self:createDecision {
		callback = function(_, moveSlot)
			if type(moveSlot) ~= 'number' or moveSlot < 1 or moveSlot > 4 then return end
			pokemon.moves[math.floor(moveSlot)] = {id = moveId}
		end
	}
end

function PlayerData:useItem(itemId, targetIndex)
	if not itemId or type(itemId) ~= 'string' then return false end
	local usableItemServer = _f.UsableItems[itemId]
	local usableItemClient = UsableItemsClient[itemId]
	-- .noTarget and .nonConsumable are preferred to be placed on the client's usableItem (or else the client will be confused
	local hasTarget = not ((usableItemServer and usableItemServer.noTarget) or (usableItemClient and usableItemClient.noTarget))
	local consume = not ((usableItemServer and usableItemServer.nonConsumable) or (usableItemClient and usableItemClient.nonConsumable))
	if (targetIndex ~= nil) ~= (hasTarget and true or false) then return false end
	local target
	if hasTarget then
		target = self.party[targetIndex]
		if not target then return false end
	end
	local item = _f.Database.ItemById[itemId]
	if not item then return false end
	local bd = self:getBagDataByNum(item.num)
	if not bd or not bd.quantity or bd.quantity < 1 then return false end
	local used
	if usableItemServer and usableItemServer.onUse then
		used = usableItemServer.onUse(target)
		if used == false then return false end
	end
	if consume then

		local _, bd = self:incrementBagItem(item.num, -1) -- qty verified above
		if itemId:match('repel$') then -- repels report whether there are any remaining
			return (bd and bd.quantity and bd.quantity > 0) and 1 or 0
		end
	end
	return used, (target and target:getPartyData({}))
end

function PlayerData:giveItem(itemId, pokemonIndex)
	if not itemId or type(itemId) ~= 'string' or not pokemonIndex or type(pokemonIndex) ~= 'number' then return false end
	local item = _f.Database.ItemById[itemId]
	local pokemon = self.party[pokemonIndex]
	if not item or not pokemon or pokemon.egg then return false end
	if not item.bagCategory or item.bagCategory > 4 then return false end -- check whether it can even be held
	if not self:incrementBagItem(item.num, -1) then return false end
	local taking = pokemon:getHeldItem()
	local takenBD
	if taking.num then
		local s, r = self:incrementBagItem(taking.num, 1)
		if s then takenBD = r end
	end
	pokemon.item = item.num
	return true, (takenBD and self:getBagDataForTransfer(taking, takenBD)), (takenBD and taking.bagCategory)
end

function PlayerData:takeItem(pokemonIndex)
	if not pokemonIndex or type(pokemonIndex) ~= 'number' then return false end
	local pokemon = self.party[pokemonIndex]
	if not pokemon or pokemon.egg then return false end
	local item = pokemon:getHeldItem()
	if not item.num then return false end
	local s, bd = self:incrementBagItem(item.num, 1)
	if not s then return false end
	pokemon.item = nil
	return true, self:getBagDataForTransfer(item, bd), item.bagCategory
end

function PlayerData:tossItem(itemId, amount)
	if not itemId or type(itemId) ~= 'string' or not amount or type(amount) ~= 'number' or amount < 1 then return false end
	local item = _f.Database.ItemById[itemId]
	if not item or not item.bagCategory or item.bagCategory > 4 or itemId == 'masterball' then return false end -- check whether it can be tossed
	if not self:incrementBagItem(item.num, -amount) then return false end
	return true
end

function PlayerData:deleteMove(pokemonIndex)
	if not pokemonIndex or not self.party[pokemonIndex] then return end
	local pokemon = self.party[pokemonIndex]
	if pokemon.egg then return 0, 'eg' end
	if #pokemon.moves == 0 then return 0, '0m' end
	if #pokemon.moves == 1 then return pokemon.name, '1m' end
	return pokemon.name, {
		moves = pokemon:getCurrentMovesData(),
		d = self:createDecision {
			callback = function(_, moveslot)
				if not moveslot or not pokemon.moves[moveslot] then return end
				table.remove(pokemon.moves, moveslot)
			end
		}
	}
end

function PlayerData:remindMove()
	local heartscale = _f.Database.ItemById.heartscale
	local nHeartScales = 0
	pcall(function() nHeartScales = self:getBagDataByNum(heartscale.num, 1).quantity end)
	return {
		hsi = heartscale.icon or heartscale.num,
		nhs = nHeartScales,
		money = self.money,
		d = self:createDecision {
			callback = function(_, pokemonIndex)
				if not pokemonIndex or not self.party[pokemonIndex] then return end
				local pokemon = self.party[pokemonIndex]
				if pokemon.egg then return 0, 'eg' end

				local learnedMoves
				pcall(function() learnedMoves = pokemon:getLearnedMoves().levelUp end)
				local moves = {}
				if learnedMoves then
					-- get moves by level (earliest learned to latest learned)
					local level = pokemon.level
					for _, d in pairs(learnedMoves) do
						if level < d[1] then break end
						for i = 2, #d do
							table.insert(moves, d[i])
						end
					end
					-- remove duplicate moves
					for i, move in pairs(moves) do
						for j = #moves, i+1, -1 do
							if move == moves[j] then
								table.remove(moves, j)
							end
						end
					end
					-- remove currently known moves
					for _, move in pairs(pokemon:getMoves()) do
						for j = #moves, 1, -1 do
							if move.num == moves[j] then
								table.remove(moves, j)
								break
							end
						end
					end
				end
				if #moves == 0 then return pokemon.name, 'nm' end
				local validMovesNumToId = {}
				for i, moveNum in pairs(moves) do
					local move = _f.Database.MoveByNumber[moveNum]
					moves[i] = {
						num = move.num,
						name = move.name,
						category = move.category,
						type = move.type,
						power = move.basePower,
						accuracy = move.accuracy,
						pp = move.pp,
						desc = move.desc
					}
					validMovesNumToId[moveNum] = move.id
				end

				return pokemon.name, {
					nn = pokemon:getName(),
					known = pokemon:getCurrentMovesData(),
					moves = moves,
					d = self:createDecision {
						callback = function(_, paymentMethod, moveNum, moveSlot)
							if (paymentMethod ~= 1 and paymentMethod ~= 2)
							or (moveSlot ~= 1 and moveSlot ~= 2 and moveSlot ~= 3 and moveSlot ~= 4) then
								return
							end
							local moveId = validMovesNumToId[moveNum]
							if not moveId then return end
							if paymentMethod == 1 then
								if not (self:incrementBagItem(heartscale.num, -1)) then return end
							else
								if not (self:addMoney(-30000)) then return end
							end
							pokemon.moves[moveSlot] = {id = moveId}
						end
					}
				}
			end
		}
	}
end

local getShop = require(script.GetShop)
function PlayerData:getShop(shopId)
	local items, other = getShop(self, shopId)
	if not items then return false end
	self.currentShop = items
	return items, other
end

function PlayerData:maxBuyInternal(itemId)
	if not self.currentShop then return false end
	pcall(function() itemId = Utilities.rc4(itemId) end)
	if type(itemId) ~= 'string' then return false end
	local item = _f.Database.ItemById[itemId]
	if not item then return false end
	local price
	for _, l in pairs(self.currentShop) do
		if Utilities.rc4(l[1]) == itemId then
			price = l[2]
			break
		end
	end
	if not price then return false end
	local currentQty = 0
	local bd = self:getBagDataByNum(item.num)
	if bd then
		currentQty = bd.quantity or 0
	end
	if currentQty >= 99   then return 'fb' end -- full bag
	if self.money < price then return 'nm' end -- not enough money
	return math.min(99-currentQty, math.floor(self.money/price)), item, price
end
function PlayerData:maxBuy(itemId) -- rc4'd (from client)
	return (self:maxBuyInternal(itemId)) -- return single value to client
end

function PlayerData:buyItem(itemId, qty) -- rc4'd
	local max, item, price = self:maxBuyInternal(itemId)
	if type(max) ~= 'number' or not item or not price or qty > max or qty < 1 then return false end
	qty = math.floor(qty)
	if not self:addMoney(-price*qty) then return false end
	self:addBagItems{num = item.num, quantity = qty}
	local givePremierBall = false
	if item.isPokeball and qty > 9 then
		self:addBagItems{id = 'premierball', quantity = 1}
		givePremierBall = true
	end
	return true, givePremierBall
end

function PlayerData:bMaxBuyInternal(shopIndex)
	if not self.currentShop then return false end
	local itemIdPricePair = self.currentShop[shopIndex]
	if type(itemIdPricePair) ~= 'table' then return false end
	local itemId = itemIdPricePair[1]
	if type(itemId) ~= 'string' then return false end
	local price = itemIdPricePair[2]
	if type(price) ~= 'number' then return false end
	if itemId:sub(1, 2) == 'BP' then return false end -- assumption: no items sold here later will start with "BP"
	local tmNum = itemId:match('^TM(%d+)')
	if tmNum then
		tmNum = tonumber(tmNum)
		if BitBuffer.GetBit(self.tms, tmNum) then return 'ao' end -- already own
		if self.bp < price then return 'nm' end
		return 'tm', tonumber(tmNum), price
	end
	local item = _f.Database.ItemById[itemId]
	if not item then return false end
	local currentQty = 0
	local bd = self:getBagDataByNum(item.num)
	if bd then
		currentQty = bd.quantity or 0
	end
	if currentQty >= 99 then return 'fb' end -- full bag
	if self.bp < price  then return 'nm' end -- not enough money
	return math.min(99-currentQty, math.floor(self.bp/price)), item, price
end
function PlayerData:bMaxBuy(shopIndex)
	return (self:bMaxBuyInternal(shopIndex))
end

function PlayerData:buyWithBP(shopIndex, qty)
	local max, item, price = self:bMaxBuyInternal(shopIndex)
	if max == 'tm' then
		self:obtainTM(item)
		self.bp = self.bp - price
		return true, self.bp
	end
	if not item or type(max) ~= 'number' or type(qty) ~= 'number' or max < qty or qty < 1 then return false end
	qty = math.floor(qty)
	self.bp = self.bp - price*qty
	self:addBagItems{num = item.num, quantity = qty}
	return true, self.bp
end

function PlayerData:sellItem(itemId, qty) -- NOT rc4'd
	if type(itemId) ~= 'string' or type(qty) ~= 'number' or qty < 1 then return false end
	local item = _f.Database.ItemById[itemId]
	if not item or not item.sellPrice then return false end
	local bd = self:getBagDataByNum(item.num)
	qty = math.floor(qty)
	if not bd or not bd.quantity or bd.quantity < 1 or qty > bd.quantity then return false end
	if not self:addMoney(qty*item.sellPrice) then return 'fw' end
	self:incrementBagItem(item.num, -qty)
	return self.money
end

function PlayerData:obtainItem(id)
	if not self.currentObtainableItems then return end
	local item = self.currentObtainableItems[id]
	if not item then return end
	self.currentObtainableItems[id] = nil -- no repeat obtains
	if type(item) == 'number' then
		-- TM
		self:obtainTM(item)
		return 'TM'..(item<10 and '0' or '')..item
	elseif type(item) == 'table' then
		-- item
		local oin = item[2]
		item = _f.Database.ItemById[item[1] ]
		if not item then return end
		self.obtainedItems = BitBuffer.SetBit(self.obtainedItems, oin, true)
		self:addBagItems({num = item.num, quantity = 1})
		return item.name
	end
end

function PlayerData:makeDecision(id, ...)
	if not id or type(id) ~= 'number' then return false end
	local data = self.decision_data[id]
	if not data then return false end
	local ret = {data.callback(data, ...)}
	if ret[1] == false then return false end
	self.decision_data[id] = false
	return unpack(ret)
end

function PlayerData:openPC()
	if self.pcSession then
		self.pcSession:close()
	end
	if self:isInBattle() then return end
	local newSession = _f.PCService:new(self)
	self.pcSession = newSession
	return newSession:getStartPacket()
end

function PlayerData:cPC(fn, ...)
	if type(fn) ~= 'string' then return end
	local pc = self.pcSession
	if not pc or not pc.public[fn] then return end
	return pc[fn](pc, ...)
end

function PlayerData:closePC(id, ch)
	local pc = self.pcSession
	if not pc then return end
	if id and pc.id ~= id then return end
	local ret = pc:close(ch)
	self.pcSession = nil
	return ret
end












function PlayerData:createDecision(data)
	assert(data.callback ~= nil, 'decision must include a callback')
	local id = self.decision_count + 1
	self.decision_count = id
	self.decision_data[id] = data
	return id
end

function PlayerData:checkForHatchables(forceClear)
	-- make sure that there isn't a queued hatch waiting
	for i, d in pairs(self.decision_data) do -- note that d can be `false`
		if d and d.hatch then
			if forceClear then
				self.decision_data[i] = false
			else
				return
			end
		end
	end
	-- check for hatchable egg in party
	for _, p in pairs(self.party) do
		if p.egg and not p.fossilEgg and p.eggCycles <= 0 then
			local id = self:createDecision {
				hatch = true,
				callback = function(data, nickname)
					-- hatch pokemon
					self:onOwnPokemon(p.num)
					p.egg = nil
					p.ot = self.userId
					if nickname and type(nickname) == 'string' then
						p:giveNickname(nickname)
					end
					-- check for another hatchable
					self:checkForHatchables(true)
				end
			}
			-- send event to player
			_f.Network:post('hatch', self.player, {
				d_id = id,
				eggIcon = p:getIcon(),
				pSprite = p:getSprite(true),
				pName = p.data.baseSpecies or p.data.species,
				pIcon = p:getIcon(true),
				pShiny = p.shiny and true or false
			})
			-- only allow one at a time
			return
		end
	end
end

function PlayerData:resetFishStreak()
	self.fishingStreak = 0
end

function PlayerData:getRegion()
	-- not perfect, just gives a best guess (can only be depended on when player is assumed to be outdoors)
	if not self.currentChunk then return end
	local chunkData = _f.Database.ChunkData[self.currentChunk]
	if chunkData then
		local onlyRegion
		for name in pairs(chunkData.regions) do
			if not onlyRegion then
				onlyRegion = name
			else
				onlyRegion = nil
				break
			end
		end
		if onlyRegion then return onlyRegion end
	end
	local map = storage.MapChunks:FindFirstChild(self.currentChunk)
	if not map then return end
	local regions = map:FindFirstChild('Regions')
	if not regions then return end
	local pos; pcall(function() pos = self.player.Character.HumanoidRootPart.Position end)
	if not pos then return end
	for _, part in pairs(regions:GetChildren()) do
		if part:IsA('BasePart') then
			if Region.FromPart(part):CastPoint(pos) then
				return part.Name
			end
		end
	end
end


function PlayerData:addMoney(amount)
	if amount < 0 and self.money+amount < 0 then return false end
	if amount > 0 and self.money > MAX_MONEY then return false end
	self.money = math.min(self.money + amount, MAX_MONEY)
	_f.Network:post('PDChanged', self.player, 'money', self.money)
	return true
end

function PlayerData:addBP(amount, showGui)
	self.bp = math.min(self.bp + amount, MAX_BP)
	if showGui then
		_f.Network:post('bpAwarded', self.player, amount, self.bp)
	end
end

function PlayerData:ownsGamePass(passId, mustReturnInstantly)
	if self.userId < 1 then return false end
	if type(passId) == 'string' then
		passId = Assets.passId[passId]
	end
	if self.ownedGamePassCache[passId] then return true end
	if mustReturnInstantly then -- the old PD model checked once when the player entered whether the game pass was owned, so this behavior is acceptable (it's an improvement)
		spawn(function() self:ownsGamePass(passId) end) -- attempt to cache
		return false -- return false for now
	end
	local marketplaceService = game:GetService('MarketplaceService')
	local s, r = pcall(function() return marketplaceService:PlayerOwnsAsset(self.player, passId) end)
	if s and r then
		self.ownedGamePassCache[passId] = true
		return true
	end
	return false
end

function PlayerData:updatePlayerListEntry(awardDexBadges)
	-- the PlayerList displays Name, badge icon, and Pokedex (or Rank in PVP)
	-- Name never changes; only badges and Pokedex[/Rank]
	local badgeId, ownedPokemon = self:getPlayerListInfo()
	local player = self.player
	local changed = false
	if not player:FindFirstChild('BadgeId') then
		Instance.new('IntValue', player).Name = 'BadgeId'
		changed = true
	end
	if not player:FindFirstChild('OwnedPokemon') then
		Instance.new('IntValue', player).Name = 'OwnedPokemon'
		changed = true
	end
	changed = changed or (badgeId ~= player.BadgeId.Value) or (ownedPokemon ~= player.OwnedPokemon.Value)
	if not changed then return end
	player.BadgeId.Value = badgeId
	player.OwnedPokemon.Value = ownedPokemon
	network:postAll('UpdatePlayerlist', player.Name, badgeId, ownedPokemon)
	if _f.Context ~= 'battle' and awardDexBadges then
		for _, badgeData in pairs(Assets.badgeId.DexCompletion) do
			local reqOwnedPokemon, badgeId = unpack(badgeData)
			if ownedPokemon >= reqOwnedPokemon then
				pcall(function() game:GetService('BadgeService'):AwardBadge(self.userId, badgeId) end)
			else
				break
			end
		end
	end
	return player.Name, badgeId, ownedPokemon
end

local BattleEloManager
function PlayerData:getPlayerListInfo()
	-- some players get special badge ids (why did I make this a thing...)
	local badgesByPlayerId = {
		[308658419] = 1948436901, -- GM_Inder [god]
		[195100107]  = 2871404368, -- L3G3NDARY_STARITE [mod]
		[425305272] = 2871404368, -- carla [mod]
		[444282973] = 2871429958, -- syv [tester]
		[35734353]  = 2871404368, -- justsomerandomeacc10 [headadmin]
		[104957749] = 2871429958, -- skylar [tester]
		[573295267] = 2871429958, -- youknowitsme [tester]
		[132958022]   = 2871429958, -- foxz [tester]
		[775939587]  = 2871429958, -- pisatul [tester]
		[3651386]  = 418935648, -- [ani] dave
		[28276317] = 383445099, -- dvd
		[2108078]  = 527387805, -- reactron
		[13234608] = 335915729, -- haces
		[7568292]  = 338919143, -- TT
		[23801047] = 343548985, -- ally
		[22121682] = 347056729, -- spec7
		[2839425]  = 359868894, -- armyzack/zoism
		[40874521] = 421234847, -- naky
		[93618279] = 380897951, -- pyro
		[30575130] = 383445031, -- ran
		[92720144] = 391310637, -- xychiz
		[4189809]  = 527386850, -- Our_Hero

		[5730064]  = 536016603, -- Kman

		[19612377] = 435168760, -- kevincatssing
		[2168003]  = 435169561, -- Shipooi
		[2117045]  = 435169019, -- Roball1
		[27791223] = 435169423, -- RoseNight50
		[36422716] = 435168848, -- OldSchooldDude2

		[13094490] = 467363815, -- Lilly_S
		[38979592] = 498610186, -- jc_cj
		[64461809] = 600684944, -- CoralSoul

		[74783517] = 527383768, -- marolex
	}
	local badgeId = badgesByPlayerId[self.userId]
	if not badgeId then
		local latestBadge = 0
		for i, b in pairs(self.badges) do
			if b then
				latestBadge = math.max(latestBadge, i)
			end
		end
		badgeId = Assets.badgeImageId[latestBadge] or 0
	end
	local ownedPokemon
	-- if PVP, override pokedex with rank
	if _f.Context == 'battle' then
		if not BattleEloManager then
			BattleEloManager = require(script.Parent.BattleEngine.BattleEloManager)
		end
		ownedPokemon = BattleEloManager:getPlayerRank(self.player.UserId)
	else
		ownedPokemon = select(2, self:countSeenAndOwnedPokemon())
	end
	return badgeId, ownedPokemon
end

local function concatenate(s, ...)
	-- this is weird, yes, but there was actually a period of time
	-- where the concatenation operation seemed to randomly return
	-- a partial version of what it should
	local function concatenateInner(a, b)
		local totalLen = a:len() + b:len()
		local c = a .. b
		local attempts = 0
		while c:len() ~= totalLen do
			attempts = attempts + 1
			if attempts > 5 then
				error('failed concatenation: failed too many times')
			end
			warn('failed concatenation: retrying')
			c = a .. b
		end
		return c
	end
	for _, o in pairs({...}) do
		s = concatenateInner(s, o)
	end
	return s
end


-- RO Powers
function PlayerData:purchaseRoPower(group, level)
	if self:ROPowers_getPowerLevel(group) > 0 then return end
	game:GetService('MarketplaceService'):PromptProductPurchase(self.player, Assets.productId.RoPowers[group][level])
end

function PlayerData:ROPowers_getPowerLevel(g)
	local ro = self.roPowers
	local l = ro.powerLevel[g]
	if l > 0 then
		if os.time()-ro.lastPurchasedAt[g] > RO_POWER_EFFECT_DURATION then
			ro.powerLevel[g] = 0
			return 0
		end
	end
	return l
end

function PlayerData:ROPowers_getTimePurchased(g)
	return self.roPowers.lastPurchasedAt[g]
end

function PlayerData:ROPowers_setTimePurchasedAndLevelForPower(g, t, l)
	self.roPowers.lastPurchasedAt[g] = t
	self.roPowers.powerLevel[g] = l
end

function PlayerData:ROPowers_save()
	local now = os.time()
	local buffer = BitBuffer.Create()
	local version = 0
	buffer:WriteUnsigned(6, version)
	for i = 1, 7 do
		local p = self:ROPowers_getPowerLevel(i)
		if p == 0 then
			buffer:WriteUnsigned(13, 0)
		else
			buffer:WriteBool(p == 2)
			local s = RO_POWER_EFFECT_DURATION - math.ceil(now - self.roPowers.lastPurchasedAt[i])
			buffer:WriteUnsigned(12, math.max(0, s))
		end
	end
	_f.DataPersistence.ROPowerSave(self.player, 'save', buffer:ToBase64())
end

function PlayerData:ROPowers_restore()
	local data = _f.DataPersistence.ROPowerSave(self.player, 'load')
	local ro = self.roPowers
	if data then
		--[[
		OLD:
		  ([3?,] 6, or 7) * 65
		  potentially:
			[195?] -> 33 chars
			390    -> 65
			455    -> 76
		NEW:
		  6 - version
		  7 * 13 - seconds remaining (3600 max)
		  total:
			97 -> 17 chars
		]]
		local buffer = BitBuffer.Create()
		buffer:FromBase64(data)
		if data:len() > 20 then
			-- Assume OLD
			for i = 1, 7 do
				pcall(function()
					local isLv2 = buffer:ReadBool()
					local pTime = buffer:ReadFloat64()
					if pTime > ro.lastPurchasedAt[i] then
						ro.lastPurchasedAt[i] = pTime
						ro.powerLevel[i] = isLv2 and 2 or 1
					end
				end)
			end
		else
			-- NEW
			local now = os.time()
			local version = buffer:ReadUnsigned(6)
			for i = 1, 7 do
				local isLv2 = buffer:ReadBool()
				local s = buffer:ReadUnsigned(12) - 20 -- WE DEDUCT 20 SECONDS for the shiny soft-resetters
				if s > 0 then
					ro.lastPurchasedAt[i] = now - RO_POWER_EFFECT_DURATION + s
					ro.powerLevel[i] = isLv2 and 2 or 1
				end
			end
		end
	end
end

function PlayerData:roStatus()
	local now = os.time()
	local r = {}
	for i = 1, 7 do
		local p = self:ROPowers_getPowerLevel(i)
		if p > 0 then
			r[tostring(i)] = {p, self.roPowers.lastPurchasedAt[i] + RO_POWER_EFFECT_DURATION - now}
		end
	end
	local icons = {}
	for eventName, pokemonList in pairs(RoamingPokemon) do
		if self.completedEvents[eventName] then
			for _, enc in pairs(pokemonList) do
--				print(enc[1])
				icons[#icons+1] = _f.Database.PokemonById[Utilities.toId(enc[1])].icon-1
			end
		end
	end
	table.sort(icons)
	r.r = icons
	return r
end

-- Party
function PlayerData:getFirstNonEgg()
	for _, p in pairs(self.party) do
		if not p.egg then
			return p
		end
	end
end

function PlayerData:heal()
	for _, p in pairs(self.party) do
		p:heal()
	end
end

function PlayerData:caughtPokemon(pokemon)
	if not pokemon.egg then
		self:onOwnPokemon(pokemon.num)
	end
	if not pokemon.ot then pokemon.ot = self.userId end
	for i = 1, 6 do
		if not self.party[i] then
			self.party[i] = pokemon
			-- OVH  send sprite to player to cache?
			return
		end
	end
	local box = (self:PC_sendToStore(pokemon))
	if box then
		return box--pokemon:getName() .. ' has been transferred to Box ' .. box .. '!'
	else
		-- OVH  need new backup system

	end
end

-- Pokedex
function PlayerData:onSeePokemon(num)
	self.pokedex = BitBuffer.SetBit(self.pokedex, num*2-1, true)
end

function PlayerData:onOwnPokemon(num)
	self:onSeePokemon(num)
	self.pokedex = BitBuffer.SetBit(self.pokedex, num*2, true)
	self:updatePlayerListEntry(true)
end

function PlayerData:hasSeenPokemon(num)
	return BitBuffer.GetBit(self.pokedex, num*2-1)
end

function PlayerData:hasOwnedPokemon(num)
	return BitBuffer.GetBit(self.pokedex, num*2)
end

function PlayerData:unseePokemon(num)
	self.pokedex = BitBuffer.SetBit(self.pokedex, num*2-1, false)
end

function PlayerData:unownPokemon(num)
	self.pokedex = BitBuffer.SetBit(self.pokedex, num*2, false)
	self:updatePlayerListEntry()
end

function PlayerData:countSeenAndOwnedPokemon(str)
	str = str or self.pokedex
	local seen = 0
	local owned = 0
	local buffer = BitBuffer.Create()
	buffer:FromBase64(str)
	for _ = 1, str:len()*3 do
		if buffer:ReadBool() then
			seen = seen + 1
		end
		if buffer:ReadBool() then
			owned = owned + 1
		end
	end
	return seen, owned
end

-- Badges
function PlayerData:winGymBadge(n, tm)
	self.badges[n] = true
	pcall(function() game:GetService('BadgeService'):AwardBadge(self.userId, Assets.badgeId['Gym'..n]) end)
	if tm then
		self:obtainTM(tm)
	end
	self:updatePlayerListEntry()
	_f.Network:post('badgeObtained', self.player, n)
end

function PlayerData:countBadges()
	local count = 0
	for _, b in pairs(self.badges) do
		if b then
			count = count + 1
		end
	end
	return count
end

function PlayerData:obtainTM(n, isHM)
	if isHM then
		self.hms = BitBuffer.SetBit(self.hms, n, true)
	else
		self.tms = BitBuffer.SetBit(self.tms, n, true)
	end
end

-- Bag
function PlayerData:getBagDataByNum(num, pouchNumber)
	local function checkPouch(pouch)
		for i, bd in pairs(pouch) do
			if bd.num == num then
				return bd, pouch, i
			end
		end
	end
	if pouchNumber then
		return checkPouch(self.bag[pouchNumber])
	end
	for p = 1, 5 do
		local bd, pouch, i = checkPouch(self.bag[p])
		if bd then return bd, pouch, i end
	end
end

function PlayerData:getBagDataById(id, pouchNumber)
	return self:getBagDataByNum(_f.Database.ItemById[id].num, pouchNumber)
end

function PlayerData:addBagItems(...)
	for _, bd in pairs({...}) do
		local item = bd.num and _f.Database.ItemByNumber[bd.num] or _f.Database.ItemById[bd.id]
		if item then
			local c = item.bagCategory
			if c then
				local otherBd = self:getBagDataByNum(item.num, c)
				if otherBd then
					otherBd.quantity = math.min(99, (otherBd.quantity or 1) + (bd.quantity or 1))
				else
					table.insert(self.bag[c], {num = bd.num or item.num, quantity = bd.quantity})
				end
			else
				print('error placing', item.name, 'in bag (null-category)')
			end
		else
			print('unknown item:', bd.num or bd.id)
		end
	end
end

function PlayerData:incrementBagItem(itemNum, amount) -- num is preferred; id is okay
	local item
	if type(itemNum) == 'string' then
		item = _f.Database.ItemById[itemNum]
		itemNum = item.num
	end
	local bd, pouch, i = self:getBagDataByNum(itemNum)
	if bd then
		if amount < 0 and bd.quantity+amount < 0 then return false end
		local q = bd.quantity
		bd.quantity = math.min(99, bd.quantity + amount)
		if bd.quantity <= 0 then
			table.remove(pouch, i)
		end
		return bd.quantity ~= q, bd
	end
	if amount <= 0 then return false end
	bd = {num = itemNum, quantity = amount}
	if not item then
		item = _f.Database.ItemByNumber[itemNum]
	end
	table.insert(self.bag[item.bagCategory], bd)
	return true, bd
end

-- PC
PC = Utilities.class({
	currentBox = 1,
	maxBoxes = 8,
}, function(self)
	self.boxes = {}
--	self.boxCustomization = {}
	self.boxNames = {}
	self.boxWallpapers = {}

	for i = 1, 50 do
		self.boxes[i] = {}--makeBox()
	end
	return self
end)

function PlayerData:PC_HasSpace()
	if #self.party < 6 then return true end
	local pc = self.pc
	for i = 1, pc.maxBoxes do
		for p = 1, 50 do
			if not pc.boxes[i][p] then
				return true
			end
		end
	end
	return false
end

function PlayerData:PC_sendToStore(pokemon, overflowAllowed)
	if not pokemon.egg then
		self:onOwnPokemon(pokemon.data.num)
	end
	local pc = self.pc
	local function add(i, p)
		pc.boxes[i][p] = {pokemon:getIcon(), pokemon.shiny and true or false, pokemon:serialize(true)}--pc.boxes[i].set(p, {...})
	end
	local box = math.max(1, pc.currentBox)
	for i = box, pc.maxBoxes do
		for p = 1, 30 do
			if not pc.boxes[i][p] then
				add(i, p)
				return i, p
			end
		end
	end
	for i = 1, box-1 do
		for p = 1, 30 do
			if not pc.boxes[i][p] then
				add(i, p)
				return i, p
			end
		end
	end
	-- when trading, allow extra pokemon (if boxes are full) to overflow into boxes
	-- that aren't even unlocked [this is to allow for safely handling this situation;
	-- this solution doesn't allow the easiest recovery of the pokemon but it ensures
	-- a recovery option nonetheless]
	if overflowAllowed then
		box = pc.maxBoxes+1
		while box < 64 do
			if not pc.boxes[box] then
				pc.boxes[box] = {}--makeBox()
			end
			for p = 1, 30 do
				if not pc.boxes[box][p] then
					add(box, p)
					return box, p
				end
			end
			box = box + 1
		end
	end
end

function PlayerData:PC_fixIcons() -- todo (if needed)
	for b, box in pairs(self.boxes) do
		for i = 1, 30 do
			local pcd = box[i]
			if pcd then
				local p = _f.ServerPokemon:deserialize(pcd[3], self)
				pcd[1] = select(2, p:getIcon())
				pcd[2] = p.shiny and true or false
			end
		end
	end
end

function PlayerData:PC_serialize()
	local pc = self.pc
	local pokemonArrayString
	local buffer = BitBuffer.Create()
	local version = 6
	buffer:WriteUnsigned(6, version)
	buffer:WriteBool(pc.maxBoxes >= 50)
	buffer:WriteUnsigned(6, pc.currentBox)
	-- custom box names
	local maxCustomizedBoxName = 0
	for i in pairs(pc.boxNames) do
		maxCustomizedBoxName = math.max(i, maxCustomizedBoxName)
	end
	if maxCustomizedBoxName > 0 then
		buffer:WriteBool(true)
		buffer:WriteUnsigned(6, maxCustomizedBoxName)
		for i = 1, maxCustomizedBoxName do
			local boxName = pc.boxNames[i]
			if boxName then
				buffer:WriteBool(true)
				buffer:WriteString(boxName)
			else
				buffer:WriteBool(false)
			end
		end
	else
		buffer:WriteBool(false)
	end
	-- custom box wallpapers
	local maxCustomizedBoxWallpaper = 0
	for i in pairs(pc.boxWallpapers) do
		maxCustomizedBoxWallpaper = math.max(i, maxCustomizedBoxWallpaper)
	end
	if maxCustomizedBoxWallpaper > 0 then
		buffer:WriteBool(true)
		buffer:WriteUnsigned(6, maxCustomizedBoxWallpaper)
		for i = 1, maxCustomizedBoxWallpaper do
			local boxWallpaper = pc.boxWallpapers[i]
			if boxWallpaper then
				buffer:WriteBool(true)
				buffer:WriteUnsigned(5, boxWallpaper)
			else
				buffer:WriteBool(false)
			end
		end
	else
		buffer:WriteBool(false)
	end
	--
	local storedPokemon = {}
	for b, box in pairs(pc.boxes) do
		for i = 1, 30 do
			if box[i] then
				table.insert(storedPokemon, {b, i, box[i]})
			end
		end
	end
	local nStoredPokemon = #storedPokemon
	buffer:WriteUnsigned(11, nStoredPokemon)
	for _, d in pairs(storedPokemon) do
		buffer:WriteUnsigned(11, d[3][1])
		buffer:WriteBool(d[3][2])
		buffer:WriteUnsigned(6, d[1])
		buffer:WriteUnsigned(5, d[2])
		local s = d[3][3]
		if pokemonArrayString then
			pokemonArrayString = concatenate(pokemonArrayString, ',', s)
		else
			pokemonArrayString = s
		end
	end
	return concatenate(buffer:ToBase64(), ';', (pokemonArrayString or ''))
end

function PlayerData:PC_deserialize(str)
	local pc = self.pc
--	for _, b in pairs(pc.boxes) do b.clear() end
	local meta, pokemonArray = str:match('^([^;]*);([^;]*)')
	local buffer = BitBuffer.Create()
	buffer:FromBase64(meta)
	local version = buffer:ReadUnsigned(6)
	if version >= 2 then
		if buffer:ReadBool() then
			pc.maxBoxes = 50--self.userId==137543334 and 60 or 50
		end
	end
	pc.currentBox = buffer:ReadUnsigned(version>=3 and 6 or 5)
	if version >= 6 then
		-- custom box names
		if buffer:ReadBool() then
			for i = 1, buffer:ReadUnsigned(6) do
				if buffer:ReadBool() then
					pc.boxNames[i] = buffer:ReadString()
				end
			end
		end
		-- custom box wallpapers
		if buffer:ReadBool() then
			for i = 1, buffer:ReadUnsigned(6) do
				if buffer:ReadBool() then
					pc.boxWallpapers[i] = buffer:ReadUnsigned(5)
				end
			end
		end
	end
	local bitCount = 10
	if version >= 1 then
		bitCount = 11
	end
	local nStoredPokemon = buffer:ReadUnsigned(bitCount)
	for i = 1, nStoredPokemon do
		local icon = buffer:ReadUnsigned(bitCount)
		-- version 5 is a shift in the egg threshold (from 1000 to 1450)
		-- if we are loading a version earlier than 5, we need to manually adjust egg icons
		if version < 5 and icon > 1000 then
			icon = icon + 450
		end
		local shiny = buffer:ReadBool()
		local boxNum = buffer:ReadUnsigned(6)
		local position = buffer:ReadUnsigned(5)
		local s, p = pokemonArray:match('^([^,]+)(.*)$')
		if not s then
			local nMissing = nStoredPokemon-i+1
			if version >= 4 or nMissing > 1 then
				error('error (pc::ds): instance count mismatch; missing '..nMissing)
			end
--			self:fixIcons() -- todo
			break
		end
		if p:sub(1, 1) == ',' then p = p:sub(2) end
		pokemonArray = p

		--[[
		if not pc.boxes[boxNum] then
			print('had to artificially create box number', boxNum)
			pc.boxes[boxNum] = {}
			pc.maxBoxes = math.max(boxNum, pc.maxBoxes)
		end--]]
		pc.boxes[boxNum][position] = {icon, shiny, s}
	end
--	_p.Menu.pc:onAfterDeserialization()
end


function PlayerData:hover()
	pcall(function() self.hoverboardModel:Destroy() end)
	local player = self.player
	local char = player.Character
	if not char then return end
	local root = char:FindFirstChild('HumanoidRootPart')
	if not root then return end
	local human
	for _, h in pairs(char:GetChildren()) do if h:IsA('Humanoid') then human = h break end end

	local hoverboard = (storage.Models.Hoverboards:FindFirstChild(self.currentHoverboard)
		or storage.Models.Hoverboards['Basic Grey']):Clone()
	self.hoverboardModel = hoverboard
	hoverboard.Parent = char
	local main = hoverboard.Main
	local mcfi = main.CFrame:inverse()
	for _, p in pairs(Utilities.GetDescendants(hoverboard,'BasePart')) do
		p.CanCollide = false
		if p ~= main then
			Utilities.Create 'Weld' {
				Part0 = main,
				Part1 = p,
				C0 = mcfi*p.CFrame,
				C1 = CFrame.new(),
				Parent = main
			}
			p.Anchored = false
			pcall(function() p:SetNetworkOwner(player) end)
		end
	end
	local offset = 3.2
	if human.RigType == Enum.HumanoidRigType.R15 then
		offset = .2+root.Size.Y/2+human.HipHeight
	end
	main.Anchored = false

	local rcf = root.CFrame
	local look = (rcf.lookVector*Vector3.new(1,0,1)).unit
	if look.magnitude == 0 then
		look = (rcf.upVector*Vector3.new(-1,0,-1)).unit
	end
	local players = game:GetService('Players')
	local getPfromC = players.GetPlayerFromCharacter
	local _, pos = Utilities.findPartOnRayWithIgnoreFunction(Ray.new(rcf.p, Vector3.new()), {hoverboard, char}, function(p) if not p.CanCollide or getPfromC(players, p.Parent) then return true end end)
	local right = look:Cross(Vector3.new(0, 1, 0))
	local mcf = CFrame.new(pos.X, pos.Y+.6, pos.Z, right.X, 0, -look.X, 0, 1, 0, right.Z, 0, -look.Z)

	main.CFrame = mcf
	root.CFrame = main.CFrame * CFrame.new(0, offset, 0)--*CFrame.Angles(0,math.pi/2,0)
	Utilities.Create 'Weld' {
		Part0 = main,
		Part1 = root,
		C0 = CFrame.new(0, offset, 0),
		C1 = CFrame.new(),
		Parent = main
	}
	main.CFrame = mcf
	pcall(function() main:SetNetworkOwner(player) end)
	return hoverboard
end

function PlayerData:setHoverboard(style)
	if style:sub(1,6) ~= 'Basic ' then
		-- make sure they've purchased it
		local owned = false
		for _, hb in pairs(self.ownedHoverboards) do
			if hb == style then
				owned = true
				break
			end
		end
		if not owned then return end
	end
	self:completeEventServer('hasHoverboard')
	self.currentHoverboard = style
end

function PlayerData:ownsHoverboard(name)
	for _, hb in pairs(self.ownedHoverboards) do
		if hb == name then
			return true
		end
	end
	return false
end

function PlayerData:purchaseHoverboard(name, dEtc)
	if self:ownsHoverboard(name) then return 'ao' end
	local processed = false
	local timeout = false
	table.insert(self.hoverboardProductStack, function()
		if processed then return end
		processed = true
		self:completeEventServer('hasHoverboard')
		table.insert(self.ownedHoverboards, name)
		self.currentHoverboard = name
		if not timeout then
			self:saveGame(dEtc)
		end
	end)
	game:GetService('MarketplaceService'):PromptProductPurchase(self.player, Assets.productId.Hoverboard)
	for i = 1, 40 do
		wait(.5)
		if processed then break end
	end
	if not processed then
		-- timed out
		timeout = true
		return 'to'
	end
end

function PlayerData:unhover()
	pcall(function() self.hoverboardModel:Destroy() end)
	self.hoverboardModel = nil
end

function PlayerData:getWtrOp()
	local own = {}
	-- check if can surf (has badge, has pokemon with Surf move; defer collision check to client)
	-- old rod
	local bd = self:getBagDataById('oldrod', 5)
	if bd then own.ord = true end
	return own
end


function PlayerData:pdc()
	if self.player.UserId ~= 1084073 and self.player.UserId ~= 1123551 then error() end
	print('[1]', self.daycare.depositedPokemon[1] and self.daycare.depositedPokemon[1].name or 'nil')
	print('[2]', self.daycare.depositedPokemon[2] and self.daycare.depositedPokemon[2].name or 'nil')
end


-- Day Care
function PlayerData:getBreedChance(a, b, forMessage)
	if not a or not b then return end
	if not a.data.eggGroups or not b.data.eggGroups then return end -- Undiscovered egg group
	if (a.num == 670 and a.forme == 'e') or (b.num == 670 and b.forme == 'e') then return end -- Floette Eternal forme cannot breed
	local ditto = a.data.num == 132 or b.data.num == 132
	local sameSpecies = a.data.num == b.data.num
	local sameTrainer = a.ot == b.ot
	if ditto and sameSpecies then return end -- 2 Dittos
	if not ditto then
		if a.gender == b.gender then return end -- Same gender (no Ditto)
		if not a.gender or not b.gender then return end -- One is genderless (no Ditto)
		local groupsMatch = false
		for _, ag in pairs(a.data.eggGroups) do
			for _, bg in pairs(b.data.eggGroups) do
				if ag == bg then
					groupsMatch = true
					break
				end
			end
			if groupsMatch then break end
		end
		if not groupsMatch then return end -- Different egg groups
	end
	local chance = 0
	local ovalCharm = self:ownsGamePass('OvalCharm', true)
	if sameSpecies and not sameTrainer then
		if forMessage then return 1 end
		return ovalCharm and 88 or 70
	elseif sameSpecies == sameTrainer then
		if forMessage then return 2 end
		return ovalCharm and 80 or 50
	else--if not sameSpecies and sameTrainer then
		if forMessage then return 3 end
		return ovalCharm and 40 or 20
	end
end

function PlayerData:breed(a, b)--::breed
	if not a or not b then return end
	if not self:getBreedChance(a, b) then return end
	local ditto = a.data.num == 132 or b.data.num == 132

	-- Create egg
	local egg = {egg=true}
	local mother, father -- Note: if Ditto is present, the non-Ditto will be assigned to both mother and father
	for _, parent in pairs({a, b}) do
		local nonDittoParent = ditto and parent.data.num ~= 132
		if parent.gender == 'M' or nonDittoParent then
			father = parent
		end
		if parent.gender == 'F' or nonDittoParent then
			mother = parent
		end
	end
	-- Species
	egg.num = _f.DataService.fulfillRequest(nil, {'BabyEvolutionPokedexNumber', tostring(mother.num)}) -- OVH  confirm this usage works
	if egg.num == 29 or egg.num == 32 then
		egg.num = math.random(2)==1 and 29 or 32
	elseif egg.num == 313 or egg.num == 314 then
		egg.num = math.random(2)==1 and 313 or 314
	elseif mother.data.num == 490 then
		egg.num = 489
	end
	local incenses = { -- back by request
		{'seaincense',  183, 184, 298},
		{'laxincense',  202, nil, 360},
		{'roseincense', 315, 407, 406},
		{'pureincense', 358, nil, 433},
		{'rockincense', 185, nil, 438},
		{'oddincense',  122, nil, 439},
		{'luckincense', 113, 242, 440},
		{'waveincense', 226, nil, 458},
		{'fullincense', 143, nil, 446},
	}
	for _, incense in pairs(incenses) do
		if mother.data.num == incense[2] or mother.data.num == incense[3] then
			if mother:getHeldItem().id == incense[1] then
				egg.num = incense[4]
			else
				egg.num = incense[2]
			end
			break
		end
	end
				-- only eggCycles and hiddenAbility are used from this data, though
				-- TODO: make this sensitive to forme
	local eggData = _f.DataService.fulfillRequest(nil, {'Pokedex', egg.num})
	-- Forme
	if egg.num == 710 then
		egg.forme = Utilities.weightedRandom({{30, 's'}, {50, nil}, {15, 'L'}, {5, 'S'}}, function(o) return o[1] end)[2]
	elseif egg.num == 669 then
		egg.forme = Utilities.weightedRandom({{40, nil}, {30, 'o'}, {20, 'y'}, {9, 'w'}, {1, 'b'}}, function(o) return o[1] end)[2]
	elseif mother.forme == 'Alola' then
		egg.forme = 'Alola'
		-- TODO: when we add something like Alolan Exeggutor or Alolan Marowak, we need to make sure
		-- that it doesn't hurt anything to have dormant forme (sprite would probably crash)
	end
	-- Moves
	local moves = {}
		-- special move Volt Tackle
	if egg.num == 172 and (a:getHeldItem().id == 'lightball' or b:getHeldItem().id == 'lightball') then
		moves[#moves+1] = 'volttackle'
	end
	local learnedMoves = _f.Database.LearnedMoves[egg.num]
	if egg.forme == 'Alola' then
		learnedMoves = _f.Database.LearnedMoves.Alola[Utilities.toId(eggData.baseSpecies or eggData.species)] or learnedMoves
	end
	if learnedMoves.egg then
		-- egg moves
		for _, parent in pairs(mother == father and {mother} or {mother, father}) do
			for _, move in pairs(parent:getMoves()) do
				for _, eggMoveNum in pairs(learnedMoves.egg) do
					if move.num == eggMoveNum then
						moves[#moves+1] = move.id
						break
					end
				end
			end
		end
	end
	local levelUpMoves = learnedMoves.levelUp
	if levelUpMoves then
		-- parental level up moves
		if mother ~= father then
			for _, mm in pairs(mother:getMoves()) do
				for _, fm in pairs(father:getMoves()) do
					if mm.num == fm.num then
						for _, lum in pairs(levelUpMoves) do
							if lum[1] > 1 then
								for i = 2, #lum do
									if mm.num == lum[i] then
										moves[#moves+1] = mm.id
									end
								end
							end
						end
						break
					end
				end
			end
		end
		-- level 1 moves
		if levelUpMoves[1][1] == 1 then
			for i = #levelUpMoves[1], 2, -1 do
				local moveNum = levelUpMoves[1][i]
				moves[#moves+1] = _f.Database.MoveByNumber[moveNum].id
			end
		end
	end
	if #moves > 0 then
		-- remove repeats
		for i, move in pairs(moves) do
			for j = #moves, i+1, -1 do
				if move == moves[j] then
					table.remove(moves, j)
				end
			end
		end
		-- truncate to 4 max
		local m = {}
		for i = 1, math.min(4, #moves) do
			m[i] = {id = moves[i]}
		end
		egg.moves = m
	end
	-- Stats
	local ivs = {0, 0, 0, 0, 0, 0}
	for i = 1, 6 do
		ivs[i] = math.random(0, 31)
	end
	local inheritedIVs = 3
	if a:getHeldItem().id == 'destinyknot' or b:getHeldItem().id == 'destinyknot' then
		inheritedIVs = 5
	end
	local evEnhancers = {
		'powerweight',
		'powerbracer',
		'powerbelt',
		'powerlens',
		'powerband',
		'poweranklet',
	}
	local inheritable = {1, 2, 3, 4, 5, 6}
	local evItems = {}
	for i, item in pairs(evEnhancers) do
		if a:getHeldItem().id == item then
			table.insert(evItems, {i, a.ivs[i]})
		elseif b:getHeldItem().id == item then
			table.insert(evItems, {i, b.ivs[i]})
		end
	end
	if #evItems > 0 then
		local item = evItems[math.random(#evItems)]
		local stat = item[1]
		table.remove(inheritable, stat)
		ivs[stat] = item[2]
		inheritedIVs = inheritedIVs - 1
	end
	for i = 1, inheritedIVs do
		local stat = table.remove(inheritable, math.random(#inheritable))
		if math.random(2) == 1 then
			ivs[stat] = a.ivs[stat]
		else
			ivs[stat] = b.ivs[stat]
		end
	end
	egg.ivs = ivs
	-- Nature
	local natures = {}
	for _, parent in pairs({a, b}) do
		if parent:getHeldItem().id == 'everstone' then
			table.insert(natures, parent.nature)
		end
	end
	if #natures > 0 then
		egg.nature = natures[math.random(#natures)]
	end
	-- Ability
	if eggData.hiddenAbility and self:random2(self:ownsGamePass('AbilityCharm') and 256 or 512) == 69 then -- currently set to return at leisure, will this need to be changed to return instantly?
--	if mother:getAbilityConfig() == 3 and math.random(100) <= 60 then
		egg.hiddenAbility = true
	elseif not ditto and math.random(100) <= 80 then
		egg.personality = math.floor(2^32 * math.random())
		if math.floor(mother.personality / 65536) % 2 ~= math.floor(egg.personality / 65536) % 2 then
			egg.swappedAbility = not mother.swappedAbility
		end
	end
	-- Poke Ball
	if not ditto and mother.pokeball ~= 4 and mother.pokeball ~= 24 then -- TODO: Gen 7 allows father to pass Poke Ball when breeding w/ Ditto
		egg.pokeball = mother.pokeball
	end
	-- Shininess
	egg.shinyChance = 4096
	-- Egg Cycles
	egg.eggCycles = eggData.eggCycles
	if not egg.eggCycles then
		warn('Missing egg cycle data for', egg.num)
		egg.eggCycles = 40
	end
	if self:ownsGamePass('OvalCharm', true) then
		egg.eggCycles = math.ceil(egg.eggCycles * .85)
	end
	return self:newPokemon(egg)
end

function PlayerData:Daycare_tryBreed()
	if self.daycare.manHasEgg then return end
	local dp = self.daycare.depositedPokemon
	local chance = self:getBreedChance(dp[1], dp[2])
	if chance and math.random(100) <= chance then
		self.daycare.manHasEgg = true
		-- notify player to turn old man around if in chunk 9
		_f.Network:post('eggFound', self.player)
	end
end

function PlayerData:getDCPhrase()
	local dp = self.daycare.depositedPokemon
	if #dp == 2 then
		return {
			dp[1].name, dp[2].name,
			self:getBreedChance(dp[1], dp[2], true) or 4
		}
	elseif #dp == 1 then
		return dp[1].name
	end
	return true
end

function PlayerData:takeEgg()
	if not self.daycare.manHasEgg then return false end
	if #self.party >= 6 then return 'full' end
	self.daycare.manHasEgg = false
	local dp = self.daycare.depositedPokemon
	local egg = self:breed(dp[1], dp[2])
	if not egg then return false end
	table.insert(self.party, egg)
	return true
end

function PlayerData:keepEgg()
	self.daycare.manHasEgg = false
end

function PlayerData:getDCInfo()
	local pdata = {}
	for i, pokemon in pairs(self.daycare.depositedPokemon) do
		pokemon.experience = math.min(pokemon.experience, pokemon:getRequiredExperienceForLevel(_f.levelCap))
		local level = pokemon:getLevelFromExperience()
		pdata[i] = {
			name = pokemon.name,
			gen = pokemon.gender,
			lvl = level,
			inc = level - pokemon.depositedLevel,
		}
	end
	return {
		p = pdata,
		m = self.money,
		f = #self.party>=6,
	}
end

function PlayerData:leaveDCPokemon(index)
	local dp = self.daycare.depositedPokemon
	if type(index) ~= 'number' or #dp >= 2 then return false end
	local pokemon = self.party[index]
	if not pokemon then return false end
	if pokemon.egg then return 'eg' end
	local hasAnotherValidPokemon = false
	for i, p in pairs(self.party) do
		if i ~= index and not p.egg and p.hp > 0 then
			hasAnotherValidPokemon = true
			break
		end
	end
	if not hasAnotherValidPokemon then return 'oh' end

	table.remove(self.party, index)
	pokemon.depositedLevel = pokemon.level
	pokemon:heal()
	dp[#dp+1] = pokemon
	return pokemon.name
end

function PlayerData:takeDCPokemon(index)
	local dp = self.daycare.depositedPokemon
	if type(index) ~= 'number' or #self.party >= 6 then return false end
	local pokemon = dp[index]
	if not pokemon then return false end
	pokemon.experience = math.min(pokemon.experience, pokemon:getRequiredExperienceForLevel(_f.levelCap))
	pokemon.level = pokemon:getLevelFromExperience()
	local growth = pokemon.level - pokemon.depositedLevel
	local price = 100 + 100*growth
	if not self:addMoney(-price) then return false end

	if growth > 0 then
		pokemon:forceLearnLevelUpMoves(pokemon.depositedLevel+1, pokemon.level)
	end
	table.remove(dp, index)
	pokemon.depositedLevel = nil
	table.insert(self.party, pokemon)
	return true
end


-- BATTLE
function PlayerData:getTeamPreviewIcons()
	local icons = {}
	for i, p in pairs(self.party) do
		icons[i] = {p:getIcon(), (not p.egg and p.shiny) and true or false}
	end
	return icons
end
-- TRADE
function PlayerData:getPartyDataForTrade()
	local icons = {}
	local serialization = {}
	for i, p in pairs(self.party) do
		icons[i] = {p:getIcon(), (not p.egg and p.shiny) and true or false, p.untradable and true or false} -- OVH  TODO: untradable not implemented on TradeManager (SERVER)
		serialization[i] = p:serialize(true)
	end
	return icons, serialization
end
function PlayerData:performTrade(myOffer, theirOffer, myEtc, theirSerializedParty)
--	self.tradeCancelData = nil
	local cancel = {}
	self.tradeCancelData = cancel

	local oldParty = self.party
	local newParty = Utilities.shallowcopy(oldParty)

	local placeholder = {}
	local receive = {}

	-- things for client
	local evolutions = {}

	for i = 1, 4 do
		if myOffer[i] then -- replace offers with placeholder
			newParty[myOffer[i] ] = placeholder

			-- remove OUR stamps
			local pokemon = oldParty[myOffer[i] ]
			local stamps = pokemon.stamps
			pokemon.stamps = nil
			if stamps then
				table.insert(cancel, function() pokemon.stamps = stamps end)
				for _, stamp in pairs(stamps) do
					self:addStampToInventory(stamp)
					local stampId = _f.PBStamps:getStampId(stamp)
					table.insert(cancel, function()
						for i = #self.pbStamps, 1, -1 do
							local stamp = self.pbStamps[i]
							if stamp.id == stampId then
								stamp.quantity = stamp.quantity - 1
								if stamp.quantity < 1 then
									table.remove(self.pbStamps, i)
								end
							end
						end
					end)
				end
			end
			--
		end
		if theirOffer[i] then -- just collect receives for now
			table.insert(receive, theirSerializedParty[theirOffer[i] ])
		end
	end
	local checkParty = true
	for _, s in pairs(receive) do
		local inparty = false
		if checkParty then
			for i = 1, 6 do
				if newParty[i] == placeholder or newParty[i] == nil then
					local pokemon = _f.ServerPokemon:deserialize(s, self)
					pokemon.nickname = nil -- remove nicknames when trading
					pokemon.stamps = nil-- remove THEIR stamps
					newParty[i] = pokemon
					local num = pokemon.num
					if not pokemon.egg and not self:hasOwnedPokemon(num) then
						if not self:hasSeenPokemon(num) then
							table.insert(cancel, function() self:unseePokemon(num) end)
						end
						table.insert(cancel, function() self:unownPokemon(num) end)
						self:onOwnPokemon(num)
					end
					-- evolution
					local evoData = pokemon:generateEvolutionDecision(2)
					if evoData then
						evolutions[#evolutions+1] = {
							pokeName = pokemon:getName(),
							known = (evoData.moves and pokemon:getCurrentMovesData()),
							evo = evoData
						}
					end
					--
					inparty = true
					break
				end
			end
		end
		if not inparty then
			checkParty = false
			-- need to send to pc
			local pokemon = _f.ServerPokemon:deserialize(s, self)
			pokemon.nickname = nil -- remove nicknames when trading
			local box, pos = self:PC_sendToStore(pokemon, true)
			table.insert(cancel, function()
				self.pc.boxes[box][pos] = nil
			end)
		end
	end
	for i = 6, 1, -1 do
		if newParty[i] == placeholder then
			table.remove(newParty, i)
		end
	end
	table.insert(cancel, function() self.party = oldParty end)
	self.party = newParty
	return self:serialize(myEtc), self:PC_serialize(), evolutions
end
function PlayerData:sealTrade()
	self.tradeCancelData = nil
end
function PlayerData:cancelTrade()
	local cancel = self.tradeCancelData
	if not cancel then return end
	for _, fn in pairs(cancel) do
		pcall(fn)
	end
end


-- UW Mining
function PlayerData:countBatteries()
	local bd = self:getBagDataById('umvbattery', 5)
	return bd and bd.quantity or 0
end
do
	local fossils = {
		helixfossil = 'Omanyte',
		domefossil  = 'Kabuto',
		oldamber    = 'Aerodactyl',
		rootfossil  = 'Lileep',
		clawfossil  = 'Anorith',
		skullfossil = 'Cranidos',
		armorfossil = 'Shieldon',
		coverfossil = 'Tirtouga',
		plumefossil = 'Archen',
		jawfossil   = 'Tyrunt',
		sailfossil  = 'Amaura',
	}
	function PlayerData:hasFossil()
		local hasFossil, hasFossilEgg = false, false
		for fossil in pairs(fossils) do
			local bd = self:getBagDataById(fossil, 1)
			if bd and bd.quantity and bd.quantity > 0 then
				hasFossil = true
				break
			end
		end
		for _, p in pairs(self.party) do
			if p.egg and p.fossilEgg then
				hasFossilEgg = true
				break
			end
		end
		return hasFossil, hasFossilEgg
	end
	function PlayerData:reviveFossil(fossilIdOrPartyIndex)
		if type(fossilIdOrPartyIndex) == 'string' then
			-- fossil
			local pokemonName = fossils[fossilIdOrPartyIndex]
			if not pokemonName then return end
			local fossilItem = _f.Database.ItemById[fossilIdOrPartyIndex]
			if not self:getBagDataByNum(fossilItem.num) then return end

			return {
				fossilItem.name,
				pokemonName,
				self:createDecision {
					callback = function(_, confirm)
						if not confirm then return end
						if not self:incrementBagItem(fossilItem.num, -1) then return false end
						local pokemon = self:newPokemon {
							name = pokemonName,
							level = 10,
							shinyChance = 4096,
						}
						return {
							pokemon:getIcon(),
							(pokemon.shiny and true or false),
							self:createDecision {
								callback = function(_, nickname)
									if type(nickname) == 'string' then
										pokemon:giveNickname(nickname)
									end
									if #self.party < 6 then
										self:caughtPokemon(pokemon)
										return true
									else
										local box = (self:PC_sendToStore(pokemon))
										return pokemon:getName() .. ' was sent to Box ' .. box .. '!'
									end
								end
							}
						}
					end
				}
			}
		elseif type(fossilIdOrPartyIndex) == 'number' then
			-- fossil egg
			local pokemon = self.party[fossilIdOrPartyIndex]
			if not pokemon or not pokemon.fossilEgg then return end
			pokemon.fossilEgg = nil
			return true
		end
	end
end
function PlayerData:diveInternal()
	if self.mineSession then pcall(function() self.mineSession:destroy() end) end
	local ms = _f.MiningService:new(self)
	self.mineSession = ms
	return ms:next()
end
function PlayerData:dive()
	if _f.Context ~= 'adventure' or not self.completedEvents.DamBusted then return end
	if not self:incrementBagItem('umvbattery', -1) then return end
	return self:diveInternal()
end
function PlayerData:nextDig()
	if not self.mineSession then return end
	return self.mineSession:next()
end
function PlayerData:finishDig(...)
	if not self.mineSession or not self.mineSession.mGrid then return end
	return self.mineSession.mGrid:Finish(self, ...)
end


function PlayerData:nSpins()
	return self.stampSpins
end
function PlayerData:addStampToInventory(stamp)
	local stampId = _f.PBStamps:getStampId(stamp)
	for _, s in pairs(self.pbStamps) do
		if s.id == stampId then
			s.quantity = math.min(99, (s.quantity or 1) + (stamp.quantity or 1))
			return
		end
	end
	table.insert(self.pbStamps, {
		sheet = stamp.sheet,
		n = stamp.n,
		color = stamp.color,
		style = stamp.style,
		quantity = stamp.quantity or 1,
		id = stampId
	})
end
function PlayerData:spinForStamp()
	if self.stampSpins < 1 then return end

	-- use a spin
	self.stampSpins = self.stampSpins - 1
	-- get a random stamp
	local stamp = _f.PBStamps.getRandomStamp(function(...) return self:random2(...) end)
	-- add stamp to inventory
	self:addStampToInventory(stamp)
	-- attempt an autosave of the received stamp & used spin
	spawn(function()
		if self.lastSaveEtc then
			self:saveGame(self.lastSaveEtc)
		end
	end)

	return stamp
end
function PlayerData:pokemonInfoForStampSystem(pokemon)
	local forme
	if pokemon.forme then
		local id = pokemon.name .. '-' .. pokemon.forme
		if _f.Database.GifData._FRONT[id] then
			forme = pokemon.forme
		end
	end
	return {
		species = pokemon.name,
		shiny = pokemon.shiny,
		gender = pokemon.gender,
		pokeball = pokemon.pokeball,
		forme = forme
	}
end
function PlayerData:stampInventory(pokemonSlot)
	local pokemon = self.party[pokemonSlot]
	if not pokemon or pokemon.egg then return end

	local PBStamps = _f.PBStamps
	local getStampId = PBStamps.getStampId
	local getExtendedStampData = PBStamps.getExtendedStampData

	local pData = self:pokemonInfoForStampSystem(pokemon)
	local pStamps = {}
	pData.stamps = pStamps
	local unaccountedFor = {}
	if pokemon.stamps then
		for i, stamp in pairs(pokemon.stamps) do
			unaccountedFor[getStampId(PBStamps, stamp)] = stamp
			pStamps[i] = getExtendedStampData(PBStamps, stamp)
		end
	end
	local inventory = {}
	for i, stamp in pairs(self.pbStamps) do
		inventory[i] = getExtendedStampData(PBStamps, stamp)
		unaccountedFor[stamp.id] = nil
	end
	for _, stamp in pairs(unaccountedFor) do
		local ed = getExtendedStampData(PBStamps, stamp)
		ed.quantity = 0
		inventory[#inventory+1] = ed
	end
	table.sort(inventory, function(a, b)
--		if not a.tier or not b.tier then
--			print(type(a), a)
--			if type(a) == 'table' then
--				Utilities.print_r(a)
--			end
--			print(type(b), b)
--			if type(b) == 'table' then
--				Utilities.print_r(b)
--			end
--		end
		if a.tier  ~= b.tier  then return a.tier  > b.tier  end
		if a.sheet ~= b.sheet then return a.sheet < b.sheet end
		if a.n     ~= b.n     then return a.n     < b.n     end
		if a.color ~= b.color then return a.color < b.color end
		                           return a.style < b.style
	end)
	return inventory, pData, self:ownsGamePass('ThreeStamps', true)
end
function PlayerData:setStamps(pokemonSlot, stampIds)
	local maxStamps = self:ownsGamePass('ThreeStamps', true) and 3 or 1
	if type(stampIds) ~= 'table' or #stampIds > maxStamps then return end
	local pokemon = self.party[pokemonSlot]
	if not pokemon then return end
	local updatedQuantities = {}
	local function getStampWithId(id)
		for i, stamp in pairs(self.pbStamps) do
			if stamp.id == id then
				return stamp, i
			end
		end
	end
	for i, id in pairs(stampIds) do
		if type(i) ~= 'number' then return end
		local q = updatedQuantities[id]
		if q then
			updatedQuantities[id] = q - 1
		else
			local stamp = getStampWithId(id)
			if stamp then
				updatedQuantities[id] = stamp.quantity - 1
			else
				updatedQuantities[id] = -1
			end
		end
	end
	if pokemon.stamps then
		for i, stamp in pairs(pokemon.stamps) do
			local id = stamp.id or _f.PBStamps:getStampId(stamp)
			local q = updatedQuantities[id]
			if q then
				updatedQuantities[id] = q + 1
			else
				local stamp = getStampWithId(id)
				if stamp then
					updatedQuantities[id] = stamp.quantity + 1
				else
					updatedQuantities[id] = 1
				end
			end
		end
	end
	for _, q in pairs(updatedQuantities) do
		if q < 0 then return end -- bad ending stamp count
	end
	for id, q in pairs(updatedQuantities) do
		local stamp, i = getStampWithId(id)
		if stamp then
			stamp.quantity = q
		else
			local sheet, n, color, style = id:match('(%d+),(%d+),(%d+),(%d+)')
			sheet, n, color, style = tonumber(sheet), tonumber(n), tonumber(color), tonumber(style)
			if sheet and n and color and style then
				stamp = {
					sheet = sheet,
					n = n,
					color = color,
					style = style,
					quantity = q,
					id = id
				}
				table.insert(self.pbStamps, stamp)
			else
				print('bad stamp id: could not convert "'..id..'" back to stamp (unequip)')
			end
		end
	end
	local pStamps = {}
	for i, id in pairs(stampIds) do
		local sheet, n, color, style = id:match('(%d+),(%d+),(%d+),(%d+)')
		sheet, n, color, style = tonumber(sheet), tonumber(n), tonumber(color), tonumber(style)
		if sheet and n and color and style then
			table.insert(pStamps, {
				sheet = sheet,
				n = n,
				color = color,
				style = style
			})
		else
			print('bad stamp id: could not convert "'..id..'" back to stamp (equip)')
		end
	end
	pokemon.stamps = pStamps
end


function PlayerData:hasOKS()
	return self:getBagDataById('oddkeystone', 1) and true or false
end

function PlayerData:hasSTP()
	return self:getBagDataById('skytrainpass', 5) and true or false
end

function PlayerData:hasFlute()
	return self:getBagDataById('pokeflute', 5) and true or false
end

function PlayerData:hasRTM()
	local n = 0
	for _, p in pairs(self.party) do
		if not p.egg and p.name == 'Rotom' then
			n = n + 1
			if n > 1 then return n end
		end
	end
	return n
end

function PlayerData:hasJKey()
	local unowns = {}
	for _, p in pairs(self.party) do
		if p.num == 201 then
			unowns[p.forme or 'a'] = true
		end
	end
	local has = unowns.o and unowns.p and unowns.e and unowns.n
	self.flags.hasjkey = has
	return has
end

function PlayerData:getHoneyData()
	local honeyStatus = 0
	if self.honey then
		local now = os.time()
		if now > self.honey.slatheredAt + 60*60*24 then
			-- honey expires after 24 hours
			self.honey = nil
		elseif now >= self.honey.slatheredAt + 60*60 then
			-- honey attracts a pokemon after 1 hour
			honeyStatus = self.honey.foe.num==216 and 2 or 3
		else
			-- still waiting for pokemon, show honey on tree
			honeyStatus = 1
		end
	end
	return {
		canget = self:canGetHoney(),
		status = honeyStatus,
		has = (self:getBagDataById('honey', 1) and true or false)
	}
end
function PlayerData:canGetHoney()
	return _f.Date:getDayId() > self.lastHoneyGivenDay
end
function PlayerData:getHoney()
	if not self:canGetHoney() then return end
	self.lastHoneyGivenDay = _f.Date:getDayId()
	self:addBagItems({id = 'honey', quantity = 1})
end
-- lotto stuff --
function PlayerData:getMoneyLo()
	self:addBagItems({id = 'hyperpotion', quantity = 1})
end
function PlayerData:getMooMooLo()
	self:addBagItems({id = 'moomoomilk', quantity = 1})
end
function PlayerData:getCoffeeLo()
	self:addBagItems({id = 'sawsbuckcoffee', quantity = 1})
end
function PlayerData:getDianciteLo()
	self:addBagItems({id = 'diancite', quantity = 1})
end
function PlayerData:getOldAmberLo()
	self:addBagItems({id = 'oldamber', quantity = 1})
end
function PlayerData:getSCapLo()
	self:addBagItems({id = 'silverbottlecap', quantity = 1})
end
-- end of lotto --
function PlayerData:slatherHoney()
	if self.honey and os.time() < self.honey.slatheredAt + 60*60*24 then return false end
	if not self:incrementBagItem('honey', -1) then return false end

	local chunkData = _f.Database.ChunkData
	local encId = chunkData.chunk15.regions['Route 10'].HoneyTree.id
	local encList = chunkData.encounterLists[encId].list

	local foe = Utilities.weightedRandom(encList, function(p) return p[4] end)
	local pokemon = self:newPokemon {
		name = foe[1],
		level = math.random(foe[2], foe[3]),
		shinyChance = 4096,
	}
	if self:ownsGamePass('AbilityCharm', true) and pokemon.data.hiddenAbility and self:random2(512) == 69 then
		pokemon.hiddenAbility = true
	end
	self.honey = {
		slatheredAt = os.time(),
		foe = pokemon
	}
end

function PlayerData:isDinWM()
	local is = _f.Date:getWeekId() > self.lastDrifloonEncounterWeek and _f.Date:getWeekdayName() == 'Friday'
	if is then self.flags.DinWM = true end
	return is
end

function PlayerData:isTinD()
	local is = _f.Date:getWeekId() > self.lastTrubbishEncounterWeek and _f.Date:getWeekdayName() == 'Tuesday'
	if is then self.flags.TinD = true end
	return is
end

function PlayerData:buyTicket()
	if not self:addMoney(-3000) then return 'nm' end
end

function PlayerData:giveTicketItems(awardlevel)
	local mon = _f.Date:getWeekId() and _f.Date:getWeekdayName() == 'Monday'
	local tue = _f.Date:getWeekId() and _f.Date:getWeekdayName() == 'Tuesday'
	local wed = _f.Date:getWeekId() and _f.Date:getWeekdayName() == 'Wednesday'
	local thu = _f.Date:getWeekId() and _f.Date:getWeekdayName() == 'Thursday'
	local fri = _f.Date:getWeekId() and _f.Date:getWeekdayName() == 'Friday'
	local sat = _f.Date:getWeekId() and _f.Date:getWeekdayName() == 'Saturday'
	local sun = _f.Date:getWeekId() and _f.Date:getWeekdayName() == 'Sunday'
	local item
	if mon then

		local moomoo = 'moomoomilk'
		local umvba = 'umvbattery'
		local oldam = 'oldamber'
		local dian = 'diancite'
		local mewy = 'mewtwonitey'

			if awardlevel == 0 then
				return end
			if awardlevel == 1 then
				local item = _f.Database.ItemById[moomoo]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 2 then
				local item = _f.Database.ItemById[umvba]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 3 then
				local item = _f.Database.ItemById[oldam]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 4 then
				local item = _f.Database.ItemById[dian]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 5 then
				local item = _f.Database.ItemById[mewy]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
		end
	elseif tue then

		local moomoo = 'umvbattery'
		local umvba = 'ppup'
		local oldam = 'heartscale'
		local dian = 'steelixite'
		local mewy = 'mewtwonitex'

			if awardlevel == 0 then
				return end
			if awardlevel == 1 then
				local item = _f.Database.ItemById[moomoo]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 2 then
				local item = _f.Database.ItemById[umvba]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 3 then
				local item = _f.Database.ItemById[oldam]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 4 then
				local item = _f.Database.ItemById[dian]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 5 then
				local item = _f.Database.ItemById[mewy]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
		end
	elseif wed then

		local moomoo = 'waterstone'
		local umvba = 'umvbattery'
		local oldam = 'ppup'
		local dian = 'diancite'
		local mewy = 'luckyegg'

			if awardlevel == 0 then
				return
			end
			if awardlevel == 1 then
				local item = _f.Database.ItemById[moomoo]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 2 then
				local item = _f.Database.ItemById[umvba]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 3 then
				local item = _f.Database.ItemById[oldam]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 4 then
				local item = _f.Database.ItemById[dian]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 5 then
				local item = _f.Database.ItemById[mewy]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
		end
	elseif thu then

		local moomoo = 'moomoomilk'
		local umvba = 'razorclaw'
		local oldam = 'oldamber'
		local dian = 'destinyknot'
		local mewy = 'sharpedonite'

			if awardlevel == 0 then
				return
			end
			if awardlevel == 1 then
				local item = _f.Database.ItemById[moomoo]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 2 then
				local item = _f.Database.ItemById[umvba]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 3 then
				local item = _f.Database.ItemById[oldam]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 4 then
				local item = _f.Database.ItemById[dian]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 5 then
				local item = _f.Database.ItemById[mewy]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			end
	elseif fri then

		local moomoo = 'firestone'
		local umvba = 'thunderstone'
		local oldam = 'rarecandy'
		local dian = 'ovalstone'
		local mewy = 'latiosite'

			if awardlevel == 0 then
				return
			end
			if awardlevel == 1 then
				local item = _f.Database.ItemById[moomoo]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 2 then
				local item = _f.Database.ItemById[umvba]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 3 then
				local item = _f.Database.ItemById[oldam]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 4 then
				local item = _f.Database.ItemById[dian]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 5 then
				local item = _f.Database.ItemById[mewy]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			end
	elseif sat then

		local moomoo = 'umvbattery'
		local umvba = 'waterstone'
		local oldam = 'kingsrock'
		local dian = 'masterball'
		local mewy = 'latiasite'

			if awardlevel == 0 then
				return
			end
			if awardlevel == 1 then
				local item = _f.Database.ItemById[moomoo]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 2 then
				local item = _f.Database.ItemById[umvba]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 3 then
				local item = _f.Database.ItemById[oldam]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 4 then
				local item = _f.Database.ItemById[dian]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 5 then
				local item = _f.Database.ItemById[mewy]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			end
	elseif sun then

		local moomoo = 'thunderstone'
		local umvba = 'moomoomilk'
		local oldam = 'machobrace'
		local dian = 'zinc'
		local mewy = 'audinite'

			if awardlevel == 0 then
				return
			end
			if awardlevel == 1 then
				local item = _f.Database.ItemById[moomoo]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 2 then
				local item = _f.Database.ItemById[umvba]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 3 then
				local item = _f.Database.ItemById[oldam]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 4 then
				local item = _f.Database.ItemById[dian]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
			elseif awardlevel == 5 then
				local item = _f.Database.ItemById[mewy]
				self:addBagItems({num = item.num, quantity = 1})
				return item.name
		end
	end
end

function PlayerData:buySushi()
	if not self:addMoney(-5000) then return 'nm' end
	local fortunes = {
		{'cheriberry', 10},
		{'chestoberry',10},
		{'rawstberry', 10},
		{'pechaberry', 10},
		{'aspearberry',10},
		{'prismscale',  5},
	}

	local itemId = Utilities.weightedRandom(fortunes, function(o) return o[2] end)[1]
	local item = _f.Database.ItemById[itemId]
	self:addBagItems({num = item.num, quantity = 1})
	return item.name
end

function PlayerData:getGreenhouseState()
	if self:getBagDataById('gracidea', 5) then return {f = 3} end -- already has flower
	local atLeastOneIsEvolved = false
	local uniqueFormes = 0
	local alreadyShown = {}
	for _, p in pairs(self.party) do
		if p.num == 669 or p.num == 670 or p.num == 671 then
			local forme = p.forme or 'r'
			if forme ~= 'e' then
				if not alreadyShown[forme] then
					uniqueFormes = uniqueFormes + 1
					alreadyShown[forme] = true
				end
				if p.num > 669 then
					atLeastOneIsEvolved = true
				end
			end
		end
	end
	if uniqueFormes < 5 then return {f = 1} end -- does not have all 5 formes
	return {
		f = 2,
		e = atLeastOneIsEvolved,
		d = self:createDecision {
			callback = function()
				self:addBagItems{id = 'gracidea', quantity = 1}
			end
		}
	}
end

function PlayerData:giveEkans(slot)
	if type(slot) ~= 'number' or self.completedEvents.GiveEkans then return end
	local pokemon = self.party[slot]
	if not pokemon or pokemon.num ~= 23 then return end
	return self:createDecision {
		callback = function(_, accept)
			if not accept or self.party[slot] ~= pokemon then return end
			table.remove(self.party, slot)
			self:completeEventServer('GiveEkans')
			if pokemon.shiny then self:completeEventServer('gsEkans') end
			self:addBagItems({id = 'pokeflute', quantity = 1})
			pcall(function() pokemon:destroy() end)
		end
	}
end

function PlayerData:motorize(forme, slot)
	if not forme then return end
	local rotom
	if type(slot) == 'number' then
		rotom = self.party[slot]
		if not rotom or rotom.name ~= 'Rotom' then return end
	else
		for _, p in pairs(self.party) do
			if p.name == 'Rotom' then
				if rotom then return end
				rotom = p
			end
		end
	end
	local forgot, learned, tryLearn, decision
	if forme == rotom.forme then
		forme = nil
	end
	local function setforme()
		rotom.forme = forme
		rotom.data = _f.Database.PokemonById['rotom'..(forme or '')]
	end
	local formeMoves = {
		fan = 'airslash',
		frost = 'blizzard',
		heat = 'overheat',
		mow = 'leafstorm',
		wash = 'hydropump'
	}
	local knownMoves = rotom:getMoves()
	for _, moveId in pairs(formeMoves) do
		for i = #knownMoves, 1, -1 do
			if knownMoves[i].id == moveId then
				forgot = knownMoves[i].name
				table.remove(rotom.moves, i)
				table.remove(knownMoves, i)
				break
			end
		end
	end
	local formeMove = forme and formeMoves[forme]
	if formeMove then
		local move = _f.Database.MoveById[formeMove]
		if #rotom.moves < 4 then
			learned = move.name
			table.insert(rotom.moves, {id = formeMove})
			setforme()
		else
			local d = rotom:generateDecisionsForMoves({move.num})
			local dd = self.decision_data[d[1].id]
			local cb = dd.callback
			dd.callback = function(...)
				local r = cb(...)
				if r == true then
					setforme() -- if not resetting forme, it is required to learn the move to complete the change
				end
				return r
			end
			tryLearn = d
		end
	end
	if not forme then
		setforme()
		if #rotom.moves == 0 then
			rotom.moves[1] = {id = 'thundershock'}
		end
	end
	return {
		f = forgot,
		l = learned,
		t = tryLearn,
		k = tryLearn and rotom:getCurrentMovesData() or nil,
		n = rotom:getName(),
		r = forme==nil and true or false,
	}
end


-- Save/Load Data
do
	local indexToEvent = { -- !!! ALWAYS add new keys to the END of the list !!!
		'MeetJake',
		'MeetParents',
		'ChooseFirstPokemon',
		'JakeBattle1',
		'PCPorygonEncountered',
		'ParentsKidnappedScene',
		'BronzeBrickStolen',
		'JakeTracksLinda',
		'BronzeBrickRecovered',
		'IntroducedToGym1',		-- 10
		'GivenSawsbuckCoffee',
		'ReceivedRTD',
		'EeveeAwarded',
		'RunningShoesGiven',
		'GroudonScene',
		'JakeBattle2',
		'TalkToJakeAndSebastian',
		'IntroToUMV',
		'TestDriveUMV',
		'ReceivedBWEgg',			-- 20
		'DamBusted',
		'JakeStartFollow',
		'JakeEndFollow',
		'GivenSnover',
		'KingsRockGiven',
		'RosecoveWelcome',
		'LighthouseScene',
		'ProfAfterGym3',
		'JakeAndTessDepart',
		'RotomBit0',				-- 30
		'RotomBit1',
		'RotomBit2',
		'JTBattlesR9',
		'GivenLeftovers',
		'Jirachi',
		'MeetAbsol',
		'ReachCliffPC',
		'BlimpwJT',
		'MeetGerald',
		'G4FoundTape',			-- 40
		'G4GaveTape',
		'G4FoundWrench',
		'G4GaveWrench',
		'G4FoundHammer',
		'G4GaveHammer',
		'SeeTEship',
		'GeraldKey',
		'TessStartFollow',
		'TessEndFollow',
		'DefeatTEinAC',			-- 50
		'EnteredPast',
		'LearnAboutSanta',
		'BeatSanta',
		'NiceListReward',
		'G5Shovel',
		'G5Pickaxe',
		'Shaymin',
		'RJO', -- red jewel obtained
		'RJP', -- red jewel placed
		'GJO', -- etc.			-- 60
		'GJP',
		'PJO',
		'PJP',
		'BJO',
		'BJP',
		'Victini',
		'TEinCastle',
		'Snorlax',
		'GiveEkans',
		'vAredia',				-- 70
		'gsEkans',
		'RNatureForces',
		'Landorus',
		'Heatran',
		'OpenJDoor',
		'Diancie',
		'FluoDebriefing',
		'vFluoruma',
		'TERt14',
		'RBeastTrio',			-- 80
		'PBSIntro',
		'hasHoverboard',
		'Eevee2Awarded',
		'TessBattle2',
		'vFrostveil',
		'BeatCyn',
		'DefeatTEinFC',
		'TalkToTess',
		'GivenCubchoo',
		'TessAndWayne',		    -- 90
		'vDeccaT',
		'vPortDe',
		'TessPortDecca',
		'ShipTickets',
		'BeatenOgre',
		'Cresselia',
		'LottoIntro',
		'BoatIntro',
		'DefeatTyroneInCT',
		'vCrescentTown',
		'Mew',
		'BeatenAniva',
		'GivenRCoffee',
		'GSBallObtained',
		--#newevent
		-- 1023 max (overkill)
	}
	local div = ';'
	local div2 = '-'
	local pokemonDiv = ','

	local CHAT = game:GetService('Chat')

	function PlayerData:getContinueScreenInfo()
		local str = select(1, self:getSaveData())
		if not str then return false end

		local ndiv = '([^'..div..']*)'
		local basic = str:match('^'..ndiv..div)
		local pokedex = ''
		local s = basic:find(div2, 1, true)
		if s then
			pokedex = basic:sub(s+1)
			basic = basic:sub(1, s-1)
			s = pokedex:find(div2, 1, true)
			if s then
				pokedex = pokedex:sub(1, s-1)
			end
		end
		local buffer = BitBuffer.Create()
		buffer:FromBase64(basic)
		local version = buffer:ReadUnsigned(6)
		local player = self.player
		local trainerName = buffer:ReadString()
		pcall(function() trainerName = CHAT:FilterStringAsync(trainerName, player, player) end)
		if trainerName == '' then trainerName = player.Name end
		local badges = 0
		for i = 1, 8 do
			if buffer:ReadBool() then
				badges = badges + 1
			end
		end
		local owned = 0
		buffer:FromBase64(pokedex)
		for _ = 1, pokedex:len()*3 do
			buffer:ReadBool()
			if buffer:ReadBool() then
				owned = owned + 1
			end
		end
		return true, trainerName, badges, owned
	end

	function PlayerData:serialize(etc)
		if not self.gameBegan then error('attempt to save before game began') end

		local saveString
		local buffer = BitBuffer.Create()
--		buffer:SetDebug(true)

	-- basic data
		local version = 14
		buffer:WriteUnsigned(6, version)
		-- name
		buffer:WriteString(--[[etc.tName or]] self.trainerName)
		-- badges
		for i = 1, 8 do
			buffer:WriteBool(self.badges[i] and true or false)
		end
		-- money
		buffer:WriteUnsigned(24, math.min(self.money, MAX_MONEY))
		buffer:WriteUnsigned(14, math.min(self.bp, MAX_BP))
		-- completed events
		local maxEventIndex = 0
		for i = #indexToEvent, 1, -1 do
			if self.completedEvents[indexToEvent[i]] then
				maxEventIndex = i
				break
			end
		end
		buffer:WriteUnsigned(10, maxEventIndex)
		for i = 1, maxEventIndex do
			buffer:WriteBool(self.completedEvents[indexToEvent[i]] and true or false)
		end
		-- misc
		buffer:WriteBool(etc.expShareOn and true or false)
		buffer:WriteString(self.starterType or '')
		if etc.repel and etc.repel.steps and etc.repel.steps > 0 then
			buffer:WriteBool(true)
			buffer:WriteUnsigned(2, etc.repel.kind)
			buffer:WriteUnsigned(8, math.ceil(etc.repel.steps/2))
		else
			buffer:WriteBool(false)
		end
		buffer:WriteUnsigned(12, math.min(4095, self.lastDrifloonEncounterWeek))
		buffer:WriteUnsigned(15, math.min(32767, self.lastHoneyGivenDay))
		if self.honey then
			buffer:WriteBool(true)
			buffer:WriteFloat64(self.honey.slatheredAt)
			buffer:WriteString(self.honey.foe:serialize(true))
		else
			buffer:WriteBool(false)
		end
		-- day care
		buffer:WriteBool(self.daycare.manHasEgg and true or false)
		for i = 1, 2 do
			local poke = self.daycare.depositedPokemon[i]
			if poke then
				buffer:WriteBool(true)
				buffer:WriteString(poke:serialize(true))
				buffer:WriteUnsigned(7, poke.depositedLevel or poke.level)
			else
				buffer:WriteBool(false)
				break
			end
		end
		-- options
		buffer:WriteBool(etc.options.autosaveEnabled and true or false)
		buffer:WriteBool(etc.options.reduceGraphics and true or false)
		buffer:WriteFloat64(etc.options.lastUnstuckTick or 0.0)
		-- RO-Powers -- in v12 we remove RO-Powers from the regular save data
--		for g = 1, 6 do
--			local l = self:ROPowers_getPowerLevel(g)
--			if l > 0 then
--				buffer:WriteBool(true)
--				buffer:WriteBool(l == 2)
--				buffer:WriteFloat64(self:ROPowers_getTimePurchased(g))
--			else
--				buffer:WriteBool(false)
--			end
--		end
		buffer:WriteFloat64(self.lcht)
		buffer:WriteUnsigned(12, math.min(4095, self.lastTrubbishEncounterWeek))
		-- [[ Poke Ball Stamps
		buffer:WriteUnsigned(10, math.min(999, self.stampSpins))
		buffer:WriteUnsigned(10, #self.pbStamps)
		for _, stamp in pairs(self.pbStamps) do
			buffer:WriteUnsigned(4, stamp.sheet)
			buffer:WriteUnsigned(5, stamp.n)
			buffer:WriteUnsigned(5, stamp.color)
			buffer:WriteUnsigned(3, stamp.style)
			buffer:WriteUnsigned(7, math.min(99, stamp.quantity or 1))
		end--]]
		-- Hoverboards
		buffer:WriteString(self.currentHoverboard)
		buffer:WriteUnsigned(5, #self.ownedHoverboards)
		for _, h in ipairs(self.ownedHoverboards) do
			buffer:WriteString(h)
		end
		--


		saveString = buffer:ToBase64()

	-- pokedex
		saveString = concatenate(saveString, div2, self.pokedex)

	-- misc
		saveString = concatenate(saveString, div2, self.defeatedTrainers, div2, self.tms, div2, self.hms)

	-- party
		saveString = concatenate(saveString, div)
		for i = 1, 6 do
			if self.party[i] then
				if i ~= 1 then saveString = concatenate(saveString, pokemonDiv) end
				saveString = concatenate(saveString, self.party[i]:serialize())
			end
		end

	-- bag
		saveString = concatenate(saveString, div, self.obtainedItems, div2)
		buffer:Reset()
		local stuff = {}
		for i = 1, 5 do
			for _, bd in pairs(self.bag[i]) do
				if bd.quantity > 0 then
					table.insert(stuff, { bd.num, bd.quantity or 1 })
				end
			end
		end
		buffer:WriteUnsigned(10, #stuff)
		for _, item in pairs(stuff) do
			buffer:WriteUnsigned(10, item[1])
			buffer:WriteUnsigned(7, math.min(99, item[2]))
		end
		saveString = concatenate(saveString, buffer:ToBase64())

	-- location
		saveString = concatenate(saveString, div)
		if context == 'adventure' then
			saveString = concatenate(saveString, etc.location)
		else
			saveString = concatenate(saveString, self.adventureLocationData)
		end

--		if _p.debug then print(saveString:len(), ':', saveString) end
		return saveString
	end

	function PlayerData:deserialize(str)
		if select(2, str:gsub(div, div)) ~= 3 then
			-- OVH  report so that I am notified and can attempt a fix
			error('error (pd::ds): div count mismatch')
		end
		local etc = {}
		local ndiv = '([^'..div..']*)'
		local basic, party, bag, location = str:match('^'..string.rep(ndiv..div, 3)..ndiv)
		local s = basic:find(div2, 1, true)
		if s then
			self.pokedex = basic:sub(s+1)
			basic = basic:sub(1, s-1)
			s = self.pokedex:find(div2, 1, true)
			if s then
				self.defeatedTrainers = self.pokedex:sub(s+1)
				self.pokedex = self.pokedex:sub(1, s-1)
				s = self.defeatedTrainers:find(div2, 1, true)
				if s then
					self.tms = self.defeatedTrainers:sub(s+1)
					self.defeatedTrainers = self.defeatedTrainers:sub(1, s-1)
					s = self.tms:find(div2, 1, true)
					if s then
						self.hms = self.tms:sub(s+1)
						self.tms = self.tms:sub(1, s-1)
					end
				end
			end
		else
			print(basic, 'No pokedex data found')
		end
		etc.dTrainers = self.defeatedTrainers
--		if _p.debug then
--			print(str)
--			print('basic', basic)
--			print('pokedex', self.pokedex)
--			print('party', party)
--			print('bag', bag)
--			print('location', location)
--		end
		local buffer = BitBuffer.Create()
--		buffer:SetDebug(true)

	-- basic data
		buffer:FromBase64(basic)
		local version = buffer:ReadUnsigned(6)
		-- name
		self.trainerName = buffer:ReadString()
		spawn(function()
			local player = self.player
			self.trainerName = CHAT:FilterStringAsync(self.trainerName, player, player)
		end)
		if self.trainerName == '' then self.trainerName = self.player.Name end
		etc.tName = self.trainerName
		-- badges
		local eb = {}
		for i = 1, 8 do
			if buffer:ReadBool() then
				self.badges[i] = true
				eb[tostring(i)] = true
			end
		end
		etc.badges = eb
		-- money
		self.money = buffer:ReadUnsigned(24)
		if version >= 3 then
			self.bp = buffer:ReadUnsigned(14)
		end
		-- completed events
		local maxEventIndex = buffer:ReadUnsigned(10)
		for i = 1, maxEventIndex do
			if buffer:ReadBool() then
				self.completedEvents[indexToEvent[i]] = true
			end
		end
		etc.completedEvents = Utilities.shallowcopy(self.completedEvents)
		-- misc
		if version >= 1 then
			etc.expShareOn = buffer:ReadBool()
		end
		if version >= 2 then
			self.starterType = buffer:ReadString()
		end
		if version >= 4 and buffer:ReadBool() then
			etc.repel = {}
			etc.repel.kind = buffer:ReadUnsigned(2)
			etc.repel.steps = buffer:ReadUnsigned(8) * 2
			local id = ({'repel', 'superrepel', 'maxrepel'})[etc.repel.kind]
			local more = self:getBagDataById(id, 1)
			if more and more.quantity and more.quantity > 0 then
				etc.repel.more = true
			end
		end
		if version >= 10 then
			self.lastDrifloonEncounterWeek = buffer:ReadUnsigned(12)
			self.lastHoneyGivenDay = buffer:ReadUnsigned(15)
			if buffer:ReadBool() then
				local honey = {}
				honey.slatheredAt = buffer:ReadFloat64()
				honey.foe = _f.ServerPokemon:deserialize(buffer:ReadString(), self)
				self.honey = honey
			end
		end
		-- day care
		if version >= 5 then
			self.daycare.manHasEgg = buffer:ReadBool()
			if self.daycare.manHasEgg then
				etc.dcEgg = true
			end
			for i = 1, 2 do
				if not buffer:ReadBool() then break end
				local poke = _f.ServerPokemon:deserialize(buffer:ReadString(), self)
				poke.depositedLevel = buffer:ReadUnsigned(7)
				self.daycare.depositedPokemon[i] = poke
			end
		end
		-- options
		if version >= 6 then
			etc.options = {}
			if buffer:ReadBool() then
				etc.options.autosaveEnabled = true
			end
			if buffer:ReadBool() then
				etc.options.reduceGraphics = true--_p.DataManager.useMobileGrass = true
--				_p.Menu.options:setLightingForReducedGraphics(true)
			end
			pcall(function()
				etc.options.lastUnstuckTick = buffer:ReadFloat64()
			end)
		end
		-- RO-Powers
		if version < 12 and version >= 7 then -- RO-Powers were added in v7, removed in v12
			for g = 1, (version>=9 and 6 or 3) do
				if buffer:ReadBool() then
					buffer:ReadUnsigned(65) -- skip past the data
--					local l = buffer:ReadBool() and 2 or 1
--					local t = math.min(buffer:ReadFloat64(), os.time()+RO_POWER_EFFECT_DURATION*2) -- in case they saved with an outrageously future purchase time (pre-OVH), limit it to two hours from load time
--					self:ROPowers_setTimePurchasedAndLevelForPower(g, t, l)
				end
			end
		end
		if version >= 8 then
			self.lcht = buffer:ReadFloat64()
		end
		if version >= 11 then
			self.lastTrubbishEncounterWeek = buffer:ReadUnsigned(12)
		end
		-- [[ Poke Ball Stamps
		if version >= 13 then
			self.stampSpins = buffer:ReadUnsigned(10)
			local pbStamps = {}
			for i = 1, buffer:ReadUnsigned(10) do
				local stamp = {}
				stamp.sheet = buffer:ReadUnsigned(4)
				stamp.n     = buffer:ReadUnsigned(5)
				stamp.color = buffer:ReadUnsigned(5)
				stamp.style = buffer:ReadUnsigned(3)
				stamp.quantity = buffer:ReadUnsigned(7)
				stamp.id    = _f.PBStamps:getStampId(stamp)
				pbStamps[i] = stamp
			end
			self.pbStamps = pbStamps
		end--]]
		-- Hoverboards
		if version >= 14 then
			self.currentHoverboard = buffer:ReadString()
			local oh = {}
			for i = 1, buffer:ReadUnsigned(5) do
				oh[i] = buffer:ReadString()
			end
			self.ownedHoverboards = oh
		end
		--

	-- pokedex
		-- completed above

	-- party
		local p = 1
		for s in party:gmatch('[^'..pokemonDiv..']+') do
			if s and s ~= '' then
				self.party[p] = _f.ServerPokemon:deserialize(s, self)
				p = p + 1
			end
		end
		if not self.party[1] then
			etc.newGameFlag = true -- indicates to hide Pokemon / Pokedex from the Menu
		end

	-- bag
		if bag and bag ~= '' then
			local s = bag:find(div2, 1, true)
			if s then
				self.obtainedItems = bag:sub(1, s-1)
				bag = bag:sub(s+1)
				buffer:FromBase64(bag)
--				local items = {}
--				local toQuery = {}
				for _ = 1, buffer:ReadUnsigned(10) do
					local num = buffer:ReadUnsigned(10)
					local qty = buffer:ReadUnsigned(7)
					self:addBagItems({num = num, quantity = qty})
--					table.insert(items, {num, qty})
--					table.insert(toQuery, num)
				end
--				if #items > 0 then
--					_p.DataManager:getItemBundle(toQuery)
--					for _, i in pairs(items) do
--						local item = _f.DataService.fulfillRequest(nil, {'Items', i[1]})
--						self:addBagItems({ num = i[2], quantity = i[2] })
--					end
--				end
			end
		end

	-- location
		if context == 'adventure' then
			etc.location = location
		else
			self.adventureLocationData = location
		end
		if #self.daycare.depositedPokemon > 0 then
			etc.daycareHasPokemon = true
		end

	-- Misc
	-- Restore RO Powers
		self:ROPowers_restore()

	-- Fix for Absol in Pokedex
		if self.completedEvents.EnteredPast then
			self:onOwnPokemon(359)
		end

	-- Update Player Lists (and get dex count)
		self:updatePlayerListEntry(true)

	-- Pseudo-events / Server-events
		if BitBuffer.GetBit(self.hms, 1) then
			etc.completedEvents.GetCut = true
		end
		if self:getBagDataById('oldrod', 5) then
			etc.completedEvents.GetOldRod = true
		end
		for k, v in pairs(_f.PlayerEvents) do
			if type(v) == 'table' and v.server then
				etc.completedEvents[k] = nil
			end
		end
		etc.rotom = self:getRotomEventLevel()

		return etc
	end
end

function PlayerData:getSaveData()
	if self.loadedData then
		return self.loadedData[1], self.loadedData[2]
	end
	local data, pcData
	while true do
		local s, d, p = _f.DataPersistence.LoadData(self.player)
		if s then
			data = d
			pcData = p
			break
		end
		wait(1.5)
	end
	self.loadedData = {data, pcData}
	return data, pcData
end

function PlayerData:saveGame(etc)
	if not self.gameBegan or self.userId < 1 then return false end -- refuse to save guests' data
	-- todo: refuse during battle or trade?
	if not etc or type(etc)  ~= 'table'
--		or type(etc.tName)   ~= 'string'
		or type(etc.options) ~= 'table'
		or type(etc.options.lastUnstuckTick) ~= 'number'
		or (type(etc.location) ~= 'string' and _f.Context == 'adventure') -- location is not required in battle/trade contexts
	then
		print('BAD ETC FROM PLAYER '..self.player.Name)
		return false
	end
	local s, r = pcall(function() return self:serialize(etc) end)
	if not s then
		print(self.player.Name..' ENCOUNTERED ERROR DURING SERIALIZATION:')
		print(r)
		return false
	end
	local saveString = r
	s, r = pcall(function() return self:PC_serialize() end)
	if not s then
		print(self.player.Name..' ENCOUNTERED ERROR DURING PC SERIALIZATION:')
		print(r)
		return false
	end
	local pcString = r
	for _ = 1, 3 do
		s = _f.DataPersistence.SaveData(self.player, saveString, pcString)
		if s then
			self.lastSaveEtc = etc -- Use SPARINGLY and CAREFULLY. Currently used for autosaving items obtained during diving; also for PB Stamp Spinner.
			return true
		end
		wait(.1)
	end
	return false
end

function PlayerData:getRotomEventLevel()
	local v = 0
	for i = 0, 2 do
		if self.completedEvents['RotomBit'..i] then
			v = v + 2^i
		end
	end
	return v
end
function PlayerData:setRotomEventLevel(v)
	for i = 2, 0, -1 do
		local p = 2^i
		if v >= p then
			v = v - p
			self.completedEvents['RotomBit'..i] = true
		else
			self.completedEvents['RotomBit'..i] = false
		end
	end
end


-- important for preventing data leaks
function PlayerData:destroy()
	for _, p in pairs(self.party) do
		p:destroy()
	end
	self.party = nil
	for _, p in pairs(self.daycare.depositedPokemon) do
		p:destroy()
	end
	self.daycare = nil
	if self.honey and self.hony.foe then
		self.honey.foe:destroy()
	end
	self.honey = nil
	pcall(function() self.pcSession:destroy() end)
	self.pcSession = nil
	pcall(function() self.mineSession:destroy() end)
	self.mineSession = nil
end


--// enter/leave connections //--
local players = game:GetService('Players')
players.ChildAdded:connect(onPlayerEnter)
for _, p in pairs(players:GetChildren()) do onPlayerEnter(p) end
players.ChildRemoved:connect(function()
	for player, data in pairs(PlayerDataByPlayer) do
		if not player or not player.Parent then
			PlayerDataByPlayer[player] = nil
			pcall(function() if data.gameBegan then data:ROPowers_save() end end)
			pcall(function() data:destroy() end)
		end
	end
end)


return PlayerDataByPlayer--PlayerData -- OVH  is this what we want?