PokeBot/ai/yellow/strategies.lua

local Strategies = require "ai.strategies"

local Combat = require "ai.combat"
local Control = require "ai.control"

local Data = require "data.data"

local Battle = require "action.battle"
local Shop = require "action.shop"
local Textbox = require "action.textbox"
local Walk = require "action.walk"

local Bridge = require "util.bridge"
local Input = require "util.input"
local Memory = require "util.memory"
local Menu = require "util.menu"
local Player = require "util.player"
local Utils = require "util.utils"

local Inventory = require "storage.inventory"
local Pokemon = require "storage.pokemon"

local status = Strategies.status
local stats = Strategies.stats

local strategyFunctions = Strategies.functions

Strategies.vaporeon = false
Strategies.warpToCerulean = false

-- TIME CONSTRAINTS

Strategies.timeRequirements = {

	nidoran = function()
		local timeLimit = 9
		if Pokemon.inParty("pidgey") then
			timeLimit = timeLimit + 0.5
		end
		return timeLimit
	end,

	mt_moon = function()
		local timeLimit = 32
		if stats.nidoran.attack > 15 and stats.nidoran.speed > 14 then
			timeLimit = timeLimit + 0.25
		end
		if Pokemon.inParty("paras", "sandshrew") then
			timeLimit = timeLimit + 0.25
		end
		return timeLimit
	end,

	misty = function() --TWEET
		return 44
	end,

	trash = function()
		return 53
	end,

	safari_carbos = function()
		return 100
	end,

	victory_road = function() --PB
		return 104
	end,

	champion = function() --PB
		return 95
	end,

}

-- HELPERS

local function nidoranDSum(enabled)
	local px, py = Player.position()
	if enabled and status.path == nil then
		local opponentName = Battle.opponent()
		local opponentLevel = Memory.value("battle", "opponent_level")
		if opponentName == "rattata" then
			if opponentLevel == 3 then
				status.path = {0, 1, 11, 2, 11}
			elseif opponentLevel == 4 then
				status.path = {7, 2, 11, 2, 11}
			end
		elseif opponentName == "pidgey" then
			if opponentLevel == 3 then
				status.path = {9, 2, 11, 2, 11}
			elseif opponentLevel == 5 then
				status.path = {3, 2, 11, 2, 11}
			elseif opponentLevel == 7 then
				status.path = {0, 3, 11, 2, 11}
			end
		elseif opponentName == "nidoran" then
			if opponentLevel == 4 then
				status.path = {5, 2, 11, 2, 11}
			end
		elseif opponentName == "nidoranf" then
			if opponentLevel == 4 then
				status.path = {4, 2, 11, 2, 11}
			elseif opponentLevel == 6 then
				status.path = {1, 2, 11, 2, 11}
			end
		end
		if status.path then --TODO
			status.pathIndex = 1
			status.startTime = Utils.frames() + 5
		else
			status.path = 0
		end
	end

	local dx, dy = px, py
	local cornerBonk = true
	local encounterlessSteps = Memory.value("game", "encounterless")
	local pikachuX = Memory.value("player", "pikachu_x") - 4
	if enabled and status.path ~= 0 then
		local duration = status.path[status.pathIndex]
		local currentTime = Utils.frames()
		if (currentTime - status.startTime) / 60 > duration then
			status.startTime = currentTime
			if status.pathIndex >= #status.path then
				status.path = 0
			else
				status.pathIndex = status.pathIndex + 1
			end
			return nidoranDSum(enabled)
		end
		local walkOutside = (status.pathIndex - 1) % 2 == 0
		if walkOutside then
			cornerBonk = false
			if dy ~= 48 then
				if px == 3 then
					dy = 48
				else
					dx = 3
				end
			elseif encounterlessSteps <= 1 then
				if px < 3 then
					dx = 3
				elseif pikachuX > px then
					dx = 2
				end
			elseif encounterlessSteps == 2 then
				if px == 4 then
					dx = 3
				else
					dx = 4
				end
			elseif encounterlessSteps > 2 then
				if px == 3 then
					dx = 2
				else
					dx = 3
				end
			end
		end
	end
	if cornerBonk then
		if px == 4 and py == 48 and pikachuX >= px then
			dx = px + 1
		elseif px >= 4 and py == 48 then
			if encounterlessSteps == 0 then
				if not status.bonkWait then
					local direction, duration
					if Player.isFacing("Up") then
						direction = "Left"
						duration = 2
					else
						direction = "Up"
						duration = 3
					end
					Input.press(direction, duration)
				end
				status.bonkWait = not status.bonkWait
				return
			end
			if encounterlessSteps == 1 and dx <= 6 then
				dx = px + 1
			elseif dx ~= 3 then
				dx = 3
			else
				dx = 4
			end
		else
			status.bonkWait = nil
			if dx ~= 4 then
				dx = 4
			elseif py ~= 48 then
				dy = 48
			end
		end
	end
	Walk.step(dx, dy, true)
