This Script will Level the first 3 Pokemon in your team at Seafoam 4th Floor where the Pokemon are a higher level, The script will Heal in Fuchsia City. It will attack everything on the way too. This Script will also Catch Shiny Pokemon. It logs your levels gained, Money earned, Pokecenter visits, Shinies Caught, and pokemon Defeated.
This Script is Lua format
Enjoy!
Here is for 1 pokemon trained:
Credits: Me, NetPaPa, S1lver and Royal for they're Tutorials!
Enjoy Guys!
This Script is Lua format

name = "iBot Seafoam to Fuchsia"
author = "Snes1010/NetPaPa"
description = "Trains your first 3 pokemon at Seafoam Island 4th Floor, Heals in Fuchsia City, Catches Shinies, Start in Fuchsia City! Must Know Surf!"
function onStart()
pcVisits = 0
shinyCounter = 0
wildCounter = 0
startLevel1 = getPokemonLevel(1)
startLevel2 = getPokemonLevel(2)
startLevel3 = getPokemonLevel(3)
startLevel = getPokemonLevel(1)
startMoney = getMoney()
log("You have currently " .. getMoney() .. " Pokedollars.")
log("Your " .. getPokemonName(1) .. " is Level " .. startLevel1 .. ".")
log("Your " .. getPokemonName(2) .. " is Level " .. startLevel2 .. ".")
log("Your " .. getPokemonName(3) .. " is Level " .. startLevel3 .. ".")
log("Start botting.")
end
function onPause()
log("***********************************PAUSED - SESSION STATS***********************************")
log("Your First Pokemon, ".. getPokemonName(1) ..", has gained ".. (getPokemonLevel(1) - startLevel1) .." levels!")
log("Your Second Pokemon, ".. getPokemonName(2) ..", has gained ".. (getPokemonLevel(2) - startLevel2) .." levels!")
log("Your Third Pokemon, ".. getPokemonName(3) ..", has gained ".. (getPokemonLevel(3) - startLevel3) .." levels!")
log("You have earned ".. tostring(getMoney() - startMoney) .." PokeDollars!")
log("Shinies Caught: " .. shinyCounter)
log("Pokemons encountered: " .. wildCounter)
log("You have visited the PokeCenter ".. pcVisits .." times.")
log("*********************************************************************************************")
end
function onResume()
log("SESSION RESUMED")
end
function onPathAction()
if isPokemonUsable(3) then
if getMapName() == "Pokecenter Fuchsia" then
moveToMap("Fuchsia City")
elseif getMapName() == "Fuchsia City" then
moveToMap("Fuchsia City Stop House")
elseif getMapName() == "Fuchsia City Stop House" then
moveToMap("Route 19")
elseif getMapName() == "Route 19" then
moveToMap("Route 20")
elseif getMapName() == "Route 20" then
moveToCell(60, 32)
elseif getMapName() == "Seafoam 1F" then
moveToMap("Seafoam B1F")
elseif getMapName() == "Seafoam B1F" then
moveToMap("Seafoam B2F")
elseif getMapName() == "Seafoam B2F" then
moveToMap("Seafoam B3F")
elseif getMapName() == "Seafoam B3F" then
moveToCell(12, 8)
elseif getMapName() == "Seafoam B4F" then
moveToRectangle(9,15,13,20)
end
elseif getMapName() == "Seafoam B4F" then
moveToCell(9, 6)
elseif getMapName() == "Seafoam B3F" then
moveToMap("Seafoam B2F")
elseif getMapName() == "Seafoam B2F" then
moveToMap("Seafoam B1F")
elseif getMapName() == "Seafoam B1F" then
moveToMap("Seafoam 1F")
elseif getMapName() == "Seafoam 1F" then
moveToMap("Route 20")
elseif getMapName() == "Route 20" then
moveToMap("Route 19")
elseif getMapName() == "Route 19" then
moveToMap("Fuchsia City Stop House")
elseif getMapName() == "Fuchsia City Stop House" then
moveToMap("Fuchsia City")
elseif getMapName() == "Fuchsia City" then
moveToMap("Pokecenter Fuchsia")
elseif getMapName() == "Pokecenter Fuchsia" then
usePokecenter()
end
end
function onDialogMessage(pokecenter)
if stringContains(pokecenter, "Would you like me to heal your Pokemon?") then
pcVisits = pcVisits + 1
end
end
function onBattleMessage(wild)
if stringContains(wild, "A Wild SHINY ") then
shinyCounter = shinyCounter + 1
elseif stringContains(wild, "A Wild ") then
wildCounter = wildCounter + 1
end
end
function onBattleAction()
if isWildBattle() and (isOpponentShiny() or getOpponentName() == "Lapras" or getOpponentName() == "Staryu" ) then
return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendUsablePokemon()
end
if getActivePokemonNumber() > 3 then
return run()
else return attack() or sendUsablePokemon() or sendAnyPokemon() or run()
end
end
Here is for 1 pokemon trained:
name = "iBot Seafoam to Fuchsia"
author = "Snes1010/NetPaPa"
description = "Trains your first 3 pokemon at Seafoam Island 4th Floor, Heals in Fuchsia City, Catches Shinies, Start in Fuchsia City! Must Know Surf!"
function onStart()
pcVisits = 0
shinyCounter = 0
wildCounter = 0
startLevel1 = getPokemonLevel(1)
startLevel2 = getPokemonLevel(2)
startLevel3 = getPokemonLevel(3)
startLevel = getPokemonLevel(1)
startMoney = getMoney()
log("You have currently " .. getMoney() .. " Pokedollars.")
log("Your " .. getPokemonName(1) .. " is Level " .. startLevel1 .. ".")
log("Your " .. getPokemonName(2) .. " is Level " .. startLevel2 .. ".")
log("Your " .. getPokemonName(3) .. " is Level " .. startLevel3 .. ".")
log("Start botting.")
end
function onPause()
log("***********************************PAUSED - SESSION STATS***********************************")
log("Your First Pokemon, ".. getPokemonName(1) ..", has gained ".. (getPokemonLevel(1) - startLevel1) .." levels!")
log("Your Second Pokemon, ".. getPokemonName(2) ..", has gained ".. (getPokemonLevel(2) - startLevel2) .." levels!")
log("Your Third Pokemon, ".. getPokemonName(3) ..", has gained ".. (getPokemonLevel(3) - startLevel3) .." levels!")
log("You have earned ".. tostring(getMoney() - startMoney) .." PokeDollars!")
log("Shinies Caught: " .. shinyCounter)
log("Pokemons encountered: " .. wildCounter)
log("You have visited the PokeCenter ".. pcVisits .." times.")
log("*********************************************************************************************")
end
function onResume()
log("SESSION RESUMED")
end
function onPathAction()
if isPokemonUsable(1) then
if getMapName() == "Pokecenter Fuchsia" then
moveToMap("Fuchsia City")
elseif getMapName() == "Fuchsia City" then
moveToMap("Fuchsia City Stop House")
elseif getMapName() == "Fuchsia City Stop House" then
moveToMap("Route 19")
elseif getMapName() == "Route 19" then
moveToMap("Route 20")
elseif getMapName() == "Route 20" then
moveToCell(60, 32)
elseif getMapName() == "Seafoam 1F" then
moveToMap("Seafoam B1F")
elseif getMapName() == "Seafoam B1F" then
moveToMap("Seafoam B2F")
elseif getMapName() == "Seafoam B2F" then
moveToMap("Seafoam B3F")
elseif getMapName() == "Seafoam B3F" then
moveToCell(12, 8)
elseif getMapName() == "Seafoam B4F" then
moveToRectangle(9,15,13,20)
end
elseif getMapName() == "Seafoam B4F" then
moveToCell(9, 6)
elseif getMapName() == "Seafoam B3F" then
moveToMap("Seafoam B2F")
elseif getMapName() == "Seafoam B2F" then
moveToMap("Seafoam B1F")
elseif getMapName() == "Seafoam B1F" then
moveToMap("Seafoam 1F")
elseif getMapName() == "Seafoam 1F" then
moveToMap("Route 20")
elseif getMapName() == "Route 20" then
moveToMap("Route 19")
elseif getMapName() == "Route 19" then
moveToMap("Fuchsia City Stop House")
elseif getMapName() == "Fuchsia City Stop House" then
moveToMap("Fuchsia City")
elseif getMapName() == "Fuchsia City" then
moveToMap("Pokecenter Fuchsia")
elseif getMapName() == "Pokecenter Fuchsia" then
usePokecenter()
end
end
function onDialogMessage(pokecenter)
if stringContains(pokecenter, "Would you like me to heal your Pokemon?") then
pcVisits = pcVisits + 1
end
end
function onBattleMessage(wild)
if stringContains(wild, "A Wild SHINY ") then
shinyCounter = shinyCounter + 1
elseif stringContains(wild, "A Wild ") then
wildCounter = wildCounter + 1
end
end
function onBattleAction()
if isWildBattle() and (isOpponentShiny() or getOpponentName() == "Lapras" or getOpponentName() == "Staryu" ) then
return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendUsablePokemon()
end
if getActivePokemonNumber() > 3 then
return run()
else return attack() or sendUsablePokemon() or sendAnyPokemon() or run()
end
end
Credits: Me, NetPaPa, S1lver and Royal for they're Tutorials!
Enjoy Guys!