PokeBot/ai/red/strategies.lua

local Strategies = require "ai.strategies"

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

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 riskGiovanni, maxEtherSkip

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

-- TIME CONSTRAINTS

local function timeForStats()
	local timeBonus = (stats.nidoran.attack - 53) * 0.05
	if stats.nidoran.attack >= 55 then
		timeBonus = timeBonus + 0.05
	end

	local maxSpeed = math.min(stats.nidoran.speed, 52)
	timeBonus = timeBonus + (maxSpeed - 49) * 0.125

	if stats.nidoran.special >= 45 then
		timeBonus = timeBonus + 0.1
	end
	return timeBonus
end

Strategies.timeRequirements = {

	bulbasaur = function()
		return 2.25
	end,

	nidoran = function()
		local timeLimit = 6.4
		if Pokemon.inParty("spearow") then
			timeLimit = timeLimit + 0.67
		end
		return timeLimit
	end,

	shorts = function()
		local timeLimit = 14
		timeLimit = timeLimit + (3 - stats.nidoran.rating) * 0.2
		if Pokemon.inParty("spearow") then
			timeLimit = timeLimit + 0.5
		end
		return timeLimit
	end,

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

	mankey = function()
		local timeLimit = 32.5
		if Pokemon.inParty("paras") then
			timeLimit = timeLimit + 0.75
		end
		return timeLimit
	end,

	goldeen = function()
		local timeLimit = 37 + timeForStats()
		if Pokemon.inParty("paras") then
			timeLimit = timeLimit + 0.75
		end
		return timeLimit
	end,

	misty = function()
		local timeLimit = 39 + timeForStats()
		if Pokemon.inParty("paras") then
			timeLimit = timeLimit + 0.75
		end
		return timeLimit
	end,

	vermilion = function()
		return 43.5 + timeForStats()
	end,

	trash = function()
		return 47 + timeForStats()
	end,

	safari_carbos = function()
		return 70 + timeForStats()
	end,

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

	e4center = function()
		return 102
	end,

	blue = function()
		return 108.5
	end,

}

-- HELPERS

local function nidoranDSum(enabled)
	local sx, sy = 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 == 2 then
				status.path = {0, 4, 12}
			elseif opponentLevel == 3 then
				status.path = {0, 14, 11}
			else
				status.path = {0, 0, 10}
			end
		elseif opponentName == "spearow" then
			if opponentLevel == 5 then --TODO
			else
			end
		elseif opponentName == "nidoran" then
			status.path = {0, 6, 12}
		elseif opponentName == "nidoranf" then
			if opponentLevel == 3 then
				status.path = {4, 6, 12}
			else
				status.path = {5, 6, 12}
			end
		end
		if status.path then
			status.pathIndex = 1
			status.pathX, status.pathY = sx, sy
		else
			status.path = 0
		end
	end
	if enabled and status.path ~= 0 then
		if status.path[status.pathIndex] == 0 then
			status.pathIndex = status.pathIndex + 1
			if status.pathIndex > 3 then
				status.path = 0
			end
			return nidoranDSum()
		end
		if status.pathX ~= sx or status.pathY ~= sy then
			status.path[status.pathIndex] = status.path[status.pathIndex] - 1
			status.pathX, status.pathY = sx, sy
		end
		if status.pathIndex == 2 then
			sy = 11
		else
			sy = 12
		end
	else
		sy = 11
	end
	if sx == 33 then
		sx = 32
	else
		sx = 33
	end
	Walk.step(sx, sy)
end

local function willRedBar(forDamage)
	local curr_hp, red_hp = Combat.hp(), Combat.redHP()
	return curr_hp > forDamage*0.975 and curr_hp - forDamage*0.925 < red_hp
end

local function potionForRedBar(damage)
	local curr_hp, red_hp = Combat.hp(), Combat.redHP()
	local max_hp = Pokemon.index(0, "max_hp")

	local potions = {
		{"potion", 20},
		{"super_potion", 50},
	}
	for i,potion in ipairs(potions) do
		if Inventory.contains(potion[1]) then
			local healTo = math.min(curr_hp + potion[2], max_hp)
			if healTo > damage and healTo - damage < red_hp then
				return potion
			end
		end
	end
	return canPotion
end

-- STATE

local function canRiskGiovanni()
	return stats.nidoran.attackDV >= 11 and stats.nidoran.specialDV >= 4
end

local function requiresE4Center()
	local hornDrillPP = Battle.pp("horn_drill")
	if hornDrillPP >= 5 then
		return false
	end
	if hornDrillPP == 4 then
		return stats.nidoran.attackDV < 11 or Battle.pp("earthquake") == 0
	end
	return true
end

-- STRATEGIES

local strategyFunctions = Strategies.functions

-- General

strategyFunctions.tweetAfterBrock = function()
	if stats.nidoran.rating < 2 then
		if not Strategies.overMinute("shorts") then
			Strategies.tweetProgress("On pace after Brock with a great Nidoran", "brock")
		end
	end
	return true
end

strategyFunctions.tweetMisty = function()
	if not Strategies.updates.brock and not Strategies.setYolo("misty") then
		local timeLimit = Strategies.getTimeRequirement("misty")
		if not Strategies.overMinute(timeLimit - 0.25) then
			local pbn = ""
			if not Strategies.overMinute(timeLimit - 1) then
				pbn = " (PB pace)"
			end
			local elt = Utils.elapsedTime()
			Strategies.tweetProgress("Got a run going, just beat Misty "..elt.." in"..pbn, "misty")
		end
	end
	return true
end

strategyFunctions.tweetSurge = function()
	if not Strategies.updates.misty and not Control.yolo then
		local elt = Utils.elapsedTime()
		local pbn = ""
		local pbPace = Strategies.getTimeRequirement("trash") + 1
		if not Strategies.overMinute(pbPace) then
			pbn = " (PB pace)"
		end
		Strategies.tweetProgress("Got a run going, just beat Surge "..elt.." in"..pbn, "surge")
	end
	return true
end

strategyFunctions.tweetVictoryRoad = function()
	local elt = Utils.elapsedTime()
	local pbn = ""
	if not Strategies.overMinute("victory_road") then
		pbn = " (PB pace)"
	end
	local elt = Utils.elapsedTime()
	Strategies.tweetProgress("Entering Victory Road at "..elt..pbn.." on our way to the Elite Four", "victory")
	return true
end

strategyFunctions.bicycle = function()
	if Memory.value("player", "bicycle") == 1 then
		if Textbox.handle() then
			return true
		end
	else
		return Strategies.useItem({item="bicycle"})
	end
end

-- Route

strategyFunctions.squirtleIChooseYou = function()
	if Pokemon.inParty("squirtle") then
		Bridge.caught("squirtle")
		return true
	end
	if Player.face("Up") then
		Textbox.name("A")
	end
end