end

local function depositPikachu()
	if Menu.isOpened() then
		local pc = Memory.value("menu", "size")
		if Memory.value("battle", "menu") ~= 19 then
			local menuColumn = Menu.getCol()
			if menuColumn == 5 then
				if Menu.select(Pokemon.indexOf("pikachu")) then
					Strategies.chat("pika", Utils.random {
						" PIKA PIIKA",
						" NNOOO PIKAAA",
						" Goodbye, Pikachu BibleThump",
						" RIP in PC, Pikachu.",
						" I don't know how else to say this, but Nido and I are going steady now. Goodbye, Pikachu.",
						" You're cute, Pikachu. But this is a speedrun, and frankly you're getting in my way.",
					})
				end
			elseif menuColumn == 10 then
				Input.press("A")
			elseif pc == 3 then
				Menu.select(0)
			elseif pc == 5 then
				Menu.select(1)
			else
				Input.cancel()
			end
		else
			Input.cancel()
		end
	else
		Player.interact("Up")
	end
end

local function takeCenter(pp, startMap, entranceX, entranceY, finishX)
	local px, py = Player.position()
	local currentMap = Memory.value("game", "map")
	local hornAttacks = Pokemon.pp(0, "horn_attack")
	local completedCenter
	if pp then
		completedCenter = hornAttacks > pp
	else
		completedCenter = hornAttacks == 25

		if not completedCenter and Strategies.warpToCerulean then
			completedCenter = Combat.hp() + Inventory.count("potion") * 20 >= 70
		end
	end
	if Strategies.initialize("reported") then
		local centerAction
		if completedCenter then
			centerAction = "skipping"
		else
			centerAction = "taking"
		end
		local centerReason
		if pp then
			centerReason = "with "..Utils.pluralize(Pokemon.pp(0, "horn_attack"), "Horn Attack").." ("..(pp+1).." required)."
		elseif not Strategies.warpToCerulean then
			centerReason = "to set our warp point to Cerulean."
		else
			centerReason = "to heal before Misty."
		end
		Bridge.chat("is "..centerAction.." the Center "..centerReason)

		if completedCenter and Strategies.warpToCerulean then
			return true
		end
	end

	if currentMap == startMap then
		if not completedCenter then
			if px ~= entranceX then
				px = entranceX
			else
				py = entranceY
			end
		else
			if not finishX or px == finishX then
				return true
			end
			px = finishX
		end
	else
		if Pokemon.inParty("pikachu") then
			if py > 5 then
				py = 5
			elseif px < 13 then
				px = 13
			elseif py ~= 4 then
				py = 4
			else
				return depositPikachu()
			end
		else
			if Strategies.initialize("deposited") then
				Bridge.caught("deposited")
			end
			if px ~= 3 then
				if Menu.close() then
					px = 3
				end
			elseif completedCenter then
				if Textbox.handle() then
					py = 8
				end
			elseif py > 3 then
				py = 3
			else
				strategyFunctions.confirm({dir="Up"})
			end
		end
	end
	Walk.step(px, py)
end

function Strategies.requiresE4Center()
	if Control.areaName == "Elite Four" then
		return not Strategies.hasHealthFor("LoreleiDewgong")
	end
	return not Strategies.canHealFor("LoreleiDewgong", true)
