PHP Code:
name = "Leveling in Vro hoenn"
author = "whtmn"
description= [[Start in pokecenter in pokemon league hoenn.]]
movesNotToForget = {""} --add moves here
mounts= { ""}
rectanglesCount = 4
rectangles = {
{42, 5, 44, 6},
{42, 7, 44, 8},
{41, 5, 42, 6},
{43, 5, 44, 7}
}
selectedRectangle = 0
function onStart()
selectRandomRectangle()
for _, mountName in ipairs(mounts) do
if hasItem(mountName) then
setMount(mountName)
break
end
end
end
function onPathAction()
if isPokemonUsable(1) then
if getMapName() == "Pokemon League Hoenn" then
moveToCell(10, 28)
elseif getMapName() == "Ever Grande City" then
moveToCell(30, 34)
elseif getMapName() == "Victory Road Hoenn 1F" then
moveToRectangle(
rectangles[selectedRectangle][1],
rectangles[selectedRectangle][2],
rectangles[selectedRectangle][3],
rectangles[selectedRectangle][4]
)
end
else
if getMapName() == "Victory Road Hoenn 1F" then
moveToCell(46, 10)
elseif getMapName() == "Ever Grande City" then
moveToCell(30, 9)
elseif getMapName() == "Pokemon League Hoenn" then
talkToNpcOnCell(4, 22)
end
end
end
function onBattleAction()
if isWildBattle() and ( isOpponentShiny() ) then
if useItem("Ultra Ball") or useItem("Great Ball") or useItem("Pokeball") then
return
end
end
if getActivePokemonNumber() == 1 then
return attack() or run() or sendUsablePokemon() or sendAnyPokemon()
else
return run() or attack() or sendUsablePokemon() or sendAnyPokemon()
end
end
function onLearningMove(moveName, pokemonIndex)
forgetAnyMoveExcept(movesNotToForget)
end
function onBattleMessage(message)
-- Switch rectangle after each battle.
if stringContains(message, "you have won") then
selectRandomRectangle()
end
end
function selectRandomRectangle()
selectedRectangle = math.random(1, rectanglesCount)
log("Using rectangle " .. selectedRectangle .. ".")
end