strategyFunctions.fightBulbasaur = function()
	if status.tries < 9000 and Pokemon.index(0, "level") == 6 then
		if status.tries > 200 then
			stats.squirtle = {
				attack = Pokemon.index(0, "attack"),
				defense = Pokemon.index(0, "defense"),
				speed = Pokemon.index(0, "speed"),
				special = Pokemon.index(0, "special"),
			}
			if stats.squirtle.attack < 11 and stats.squirtle.special < 12 then
				return Strategies.reset("Bad Squirtle - "..stats.squirtle.attack.." attack, "..stats.squirtle.special.." special")
			end
			status.tries = 9001
		else
			status.tries = status.tries + 1
		end
	end
	if Battle.isActive() and Memory.double("battle", "opponent_hp") > 0 and Strategies.resetTime("bulbasaur", "beat Bulbasaur") then
		return true
	end
	return Strategies.buffTo("tail_whip", 6)
end

-- dodgePalletBoy

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

strategyFunctions.catchNidoran = function()
	if Strategies.initialize() then
		status.path = 0
	end
	if not Control.canCatch() then
		return true
	end
	local pokeballs = Inventory.count("pokeball")
	local caught = Memory.value("player", "party_size") - 1
	if pokeballs < 5 - caught * 2 then
		return Strategies.reset("Ran too low on PokeBalls", pokeballs)
	end
	if Battle.isActive() then
		local isNidoran = Pokemon.isOpponent("nidoran")
		if isNidoran and Memory.value("battle", "opponent_level") > 2 then
			if not status.polled then
				status.polled = true
				Bridge.pollForName()
			end
		end
		status.path = nil
		if Memory.value("menu", "text_input") == 240 then
			Textbox.name()
		elseif Menu.hasTextbox() then
			if isNidoran then
				Input.press("A")
			else
				Input.cancel()
			end
		else
			Battle.handle()
		end
	else
		local enableDSum = true
		Pokemon.updateParty()
		local hasNidoran = Pokemon.inParty("nidoran")
		if hasNidoran then
			local gotExperience = Pokemon.getExp() > 205
			if not status.canProgress then
				Bridge.caught("nidoran")
				status.canProgress = true
				if not gotExperience then
					Bridge.chat("is waiting in the grass for a suitable encounter for experience", Pokemon.getExp())
				end
			end
			if gotExperience then
				stats.nidoran = {level4=(Pokemon.info("nidoran", "level") == 4)}
				return true
			end
			enableDSum = false
		end

		local resetMessage
		if hasNidoran then
			resetMessage = "get an encounter for experience before Brock"
		else
			resetMessage = "find a suitable Nidoran"
		end
		local resetLimit = Strategies.getTimeRequirement("nidoran")
		if Strategies.resetTime(resetLimit, resetMessage) then
			return true
		end
		if enableDSum then
			enableDSum = Control.escaped and not Strategies.overMinute(resetLimit - 0.25)
		end
		nidoranDSum(enableDSum)
	end
end

-- 1: NIDORAN

strategyFunctions.dodgeViridianOldMan = function()
	return Strategies.dodgeUp(0x0273, 18, 6, 17, 9)
end

strategyFunctions.grabTreePotion = function()
	if Strategies.initialize() then
		if Pokemon.info("squirtle", "hp") > 16 then
			return true
		end
	end
	if Inventory.contains("potion") then
		return true
	end

	local px, py = Player.position()
	if px > 15 then
		Walk.step(15, 4)
	else
		Player.interact("Left")
	end
end

strategyFunctions.grabAntidote = function()
	local px, py = Player.position()
	if py < 11 then
		return true
	end
	-- if Pokemon.info("spearow", "level") == 3 then
	-- 	if px < 26 then
	-- 		px = 26
	-- 	else
	-- 		py = 10
	-- 	end
	-- else
	if Inventory.contains("antidote") then
		py = 10
	else
		Player.interact("Up")
	end
	Walk.step(px, py)
end

strategyFunctions.grabForestPotion = function()
	if Battle.handleWild() then
		local potionCount = Inventory.count("potion")
		if Strategies.initialize() then
			status.startPotions = potionCount
		end
		if potionCount > 0 then
			if status.startPotions and potionCount > status.startPotions then
				status.startPotions = nil
			end
			if Pokemon.info("squirtle", "hp") <= 14 then
				if Menu.pause() then
					Inventory.use("potion", "squirtle")
				end
			elseif Menu.close() then
				return true
			end
		elseif not status.startPotions then
			if Menu.close() then
				return true
			end
		elseif Menu.close() then
			Player.interact("Up")
		end
	end
end

strategyFunctions.fightWeedle = function()
	if Battle.isTrainer() then
		status.canProgress = true
		if Memory.value("battle", "our_status") > 0 and not Inventory.contains("antidote") then
			return Strategies.reset("Poisoned, but we skipped the antidote")
		end
		return Strategies.buffTo("tail_whip", 5)
	elseif status.canProgress then
		return true
	end
end

strategyFunctions.equipForBrock = function(data)
	if Strategies.initialize() then
		if Pokemon.info("squirtle", "level") < 8 then
			return Strategies.reset("Did not reach level 8 before Brock", Pokemon.getExp(), true)
		end
		if data.anti then
			local poisoned = Pokemon.info("squirtle", "status") > 0
			if not poisoned then
				return true
			end
			if not Inventory.contains("antidote") then
				return Strategies.reset("Poisoned, but we risked skipping the antidote")
			end
			local curr_hp = Pokemon.info("squirtle", "hp")
			if Inventory.contains("potion") and curr_hp > 8 and curr_hp < 18 then
				return true
			end
		end
	end
	return strategyFunctions.swapNidoran()
end