end

-- STRATEGIES

strategyFunctions.gotPikachu = function()
	Bridge.caught("pikachu")
	Pokemon.updateParty()
	return true
end

strategyFunctions.fightEevee = function()
	if Strategies.trainerBattle() then
		if Combat.hp() == 0 and Strategies.initialize("died") then
			Strategies.vaporeon = true
		end
		Battle.automate()
	elseif status.foughtTrainer then
		return true
	end
end

-- dodgePalletBoy

strategyFunctions.shopViridianPokeballs = function()
	return Shop.transaction {
		buy = {{name="pokeball", index=0, amount=4}, {name="potion", index=1, amount=6}}
	}
end

strategyFunctions.catchNidoran = function()
	if not Control.canCatch() then
		return true
	end
	if Battle.isActive() then
		status.path = nil
		local catchableNidoran = Pokemon.isOpponent("nidoran") and Memory.value("battle", "opponent_level") == 6
		if catchableNidoran then
			if Strategies.initialize("naming") then
				Bridge.pollForName()
			end
		end
		if Memory.value("battle", "menu") == 94 then
			local partySize = Memory.value("player", "party_size")
			if partySize < 3 then
				local pokeballs = Inventory.count("pokeball")
				local pokeballsRequired = partySize == 2 and 1 or 2
				if not catchableNidoran and not Pokemon.inParty("nidoran") then
					pokeballsRequired = pokeballsRequired + 1
				end
				if pokeballs < pokeballsRequired then
					return Strategies.reset("pokeballs", "Ran too low on Pokeballs", pokeballs)
				end
			end
		end
		if Memory.value("menu", "text_input") == 240 then
			Textbox.name()
		elseif Menu.hasTextbox() then
			Input.press(catchableNidoran and "A" or "B")
		else
			Battle.handle()
		end
	else
		Pokemon.updateParty()
		local hasNidoran = Pokemon.inParty("nidoran")
		if hasNidoran then
			local px, py = Player.position()
			local dx, dy = px, py
			if px ~= 8 then
				dx = 8
			elseif py > 47 then
				dy = 47
			else
				Bridge.caught("nidoran")
				if INTERNAL then
					p(Pokemon.getDVs("nidoran"))
				end
				return true
			end
			Walk.step(dx, dy)
		else
			local resetLimit = Strategies.getTimeRequirement("nidoran")
			local resetMessage = "find a suitable Nidoran"
			if Strategies.resetTime(resetLimit, resetMessage) then
				return true
			end
			local enableDSum = Control.escaped
			if enableDSum then
				enableDSum = not RESET_FOR_TIME or not Strategies.overMinute(resetLimit - 0.25)
			end
			nidoranDSum(enableDSum)
		end
	end
end

strategyFunctions.leerCaterpies = function()
	if not status.secondCaterpie and not Battle.opponentAlive() then
		status.secondCaterpie = true
	end
	local leerAmount = status.secondCaterpie and 7 or 10
	return strategyFunctions.leer({{"caterpie", leerAmount}})
end

-- checkNidoranStats

strategyFunctions.centerViridian = function()
	return takeCenter(15, 2, 13, 25, 18)
end

strategyFunctions.battleSandshrew = function()
	if Strategies.trainerBattle() then
		if Pokemon.isOpponent("sandshrew") then
			local enemyMove, enemyTurns = Combat.enemyAttack()
			if enemyMove then
				local damage = math.floor(enemyMove.damage * 1.8)
				if Combat.hp() < damage and Inventory.contains("potion") then
					Inventory.use("potion", "nidoran", true)
					return false
				end
			end
		end
	end
	return strategyFunctions.leer {{"sandshrew", 14}}
end

