Hello There, Guest! Login Register


Seafoam B4F to Fuchsia City PC Leveler
#1
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 Smile Enjoy!

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!
 
Reply
#2
Looks fine. I'll test it later. Wink
 
Reply
#3
TY Mate! Works great!
 
Reply
#4
Thanks for the credit Smile
 
Reply
#5
NetPaPa Thanks for the credit Smile

You helped me out, for that i am ever grateful, I give credit where credit is due Smile Smile Smile
 
Reply
#6
it doesnt keep going, it stops. and how would I make it train at least 5 members in the party?
 
Reply
#7
Can you tell me what i have to change to make it train only my first pokemon?
 
Reply
#8
auto stops when visit the pokecenter, i dont know why, btw thanks for the script =)
Many Years dying of thirst, and i haven't died yet... I just never follow people,
I infiltrated the system and exploded from within
 
Reply
#9
All scripts are for some reason sometimes stop at pokecenter.

To only use one pokemon change :
if isPokemonUsable(3) then

To:
if isPokemonUsable(1) then

And

if getActivePokemonNumber() > 3 then

to:
if getActivePokemonNumber() > 1 then

SAVE It will level 1 Pokemon
 
Reply
#10
you can put to capture Lapras and Staryu?
 
Reply
#11
yes i will do that now, if you can wait 3 minutes ill have a script for u
 
Reply
#12
maybe if we can put in pokecenter map name is diferent to anyname. use pokecenter.. might works
Many Years dying of thirst, and i haven't died yet... I just never follow people,
I infiltrated the system and exploded from within
 
Reply
#13
Machado you can put to capture Lapras and Staryu?


Here:
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 onStop()
    log("Total PokeDollars Earned: ".. tostring(getMoney() - startMoney) ..".")
    log("Total Pokemon Defeated: ".. wildCounter ..".")
    log("Total Shiny Pokemon Caught: ".. shinyCounter ..".")
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

change: (getOpponentName() == "Lapras" ) to (getOpponentName() == "Staryu" ) for the other Pokemon
 
Reply
#14
BusterFx maybe if we can put in pokecenter map name is diferent to anyname. use pokecenter.. might works

It is usePokecenter()
 
Reply
#15
youre right, but how we put diferent in lua?
Many Years dying of thirst, and i haven't died yet... I just never follow people,
I infiltrated the system and exploded from within
 
Reply
#16
thank you snes1010 !
 
Reply
#17
I will be adding a config where you can change pokemon to catch, amount of pokemon to level, to use the bike and so on in version 2.0
 
Reply
#18
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

It's ok ?
 
Reply
#19
yes im going to fix it now i just seen it

GUYS I FIXED COMBAT ISSUE!!!
 
Reply
#20
Is it possible to talk with the healer inside the cave?
 
Reply
#21
The Script crashs every 30 minutes

[19:43:05] No action executed: stopping the bot.
 
Reply
#22
Quick questiom after my three pokemon die the bot just exits saying no acction execute is there a way to make this not occur and go back and heal?
 
Reply
#23
I improved it. It now trains all 6 Pokemon and it won't stop working.

name = "iBot Seafoam to Fuchsia"
author = "Snes1010/NetPaPa tweaked by Nova"
description = "Trains all your 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)
    startLevel4 = getPokemonLevel(4)
    startLevel5 = getPokemonLevel(5)
    startLevel6 = getPokemonLevel(6)
    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("Your " .. getPokemonName(4) .. " is Level " .. startLevel4 .. ".")
    log("Your " .. getPokemonName(5) .. " is Level " .. startLevel5 .. ".")
    log("Your " .. getPokemonName(6) .. " is Level " .. startLevel6 .. ".")
    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("Your Fourth Pokemon, ".. getPokemonName(4) ..", has gained ".. (getPokemonLevel(4) - startLevel4) .." levels!")
    log("Your Fifth Pokemon, ".. getPokemonName(5) ..", has gained ".. (getPokemonLevel(5) - startLevel5) .." levels!")
    log("Your Sixth Pokemon, ".. getPokemonName(6) ..", has gained ".. (getPokemonLevel(6) - startLevel6) .." 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 onStop()
    log("Total PokeDollars Earned: ".. tostring(getMoney() - startMoney) ..".")
    log("Total Pokemon Defeated: ".. wildCounter ..".")
    log("Total Shiny Pokemon Caught: ".. shinyCounter ..".")
end

function onPathAction()
    if isPokemonUsable(6) 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() > 6 then
            return run()
    else return attack() or sendUsablePokemon() or sendAnyPokemon()    or run()
        end
end
 
Reply
#24
Can you add a magikarp catcher to the train 1 pokemon version please and thanks. Big Grin
 
Reply
#25
Nerdaloid Can you add a magikarp catcher to the train 1 pokemon version please and thanks. Big Grin

or getOpponentName() == "Magikarp"

Just add that to the line that includes the Lapras and Staryu.. Or just change one of the names if you don't want them.
 
Reply
  


Forum Jump:


Browsing: 1 Guest(s)