strategyFunctions.fightBrock = function()
	local squirtleHP = Pokemon.info("squirtle", "hp")
	if squirtleHP == 0 then
		return Strategies.death()
	end
	if Battle.isActive() then
		if status.tries < 1 then
			status.tries = 1
		end
		local bubble, turnsToKill, turnsToDie = Combat.bestMove()
		if not Pokemon.isDeployed("squirtle") then
			Battle.swap("squirtle")
		elseif turnsToDie and turnsToDie < 2 and Inventory.contains("potion") then
			Inventory.use("potion", "squirtle", true)
		else
			local bideTurns = Memory.value("battle", "opponent_bide")
			if Menu.hasTextbox() and Menu.getCol() == 1 then
				Input.press("A")
			elseif bideTurns > 0 then
				local onixHP = Memory.double("battle", "opponent_hp")
				if not status.canProgress then
					status.canProgress = onixHP
					status.startBide = bideTurns
				end
				if turnsToKill then
					local forced
					if turnsToDie < 2 or turnsToKill < 2 or status.startBide - bideTurns > 1 then
					-- elseif turnsToKill < 3 and status.startBide == bideTurns then
					elseif onixHP == status.canProgress then
						forced = "tail_whip"
					end
					Battle.fight(forced)
				else
					Input.cancel()
				end
			elseif Menu.onPokemonSelect() then
				Menu.select(Pokemon.indexOf("nidoran"), true)
			else
				status.canProgress = false
				Battle.fight()
			end
			if status.tries < 9000 then
				local nidx = Pokemon.indexOf("nidoran")
				if Pokemon.index(nidx, "level") == 8 then
					local att = Pokemon.index(nidx, "attack")
					local def = Pokemon.index(nidx, "defense")
					local spd = Pokemon.index(nidx, "speed")
					local scl = Pokemon.index(nidx, "special")
					Bridge.stats(att.." "..def.." "..spd.." "..scl)
					if status.tries > 300 then
						stats.nidoran = {
							attack = att,
							defense = def,
							speed = spd,
							special = scl,
							level4 = stats.nidoran.level4,
							rating = 0,
						}
						p(Pokemon.getDVs("nidoran"))

						local resetsForStats = att < 15 or spd < 14 or scl < 12
						if not resetsForStats and not RESET_FOR_TIME then
							resetsForStats = att == 15 and spd == 14
						end

						local nidoranStatus = "Att: "..att..", Def: "..def..", Speed: "..spd..", Special: "..scl
						if resets then
							return Strategies.reset("Bad Nidoran - "..nidoranStatus)
						end
						status.tries = 9001

						local statDiff = (16 - att) + (15 - spd) + (13 - scl)
						if def < 12 then
							statDiff = statDiff + 1
						end
						if not stats.nidoran.level4 then
							statDiff = statDiff + 1
						end
						stats.nidoran.rating = statDiff

						local superlative
						local exclaim = "!"
						if statDiff == 0 then
							if def == 14 then
								superlative = " god"
								exclaim = "! Kreygasm"
							else
								superlative = " perfect"
							end
						elseif att == 16 and spd == 15 then
							if statDiff == 1 then
								superlative = " great"
							elseif statDiff == 2 then
								superlative = " good"
							else
								superlative = "n okay"
							end
						elseif statDiff == 1 then
							superlative = " good"
						elseif statDiff <= 3 then
							superlative = "n okay"
							exclaim = "."
						else
							superlative = " min stat"
							exclaim = "."
						end
						Bridge.chat("beat Brock with a"..superlative.." Nidoran"..exclaim.." "..nidoranStatus..", caught at level "..(stats.nidoran.level4 and "4" or "3")..".")
					else
						status.tries = status.tries + 1
					end
				end
			end
		end
	elseif status.tries > 0 then
		return true
	elseif Textbox.handle() then
		Player.interact("Up")
	end
end

-- 2: BROCK

strategyFunctions.shopPewterMart = function()
	return Shop.transaction{
		buy = {{name="potion", index=1, amount=10}}
	}
end

strategyFunctions.battleModeSet = function()
	if Memory.value("setting", "battle_style") == 10 then
		if Menu.close() then
			return true
		end
	elseif Menu.pause() then
		local main = Memory.value("menu", "main")
		if main == 128 then
			if Menu.getCol() ~= 11 then
				Input.press("B")
			else
				Menu.select(5, true)
			end
		elseif main == 228 then
			Menu.setOption("battle_style", 8, 10)
		else
			Input.press("B")
		end
	end
end

strategyFunctions.bugCatcher = function()
	if Battle.isActive() then
		status.canProgress = true
		local isWeedle = Pokemon.isOpponent("weedle")
		if isWeedle and not status.secondCaterpie then
			status.secondCaterpie = true
		end
		if not isWeedle and status.secondCaterpie then
			if stats.nidoran.level4 and stats.nidoran.speed >= 14 and Pokemon.index(0, "attack") >= 19 then
				-- print("IA "..Pokemon.index(0, "attack"))
				Battle.automate()
				return
			end
		end
		Strategies.functions.leer({{"caterpie",8}, {"weedle",7}})
	elseif status.canProgress then
		return true
	else
		Battle.automate()
	end
end

strategyFunctions.shortsKid = function()
	local fightingEkans = Pokemon.isOpponent("ekans")
	if fightingEkans then
		local wrapping = Memory.value("battle", "attack_turns") > 0
		if wrapping then
			local curr_hp = Memory.double("battle", "our_hp")
			if not status.wrappedAt then
				status.wrappedAt = curr_hp
			end
			local wrapDamage = status.wrappedAt - curr_hp
			if wrapDamage > 0 and wrapDamage < 7 and curr_hp < 14 and not Strategies.opponentDamaged() then
				Inventory.use("potion", nil, true)
				return false
			end
		else
			status.wrappedAt = nil
		end
	end
	Control.battlePotion(fightingEkans or Strategies.damaged(2))
	return Strategies.functions.leer({{"rattata",9}, {"ekans",10}})
end

strategyFunctions.potionBeforeCocoons = function()
	if stats.nidoran.speed >= 15 then
		return true
	end
	return Strategies.functions.potion({hp=6, yolo=3})
end

-- swapHornAttack

strategyFunctions.fightMetapod = function()
	if Battle.isActive() then
		status.canProgress = true
		if Memory.double("battle", "opponent_hp") > 0 and Pokemon.isOpponent("metapod") then
			return true
		end
		Battle.automate()
	elseif status.canProgress then
		return true
	else
		Battle.automate()
	end
end

-- catchFlierBackup

-- 3: ROUTE 3

-- startMtMoon

-- evolveNidorino

-- evolveNidoking

-- helix

-- reportMtMoon

-- 4: MT. MOON

-- dodgeCerulean

strategyFunctions.rivalSandAttack = function(data)
	if Battle.isActive() then
		if Battle.redeployNidoking() then
			return false
		end
		local opponent = Battle.opponent()
		if Memory.value("battle", "accuracy") < 7 then
			local sacrifice
			if opponent == "pidgeotto" then
				local __, turns = Combat.bestMove()
				if turns == 1 then
					sacrifice = Pokemon.getSacrifice("pidgey", "spearow", "paras", "oddish", "squirtle")
				end
			elseif opponent == "raticate" then
				sacrifice = Pokemon.getSacrifice("pidgey", "spearow", "oddish")
			end
			if Battle.sacrifice(sacrifice) then
				return false
			end
		end

		if opponent == "pidgeotto" then
			Combat.disableThrash = true
		elseif opponent == "raticate" then
			Combat.disableThrash = Strategies.opponentDamaged() or (not Control.yolo and Combat.hp() < 32) -- RISK
		elseif opponent == "kadabra" then
			Combat.disableThrash = Combat.hp() < 11
		elseif opponent == "ivysaur" then
			if not Control.yolo and Strategies.damaged(5) and Inventory.contains("super_potion") then
				Inventory.use("super_potion", nil, true)
				return false
			end
			Combat.disableThrash = Strategies.opponentDamaged()
		else
			Combat.disableThrash = false
		end
		Battle.automate()
		status.canProgress = true
	elseif status.canProgress then
		Combat.disableThrash = false
		return true
	else
		Textbox.handle()
	end
end

-- rareCandyEarly

-- teachThrash

strategyFunctions.potionForMankey = function()
	if Strategies.initialize() then
		if Pokemon.info("nidoking", "level") > 20 then
			return true
		end
	end
	return Strategies.functions.potion({hp=18, yolo=8})
end

strategyFunctions.redbarMankey = function()
	if not Strategies.setYolo("mankey") then
		return true
	end
	local curr_hp, red_hp = Combat.hp(), Combat.redHP()
	if curr_hp <= red_hp then
		return true
	end
	if Battle.isActive() then
		status.canProgress = true
		local enemyMove, enemyTurns = Combat.enemyAttack()
		if enemyTurns then
			if enemyTurns < 2 then
				return true
			end
			local scratchDmg = enemyMove.damage
			if curr_hp - scratchDmg >= red_hp then
				return true
			end
		end
		Battle.automate("poison_sting")
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
	if Strategies.initialize() then
		if Pokemon.info("nidoking", "level") < 23 or Inventory.count("potion") < 4 then -- RISK
			return true
		end
		Bridge.chat("is using Poison Sting to attempt to red-bar off Mankey")
	end