strategyFunctions.fightBrock = function()
	local curr_hp = Pokemon.info("nidoran", "hp")
	if curr_hp == 0 then
		return Strategies.death()
	end
	if Strategies.trainerBattle() then
		local __, turnsToKill, turnsToDie = Combat.bestMove()
		if turnsToKill then
			if turnsToDie < 2 and Inventory.contains("potion") then
				Inventory.use("potion", "nidoran", true)
			else
				local bideTurns = Memory.value("battle", "opponent_bide")
				if bideTurns > 0 then
					local onixHP = Memory.double("battle", "opponent_hp")
					if status.tries == 0 then
						status.tries = onixHP
						status.startBide = bideTurns
					end
					local forced
					if turnsToKill < 2 or status.startBide - bideTurns > 1 then
					-- elseif turnsToKill < 3 and status.startBide == bideTurns then
					elseif onixHP == status.tries then
						forced = "leer"
					end
					Battle.fight(forced)
				else
					status.tries = 0
					if turnsToKill > 3 then
						strategyFunctions.leer({{"onix", 13}})
					else
						Battle.automate()
					end
				end
			end
		else
			Input.cancel()
		end
	elseif status.foughtTrainer then
		return true
	end
end

strategyFunctions.reload = function(data)
	local message = "is reloading the "
	if data.area == "route3" then
		message = message.."route to save time by bypassing a difficult trainer."
	elseif data.area == "giovanni" then
		message = message.."Gym to move the trainer and head straight to Giovanni as fast as possible."
	end
	Bridge.chat(message)
	return true
end

strategyFunctions.centerMoon = function()
	return takeCenter(5, 15, 11, 5, 12)
end

strategyFunctions.centerCerulean = function(data)
	local ppRequired, finishX
	local firstTrip = not data.second

	if firstTrip then
		ppRequired = 10
		finishX = 8

		local hornAttacks = Pokemon.pp(0, "horn_attack")
		local hasSufficientPP = hornAttacks > ppRequired

		if Strategies.initialize() then
			Combat.factorPP(hasSufficientPP)
			Strategies.warpToCerulean = not hasSufficientPP
		end

		if Memory.value("game", "map") == 3 then
			if hasSufficientPP then
				local px, py = Player.position()
				if px > 8 then
					return strategyFunctions.dodgeCerulean({left=true})
				end
			elseif not strategyFunctions.dodgeCerulean({}) then
				return false
			end
		end
	else
		finishX = 22
	end
	return takeCenter(ppRequired, 3, 19, 17, finishX)
end

strategyFunctions.fightKoffing = function(data)
	if Strategies.trainerBattle() then
		if Strategies.initialize() then
			status.leering = Battle.pp("horn_attack") < data.min
		end
		if status.leering and not Battle.opponentDamaged() then
			return strategyFunctions.leer({{"koffing", 13}})
		end
		Battle.automate()
	elseif status.foughtTrainer then
		return true
	end
end

-- reportMtMoon

-- 4: Mt. Moon

strategyFunctions.rivalSandAttack = function()
	return true --TODO swap at low acc
end

strategyFunctions.acquireCharmander = function()
	if Strategies.initialize() then
		if Pokemon.inParty("sandshrew", "paras") then
			return true
		end
		Bridge.chat("couldn't catch a Paras/Sandshrew in Mt. Moon. Getting a free Charmander to teach Cut.")
	end
	local acquiredCharmander = Pokemon.inParty("charmander")
	if Textbox.isActive() then
		if Menu.getCol() == 15 then
			local accept = Memory.raw(0x0C3A) == 239
			Input.press(accept and "A" or "B")
		else
			Input.cancel()
		end
		return false
	end
	local px, py = Player.position()
	if acquiredCharmander then
		if Strategies.initialize("aquired") then
			Bridge.caught("charmander")
		end
		if py ~= 8 then
			py = 8
		else
			return true
		end
	else
		if px ~= 6 then
			px = 6
		elseif py > 6 then
			py = 6
		else
			Player.interact("Up")
			return false
		end
	end
	Walk.step(px, py)
end

-- jingleSkip

strategyFunctions.shopVermilionMart = function()
	-- if Strategies.initialize() then
	-- 	Strategies.setYolo("vermilion")
	-- end
	local supers = Strategies.vaporeon and 7 or 8
	return Shop.transaction {
		buy = {{name="super_potion",index=1,amount=supers}, {name="repel",index=5,amount=3}}
	}
end

strategyFunctions.trashcans = function()
	if not status.canIndex then
		status.canIndex = 1
		status.progress = 1
		status.direction = 1
	end
	local trashPath = {
	-- 	{next,	loc,	check,		mid,	pair,	finish,	end}		{waypoints}
		{nd=2,	{1,12},	"Up",				{3,12},	"Up",	{3,12}},	{{4,12}},
		{nd=4,	{4,11},	"Right",	{4,6},	{1,6},	"Down",	{1,6}},
		{nd=1,	{4,9},	"Left",				{4,7},	"Left",	{4,7}},
		{nd=1,	{4,7},	"Right",	{4,6},	{1,6},	"Down",	{1,6}},		{{4,6}},
		{nd=0,	{1,6},	"Down",				{3,6},	"Down", {3,6}},		{{4,6}}, {{4,8}},
		{nd=0,	{7,8},	"Down",				{7,8},	"Up",	{7,8}},		{{8,8}},
		{nd=0,	{8,7},	"Right",			{8,7},	"Left", {8,7}},
		{nd=0,	{8,11},	"Right",			{8,9},	"Right",{8,9}},		{{8,12}},
	}
	local totalPathCount = #trashPath

	local unlockProgress = Memory.value("progress", "trashcans")
	if Textbox.isActive() then
		if not status.canProgress then
			status.canProgress = true
			local px, py = Player.position()
			if unlockProgress < 2 then
				status.tries = status.tries + 1
				if status.unlocking then
					status.unlocking = false
					local flipIndex = status.canIndex + status.nextDelta
					local flipCan = trashPath[flipIndex][1]
					status.flipIndex = flipIndex
					if px == flipCan[1] and py == flipCan[2] then
						status.nextDirection = status.direction * -1
						status.canIndex = flipIndex
						status.progress = 1
					else
						status.flipIndex = flipIndex
						status.direction = 1
						status.nextDirection = status.direction * -1
						status.progress = status.progress + 1
					end
				else
					status.canIndex = Utils.nextCircularIndex(status.canIndex, status.direction, totalPathCount)
					status.progress = nil
				end
			else
				status.unlocking = true
				status.progress = status.progress + 1
			end
		end
		Input.cancel()
	elseif unlockProgress == 3 then
		return Strategies.completeCans()
	else
		if status.canIndex == status.flipIndex then
			status.flipIndex = nil
			status.direction = status.nextDirection
		end
		local targetCan = trashPath[status.canIndex]
		local targetCount = #targetCan

		local canProgression = status.progress
		if not canProgression then
			canProgression = 1
			status.progress = 1
		else
			local reset
			if canProgression < 1 then
				reset = true
			elseif canProgression > targetCount then
				reset = true
			end
			if reset then
				status.canIndex = Utils.nextCircularIndex(status.canIndex, status.direction, totalPathCount)
				status.progress = nil
				return strategyFunctions.trashcans()
			end
		end

		local action = targetCan[canProgression]
		if type(action) == "string" then
			status.nextDelta = targetCan.nd
			Player.interact(action)
		else
			status.canProgress = false
			local px, py = Player.position()
			local dx, dy = action[1], action[2]
			if px == dx and py == dy then
				status.progress = status.progress + 1
				return strategyFunctions.trashcans()
			end
			Walk.step(dx, dy)
		end
	end
end

-- announceFourTurn

-- announceOddish

strategyFunctions.deptElevator = function()
	if Menu.isOpened() then
		status.canProgress = true
		Menu.select(4, false, true)
	else
		if status.canProgress then
			return true
		end
		Player.interact("Up")
	end
end

strategyFunctions.shopBuffs = function()
	local xAccs = Strategies.vaporeon and 11 or 10
	local xSpeeds = Strategies.vaporeon and 6 or 7

	local sellArray = {{name="nugget"}}
	if Inventory.containsAll("pokeball", "potion") then --TODO , "ether"
		if INTERNAL and Strategies.initialize("pokeball") then
			print("Selling Pokeballs to make up inventory space")
		end
		table.insert(sellArray, {name="pokeball"})
	end
	return Shop.transaction {
		direction = "Right",
		sell = sellArray,
		buy = {{name="x_accuracy", index=0, amount=xAccs}, {name="x_speed", index=5, amount=xSpeeds}, {name="x_attack", index=3, amount=3}, {name="x_special", index=6, amount=5}},
	}