end

strategyFunctions.thrashGeodude = function()
	if Battle.isActive() then
		status.canProgress = true
		if Pokemon.isOpponent("geodude") and Pokemon.isDeployed("nidoking") then
			if Strategies.initialize() then
				status.sacrificeSquirtle = not Control.yolo or Combat.inRedBar()
				if not status.sacrificeSquirtle then
					Bridge.chat("is attempting to hit through confusion to avoid switching out to Squirtle")
				end
			end
			if status.sacrificeSquirtle and Battle.sacrifice("squirtle") then
				return false
			end
		end
		Battle.automate()
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
end

strategyFunctions.hikerElixer = function()
	if Strategies.initialize() then
		if not Inventory.contains("antidote") and Inventory.indexOf("tm34") ~= 1 then
			return true
		end
	end
	local px, py = Player.position()
	if Inventory.contains("elixer") then
		if py == 4 then
			return true
		end
		py = 4
	elseif py > 2 then
		py = 2
	else
		Player.interact("Up")
		return false
	end
	Walk.step(px, py)
end

strategyFunctions.lassEther = function()
	if Strategies.initialize() then
		if Inventory.contains("antidote") and Inventory.contains("elixer") then
			return true
		end
	end
	return strategyFunctions.interact({dir="Up"})
end

strategyFunctions.potionBeforeMisty = function(data)
	if Strategies.initialize() then
		if data.goldeen then
			Strategies.setYolo("goldeen")
			local curr_hp, red_hp = Combat.hp(), Combat.redHP()
			if Control.yolo or (not Combat.inRedBar() and curr_hp < red_hp + 6) then
				if curr_hp > 7 then
					return true
				end
			end
		end
	end
	local healAmount = data.goldeen and 65 or 70
	local canTwoHit = stats.nidoran.attackDV >= (Control.yolo and 6 or 8)
	local canSpeedTie = stats.nidoran.speedDV >= 11
	if Control.yolo then
		if canTwoHit and stats.nidoran.speedDV >= 13 then
			healAmount = 45
		elseif canTwoHit or canSpeedTie then
			healAmount = 65
		end
	else
		if canTwoHit and stats.nidoran.speedDV >= 13 then
			healAmount = 45
		elseif canTwoHit and canSpeedTie then
			healAmount = 65
		end
	end
	healAmount = healAmount - (stats.nidoran.special - 43)

	if Strategies.initialize() then
		local message
		local potionCount = Inventory.count("potion")
		local needsToHeal = healAmount - Pokemon.index(0, "hp")
		if potionCount * 20 < needsToHeal then
			message = "ran too low on potions to adequately heal before Misty D:"
		elseif healAmount < 60 then
			message = "is limiting heals to attempt to get closer to red-bar off Misty..."
		end
		if message then
			Bridge.chat(message, potionCount)
		end
	end
	return Strategies.functions.potion({hp=healAmount, chain=data.chain})
end

strategyFunctions.fightMisty = function()
	if Battle.isActive() then
		status.canProgress = true
		if Battle.redeployNidoking() then
			if status.swappedOut == false then
				status.swappedOut = true
			end
			return false
		end
		local forced
		if not status.swappedOut and Combat.isConfused() then
			if status.swappedOut == nil and Control.yolo then
				status.swappedOut = true
				return false
			end
			status.swappedOut = false
			if Battle.sacrifice("pidgey", "spearow", "squirtle", "paras") then
				return false
			end
		end
		Battle.automate(forced)
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
end

-- 6: MISTY

strategyFunctions.potionBeforeRocket = function()
	if stats.nidoran.attackDV >= 12 then
		return true
	end
	return Strategies.functions.potion({hp=13, yolo=11})
end

-- jingleSkip

strategyFunctions.catchOddish = function()
	if not Control.canCatch() then
		return true
	end
	local caught = Pokemon.inParty("oddish", "paras")
	if Strategies.initialize() then
		if caught then
			if Pokemon.inParty("oddish") then
				Bridge.chat("found an Oddish without having to search in the grass Kreygasm")
			end
		else
			Bridge.chat("is searching for an Oddish in the grass, to teach it Cut")
		end
	end
	local battleValue = Memory.value("game", "battle")
	local px, py = Player.position()
	if battleValue > 0 then
		if battleValue == 2 then
			status.tries = 2
			Battle.automate()
		else
			if status.tries == 0 and py == 31 then
				status.tries = 1
			end
			Battle.handle()
		end
	elseif status.tries == 1 and py == 31 then
		Player.interact("Left")
	else
		local path
		if caught then
			if not status.caught then
				Bridge.caught(Pokemon.inParty("oddish"))
				status.caught = true
			end
			if py < 21 then
				py = 21
			elseif py < 24 then
				if px < 16 then
					px = 17
				else
					py = 24
				end
			elseif py < 25 then
				py = 25
			elseif px > 15 then
				px = 15
			elseif py < 28 then
				py = 28
			elseif py > 29 then
				py = 29
			elseif px ~= 11 then
				px = 11
			elseif py ~= 29 then
				py = 29
			else
				return true
			end
			Walk.step(px, py)
		elseif px == 12 then
			local dy
			if py == 30 then
				dy = 31
			else
				dy = 30
			end
			Walk.step(px, dy)
		else
			local path = {{15,19}, {15,25}, {15,25}, {15,27}, {14,27}, {14,30}, {12,30}}
			Walk.custom(path)
		end
	end
end

strategyFunctions.shopVermilionMart = function()
	if Strategies.initialize() then
		Strategies.setYolo("vermilion")
	end
	local sellArray = {{name="tm34"}, {name="nugget"}}
	if not Inventory.contains("elixer") then
		table.insert(sellArray, 1, {name="antidote"})
	end
	return Shop.transaction {
		sell = sellArray,
		buy = {{name="super_potion",index=1,amount=3}, {name="repel",index=5,amount=3}}
	}
end

-- rivalSandAttack

strategyFunctions.trashcans = function()
	local progress = Memory.value("progress", "trashcans")
	if Textbox.isActive() then
		if not status.canProgress then
			if progress < 2 then
				status.tries = status.tries + 1
			end
			status.canProgress = true
		end
		Input.cancel()
	elseif progress == 3 then
		return Strategies.completeCans()
	elseif progress == 2 then
		if status.canProgress then
			status.canProgress = false
			Walk.invertCustom()
		end
		local inverse = {
			Up = "Down",
			Right = "Left",
			Down = "Up",
			Left = "Right"
		}
		Player.interact(inverse[status.direction])
	else
		local trashPath = {{2,11},{"Left"},{2,11}, {2,12},{4,12},{4,11},{"Right"},{4,11}, {4,9},{"Left"},{4,9}, {4,7},{"Right"},{4,7}, {4,6},{2,6},{2,7},{"Left"},{2,7}, {2,6},{4,6},{4,8},{9,8},{"Up"},{9,8}, {8,8},{8,9},{"Left"},{8,9}, {8,10},{9,10},{"Down"},{9,10},{8,10}}
		if status.direction and type(status.direction) == "number" then
			local px, py = Player.position()
			local dx, dy = px, py
			if py < 12 then
				dy = 12
			elseif status.direction == 1 then
				dx = 2
			else
				dx = 8
			end
			if px ~= dx or py ~= dy then
				Walk.step(dx, dy)
				return
			end
			status.direction = nil
		end
		status.direction = Walk.custom(trashPath, status.canProgress)
		status.canProgress = false
	end
end

strategyFunctions.potionBeforeSurge = function()
	local yoloHp = 5
	if Strategies.initialize() then
		if Control.yolo then
			local curr_hp = Combat.hp()
			if curr_hp > yoloHp and curr_hp <= 21 then
				Bridge.chat("is attempting to keep red-bar through Surge", curr_hp)
				return true
			end
		end
	end
	if Inventory.contains("potion") then
		return Strategies.functions.potion({hp=20, yolo=yoloHp, forced="potion", chain=true})
	end
	return Strategies.functions.potion({hp=8, yolo=yoloHp, chain=true})
end

strategyFunctions.fightSurge = function()
	if Battle.isActive() then
		status.canProgress = true
		local forced
		if Pokemon.isOpponent("voltorb") then
			Combat.disableThrash = true
			local __, enemyTurns = Combat.enemyAttack()
			if not enemyTurns or enemyTurns > 2 then
				forced = "bubblebeam"
			elseif enemyTurns == 2 and not Strategies.opponentDamaged() then
				local curr_hp, red_hp = Combat.hp(), Combat.redHP()
				local afterHit = curr_hp - 20
				if afterHit > 5 and afterHit <= red_hp then
					forced = "bubblebeam"
				end
			end
		else
			Combat.disableThrash = false
		end
		Battle.automate(forced)
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
end

-- 7: SURGE

strategyFunctions.procureBicycle = function()
	if Inventory.contains("bicycle") then
		if not Textbox.isActive() then
			return true
		end
		Input.cancel()
	elseif Textbox.handle() then
		Player.interact("Right")
	end
end

-- announceFourTurn

-- redbarCubone

strategyFunctions.undergroundElixer = function()
	if Strategies.initialize() then
		if Inventory.contains("elixer") and Inventory.contains("ether") then
			return true
		end
	end
	return strategyFunctions.interact({dir="Left"})
end

-- shopTM07

-- shopRepels

strategyFunctions.dodgeDepartment = function()
	if Strategies.initialize() then
		status.startPosition = Memory.raw(0x0242)
	end
	local px, py = Player.position()
	local dx, dy = px, py
	if status.startPosition > 7 then
		dy = 2
	else
		dy = 5
	end
	if py == dy then
		if px > 14 then
			return true
		end
		dx = 15
	end
	Walk.step(dx, dy)
end

-- shopPokeDoll

-- shopVending

-- giveWater

-- shopExtraWater

strategyFunctions.shopBuffs = function()
	if Strategies.initialize() then
		if canRiskGiovanni() then
			riskGiovanni = true
			print("Giovanni skip strats!")
		end
	end

	local xspecAmt = 4
	if riskGiovanni then
		xspecAmt = xspecAmt + 1
	elseif stats.nidoran.special < 46 then
		-- xspecAmt = xspecAmt - 1
	end
	return Shop.transaction{
		direction = "Up",
		buy = {{name="x_accuracy", index=0, amount=10}, {name="x_speed", index=5, amount=4}, {name="x_special", index=6, amount=xspecAmt}}
	}
end

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

-- 8: FLY

strategyFunctions.lavenderRival = function()
	if Battle.isActive() then
		status.canProgress = true
		local forced
		if stats.nidoran.special > 44 then -- RISK
			local __, enemyTurns = Combat.enemyAttack()
			if enemyTurns and enemyTurns < 2 and Pokemon.isOpponent("pidgeotto", "gyarados") then
				Battle.automate()
				return false
			end
		end
		if Pokemon.isOpponent("gyarados") or Strategies.prepare("x_accuracy") then
			Battle.automate()
		end
	elseif status.canProgress then
		return true
	else
		Input.cancel()
	end
end

-- digFight

-- pokeDoll

strategyFunctions.thunderboltFirst = function()
	local forced
	if Pokemon.isOpponent("zubat") then
		status.canProgress = true
		forced = "thunderbolt"
	elseif status.canProgress then
		return true
	end
	Battle.automate(forced)
end

-- 8: POKÉFLUTE

strategyFunctions.swapXSpeeds = function()
	local destination = Inventory.contains("ether") and 4 or 5
	return strategyFunctions.swap({item="x_speed", dest=destination, chain=true})
end

-- playPokeflute

-- drivebyRareCandy

strategyFunctions.tossInSafari = function()
	if Inventory.count() <= (Inventory.contains("full_restore") and 18 or 17) then
		return true
	end
	return Strategies.tossItem("antidote", "pokeball")
end

-- silphElevator

strategyFunctions.fightSilphMachoke = function()
	if Battle.isActive() then
		status.canProgress = true
		if Control.yolo and stats.nidoran.special > 44 then
			return Strategies.prepare("x_accuracy")
		end
		Battle.automate("thrash")
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
end

strategyFunctions.silphCarbos = function()
	if stats.nidoran.speedDV >= 8 then
		return true
	end
	return Strategies.functions.interact({dir="Left"})
end

strategyFunctions.swapXSpecials = function()
	local destination = Inventory.contains("ether") and 5 or 6
	return strategyFunctions.swap({item="x_special", dest=destination, chain=true})
end

strategyFunctions.silphRival = function()
	if Battle.isActive() then
		if Strategies.initialize() then
			status.gyaradosDamage = Combat.healthFor("RivalGyarados")
			if Control.yolo then
				Bridge.chat("is attempting to red-bar off Silph Rival. Get ready to spaghetti!")
			end
			status.canProgress = true
		end

		if Strategies.prepare("x_accuracy", "x_speed") then
			local forced
			local opponentName = Battle.opponent()
			local curr_hp, red_hp = Combat.hp(), Combat.redHP()
			if opponentName == "gyarados" then
				if Control.yolo then
					if willRedBar(status.gyaradosDamage) then
						if not Strategies.prepare("x_special") then
							return false
						end
						local stallTurn = Battle.pp("earthquake") > 8
						Control.ignoreMiss = stallTurn
						if stallTurn then
							forced = "earthquake"
						else
							forced = "thunderbolt"
						end
					elseif Strategies.isPrepared("x_special") then
						local canPotion = potionForRedBar(status.gyaradosDamage)
						if canPotion then
							Inventory.use(canPotion, nil, true)
							return false
						end
						forced = "thunderbolt"
					elseif curr_hp > status.gyaradosDamage * 0.95 then
						if not Strategies.prepare("x_special") then
							return false
						end
						forced = "thunderbolt"
					end
				end
			elseif opponentName == "pidgeot" then
				if Control.yolo then
					if not willRedBar(status.gyaradosDamage) then
						if curr_hp > status.gyaradosDamage * 0.95 then
							if not Strategies.prepare("x_special") then
								return false
							end
							forced = "ice_beam"
						else
							if Inventory.count("super_potion") > 2 and curr_hp + 50 > status.gyaradosDamage and curr_hp + 25 < Pokemon.index(0, "max_hp") then
								Inventory.use("super_potion", nil, true)
								return false
							end
							if not potionForRedBar(status.gyaradosDamage) then
								forced = "ice_beam"
							end
						end
					end
				else
					if Battle.pp("horn_drill") < 5 or Strategies.hasHealthFor("KogaWeezing", 5) then
						forced = "ice_beam"
					end
				end
			elseif opponentName == "alakazam" or opponentName == "growlithe" then
				forced = "earthquake"
			end
			Battle.automate(forced)
		end
	elseif status.canProgress then
		Control.ignoreMiss = false
		return true
	else
		Textbox.handle()
	end