end

-- shopVending

-- giveWater

-- shopExtraWater

-- shopPokeDoll

-- shopTM07

-- shopRepels

strategyFunctions.lavenderRival = function()
	if Strategies.trainerBattle() then
		if Strategies.prepare("x_accuracy") then
			Battle.automate()
		end
	elseif status.foughtTrainer then
		return true
	end
end

-- digFight

-- pokeDoll

-- drivebyRareCandy

-- silphElevator

-- silphCarbos

strategyFunctions.useSilphCarbos = function(data)
	if Strategies.getsSilphCarbosSpecially() then --TODO inventory count
		data.item = "carbos"
		data.poke = "nidoking"
		return strategyFunctions.item(data)
	end
	if Strategies.closeMenuFor(data) then
		return true
	end
end

strategyFunctions.silphRival = function()
	if Strategies.trainerBattle() then
		if Strategies.prepare("x_accuracy") then
			-- Strategies.prepare("x_speed")
			local forced, prepare
			local opponentName = Battle.opponent()
			if opponentName == "sandslash" then
				local __, __, turnsToDie = Combat.bestMove()
				if turnsToDie and turnsToDie < 2 then
					forced = "horn_drill"
				else
					prepare = true
				end
			elseif opponentName == "magneton" then
				prepare = true
			elseif opponentName ~= "kadabra" then
				forced = "horn_drill" --TODO necessary?
			end
			if not prepare or Strategies.prepare("x_speed") then
				Battle.automate(forced)
			end
		end
	elseif status.foughtTrainer then
		Control.ignoreMiss = false
		return true
	end
end

-- playPokeflute

strategyFunctions.tossTM34 = function()
	if Strategies.initialize() then
		if not Inventory.contains("carbos") or Inventory.count() < 19 then
			return true
		end
	end
	return Strategies.tossItem("tm34")
end

strategyFunctions.fightKoga = function()
	if Strategies.trainerBattle() then
		if Strategies.prepare("x_accuracy") then
			local forced = "horn_drill"
			local opponent = Battle.opponent()
			if opponent == "venonat" then
				if not Battle.opponentAlive() then
					status.secondVenonat = true
				end
				if status.secondVenonat or Combat.isSleeping() then
					if not Strategies.prepare("x_speed") then
						return false
					end
				end
			end
			if Combat.isSleeping() then
				Inventory.use("pokeflute", nil, true)
				return false
			end
			Battle.automate(forced)
		end
	elseif status.foughtTrainer then
		Strategies.deepRun = true
		Control.ignoreMiss = false
		return true
	end
end

strategyFunctions.fightSabrina = function()
	if Strategies.trainerBattle() then
		if Strategies.prepare("x_accuracy", "x_speed") then
			-- local forced = "horn_drill"
			-- local opponent = Battle.opponent()
			-- if opponent == "venonat" then
			-- end
			Battle.automate(forced)
		end
	elseif status.foughtTrainer then
		Strategies.deepRun = true
		Control.ignoreMiss = false
		return true
	end
end

strategyFunctions.momHeal = function()
	local currentMap = Memory.value("game", "map")
	local needsHeal = Combat.hp() > (Control.yolo and 70 or 125) --RISK
	needsHeal = Combat.hp() < Combat.maxHP() --TODO

	local px, py = Player.position()
	local dx, dy = px, py
	if currentMap == 0 then
		if needsHeal then
			dy = 5
		elseif py == 6 then
			return true
		end
		Walk.step(dx, dy)
	else
		if needsHeal and px == 5 and py == 5 then
			strategyFunctions.confirm({dir="Up"})
		elseif Textbox.isActive() then
			Input.cancel()
		else
			local momPath = {{2,7}, {2,6}, {5,6}, {5,5}, {5,6}, {3,6}, {3,8}}
			Walk.custom(momPath)
		end
	end