end

strategyFunctions.rareCandyGiovanni = function()
	local curr_hp = Combat.hp()
	if curr_hp >= 10 and curr_hp < 19 and Pokemon.index(0, "level") > 36 then
		if Inventory.count("rare_candy") > 1 then
			if Menu.pause() then
				Inventory.use("rare_candy")
				status.menuOpened = true
			end
			return false
		end
	end
	return Strategies.closeMenuFor({})
end

strategyFunctions.fightSilphGiovanni = function()
	if Battle.isActive() then
		status.canProgress = true
		local forced
		local opponentName = Battle.opponent()
		if opponentName == "nidorino" then
			if Battle.pp("horn_drill") > 2 then
				forced = "horn_drill"
			else
				forced = "earthquake"
			end
		elseif opponentName == "rhyhorn" then
			forced = "ice_beam"
		elseif opponentName == "kangaskhan" or opponentName == "nidoqueen" then
			forced = "horn_drill"
		end
		Battle.automate(forced)
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
end

--	9: SILPH CO.

strategyFunctions.potionBeforeHypno = function()
	local curr_hp, red_hp = Combat.hp(), Combat.redHP()
	local healthUnderRedBar = red_hp - curr_hp
	local yoloHP = Combat.healthFor("HypnoHeadbutt") * 0.95
	local useRareCandy = Inventory.count("rare_candy") > 2

	local healTarget
	if healthUnderRedBar >= 0 then
		healTarget = "HypnoHeadbutt"
		if useRareCandy then
			useRareCandy = healthUnderRedBar > 2
		end
	else
		healTarget = "HypnoConfusion"
		if useRareCandy then
			useRareCandy = Control.yolo and curr_hp < Combat.healthFor("KogaWeezing") * 0.85
		end
	end
	if useRareCandy then
		if Menu.pause() then
			Inventory.use("rare_candy", nil, false)
		end
		return false
	end

	return Strategies.functions.potion({hp=healTarget, yolo=yoloHP, close=true})
end

strategyFunctions.fightHypno = function()
	if Battle.isActive() then
		local forced
		if Pokemon.isOpponent("hypno") then
			if Pokemon.info("nidoking", "hp") > Combat.healthFor("KogaWeezing") * 0.9 then
				if Combat.isDisabled(85) then
					forced = "ice_beam"
				else
					forced = "thunderbolt"
				end
			end
		end
		Battle.automate(forced)
		status.canProgress = true
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
end

strategyFunctions.fightKoga = function()
	if Battle.isActive() then
		local forced
		local opponent = Battle.opponent()
		local curr_hp = Combat.hp()
		if Pokemon.isOpponent("weezing") then
			local drillHp = (Pokemon.index(0, "level") > 40) and 12 or 9
			if curr_hp > 0 and curr_hp < drillHp and Battle.pp("horn_drill") > 0 then
				forced = "horn_drill"
				if not status.drilling then
					status.drilling = true
					Bridge.chat("is at low enough HP to try Horn Drill on Weezing")
				end
				Control.ignoreMiss = true
			elseif Strategies.opponentDamaged(2) then
				Inventory.use("pokeflute", nil, true)
				return false
			else
				if Combat.isDisabled(85) then
					forced = "ice_beam"
				else
					forced = "thunderbolt"
				end
				Control.canDie(true)
			end
		else
			if Strategies.isPrepared("x_accuracy") then
				forced = "horn_drill"
			elseif curr_hp > 9 and not Strategies.prepare("x_accuracy") then
				return false
			end
		end
		Battle.automate(forced)
		status.canProgress = true
	elseif status.canProgress then
		Strategies.deepRun = true
		Control.ignoreMiss = false
		return true
	else
		Textbox.handle()
	end
end

-- 10: KOGA

-- dodgeGirl

-- cinnabarCarbos

strategyFunctions.fightErika = function()
	if Battle.isActive() then
		status.canProgress = true
		local forced
		if Control.yolo then
			local curr_hp, red_hp = Combat.hp(), Combat.redHP()
			local razorDamage = 34
			if curr_hp > razorDamage and curr_hp - razorDamage < red_hp then
				if Strategies.opponentDamaged() then
					forced = "thunderbolt"
				elseif stats.nidoran.special < 45 then
					forced = "ice_beam"
				else
					forced = "thunderbolt"
				end
			end
		end
		Battle.automate(forced)
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
end

-- 11: ERIKA

strategyFunctions.waitToReceive = function()
	local main = Memory.value("menu", "main")
	if main == 128 then
		if status.canProgress then
			return true
		end
	elseif main == 32 or main == 123 then
		status.canProgress = true
		Input.cancel()
	else
		Input.press("Start", 2)
	end
end

-- 14: SABRINA

strategyFunctions.earthquakeElixer = function(data)
	if Battle.pp("earthquake") >= data.min then
		if Strategies.closeMenuFor(data) then
			return true
		end
		return false
	end
	if Strategies.initialize() then
		print("EQ Elixer: "..Control.areaName)
	end
	return Strategies.useItem({item="elixer", poke="nidoking", chain=data.chain, close=data.close})
end

strategyFunctions.fightGiovanniMachoke = function()
	if Strategies.initialize() then
		if stats.nidoran.attackDV >= 13 and Battle.pp("earthquake") >= 7 then
			status.skipSpecial = true
		end
	end
	if Battle.isActive() then
		status.canProgress = true
		if Pokemon.isOpponent("machop") then
			status.killedMachoke = true
		elseif not status.killedMachoke then
			if status.skipSpecial and Combat.hp() > 13 and Memory.value("battle", "opponent_last_move") == 116 then
				Bridge.chat("got Focus Energy - using an X Special to guarantee the last Machoke")
				status.skipSpecial = false
			end
			if not status.skipSpecial and not Strategies.prepare("x_special") then
				return false
			end
		end
		Battle.automate()
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
end

strategyFunctions.checkGiovanni = function()
	local ryhornDamage = math.floor(Combat.healthFor("GiovanniRhyhorn") * 0.95) --RISK
	if Strategies.initialize() then
		if Battle.pp("earthquake") > 4 then
			return true
		end
		if riskGiovanni then
			if Control.yolo or Pokemon.info("nidoking", "hp") >= ryhornDamage then
				Bridge.chat("is using risky strats on Giovanni to skip the extra Max Ether...")
				return true
			end
		end
		local message = "ran out of Earthquake PP :( "
		if Control.yolo then
			message = message.."Risking on Giovanni."
		else
			message = message.."Reverting to standard strats."
		end
		Bridge.chat(message)
		riskGiovanni = false
	end
	return Strategies.functions.potion({hp=50, yolo=ryhornDamage})
end

strategyFunctions.fightGiovanni = function()
	if Battle.isActive() then
		if Strategies.initialize() then
			status.needsXSpecial = not Combat.inRedBar() or Battle.pp("earthquake") <= (riskGiovanni and 4 or 2)
			status.canProgress = true
		end
		local forced
		if riskGiovanni then
			if status.needsXSpecial or Battle.pp("earthquake") < 4 then
				forced = "ice_beam"
			end
		else
			if Pokemon.isOpponent("rhydon") then
				forced = "ice_beam"
			end
		end
		if status.needsXSpecial and not Strategies.prepare("x_special") then
			return false
		end
		Battle.automate(forced)
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
end

-- 15: GIOVANNI

strategyFunctions.viridianRival = function()
	if Battle.isActive() then
		status.canProgress = true
		if Strategies.prepare("x_accuracy", "x_special") then
			local forced
			if Pokemon.isOpponent("pidgeot") then
				forced = "thunderbolt"
			elseif riskGiovanni then
				if Pokemon.isOpponent("rhyhorn") or Strategies.opponentDamaged() then
					forced = "ice_beam"
				elseif Pokemon.isOpponent("gyarados") then
					forced = "thunderbolt"
				elseif Pokemon.isOpponent("growlithe", "alakazam") then
					forced = "earthquake"
				end
			end
			Battle.automate(forced)
		end
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
end

strategyFunctions.checkEther = function()
	-- TODO don't skip center if not in redbar
	maxEtherSkip = not requiresE4Center()
	if not maxEtherSkip then
		Bridge.chat("is grabbing the Max Ether to skip the Elite 4 Center")
	end
	return true
end

strategyFunctions.ether = function(data)
	local main = Memory.value("menu", "main")
	data.item = status.item
	if status.item and Strategies.completedMenuFor(data) then
		if Strategies.closeMenuFor(data) then
			return true
		end
	else
		if not status.item then
			if data.max and maxEtherSkip then
				return true
			end
			status.item = Inventory.contains("ether", "max_ether", "elixer")
			if not status.item then
				if Strategies.closeMenuFor(data) then
					return true
				end
				print("No Ether - "..Control.areaName)
				return false
			end
		end
		if status.item == "elixer" then
			return Strategies.useItem({item="elixer", poke="nidoking", chain=data.chain, close=data.close})
		end
		if Memory.value("menu", "main") == 144 and Menu.getCol() == 5 then
			if Menu.hasTextbox() then
				Input.cancel()
			else
				Menu.select(Pokemon.battleMove("horn_drill"), true)
			end
		elseif Menu.pause() then
			Inventory.use(status.item, "nidoking")
			status.menuOpened = true
		end
	end
end

strategyFunctions.tossInVictoryRoad = function()
	if Strategies.initialize() then
		if maxEtherSkip then
			return true
		end
		if Inventory.count("ether") + Inventory.count("elixer") >= 2 then
			return true
		end
	end
	return Strategies.tossItem("antidote", "pokeball")
end

strategyFunctions.grabMaxEther = function()
	if Strategies.initialize() then
		if maxEtherSkip and (Inventory.count("ether") + Inventory.count("elixer") >= 2) then
			return true
		end
		if Inventory.isFull() then
			return true
		end
	end
	if Inventory.contains("max_ether") then
		return true
	end
	local px, py = Player.position()
	if px > 7 then
		return Strategies.reset("Accidentally walked on the island :(", px, true)
	end
	if Memory.value("player", "moving") == 0 then
		Player.interact("Right")
	end
end

-- push

strategyFunctions.potionBeforeLorelei = function()
	if Strategies.initialize() then
		if requiresE4Center() then
			return true
		end
		local canPotion
		if Inventory.contains("potion") and Strategies.hasHealthFor("LoreleiDewgong", 20) then
			canPotion = true
		elseif Inventory.contains("super_potion") and Strategies.hasHealthFor("LoreleiDewgong", 50) then
			canPotion = true
		end
		if not canPotion then
			return true
		end
		Bridge.chat("is healing before Lorelei to skip the Elite 4 Center...")
	end
	return Strategies.functions.potion({hp=Combat.healthFor("LoreleiDewgong")})
end

strategyFunctions.depositPokemon = function()
	local toSize
	if Strategies.hasHealthFor("LoreleiDewgong") or requiresE4Center() then
		toSize = 1
	else
		toSize = 2
	end
	if Memory.value("player", "party_size") == toSize then
		if Menu.close() then
			return true
		end
	else
		if not Textbox.isActive() then
			Player.interact("Up")
		else
			local pc = Memory.value("menu", "size")
			if not Menu.hasTextbox() and (pc == 2 or pc == 4) then
				local menuColumn = Menu.getCol()
				if menuColumn == 10 then
					Input.press("A")
				elseif menuColumn == 5 then
					local depositIndex = 1
					local depositAllExtras = toSize == 1
					if not depositAllExtras and Pokemon.indexOf("pidgey", "spearow") == 1 then
						depositIndex = 2
					end
					Menu.select(depositIndex)
				else
					Menu.select(1)
				end
			else
				Input.press("A")
			end
		end
	end
end

strategyFunctions.centerSkip = function()
	if Strategies.initialize() then
		Strategies.setYolo("e4center")
		if not requiresE4Center() then
			local message = "is skipping the Center and attempting to red-bar "
			if Strategies.hasHealthFor("LoreleiDewgong") then
				message = message.."off Lorelei..."
			else
				message = message.."the Elite 4!"
			end
			Bridge.chat(message)
			return true
		end
	end
	return strategyFunctions.confirm({dir="Up"})
end

strategyFunctions.lorelei = function()
	if Battle.isActive() then
		status.canProgress = true
		if Battle.redeployNidoking() then
			return false
		end
		local forced
		local opponentName = Battle.opponent()
		if opponentName == "dewgong" then
			if Battle.sacrifice("pidgey", "spearow", "squirtle", "paras", "oddish") then
				return false
			end
		elseif opponentName == "jinx" then
			if Battle.pp("horn_drill") <= 1 then
				forced = "earthquake"
			end
		end
		if Strategies.prepare("x_accuracy") then
			Battle.automate(forced)
		end
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
end

-- 16: LORELEI

strategyFunctions.bruno = function()
	if Battle.isActive() then
		status.canProgress = true
		local forced
		if Pokemon.isOpponent("onix") then
			forced = "ice_beam"
			-- local curr_hp, red_hp = Pokemon.info("nidoking", "hp"), Combat.redHP()
			-- if curr_hp > red_hp then
			-- 	local enemyMove, enemyTurns = Combat.enemyAttack()
			-- 	if enemyTurns and enemyTurns > 1 then
			-- 		local rockDmg = enemyMove.damage
			-- 		if curr_hp - rockDmg <= red_hp then
			-- 			forced = "thunderbolt"
			-- 		end
			-- 	end
			-- end
		end
		if Strategies.prepare("x_accuracy") then
			Battle.automate(forced)
		end
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
end