end

-- dodgeGirl

-- cinnabarCarbos

strategyFunctions.fightGiovanni = function()
	if Strategies.trainerBattle() then
		Strategies.chat("critical", " Giovanni can end the run here with Dugtrio's high chance to critical...")
		if Strategies.prepare("x_speed") then
			local forced
			local prepareAccuracy
			local opponent = Battle.opponent()
			if opponent == "persian" then
				prepareAccuracy = true
				if not status.prepared and not Strategies.isPrepared("x_accuracy") then
					status.prepared = true
					Bridge.chat("needs to finish setting up against Persian...")
				end
			elseif opponent == "dugtrio" then
				prepareAccuracy = Memory.value("battle", "dig") > 0
				if prepareAccuracy and not status.dug then
					status.dug = true
					Bridge.chat("got Dig, which gives an extra turn to set up with X Accuracy. No criticals!")
				end
			end
			if not prepareAccuracy or Strategies.prepare("x_accuracy") then
				Battle.automate(forced)
			end
		end
	elseif status.foughtTrainer then
		Strategies.deepRun = true
		Control.ignoreMiss = false
		return true
	end
end

strategyFunctions.useViridianEther = function(data)
	if Strategies.initialize() then
		if not Strategies.vaporeon or not Inventory.contains("ether", "max_ether") then
			return true
		end
	end
	return strategyFunctions.ether({chain=data.chain, close=data.close})
end

strategyFunctions.fightViridianRival = function()
	if Strategies.trainerBattle() then
		local xItem1, xItem2
		if Strategies.vaporeon then
			xItem1 = "x_accuracy"
			if Battle.pp("horn_drill") < 3 then
				xItem2 = "x_special"
			end
		else
			xItem1 = "x_special"
		end
		if Strategies.prepare(xItem1, xItem2) then
			Battle.automate()
		end
	elseif status.foughtTrainer then
		return true
	end
end

strategyFunctions.depositPokemon = function()
	if Memory.value("player", "party_size") == 1 then
		if Menu.close() then
			return true
		end
	elseif Menu.isOpened() then
		local menuSize = Memory.value("menu", "size")
		if not Menu.hasTextbox() then
			if menuSize == 5 then
				Menu.select(1)
				return false
			end
			local menuColumn = Menu.getCol()
			if menuColumn == 10 then
				Input.press("A")
				return false
			end
			if menuColumn == 5 then
				Menu.select(1)
				return false
			end
		end
		Input.press("A")
	else
		Player.interact("Up")
	end
end

-- centerSkip

strategyFunctions.shopE4 = function()
	Control.preferredPotion = "full"
	return Shop.transaction {
		buy = {{name="full_restore", index=2, amount=3}}
	}
end

strategyFunctions.lorelei = function()
	if Strategies.trainerBattle() then
		local opponentName = Battle.opponent()
		if opponentName == "dewgong" then
			Strategies.elite4Reason = "dewgong"
			if Memory.double("battle", "our_speed") < 121 then
				Strategies.chat("speedfall", "got speed fall from Dewgong D: Attempting to recover with X Speed, we need a Rest...")
				if not Strategies.prepare("x_speed") then
					return false
				end
			end
		else
			Strategies.elite4Reason = nil
		end
		if Strategies.prepare("x_accuracy") then
			Battle.automate()
		end
	elseif status.foughtTrainer then
		return true
	end
end

strategyFunctions.potionBeforeBruno = function(data)
	local potionHP = 50
	if Inventory.count("full_restore") > 1 and Strategies.damaged(2) then
		potionHP = 200
	end
	data.hp = potionHP
	data.full = true
	return strategyFunctions.potion(data)
end

strategyFunctions.bruno = function()
	if Strategies.trainerBattle() then
		if Combat.hasParalyzeStatus() and Inventory.contains("full_restore") then
			Inventory.use("full_restore", nil, true)
			return false
		end

		local forced
		local opponentName = Battle.opponent()
		if opponentName == "onix" then
			forced = "ice_beam"
		elseif opponentName == "hitmonchan" then
			if not Strategies.prepare("x_accuracy") then
				return false
			end
		end
		Battle.automate(forced)
	elseif status.foughtTrainer then
		return true
	end
end

strategyFunctions.agatha = function()
	if Strategies.trainerBattle() then
		local preparing = true
		if Pokemon.isOpponent("gengar") then
			if status.firstGengar == nil then
				status.firstGengar = true
			end
			preparing = Memory.double("battle", "our_speed") < 147
			if preparing and status.firstGengar then
				if Inventory.count("x_speed") > 1 then
					status.preparing = nil
				end
			end
		elseif status.firstGengar then
			status.firstGengar = false
		end
		if preparing and not Strategies.prepare("x_speed") then
			return false
		end

		if Combat.isParalyzed() then
			if Inventory.contains("full_restore") then
				Inventory.use("full_restore", nil, true)
				return false
			end
		elseif Combat.isSleeping() then
			Inventory.use("pokeflute", nil, true)
			return false
		end
		Battle.automate()
	elseif status.foughtTrainer then
		return true
	end
end

strategyFunctions.lance = function()
	if Strategies.trainerBattle() then
		local xItem
		local opponentName = Battle.opponent()
		if opponentName == "gyarados" then
			xItem = "x_special"
			Strategies.elite4Reason = "gyarados"
		else
			Strategies.elite4Reason = nil
			if opponentName == "dragonair" then
				xItem = "x_speed"
				if not Strategies.isPrepared(xItem) then
					local __, turnsToDie = Combat.enemyAttack()
					if turnsToDie and turnsToDie <= 1 then
						local potion = Inventory.contains("full_restore", "super_potion")
						if potion then
							Inventory.use(potion, nil, true)
							return false
						end
					end
				end
			end
		end
		if Strategies.prepare(xItem) then
			Battle.automate()
		end
	elseif status.foughtTrainer then
		return true
	end
end

strategyFunctions.blue = function()
	if Strategies.trainerBattle() then
		local forced, xItem
		local opponentName = Battle.opponent()
		if opponentName == "sandslash" then
			xItem = "x_special"
			Strategies.elite4Reason = "sandslash"
		else
			Strategies.elite4Reason = nil
			if opponentName == "alakazam" then
				local __, turnsToDie = Combat.enemyAttack()
				if turnsToDie == 1 then
					local ourSpeed, theirSpeed = Memory.double("battle", "our_speed"), Memory.double("battle", "opponent_speed")
					if ourSpeed <= theirSpeed then
						local speedMessage, canPotion
						if ourSpeed == theirSpeed then
							speedMessage = "We'll need to get lucky to win this speed tie vs. Alakazam..."
							canPotion = not Data.yolo and Inventory.contains("full_restore")
						else
							canPotion = Inventory.contains("full_restore")
							speedMessage = "No Full Restores left, we'll need to get lucky."
						end
						if canPotion then
							speedMessage = "Attempting to wait out a non-damage turn."
						end
						Strategies.chat("outsped", " Bad speed. "..speedMessage)
						if canPotion then
							Inventory.use("full_restore", nil, true)
							return false
						end
					end
				end
			elseif opponentName == "exeggutor" then
				if Combat.isSleeping() then
					local sleepHeal
					if not Combat.inRedBar() and Inventory.contains("full_restore") then
						sleepHeal = "full_restore"
					else
						sleepHeal = "pokeflute"
					end
					Inventory.use(sleepHeal, nil, true)
					return false
				end
				xItem = "x_accuracy"
			end
		end
		if Strategies.prepare(xItem) then
			if Combat.xAccuracy() then
				forced = "horn_drill"
			end
			Battle.automate(forced)
		end
	elseif status.foughtTrainer then
		return true
	end
end

-- PROCESS

function Strategies.initGame(midGame)
	if midGame then
		-- Strategies.setYolo("", true)
	end
	Control.preferredPotion = "super"
end

function Strategies.completeGameStrategy()
	status = Strategies.status
end

function Strategies.resetGame()
	status = Strategies.status
	stats = Strategies.stats
end

return Strategies