strategyFunctions.agatha = function() --TODO test without x acc
	if Battle.isActive() then
		status.canProgress = true
		if Combat.isSleeping() then
			Inventory.use("pokeflute", nil, true)
			return false
		end
		if Pokemon.isOpponent("gengar") then
			local currentHP = Pokemon.info("nidoking", "hp")
			local xItem1, xItem2
			if not Control.yolo then
				xItem1, xItem2 = "x_accuracy", "x_speed"
			else
				xItem1 = "x_speed"
			end
			if not Control.yolo and currentHP <= 56 and not Strategies.isPrepared(xItem1, xItem2) then
				local toPotion = Inventory.contains("full_restore", "super_potion")
				if toPotion then
					Inventory.use(toPotion, nil, true)
					return false
				end
			end
			if not Strategies.prepare(xItem1, xItem2) then
				return false
			end
		end
		Battle.automate()
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
end

strategyFunctions.prepareForLance = function()
	local enableFull
	if Strategies.hasHealthFor("LanceGyarados", 100) then
		enableFull = Inventory.count("super_potion") < 2
	elseif Strategies.hasHealthFor("LanceGyarados", 50) then
		enableFull = not Inventory.contains("super_potion")
	else
		enableFull = true
	end
	local min_recovery = Combat.healthFor("LanceGyarados")
	if not Control.yolo then
		min_recovery = min_recovery + 2
	end
	return Strategies.functions.potion({hp=min_recovery, full=enableFull, chain=true})
end

strategyFunctions.lance = function()
	if Battle.isActive() then
		status.canProgress = true
		local xItem
		if Pokemon.isOpponent("dragonair") then
			xItem = "x_speed"
		else
			xItem = "x_special"
		end
		if Strategies.prepare(xItem) then
			Battle.automate()
		end
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
end

strategyFunctions.prepareForBlue = function()
	if Strategies.initialize() then
		Strategies.setYolo("blue")
	end
	local skyDmg = Combat.healthFor("BlueSky") * 0.925
	local wingDmg = Combat.healthFor("BluePidgeot")
	return Strategies.functions.potion({hp=skyDmg-50, yolo=wingDmg, full=true})
end

strategyFunctions.blue = function()
	if Battle.isActive() then
		if not status.canProgress then
			status.canProgress = true
			if stats.nidoran.specialDV >= 8 and stats.nidoran.speedDV >= 12 and Inventory.contains("x_special") then
				status.xItem = "x_special"
			else
				status.xItem = "x_speed"
			end
		end

		local boostFirst = Pokemon.index(0, "hp") < 55
		local firstItem, secondItem
		if boostFirst then
			firstItem = status.xItem
			secondItem = "x_accuracy"
		else
			firstItem = "x_accuracy"
			secondItem = status.xItem
		end

		local forced = "horn_drill"

		if Memory.value("battle", "attack_turns") > 0 then
			local skyDamage = Combat.healthFor("BlueSky")
			local healCutoff = skyDamage * 0.825
			if Strategies.initialize() then
				if not Strategies.isPrepared("x_accuracy", status.xItem) then
					local msg = " Uh oh... First-turn Sky Attack could end the run here, "
					if Pokemon.index(0, "hp") > skyDamage then
						msg = msg.."no criticals pls D:"
					elseif Strategies.canHealFor(healCutoff) then
						msg = msg.."attempting to heal for it"
						if not Strategies.canHealFor(skyDamage) then
							msg = msg.." (damage range)"
						end
						msg = msg.."."
					else
						msg = msg.."and nothing left to heal with BibleThump"
					end
					Bridge.chat(msg)
				end
			end

			if Strategies.prepare(firstItem) then
				if not Strategies.isPrepared(secondItem) then
					local toPotion = Strategies.canHealFor(healCutoff)
					if toPotion then
						Inventory.use(toPotion, nil, true)
						return false
					end
				end
				if Strategies.prepare("x_accuracy", status.xItem) then
					Battle.automate(forced)
				end
			end
		else
			if Strategies.prepare(firstItem, secondItem) then
				if Pokemon.isOpponent("alakazam") then
					if status.xItem == "x_speed" then
						forced = "earthquake"
					end
				elseif Pokemon.isOpponent("rhydon") then
					if status.xItem == "x_special" then
						forced = "ice_beam"
					end
				end
				Battle.automate(forced)
			end
		end
	elseif status.canProgress then
		return true
	else
		Textbox.handle()
	end
end

strategyFunctions.champion = function()
	if status.canProgress then
		if status.tries > 2000 then
			return Strategies.hardReset("Back to the grind - you can follow on Twitter for updates on our next good run! https://twitter.com/thepokebot")
		end
		if status.tries == 0 then
			Strategies.tweetProgress("Beat Pokemon Red in "..status.canProgress.."!")
			if Strategies.seed then
				print("v"..VERSION..": "..Utils.frames().." frames, with seed "..Strategies.seed)
				print("Please save this seed number to share, if you would like proof of your run!")
				print("A screenshot has been saved to the Gameboy\\Screenshots folder in BizHawk.")

				if STREAMING_MODE and not Strategies.replay then
					Strategies.seed = 0
					gui.cleartext()
					gui.text(0, 0, "PokeBot v"..VERSION)
					gui.text(0, 7, "Seed: "..Strategies.seed)
					gui.text(0, 14, "Name: "..Textbox.getNamePlaintext())
					gui.text(0, 21, "Reset for time: "..tostring(RESET_FOR_TIME))
					gui.text(0, 28, "Time: "..Utils.elapsedTime())
					gui.text(0, 35, "Frames: "..Utils.frames())
					client.setscreenshotosd(true)
					client.screenshot()
					client.setscreenshotosd(false)
					gui.cleartext()
				end
			end
		elseif status.tries == 500 then
			Bridge.chat("beat the game in "..status.canProgress.."!")
		end
		status.tries = status.tries + 1
	elseif Memory.value("menu", "shop_current") == 252 then
		Strategies.functions.split({finished=true})
		status.canProgress = Utils.elapsedTime()
	else
		Input.cancel()
	end
end

-- PROCESS

function Strategies.initGame(midGame)
	if not STREAMING_MODE then
		-- Strategies.setYolo("bulbasaur")
		stats.squirtle = {
			attack = 11,
			defense = 11,
			speed = 11,
			special = 11,
		}
		if Pokemon.inParty("nidoking") then
			local attDv, defDV, spdDv, sclDV = Pokemon.getDVs("nidoking")
			p(attDv, defDV, spdDv, sclDV)
			stats.nidoran = {
				attack = 55,
				defense = 45,
				speed = 50,
				special = 45,
				rating = 1,
				attackDV = attDv,
				defenseDV = defDV,
				speedDV = spdDv,
				specialDV = sclDV,
			}
			riskGiovanni = canRiskGiovanni()
		else
			stats.nidoran = {
				attack = 16,
				defense = 12,
				speed = 15,
				special = 13,
				level4 = true,
				rating = 1,
			}
		end
		p(stats.nidoran.attack, "x", stats.nidoran.speed, stats.nidoran.special)
	end
end

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

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

return Strategies