Hello There, Guest! Login Register


It's Safari Time!
#1
Heart 
[Image: Ot71ir0.png]
[Image: 0yzLcOr.png]
  • Johto Safari Script Lua
  • Catch your desired Pokemons
  • Single Catching at All Time
  • Multiple Catching Features at Different Time
  • Synchronize Features
  • False Swipe, Sleep, Normal or Both False Swipe/Sleep Catch
  • Mounting Features
  • Hunt and Farm Features
  • Kanto Safari Script Added at Git     --May be Re-coded the whole script soon     Old Link: https://proshine-bot.com/thread-1145.html
  • Hoenn Safari Script    ETA: UNKNOWN
  • HOENN SAFARI SCRIPT RELEASED!
[Image: 1rwnoPa.png]
08-26-2016 ~ Initial Release
08-26-2016 ~ Johto and Kanto Safari Script at Github
08-27-2016 ~ Johto Safari Script Swapping Method FIXED!
08-27-2016 ~ HOENN SAFARI RELEASED!
09-17-2016 ~ Adjusted the script for getRemainingPP code
09-17-2016 ~ Hoenn and Johto Safari Script Bug fixes
09-18-2016 ~ Bug fixes

[Image: BycFZM4.png]

[Image: 0X5dKRy.png][/url]

[Image: 479Ub0l.png]

PLEASE REPORT YOUR ENCOUNTERED BUG/ERROR with DETAILS.... Ciao!!!
[Image: Y9wNr6X.png]
God Karp Trainer loading... *splash*splash Huh

 
Reply
#2
thank you so much redskhie i will try it later
 
Reply
#3
Good work bro, money farming are working?
 
Reply
#4
(2016-08-26, 06:48:43)lalalala25 Good work bro, money farming are working?

Kanto Safari Script right? Not yet, don't have time yet to fixed it.

EDIT: Just made a quick fix. TRY it. If it didn't work, wait until I replaced all the codes with the new one
God Karp Trainer loading... *splash*splash Huh

 
Reply
#5

HOENN SAFARI SCRIPT RELEASED!


Big Grin Big Grin Big Grin

ENJOY!
God Karp Trainer loading... *splash*splash Huh

 
Reply
#6
(2016-08-26, 07:21:37)redskhie
(2016-08-26, 06:48:43)lalalala25 Good work bro, money farming are working?

Kanto Safari Script right? Not yet, don't have time yet to fixed it.

EDIT: Just made a quick fix. TRY it. If it didn't work, wait until I replaced all the codes with the new one

i'll try and tell u Wink ty



EDIT: i tested, and now dont going to seafoam to farm, just keep going in safari to catch (not tested on cerulean cave)]

I will wait until you have time to fix, thanks anyway
 
Reply
#7
<3 Thanks you bro
 
Reply
#8
very nice :3 ,a development wholly in keeping with what I expected.
 
Reply
#9
function pc()

    if getMapName() == "Lilycove City" then
               moveToMap("Pokecenter Lilycove City")
       elseif getMapName() == "Route 121" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               moveToMap("Route 121")
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToCell(23,48)
       elseif getMapName() == "Hoenn Safari Zone Area 2" then
        moveToMap("Hoenn Safari Zone Area 1")
       elseif getMapName() == "Pokecenter Lilycove City" then
           usePokecenter()
       end
       
end
please fix
 
Reply
#10
i keep getting the pokecentre loop for hoenn
 
Reply
#11
(2016-08-29, 09:30:47)jimevz i keep getting the pokecentre loop for hoenn

PLEASE PROVIDE MORE INFO About YOUR PROBLEM

May I see your CONFIG? and What are the pokemons in your team?

(2016-08-29, 07:55:13)Pan
function pc()

    if getMapName() == "Lilycove City" then
               moveToMap("Pokecenter Lilycove City")
       elseif getMapName() == "Route 121" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               moveToMap("Route 121")
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToCell(23,48)
       elseif getMapName() == "Hoenn Safari Zone Area 2" then
        moveToMap("Hoenn Safari Zone Area 1")
       elseif getMapName() == "Pokecenter Lilycove City" then
           usePokecenter()
       end
       
end
please fix


What is your problem?

PLEASE PROVIDE MORE INFO About YOUR PROBLEM, Nobody can help you if its a limited info
God Karp Trainer loading... *splash*splash Huh

 
Reply
#12
(2016-08-29, 10:50:12)redskhie
(2016-08-29, 09:30:47)jimevz i keep getting the pokecentre loop for hoenn

PLEASE PROVIDE MORE INFO About YOUR PROBLEM

May I see your CONFIG? and What are the pokemons in your team?

(2016-08-29, 07:55:13)Pan
function pc()

    if getMapName() == "Lilycove City" then
               moveToMap("Pokecenter Lilycove City")
       elseif getMapName() == "Route 121" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               moveToMap("Route 121")
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToCell(23,48)
       elseif getMapName() == "Hoenn Safari Zone Area 2" then
        moveToMap("Hoenn Safari Zone Area 1")
       elseif getMapName() == "Pokecenter Lilycove City" then
           usePokecenter()
       end
       
end
please fix


What is your problem?

PLEASE PROVIDE MORE INFO About YOUR PROBLEM, Nobody can help you if its a limited info
sometimekeep moving around in lobby and stuck in pc

[8:15:32] System: Welcome to Pokemon Revolution Online. (Blue Server)
[8:15:34] Bot started
[8:15:34] -----------------------------------------------------------
[8:15:34] |---- We are now Commencing the Catch Routine ----|
[8:15:34] -----------------------------------------------------------
[8:15:34] -------- SINGLE-CATCHING STARTED --------
[8:15:34] -------- Script Information --------
[8:15:34] -We will hunt Torchic all Day!!!- -Location: Hoenn Safari Zone 6 -
[8:15:34] --------------------------------------
[8:15:43] ---------------------------
[8:15:43] ~~~ Riding on my pet!!! ~~~
[8:15:43] ---------------------------
[8:16:02] A Wild Zigzagoon Attacks!
[8:16:08] You have run away from the wild Pokemon.
[8:16:24] Hello! Welcome to the Hoenn Safari zone!
[8:16:24] Would you like to enter the safari zone for $5,000 today?
[8:16:29] Enjoy your safari time!
[8:16:31] System: You can stay in the Safari Zone for 20 minutes!
[8:16:35] ---------------------------
[8:16:35] ~~~ Riding on my pet!!! ~~~
[8:16:35] ---------------------------
[8:16:47] Hello! Welcome to the Hoenn Safari zone!
[8:16:47] Would you like to enter the safari zone for $5,000 today?
[8:16:50] Enjoy your safari time!
[8:16:53] System: You can stay in the Safari Zone for 20 minutes!
[8:16:56] ---------------------------
[8:16:56] ~~~ Riding on my pet!!! ~~~
[8:16:56] ---------------------------
[8:17:08] Hello! Welcome to the Hoenn Safari zone!
[8:17:08] Would you like to enter the safari zone for $5,000 today?
[8:17:12] Enjoy your safari time!
[8:17:15] System: You can stay in the Safari Zone for 20 minutes!
[8:17:17] ---------------------------
[8:17:17] ~~~ Riding on my pet!!! ~~~
[8:17:17] ---------------------------
[8:17:29] Hello! Welcome to the Hoenn Safari zone!
[8:17:29] Would you like to enter the safari zone for $5,000 today?
[8:17:31] Enjoy your safari time!
[8:17:34] System: You can stay in the Safari Zone for 20 minutes!
[8:17:38] ---------------------------
[8:17:38] ~~~ Riding on my pet!!! ~~~
[8:17:38] ---------------------------
[8:17:50] Hello! Welcome to the Hoenn Safari zone!
[8:17:50] Would you like to enter the safari zone for $5,000 today?
[8:17:53] Enjoy your safari time!
[8:17:56] System: You can stay in the Safari Zone for 20 minutes!
[8:18:00] ---------------------------
[8:18:00] ~~~ Riding on my pet!!! ~~~
[8:18:00] ---------------------------
[8:18:13] Hello! Welcome to the Hoenn Safari zone!
[8:18:13] Would you like to enter the safari zone for $5,000 today?
[8:18:17] Enjoy your safari time!
[8:18:19] System: You can stay in the Safari Zone for 20 minutes!
[8:18:24] ---------------------------
[8:18:24] ~~~ Riding on my pet!!! ~~~
[8:18:24] ---------------------------
[8:18:36] Hello! Welcome to the Hoenn Safari zone!
[8:18:36] Would you like to enter the safari zone for $5,000 today?
[8:18:38] Enjoy your safari time!
[8:18:40] System: You can stay in the Safari Zone for 20 minutes!
[8:18:43] ---------------------------
[8:18:43] ~~~ Riding on my pet!!! ~~~
[8:18:43] ---------------------------


[8:24:56] Bot started
[8:24:56] -----------------------------------------------------------
[8:24:56] |---- We are now Commencing the Catch Routine ----|
[8:24:56] -----------------------------------------------------------
[8:24:56] -------- MULTI-CATCHING STARTED --------
[8:24:56] -------- Script Information --------
[8:24:56] ~~~HUNTED POKEMONS~~~
[8:24:56] -Morning Time: Torchic- -Location: Hoenn Safari Zone 6 -
[8:24:56] -Day Time: Riolu- -Location: Hoenn Safari Zone 3 -
[8:24:56] -Night Time: Beldum- -Location: Hoenn Safari Zone 2 -
[8:24:56] --------------------------------------
[8:24:57] System: You are no longer AFK!
[8:25:07] ---------------------------
[8:25:07] ~~~ Riding on my pet!!! ~~~
[8:25:07] ---------------------------
[8:25:34] Good day, Trainer!
[8:25:34] Welcome to Lilycove City Pokemon Center.
[8:25:34] Would you like me to heal your Pokemon?
[8:25:37] Okay, let me take a look at those Pokemon.
[8:25:45] There you go, take care of them!
[8:25:45] Have a nice day!
[8:25:48] Good day, Trainer!
[8:25:48] Welcome to Lilycove City Pokemon Center.
[8:25:48] Would you like me to heal your Pokemon?
[8:25:52] Okay, let me take a look at those Pokemon.
[8:25:59] There you go, take care of them!
[8:25:59] Have a nice day!
[8:26:01] Good day, Trainer!
[8:26:01] Welcome to Lilycove City Pokemon Center.
[8:26:01] Would you like me to heal your Pokemon?
[8:26:05] Okay, let me take a look at those Pokemon.
[8:26:09] There you go, take care of them!
[8:26:09] Have a nice day!
[8:26:11] Good day, Trainer!
[8:26:11] Welcome to Lilycove City Pokemon Center.
[8:26:11] Would you like me to heal your Pokemon?
[8:26:15] Okay, let me take a look at those Pokemon.
[8:26:21] There you go, take care of them!
[8:26:21] Have a nice day!
[8:26:25] Good day, Trainer!
[8:26:25] Welcome to Lilycove City Pokemon Center.
[8:26:25] Would you like me to heal your Pokemon?
[8:26:29] Okay, let me take a look at those Pokemon.
[8:26:34] There you go, take care of them!
[8:26:34] Have a nice day!
 
Reply
#13
May I see your configuration?
God Karp Trainer loading... *splash*splash Huh

 
Reply
#14
the script stops working randomly , maybe when it will change synch , do not know for sure, using the default config, safari of hoenn.
 
Reply
#15
(2016-08-30, 04:16:45)redskhie May I see your configuration?

                         -- Copyright © 2016 redskhie



huntandFarm = false        --set to true if you want to kill all encountered pokes else false
catchUncaught = true        --set to true if you want to catch uncaught pokes else false
catchShiny = true        --set to true if you want to catch encountered shiny's else false


                        -- CATCH CONFIGURATION --CASE INSENSITIVE
            --SINGLE CATCHING

singleCatch = true        --Set to true if you want to catch only 1 Pokes and set multipleCatch to false
    
toHunt = "Torchic"        --Set/Change the name of Pokemon you want to Catch    
huntMap = "Zone 6"        --Set/Change the Map Area of the Pokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"



            --MULTIPLE CATCHING

multipleCatch = false        --Set to true if you want to catch multiple Pokes at Different Time and set singleCatch to false
                --NOTE: PLEASE PROPERLY ARRANGE THE TEAM ACCORDING TO YOUR INPUT CONFIG


            --MORNING TIME CONFIG

toHunt1 = "Torchic"        --Set/Change the name of Pokemon you want to Catch
huntMap1 = "Zone 6"        --Set/Change the Map Area of the 1st Pokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"



synch1 = "Adamant"            --Set the Nature of the Synch Poke to Use at Morning
synchIndex1 = 1            --Do not touch this line!

            --DAY TIME CONFIG

toHunt2 = "Riolu"            --Set/Change the name of Pokemon you want to Catch at Noon
huntMap2 = "Zone 3"            --Set/Change the Map Area of the 2nd Pokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"


synch2 = "Jolly"        --Set the Nature of the Synch Poke to Use at Noon
synchIndex2 = 3            --set the Index # of the Synch Poke to Use at Noon, elseif the same leave
            --NIGHT TIME CONFIG

toHunt3 = "Beldum"            --Set/Change the name of Pokemon you want to Catch at Night
huntMap3 = "Zone 2"        --Set/Change the Map Area of the 3rdPokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"


synch3 = "Adamant"        --Set the Nature of the Synch Poke to Use at Night        
synchIndex3 = 3         --set the Index # of the Synch Poke to Use at Night, elseif the same leave




    --ADDED HUNT    --Use this if multiple catch is full and you think you can Hunt another poke in the same area

Add = false        --Set to true if you want to catch another pokemon
addHunt1 = "Rhyhorn"    --Set the name of the pokemon
addHunt2 = ""        --Set the name of the pokemon
addHunt3 = ""        --Set the name of the pokemon



fishItem = "Super Rod"        --Set/Change the Name of the Fishing Item you want to Use, Don't leave it blank        --NOT USABLE at HOENN






    -- You can only choose One Special Catching, set true, else leave the 3 false

                                  --use only normalCatchOn if you don't have fswiper and sleeper
                                  --Leave blank at sleepmove/weakmove if you don't have atleast


normalCatchOn = false        --Directly throw pokeballs on hunted pokemons
fswipeOn = false        --Switch to pokemon with false swipe, use false swipe until the hunted pokes hp is reach to 1 then throw pokeballs
sleepOn = false            --Switch to pokemon with sleep move, use sleep move until the hunted pokes status is SLEEPING then throw pokeballs
advanceCatchOn = true        --Use fswipeOn and sleepOn to catch hunted pokes

falseswiper = 6            --Index of pokemon with false swipe
fswipeHP = 10            --Returns the health percent of the false swiper, then heal to PC
weakmove = "False Swipe"    --False Swipe move

sleeper = 6            --Index of pokemon with sleep move
sleeperHP = 10            --Returns the health percent of the false swiper, then heal to PC
sleepmove = "Spore"        --Set/Change the name of the sleep move



            --MOUNTING CONFIGURATION


   -- Set/Change the name of the mount you want to use on LAND

mount = "Arcanine Mount"

   -- Set/Change to true if you want to use mount,else false

mountSwitch = true









        --WARNING!!! DO NOT TOUCH THE CODES BELOW!!!


                     -- Copyright © 2016 redskhie
            --List of Pokemon to Catch

    local ZoneOneList = {"Pikachu", "Treecko", "Girafarig", "Natu", "Wobuffet", "Buneary"}
    local ZoneTwoList = {"Natu", "Beldum"}
    local ZoneThreeList = {"Riolu", "Rhyhorn", "Heracross"}
    local ZoneFourList = {"Litleo", "Heracross", "Stantler", "Donphan", "Pinsir"}
    local ZoneFiveList = {"Gligar", "Aipom", "Mareep", "Snubbull"}
    local ZoneFiveSurfList = {"Mudkip", "Remoraid", "Marill", "Octillery"}
    local ZoneSixList = {"Torchic", "Aipom", "Houndour", "Teddiursa", "Pineco", "Miltank"}
        
                     -- Copyright © 2016 redskhie



name = "All in One Catcher at Hoenn Safari"
author = "redskhie"
description = [[This script will catch your desired Pokemons at Hoenn Safari]]



function List5()

for _,ZoneFiveList in pairs(ZoneFiveList) do
 if (singleCatch and ZoneFiveList == toHunt) or (multipleCatch and isMorning() and ZoneFiveList == toHunt1) or (multipleCatch and isNoon() and ZoneFiveList == toHunt2) or (multipleCatch and isNight() and ZoneFiveList == toHunt3) then
       moveToGrass()
   break
 end
end

for _,ZoneFiveSurfList in pairs(ZoneFiveSurfList) do
 if (singleCatch and ZoneFiveSurfList == toHunt) or (multipleCatch and isMorning() and ZoneFiveSurfList == toHunt1) or (multipleCatch and isNoon() and ZoneFiveSurfList == toHunt2) or (multipleCatch and isNight() and ZoneFiveSurfList == toHunt3) then
       moveToWater()
   break
 end
end

end

 
function pc()

    if getMapName() == "Lilycove City" then
               moveToMap("Pokecenter Lilycove City")
       elseif getMapName() == "Route 121" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               moveToMap("Route 121")
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToCell(23,48)
       elseif getMapName() == "Hoenn Safari Zone Area 2" then
        moveToMap("Hoenn Safari Zone Area 1")
       elseif getMapName() == "Pokecenter Lilycove City" then
           usePokecenter()
       end
       
end

function Zone1()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 4" or getMapName() == "Hoenn Safari Zone Area 2" then
        moveToMap("Hoenn Safari Zone Area 1")
       elseif getMapName() == "Hoenn Safari Zone Area 1" then
               moveToGrass()
       end

end

function Zone2()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToMap("Hoenn Safari Zone Area 2")
       elseif getMapName() == "Hoenn Safari Zone Area 2" then
               moveToGrass()
       end

end
function Zone3()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 3")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 2" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToMap("Hoenn Safari Zone Area 4")
       elseif getMapName() == "Hoenn Safari Zone Area 3" then
               moveToGrass()
       end

end
function Zone4()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 2" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToMap("Hoenn Safari Zone Area 4")
       elseif getMapName() == "Hoenn Safari Zone Area 4" then
               moveToGrass()
       end

end

function Zone5()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 2" or getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToMap("Hoenn Safari Zone Area 5")
       elseif getMapName() == "Hoenn Safari Zone Area 5" then
               List5()
       end


end

function Zone6()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 5" then
        moveToMap("Hoenn Safari Zone Area 6")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 2" or getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToMap("Hoenn Safari Zone Area 5")
       elseif getMapName() == "Hoenn Safari Zone Area 6" then
               moveToGrass()
       end


end

function natureSwap()
    

    if isMorning() and getPokemonNature(synchIndex1) == synch3 and getPokemonNature(synchIndex2) == synch1 and getPokemonNature(synchIndex3) == synch2 then
        return swapPokemon(synchIndex1, synchIndex2)
    elseif isMorning() and getPokemonNature(synchIndex1) == synch3 and getPokemonNature(synchIndex2) == synch2 and getPokemonNature(synchIndex3) == synch1 then
        return swapPokemon(synchIndex1, synchIndex3)
    elseif isMorning() and getPokemonNature(synchIndex1) == synch1 then

        if huntMap1 == "Zone 1" then
            Zone1()
        elseif huntMap1 == "Zone 2" then
            Zone2()
        elseif huntMap1 == "Zone 3" then
            Zone3()
        elseif huntMap1 == "Zone 4" then
            Zone4()
        elseif huntMap1 == "Zone 5" then
            Zone5()
        elseif huntMap1 == "Zone 6" then
            Zone6()
        end

    end

    if isNoon() and getPokemonNature(synchIndex1) == synch1 and getPokemonNature(synchIndex2) == synch2 and getPokemonNature(synchIndex3) == synch3 then
        return swapPokemon(synchIndex1, synchIndex2)
    elseif isNoon() and getPokemonNature(synchIndex1) == synch1 and getPokemonNature(synchIndex2) == synch3 and getPokemonNature(synchIndex3) == synch2 then
        return swapPokemon(synchIndex1, synchIndex3)
    elseif isNoon() and getPokemonNature(synchIndex1) == synch2 then

        if huntMap2 == "Zone 1" then
            Zone1()
        elseif huntMap2 == "Zone 2" then
            Zone2()
        elseif huntMap2 == "Zone 3" then
            Zone3()
        elseif huntMap2 == "Zone 4" then
            Zone4()
        elseif huntMap2 == "Zone 5" then
            Zone5()
        elseif huntMap2 == "Zone 6" then
            Zone6()
        end
    end
    
    if isNight() and getPokemonNature(synchIndex1) == synch2 and getPokemonNature(synchIndex2) == synch3 and getPokemonNature(synchIndex3) == synch1 then
        return swapPokemon(synchIndex1, synchIndex2)
    elseif isNight() and getPokemonNature(synchIndex1) == synch2 and getPokemonNature(synchIndex2) == synch1 and getPokemonNature(synchIndex3) == synch3 then
        return swapPokemon(synchIndex1, synchIndex3)
    elseif isNight() and getPokemonNature(synchIndex1) == synch3 then

        if huntMap3 == "Zone 1" then
            Zone1()
        elseif huntMap3 == "Zone 2" then
            Zone2()
        elseif huntMap3 == "Zone 3" then
            Zone3()
        elseif huntMap3 == "Zone 4" then
            Zone4()
        elseif huntMap3 == "Zone 5" then
            Zone5()
        elseif huntMap3 == "Zone 6" then
            Zone6()
        end
    end

end



function onPathAction()
    if not isMounted() and mountSwitch == true and hasItem(mount) and not isSurfing() and isOutside() then
       log("---------------------------")
       log("~~~ Riding on my pet!!! ~~~")
       log("---------------------------")
               return useItem(mount)

    elseif isPokemonUsable(1) and isPokemonUsable(synchIndex2) and isPokemonUsable(synchIndex3) and isPokemonUsable(falseswiper) and getPokemonHealthPercent(falseswiper) > fswipeHP and getPokemonHealthPercent(sleeper) > sleeperHP and isPokemonUsable(sleeper) and getRemainingPowerPoints(sleeper, sleepmove) >= 1 and getRemainingPowerPoints(falseswiper, weakmove) >= 1 then
   
        if singleCatch then
            if huntMap == "Zone 1" then
                Zone1()
            elseif huntMap == "Zone 2" then
                Zone2()
            elseif huntMap == "Zone 3" then
                Zone3()
            elseif huntMap == "Zone 4" then
                Zone4()
            elseif huntMap == "Zone 5" then
                Zone5()
            elseif huntMap == "Zone 6" then
                Zone6()
            end
        elseif multipleCatch then
            natureSwap()
        end
    else
        pc()
    end

end

function onBattleAction()

    if isWildBattle() and ((catchShiny and isOpponentShiny()) or (catchUncaught and not isAlreadyCaught())) then
        if fswipeOn then
              log("-------- Commencing False Swipe --------")
                   fswipe()
           elseif sleepOn then
               log("-------- Commencing Sleep Move --------")
                   sleep()
           elseif advanceCatchOn then
               log("-------- Commencing False Swipe with Sleep Move --------")
                   advanceCatch()
           elseif normalCatchOn then
               log("-------- Starting to throw Pokeballs --------")
                   normal()  
        end
    elseif isWildBattle() and getOpponentName() == "Beldum" then
               log("-------- Commencing Sleep Move --------")
                   sleep()
    elseif singleCatch and getOpponentName() == toHunt then
        if fswipeOn then
              log("-------- Commencing False Swipe --------")
                   fswipe()
           elseif sleepOn then
               log("-------- Commencing Sleep Move --------")
                   sleep()
           elseif advanceCatchOn then
               log("-------- Commencing False Swipe with Sleep Move --------")
                   advanceCatch()
           elseif normalCatchOn then
               log("-------- Starting to throw Pokeballs --------")
                   normal()  
        end
    elseif multipleCatch and (getOpponentName() == toHunt1 or getOpponentName() == toHunt2 or getOpponentName() == toHunt3) then
        if fswipeOn then
              log("-------- Commencing False Swipe --------")
                   fswipe()
           elseif sleepOn then
               log("-------- Commencing Sleep Move --------")
                   sleep()
           elseif advanceCatchOn then
               log("-------- Commencing False Swipe with Sleep Move --------")
                   advanceCatch()
           elseif normalCatchOn then
               log("-------- Starting to throw Pokeballs --------")
                   normal()  
        end
    elseif Add and (getOpponentName() == addHunt1 or getOpponentName() == addHunt2 or getOpponentName() == addHunt3) then
        if fswipeOn then
              log("-------- Commencing False Swipe --------")
                   fswipe()
           elseif sleepOn then
               log("-------- Commencing Sleep Move --------")
                   sleep()
           elseif advanceCatchOn then
               log("-------- Commencing False Swipe with Sleep Move --------")
                   advanceCatch()
           elseif normalCatchOn then
               log("-------- Starting to throw Pokeballs --------")
                   normal()  
        end
    elseif (getOpponentName() == "Wobbuffet" ) then
        return attack() or sendAnyPokemon()
    elseif huntandFarm then
           return attack() or sendAnyPokemon() or run() or sendUsablePokemon()  
    else
           return run() or sendUsablePokemon() or attack() or sendAnyPokemon()
       end
    
end

function normal()
   return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball")  or sendAnyPokemon() or attack() or run()
end

function advanceCatch()
       if getActivePokemonNumber() == 1 then
           return sendPokemon(falseswiper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif ( getActivePokemonNumber() == falseswiper ) and ( getOpponentHealth() > 1 ) then
           return weakAttack() or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif ( getActivePokemonNumber() == sleeper ) and ( getOpponentStatus() ~= "SLEEP" and getOpponentStatus() ~= "PARALIZE" and getOpponentStatus() ~= "POISON" and getOpponentStatus() ~= "BURN" ) and ( getOpponentHealth() == 1 ) then
           return useMove(sleepmove) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif ( getActivePokemonNumber() == falseswiper ) and ( getOpponentHealth() == 1 ) then
           return sendPokemon(sleeper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif getOpponentStatus() == "SLEEP" or getOpponentStatus() == "PARALIZE" or getOpponentStatus() == "POISON" or getOpponentStatus() == "BURN" then
           return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or attack() or run()
       else
               return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or attack() or run()
       end
end

function fswipe()
       if getActivePokemonNumber() == 1 then
           return sendPokemon(falseswiper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif ( getActivePokemonNumber() == falseswiper ) and ( getOpponentHealth() > 1 ) then
           return weakAttack() or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif getOpponentHealth() == 1 then
           return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball")  or sendAnyPokemon() or attack() or run()
       end
end
function sleep()
       if getActivePokemonNumber() == 1 then
           return sendPokemon(sleeper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or run()
       elseif ( getActivePokemonNumber() == sleeper ) and ( getOpponentStatus() ~= "SLEEP" and getOpponentStatus() ~= "PARALIZE" and getOpponentStatus() ~= "POISON" and getOpponentStatus() ~= "BURN" ) then
           return useMove(sleepmove) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif getOpponentStatus() == "SLEEP" or getOpponentStatus() == "PARALIZE" or getOpponentStatus() == "POISON" or getOpponentStatus() == "BURN" then
           return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       else
           return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or attack() or run()
       end    
end


    
function onStart()

    startime = os.time()
       shinyCounter = 0
    pokecenterCounter = 0
       wildCounter = 0    
    pokeballCounter = 0
    startMoney = getMoney()
    poke1 = 0
    poke2 = 0
    poke3 = 0
    poke = 0
    add1 = 0
    add2 = 0
    add3 = 0
    log("-----------------------------------------------------------")
       log("|---- We are now Commencing the Catch Routine ----|")
       log("-----------------------------------------------------------")
    if multipleCatch then
        log("-------- MULTI-CATCHING STARTED --------")
           log("-------- Script Information --------")
        log("~~~HUNTED POKEMONS~~~")
        log("-Morning Time: "..toHunt1.."- -Location: Hoenn Safari "..huntMap1.." -")
        log("-Day Time: "..toHunt2.."- -Location: Hoenn Safari "..huntMap2.." -")
        log("-Night Time: "..toHunt3.."- -Location: Hoenn Safari "..huntMap3.." -")
           log("--------------------------------------")
    elseif singleCatch then
        log("-------- SINGLE-CATCHING STARTED --------")
              log("-------- Script Information --------")
        log("-We will hunt "..toHunt.." all Day!!!- -Location: Hoenn Safari "..huntMap.." -")
           log("--------------------------------------")
    end
    

end
function onDialogMessage(pokecenter)
   if stringContains(pokecenter, "Would you like me to heal your Pokemon?") then
       pokecenterCounter = pokecenterCounter + 1
   end
end
function onBattleMessage(wild)
   
   if stringContains(wild, "A Wild SHINY ") then
       shinyCounter = shinyCounter + 1    
   
   elseif stringContains(wild, "You throw") then
       pokeballCounter = pokeballCounter + 1    
   
   elseif wild == "A Wild [FF9900]"..toHunt.."[-] Attacks!" then
       poke = poke + 1
 
   elseif wild == "A Wild [FF9900]"..toHunt1.."[-] Attacks!" then
       poke1 = poke1 + 1
    
   elseif wild == "A Wild [FF9900]"..toHunt2.."[-] Attacks!" then
       poke2 = poke2 + 1

   elseif wild == "A Wild [FF9900]"..toHunt3.."[-] Attacks!" then
       poke3 = poke3 + 1

   elseif stringContains(wild, "A Wild ") then
           wildCounter = wildCounter + 1
   end
     
end
    

    
function onPause()
   
       log(" --------------------------------------------")
       log("|--------- CATCH ROUTINE PAUSED ----------|")
       log(" --------------------------------------------")
    log("|--------- Move Remaining Power Points ----------|")
       log("--------------------------------------")
       log("False Swipe: " .. tostring(getRemainingPowerPoints(falseswiper,weakmove)))
       log("Sleep Move: " .. tostring(getRemainingPowerPoints(sleeper,sleepmove)))
       log("-----------------------------------------------------------")
       
       log(" ")
    if multipleCatch then
        log("-------- MULTI-CATCHING Status --------")
           log(" ")
        log("~~~HUNTED POKEMONS~~~")
        log("- "..toHunt1..": "..poke1)
        log("- "..toHunt2..": "..poke2)
        log("- "..toHunt3..": "..poke3)
           log("--------------------------------------")
    elseif singleCatch then
        log("-------- SINGLE-CATCHING Status --------")
              log(" ")
        log("- "..toHunt..": "..poke)
           log("--------------------------------------")
    end
    
    
    log(" --------------------------------------------")
       log("Pokeball's used: " .. pokeballCounter)
       log("-----------------------------------------------------------")
       log("Shinies Caught: " .. shinyCounter)
    log("Pokemons encountered: " .. wildCounter)
       log("---------------------------------------------")
    log("Times in Pokecenter: " .. pokecenterCounter)
    if huntandFarm then
        log("Pokedollars earned: "..tostring(getMoney() - startMoney))
    end
    log("---------------------------------------------")
end

function onStop()
   log("-----------------------------------------------------------")
       log("---------------------- Routine Stopped ---------------------")
       log("-----------------------------------------------------------")
   endtime = os.time()
       log(string.format("Bot running time: %.2f", os.difftime(endtime,startime)/3600 ).. " hours")
       log("or")
       log(string.format("Bot running time: %.2f", os.difftime(endtime,startime)/60 ).. " minutes")
       log("-----------------------------------------------------------")
end

same with default config , just set to single catch torchic and keep healing in pc
 
Reply
#16
(2016-08-30, 04:21:12)redskhie You need to set poke synch natures according to time, the 1st one is for morning and day while the 2nd is for night.

EXAMPLE based on ur config:

The poke time NOW is Night, your First index pokemon must be QUIRKY NATURE

And Maybe you don't have SURF in your team because from entrance to area 3 needs surfing,

(2016-08-31, 01:28:45)Pan
(2016-08-30, 04:16:45)redskhie May I see your configuration?

                         -- Copyright © 2016 redskhie



huntandFarm = false        --set to true if you want to kill all encountered pokes else false
catchUncaught = true        --set to true if you want to catch uncaught pokes else false
catchShiny = true        --set to true if you want to catch encountered shiny's else false


                        -- CATCH CONFIGURATION --CASE INSENSITIVE
            --SINGLE CATCHING

singleCatch = true        --Set to true if you want to catch only 1 Pokes and set multipleCatch to false
    
toHunt = "Torchic"        --Set/Change the name of Pokemon you want to Catch    
huntMap = "Zone 6"        --Set/Change the Map Area of the Pokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"



            --MULTIPLE CATCHING

multipleCatch = false        --Set to true if you want to catch multiple Pokes at Different Time and set singleCatch to false
                --NOTE: PLEASE PROPERLY ARRANGE THE TEAM ACCORDING TO YOUR INPUT CONFIG


            --MORNING TIME CONFIG

toHunt1 = "Torchic"        --Set/Change the name of Pokemon you want to Catch
huntMap1 = "Zone 6"        --Set/Change the Map Area of the 1st Pokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"



synch1 = "Adamant"            --Set the Nature of the Synch Poke to Use at Morning
synchIndex1 = 1            --Do not touch this line!

            --DAY TIME CONFIG

toHunt2 = "Riolu"            --Set/Change the name of Pokemon you want to Catch at Noon
huntMap2 = "Zone 3"            --Set/Change the Map Area of the 2nd Pokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"


synch2 = "Jolly"        --Set the Nature of the Synch Poke to Use at Noon
synchIndex2 = 3            --set the Index # of the Synch Poke to Use at Noon, elseif the same leave
            --NIGHT TIME CONFIG

toHunt3 = "Beldum"            --Set/Change the name of Pokemon you want to Catch at Night
huntMap3 = "Zone 2"        --Set/Change the Map Area of the 3rdPokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"


synch3 = "Adamant"        --Set the Nature of the Synch Poke to Use at Night        
synchIndex3 = 3         --set the Index # of the Synch Poke to Use at Night, elseif the same leave




    --ADDED HUNT    --Use this if multiple catch is full and you think you can Hunt another poke in the same area

Add = false        --Set to true if you want to catch another pokemon
addHunt1 = "Rhyhorn"    --Set the name of the pokemon
addHunt2 = ""        --Set the name of the pokemon
addHunt3 = ""        --Set the name of the pokemon



fishItem = "Super Rod"        --Set/Change the Name of the Fishing Item you want to Use, Don't leave it blank        --NOT USABLE at HOENN






    -- You can only choose One Special Catching, set true, else leave the 3 false

                                  --use only normalCatchOn if you don't have fswiper and sleeper
                                  --Leave blank at sleepmove/weakmove if you don't have atleast


normalCatchOn = false        --Directly throw pokeballs on hunted pokemons
fswipeOn = false        --Switch to pokemon with false swipe, use false swipe until the hunted pokes hp is reach to 1 then throw pokeballs
sleepOn = false            --Switch to pokemon with sleep move, use sleep move until the hunted pokes status is SLEEPING then throw pokeballs
advanceCatchOn = true        --Use fswipeOn and sleepOn to catch hunted pokes

falseswiper = 6            --Index of pokemon with false swipe
fswipeHP = 10            --Returns the health percent of the false swiper, then heal to PC
weakmove = "False Swipe"    --False Swipe move

sleeper = 6            --Index of pokemon with sleep move
sleeperHP = 10            --Returns the health percent of the false swiper, then heal to PC
sleepmove = "Spore"        --Set/Change the name of the sleep move



            --MOUNTING CONFIGURATION


   -- Set/Change the name of the mount you want to use on LAND

mount = "Arcanine Mount"

   -- Set/Change to true if you want to use mount,else false

mountSwitch = true









        --WARNING!!! DO NOT TOUCH THE CODES BELOW!!!


                     -- Copyright © 2016 redskhie
            --List of Pokemon to Catch

    local ZoneOneList = {"Pikachu", "Treecko", "Girafarig", "Natu", "Wobuffet", "Buneary"}
    local ZoneTwoList = {"Natu", "Beldum"}
    local ZoneThreeList = {"Riolu", "Rhyhorn", "Heracross"}
    local ZoneFourList = {"Litleo", "Heracross", "Stantler", "Donphan", "Pinsir"}
    local ZoneFiveList = {"Gligar", "Aipom", "Mareep", "Snubbull"}
    local ZoneFiveSurfList = {"Mudkip", "Remoraid", "Marill", "Octillery"}
    local ZoneSixList = {"Torchic", "Aipom", "Houndour", "Teddiursa", "Pineco", "Miltank"}
        
                     -- Copyright © 2016 redskhie



name = "All in One Catcher at Hoenn Safari"
author = "redskhie"
description = [[This script will catch your desired Pokemons at Hoenn Safari]]



function List5()

for _,ZoneFiveList in pairs(ZoneFiveList) do
 if (singleCatch and ZoneFiveList == toHunt) or (multipleCatch and isMorning() and ZoneFiveList == toHunt1) or (multipleCatch and isNoon() and ZoneFiveList == toHunt2) or (multipleCatch and isNight() and ZoneFiveList == toHunt3) then
       moveToGrass()
   break
 end
end

for _,ZoneFiveSurfList in pairs(ZoneFiveSurfList) do
 if (singleCatch and ZoneFiveSurfList == toHunt) or (multipleCatch and isMorning() and ZoneFiveSurfList == toHunt1) or (multipleCatch and isNoon() and ZoneFiveSurfList == toHunt2) or (multipleCatch and isNight() and ZoneFiveSurfList == toHunt3) then
       moveToWater()
   break
 end
end

end

 
function pc()

    if getMapName() == "Lilycove City" then
               moveToMap("Pokecenter Lilycove City")
       elseif getMapName() == "Route 121" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               moveToMap("Route 121")
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToCell(23,48)
       elseif getMapName() == "Hoenn Safari Zone Area 2" then
        moveToMap("Hoenn Safari Zone Area 1")
       elseif getMapName() == "Pokecenter Lilycove City" then
           usePokecenter()
       end
       
end

function Zone1()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 4" or getMapName() == "Hoenn Safari Zone Area 2" then
        moveToMap("Hoenn Safari Zone Area 1")
       elseif getMapName() == "Hoenn Safari Zone Area 1" then
               moveToGrass()
       end

end

function Zone2()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToMap("Hoenn Safari Zone Area 2")
       elseif getMapName() == "Hoenn Safari Zone Area 2" then
               moveToGrass()
       end

end
function Zone3()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 3")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 2" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToMap("Hoenn Safari Zone Area 4")
       elseif getMapName() == "Hoenn Safari Zone Area 3" then
               moveToGrass()
       end

end
function Zone4()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 2" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToMap("Hoenn Safari Zone Area 4")
       elseif getMapName() == "Hoenn Safari Zone Area 4" then
               moveToGrass()
       end

end

function Zone5()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 2" or getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToMap("Hoenn Safari Zone Area 5")
       elseif getMapName() == "Hoenn Safari Zone Area 5" then
               List5()
       end


end

function Zone6()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 5" then
        moveToMap("Hoenn Safari Zone Area 6")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 2" or getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToMap("Hoenn Safari Zone Area 5")
       elseif getMapName() == "Hoenn Safari Zone Area 6" then
               moveToGrass()
       end


end

function natureSwap()
    

    if isMorning() and getPokemonNature(synchIndex1) == synch3 and getPokemonNature(synchIndex2) == synch1 and getPokemonNature(synchIndex3) == synch2 then
        return swapPokemon(synchIndex1, synchIndex2)
    elseif isMorning() and getPokemonNature(synchIndex1) == synch3 and getPokemonNature(synchIndex2) == synch2 and getPokemonNature(synchIndex3) == synch1 then
        return swapPokemon(synchIndex1, synchIndex3)
    elseif isMorning() and getPokemonNature(synchIndex1) == synch1 then

        if huntMap1 == "Zone 1" then
            Zone1()
        elseif huntMap1 == "Zone 2" then
            Zone2()
        elseif huntMap1 == "Zone 3" then
            Zone3()
        elseif huntMap1 == "Zone 4" then
            Zone4()
        elseif huntMap1 == "Zone 5" then
            Zone5()
        elseif huntMap1 == "Zone 6" then
            Zone6()
        end

    end

    if isNoon() and getPokemonNature(synchIndex1) == synch1 and getPokemonNature(synchIndex2) == synch2 and getPokemonNature(synchIndex3) == synch3 then
        return swapPokemon(synchIndex1, synchIndex2)
    elseif isNoon() and getPokemonNature(synchIndex1) == synch1 and getPokemonNature(synchIndex2) == synch3 and getPokemonNature(synchIndex3) == synch2 then
        return swapPokemon(synchIndex1, synchIndex3)
    elseif isNoon() and getPokemonNature(synchIndex1) == synch2 then

        if huntMap2 == "Zone 1" then
            Zone1()
        elseif huntMap2 == "Zone 2" then
            Zone2()
        elseif huntMap2 == "Zone 3" then
            Zone3()
        elseif huntMap2 == "Zone 4" then
            Zone4()
        elseif huntMap2 == "Zone 5" then
            Zone5()
        elseif huntMap2 == "Zone 6" then
            Zone6()
        end
    end
    
    if isNight() and getPokemonNature(synchIndex1) == synch2 and getPokemonNature(synchIndex2) == synch3 and getPokemonNature(synchIndex3) == synch1 then
        return swapPokemon(synchIndex1, synchIndex2)
    elseif isNight() and getPokemonNature(synchIndex1) == synch2 and getPokemonNature(synchIndex2) == synch1 and getPokemonNature(synchIndex3) == synch3 then
        return swapPokemon(synchIndex1, synchIndex3)
    elseif isNight() and getPokemonNature(synchIndex1) == synch3 then

        if huntMap3 == "Zone 1" then
            Zone1()
        elseif huntMap3 == "Zone 2" then
            Zone2()
        elseif huntMap3 == "Zone 3" then
            Zone3()
        elseif huntMap3 == "Zone 4" then
            Zone4()
        elseif huntMap3 == "Zone 5" then
            Zone5()
        elseif huntMap3 == "Zone 6" then
            Zone6()
        end
    end

end



function onPathAction()
    if not isMounted() and mountSwitch == true and hasItem(mount) and not isSurfing() and isOutside() then
       log("---------------------------")
       log("~~~ Riding on my pet!!! ~~~")
       log("---------------------------")
               return useItem(mount)

    elseif isPokemonUsable(1) and isPokemonUsable(synchIndex2) and isPokemonUsable(synchIndex3) and isPokemonUsable(falseswiper) and getPokemonHealthPercent(falseswiper) > fswipeHP and getPokemonHealthPercent(sleeper) > sleeperHP and isPokemonUsable(sleeper) and getRemainingPowerPoints(sleeper, sleepmove) >= 1 and getRemainingPowerPoints(falseswiper, weakmove) >= 1 then
   
        if singleCatch then
            if huntMap == "Zone 1" then
                Zone1()
            elseif huntMap == "Zone 2" then
                Zone2()
            elseif huntMap == "Zone 3" then
                Zone3()
            elseif huntMap == "Zone 4" then
                Zone4()
            elseif huntMap == "Zone 5" then
                Zone5()
            elseif huntMap == "Zone 6" then
                Zone6()
            end
        elseif multipleCatch then
            natureSwap()
        end
    else
        pc()
    end

end

function onBattleAction()

    if isWildBattle() and ((catchShiny and isOpponentShiny()) or (catchUncaught and not isAlreadyCaught())) then
        if fswipeOn then
              log("-------- Commencing False Swipe --------")
                   fswipe()
           elseif sleepOn then
               log("-------- Commencing Sleep Move --------")
                   sleep()
           elseif advanceCatchOn then
               log("-------- Commencing False Swipe with Sleep Move --------")
                   advanceCatch()
           elseif normalCatchOn then
               log("-------- Starting to throw Pokeballs --------")
                   normal()  
        end
    elseif isWildBattle() and getOpponentName() == "Beldum" then
               log("-------- Commencing Sleep Move --------")
                   sleep()
    elseif singleCatch and getOpponentName() == toHunt then
        if fswipeOn then
              log("-------- Commencing False Swipe --------")
                   fswipe()
           elseif sleepOn then
               log("-------- Commencing Sleep Move --------")
                   sleep()
           elseif advanceCatchOn then
               log("-------- Commencing False Swipe with Sleep Move --------")
                   advanceCatch()
           elseif normalCatchOn then
               log("-------- Starting to throw Pokeballs --------")
                   normal()  
        end
    elseif multipleCatch and (getOpponentName() == toHunt1 or getOpponentName() == toHunt2 or getOpponentName() == toHunt3) then
        if fswipeOn then
              log("-------- Commencing False Swipe --------")
                   fswipe()
           elseif sleepOn then
               log("-------- Commencing Sleep Move --------")
                   sleep()
           elseif advanceCatchOn then
               log("-------- Commencing False Swipe with Sleep Move --------")
                   advanceCatch()
           elseif normalCatchOn then
               log("-------- Starting to throw Pokeballs --------")
                   normal()  
        end
    elseif Add and (getOpponentName() == addHunt1 or getOpponentName() == addHunt2 or getOpponentName() == addHunt3) then
        if fswipeOn then
              log("-------- Commencing False Swipe --------")
                   fswipe()
           elseif sleepOn then
               log("-------- Commencing Sleep Move --------")
                   sleep()
           elseif advanceCatchOn then
               log("-------- Commencing False Swipe with Sleep Move --------")
                   advanceCatch()
           elseif normalCatchOn then
               log("-------- Starting to throw Pokeballs --------")
                   normal()  
        end
    elseif (getOpponentName() == "Wobbuffet" ) then
        return attack() or sendAnyPokemon()
    elseif huntandFarm then
           return attack() or sendAnyPokemon() or run() or sendUsablePokemon()  
    else
           return run() or sendUsablePokemon() or attack() or sendAnyPokemon()
       end
    
end

function normal()
   return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball")  or sendAnyPokemon() or attack() or run()
end

function advanceCatch()
       if getActivePokemonNumber() == 1 then
           return sendPokemon(falseswiper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif ( getActivePokemonNumber() == falseswiper ) and ( getOpponentHealth() > 1 ) then
           return weakAttack() or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif ( getActivePokemonNumber() == sleeper ) and ( getOpponentStatus() ~= "SLEEP" and getOpponentStatus() ~= "PARALIZE" and getOpponentStatus() ~= "POISON" and getOpponentStatus() ~= "BURN" ) and ( getOpponentHealth() == 1 ) then
           return useMove(sleepmove) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif ( getActivePokemonNumber() == falseswiper ) and ( getOpponentHealth() == 1 ) then
           return sendPokemon(sleeper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif getOpponentStatus() == "SLEEP" or getOpponentStatus() == "PARALIZE" or getOpponentStatus() == "POISON" or getOpponentStatus() == "BURN" then
           return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or attack() or run()
       else
               return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or attack() or run()
       end
end

function fswipe()
       if getActivePokemonNumber() == 1 then
           return sendPokemon(falseswiper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif ( getActivePokemonNumber() == falseswiper ) and ( getOpponentHealth() > 1 ) then
           return weakAttack() or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif getOpponentHealth() == 1 then
           return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball")  or sendAnyPokemon() or attack() or run()
       end
end
function sleep()
       if getActivePokemonNumber() == 1 then
           return sendPokemon(sleeper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or run()
       elseif ( getActivePokemonNumber() == sleeper ) and ( getOpponentStatus() ~= "SLEEP" and getOpponentStatus() ~= "PARALIZE" and getOpponentStatus() ~= "POISON" and getOpponentStatus() ~= "BURN" ) then
           return useMove(sleepmove) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif getOpponentStatus() == "SLEEP" or getOpponentStatus() == "PARALIZE" or getOpponentStatus() == "POISON" or getOpponentStatus() == "BURN" then
           return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       else
           return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or attack() or run()
       end    
end


    
function onStart()

    startime = os.time()
       shinyCounter = 0
    pokecenterCounter = 0
       wildCounter = 0    
    pokeballCounter = 0
    startMoney = getMoney()
    poke1 = 0
    poke2 = 0
    poke3 = 0
    poke = 0
    add1 = 0
    add2 = 0
    add3 = 0
    log("-----------------------------------------------------------")
       log("|---- We are now Commencing the Catch Routine ----|")
       log("-----------------------------------------------------------")
    if multipleCatch then
        log("-------- MULTI-CATCHING STARTED --------")
           log("-------- Script Information --------")
        log("~~~HUNTED POKEMONS~~~")
        log("-Morning Time: "..toHunt1.."- -Location: Hoenn Safari "..huntMap1.." -")
        log("-Day Time: "..toHunt2.."- -Location: Hoenn Safari "..huntMap2.." -")
        log("-Night Time: "..toHunt3.."- -Location: Hoenn Safari "..huntMap3.." -")
           log("--------------------------------------")
    elseif singleCatch then
        log("-------- SINGLE-CATCHING STARTED --------")
              log("-------- Script Information --------")
        log("-We will hunt "..toHunt.." all Day!!!- -Location: Hoenn Safari "..huntMap.." -")
           log("--------------------------------------")
    end
    

end
function onDialogMessage(pokecenter)
   if stringContains(pokecenter, "Would you like me to heal your Pokemon?") then
       pokecenterCounter = pokecenterCounter + 1
   end
end
function onBattleMessage(wild)
   
   if stringContains(wild, "A Wild SHINY ") then
       shinyCounter = shinyCounter + 1    
   
   elseif stringContains(wild, "You throw") then
       pokeballCounter = pokeballCounter + 1    
   
   elseif wild == "A Wild [FF9900]"..toHunt.."[-] Attacks!" then
       poke = poke + 1
 
   elseif wild == "A Wild [FF9900]"..toHunt1.."[-] Attacks!" then
       poke1 = poke1 + 1
    
   elseif wild == "A Wild [FF9900]"..toHunt2.."[-] Attacks!" then
       poke2 = poke2 + 1

   elseif wild == "A Wild [FF9900]"..toHunt3.."[-] Attacks!" then
       poke3 = poke3 + 1

   elseif stringContains(wild, "A Wild ") then
           wildCounter = wildCounter + 1
   end
     
end
    

    
function onPause()
   
       log(" --------------------------------------------")
       log("|--------- CATCH ROUTINE PAUSED ----------|")
       log(" --------------------------------------------")
    log("|--------- Move Remaining Power Points ----------|")
       log("--------------------------------------")
       log("False Swipe: " .. tostring(getRemainingPowerPoints(falseswiper,weakmove)))
       log("Sleep Move: " .. tostring(getRemainingPowerPoints(sleeper,sleepmove)))
       log("-----------------------------------------------------------")
       
       log(" ")
    if multipleCatch then
        log("-------- MULTI-CATCHING Status --------")
           log(" ")
        log("~~~HUNTED POKEMONS~~~")
        log("- "..toHunt1..": "..poke1)
        log("- "..toHunt2..": "..poke2)
        log("- "..toHunt3..": "..poke3)
           log("--------------------------------------")
    elseif singleCatch then
        log("-------- SINGLE-CATCHING Status --------")
              log(" ")
        log("- "..toHunt..": "..poke)
           log("--------------------------------------")
    end
    
    
    log(" --------------------------------------------")
       log("Pokeball's used: " .. pokeballCounter)
       log("-----------------------------------------------------------")
       log("Shinies Caught: " .. shinyCounter)
    log("Pokemons encountered: " .. wildCounter)
       log("---------------------------------------------")
    log("Times in Pokecenter: " .. pokecenterCounter)
    if huntandFarm then
        log("Pokedollars earned: "..tostring(getMoney() - startMoney))
    end
    log("---------------------------------------------")
end

function onStop()
   log("-----------------------------------------------------------")
       log("---------------------- Routine Stopped ---------------------")
       log("-----------------------------------------------------------")
   endtime = os.time()
       log(string.format("Bot running time: %.2f", os.difftime(endtime,startime)/3600 ).. " hours")
       log("or")
       log(string.format("Bot running time: %.2f", os.difftime(endtime,startime)/60 ).. " minutes")
       log("-----------------------------------------------------------")
end

same with default config , just set to single catch torchic and keep healing in pc

What are the pokemons in your team?

Do you have fswiper, sleeper, or synch poke? If not, please set the normalCatchOn = true and leave the rest to false.
God Karp Trainer loading... *splash*splash Huh

 
Reply
#17
(2016-08-31, 02:02:10)redskhie
(2016-08-30, 04:21:12)redskhie You need to set poke synch natures according to time, the 1st one is for morning and day while the 2nd is for night.

EXAMPLE based on ur config:

The poke time NOW is Night, your First index pokemon must be QUIRKY NATURE

And Maybe you don't have SURF in your team because from entrance to area 3 needs surfing,

(2016-08-31, 01:28:45)Pan
(2016-08-30, 04:16:45)redskhie May I see your configuration?

                         -- Copyright © 2016 redskhie



huntandFarm = false        --set to true if you want to kill all encountered pokes else false
catchUncaught = true        --set to true if you want to catch uncaught pokes else false
catchShiny = true        --set to true if you want to catch encountered shiny's else false


                        -- CATCH CONFIGURATION --CASE INSENSITIVE
            --SINGLE CATCHING

singleCatch = true        --Set to true if you want to catch only 1 Pokes and set multipleCatch to false
    
toHunt = "Torchic"        --Set/Change the name of Pokemon you want to Catch    
huntMap = "Zone 6"        --Set/Change the Map Area of the Pokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"



            --MULTIPLE CATCHING

multipleCatch = false        --Set to true if you want to catch multiple Pokes at Different Time and set singleCatch to false
                --NOTE: PLEASE PROPERLY ARRANGE THE TEAM ACCORDING TO YOUR INPUT CONFIG


            --MORNING TIME CONFIG

toHunt1 = "Torchic"        --Set/Change the name of Pokemon you want to Catch
huntMap1 = "Zone 6"        --Set/Change the Map Area of the 1st Pokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"



synch1 = "Adamant"            --Set the Nature of the Synch Poke to Use at Morning
synchIndex1 = 1            --Do not touch this line!

            --DAY TIME CONFIG

toHunt2 = "Riolu"            --Set/Change the name of Pokemon you want to Catch at Noon
huntMap2 = "Zone 3"            --Set/Change the Map Area of the 2nd Pokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"


synch2 = "Jolly"        --Set the Nature of the Synch Poke to Use at Noon
synchIndex2 = 3            --set the Index # of the Synch Poke to Use at Noon, elseif the same leave
            --NIGHT TIME CONFIG

toHunt3 = "Beldum"            --Set/Change the name of Pokemon you want to Catch at Night
huntMap3 = "Zone 2"        --Set/Change the Map Area of the 3rdPokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"


synch3 = "Adamant"        --Set the Nature of the Synch Poke to Use at Night        
synchIndex3 = 3         --set the Index # of the Synch Poke to Use at Night, elseif the same leave




    --ADDED HUNT    --Use this if multiple catch is full and you think you can Hunt another poke in the same area

Add = false        --Set to true if you want to catch another pokemon
addHunt1 = "Rhyhorn"    --Set the name of the pokemon
addHunt2 = ""        --Set the name of the pokemon
addHunt3 = ""        --Set the name of the pokemon



fishItem = "Super Rod"        --Set/Change the Name of the Fishing Item you want to Use, Don't leave it blank        --NOT USABLE at HOENN






    -- You can only choose One Special Catching, set true, else leave the 3 false

                                  --use only normalCatchOn if you don't have fswiper and sleeper
                                  --Leave blank at sleepmove/weakmove if you don't have atleast


normalCatchOn = false        --Directly throw pokeballs on hunted pokemons
fswipeOn = false        --Switch to pokemon with false swipe, use false swipe until the hunted pokes hp is reach to 1 then throw pokeballs
sleepOn = false            --Switch to pokemon with sleep move, use sleep move until the hunted pokes status is SLEEPING then throw pokeballs
advanceCatchOn = true        --Use fswipeOn and sleepOn to catch hunted pokes

falseswiper = 6            --Index of pokemon with false swipe
fswipeHP = 10            --Returns the health percent of the false swiper, then heal to PC
weakmove = "False Swipe"    --False Swipe move

sleeper = 6            --Index of pokemon with sleep move
sleeperHP = 10            --Returns the health percent of the false swiper, then heal to PC
sleepmove = "Spore"        --Set/Change the name of the sleep move



            --MOUNTING CONFIGURATION


   -- Set/Change the name of the mount you want to use on LAND

mount = "Arcanine Mount"

   -- Set/Change to true if you want to use mount,else false

mountSwitch = true









        --WARNING!!! DO NOT TOUCH THE CODES BELOW!!!


                     -- Copyright © 2016 redskhie
            --List of Pokemon to Catch

    local ZoneOneList = {"Pikachu", "Treecko", "Girafarig", "Natu", "Wobuffet", "Buneary"}
    local ZoneTwoList = {"Natu", "Beldum"}
    local ZoneThreeList = {"Riolu", "Rhyhorn", "Heracross"}
    local ZoneFourList = {"Litleo", "Heracross", "Stantler", "Donphan", "Pinsir"}
    local ZoneFiveList = {"Gligar", "Aipom", "Mareep", "Snubbull"}
    local ZoneFiveSurfList = {"Mudkip", "Remoraid", "Marill", "Octillery"}
    local ZoneSixList = {"Torchic", "Aipom", "Houndour", "Teddiursa", "Pineco", "Miltank"}
        
                     -- Copyright © 2016 redskhie



name = "All in One Catcher at Hoenn Safari"
author = "redskhie"
description = [[This script will catch your desired Pokemons at Hoenn Safari]]



function List5()

for _,ZoneFiveList in pairs(ZoneFiveList) do
 if (singleCatch and ZoneFiveList == toHunt) or (multipleCatch and isMorning() and ZoneFiveList == toHunt1) or (multipleCatch and isNoon() and ZoneFiveList == toHunt2) or (multipleCatch and isNight() and ZoneFiveList == toHunt3) then
       moveToGrass()
   break
 end
end

for _,ZoneFiveSurfList in pairs(ZoneFiveSurfList) do
 if (singleCatch and ZoneFiveSurfList == toHunt) or (multipleCatch and isMorning() and ZoneFiveSurfList == toHunt1) or (multipleCatch and isNoon() and ZoneFiveSurfList == toHunt2) or (multipleCatch and isNight() and ZoneFiveSurfList == toHunt3) then
       moveToWater()
   break
 end
end

end

 
function pc()

    if getMapName() == "Lilycove City" then
               moveToMap("Pokecenter Lilycove City")
       elseif getMapName() == "Route 121" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               moveToMap("Route 121")
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToCell(23,48)
       elseif getMapName() == "Hoenn Safari Zone Area 2" then
        moveToMap("Hoenn Safari Zone Area 1")
       elseif getMapName() == "Pokecenter Lilycove City" then
           usePokecenter()
       end
       
end

function Zone1()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 4" or getMapName() == "Hoenn Safari Zone Area 2" then
        moveToMap("Hoenn Safari Zone Area 1")
       elseif getMapName() == "Hoenn Safari Zone Area 1" then
               moveToGrass()
       end

end

function Zone2()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToMap("Hoenn Safari Zone Area 2")
       elseif getMapName() == "Hoenn Safari Zone Area 2" then
               moveToGrass()
       end

end
function Zone3()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 3")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 2" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToMap("Hoenn Safari Zone Area 4")
       elseif getMapName() == "Hoenn Safari Zone Area 3" then
               moveToGrass()
       end

end
function Zone4()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 2" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToMap("Hoenn Safari Zone Area 4")
       elseif getMapName() == "Hoenn Safari Zone Area 4" then
               moveToGrass()
       end

end

function Zone5()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 6" then
        moveToMap("Hoenn Safari Zone Area 5")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 2" or getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToMap("Hoenn Safari Zone Area 5")
       elseif getMapName() == "Hoenn Safari Zone Area 5" then
               List5()
       end


end

function Zone6()

    if getMapName() == "Pokecenter Lilycove City" then
               moveToMap("Lilycove City")
       elseif getMapName() == "Lilycove City" then
               moveToMap("Route 121")
       elseif getMapName() == "Route 121" then
               moveToMap("Hoenn Safari Zone Lobby")
       elseif getMapName() == "Hoenn Safari Zone Lobby" then
               talkToNpcOnCell(21, 6)
    elseif getMapName() == "Hoenn Safari Zone Area 5" then
        moveToMap("Hoenn Safari Zone Area 6")
    elseif getMapName() == "Hoenn Safari Zone Area 3" then
        moveToMap("Hoenn Safari Zone Area 4")
    elseif getMapName() == "Hoenn Safari Zone Area 2" or getMapName() == "Hoenn Safari Zone Area 4" then
        moveToMap("Hoenn Safari Zone Area 1")
    elseif getMapName() == "Hoenn Safari Zone Area 1" then
        moveToMap("Hoenn Safari Zone Area 5")
       elseif getMapName() == "Hoenn Safari Zone Area 6" then
               moveToGrass()
       end


end

function natureSwap()
    

    if isMorning() and getPokemonNature(synchIndex1) == synch3 and getPokemonNature(synchIndex2) == synch1 and getPokemonNature(synchIndex3) == synch2 then
        return swapPokemon(synchIndex1, synchIndex2)
    elseif isMorning() and getPokemonNature(synchIndex1) == synch3 and getPokemonNature(synchIndex2) == synch2 and getPokemonNature(synchIndex3) == synch1 then
        return swapPokemon(synchIndex1, synchIndex3)
    elseif isMorning() and getPokemonNature(synchIndex1) == synch1 then

        if huntMap1 == "Zone 1" then
            Zone1()
        elseif huntMap1 == "Zone 2" then
            Zone2()
        elseif huntMap1 == "Zone 3" then
            Zone3()
        elseif huntMap1 == "Zone 4" then
            Zone4()
        elseif huntMap1 == "Zone 5" then
            Zone5()
        elseif huntMap1 == "Zone 6" then
            Zone6()
        end

    end

    if isNoon() and getPokemonNature(synchIndex1) == synch1 and getPokemonNature(synchIndex2) == synch2 and getPokemonNature(synchIndex3) == synch3 then
        return swapPokemon(synchIndex1, synchIndex2)
    elseif isNoon() and getPokemonNature(synchIndex1) == synch1 and getPokemonNature(synchIndex2) == synch3 and getPokemonNature(synchIndex3) == synch2 then
        return swapPokemon(synchIndex1, synchIndex3)
    elseif isNoon() and getPokemonNature(synchIndex1) == synch2 then

        if huntMap2 == "Zone 1" then
            Zone1()
        elseif huntMap2 == "Zone 2" then
            Zone2()
        elseif huntMap2 == "Zone 3" then
            Zone3()
        elseif huntMap2 == "Zone 4" then
            Zone4()
        elseif huntMap2 == "Zone 5" then
            Zone5()
        elseif huntMap2 == "Zone 6" then
            Zone6()
        end
    end
    
    if isNight() and getPokemonNature(synchIndex1) == synch2 and getPokemonNature(synchIndex2) == synch3 and getPokemonNature(synchIndex3) == synch1 then
        return swapPokemon(synchIndex1, synchIndex2)
    elseif isNight() and getPokemonNature(synchIndex1) == synch2 and getPokemonNature(synchIndex2) == synch1 and getPokemonNature(synchIndex3) == synch3 then
        return swapPokemon(synchIndex1, synchIndex3)
    elseif isNight() and getPokemonNature(synchIndex1) == synch3 then

        if huntMap3 == "Zone 1" then
            Zone1()
        elseif huntMap3 == "Zone 2" then
            Zone2()
        elseif huntMap3 == "Zone 3" then
            Zone3()
        elseif huntMap3 == "Zone 4" then
            Zone4()
        elseif huntMap3 == "Zone 5" then
            Zone5()
        elseif huntMap3 == "Zone 6" then
            Zone6()
        end
    end

end



function onPathAction()
    if not isMounted() and mountSwitch == true and hasItem(mount) and not isSurfing() and isOutside() then
       log("---------------------------")
       log("~~~ Riding on my pet!!! ~~~")
       log("---------------------------")
               return useItem(mount)

    elseif isPokemonUsable(1) and isPokemonUsable(synchIndex2) and isPokemonUsable(synchIndex3) and isPokemonUsable(falseswiper) and getPokemonHealthPercent(falseswiper) > fswipeHP and getPokemonHealthPercent(sleeper) > sleeperHP and isPokemonUsable(sleeper) and getRemainingPowerPoints(sleeper, sleepmove) >= 1 and getRemainingPowerPoints(falseswiper, weakmove) >= 1 then
   
        if singleCatch then
            if huntMap == "Zone 1" then
                Zone1()
            elseif huntMap == "Zone 2" then
                Zone2()
            elseif huntMap == "Zone 3" then
                Zone3()
            elseif huntMap == "Zone 4" then
                Zone4()
            elseif huntMap == "Zone 5" then
                Zone5()
            elseif huntMap == "Zone 6" then
                Zone6()
            end
        elseif multipleCatch then
            natureSwap()
        end
    else
        pc()
    end

end

function onBattleAction()

    if isWildBattle() and ((catchShiny and isOpponentShiny()) or (catchUncaught and not isAlreadyCaught())) then
        if fswipeOn then
              log("-------- Commencing False Swipe --------")
                   fswipe()
           elseif sleepOn then
               log("-------- Commencing Sleep Move --------")
                   sleep()
           elseif advanceCatchOn then
               log("-------- Commencing False Swipe with Sleep Move --------")
                   advanceCatch()
           elseif normalCatchOn then
               log("-------- Starting to throw Pokeballs --------")
                   normal()  
        end
    elseif isWildBattle() and getOpponentName() == "Beldum" then
               log("-------- Commencing Sleep Move --------")
                   sleep()
    elseif singleCatch and getOpponentName() == toHunt then
        if fswipeOn then
              log("-------- Commencing False Swipe --------")
                   fswipe()
           elseif sleepOn then
               log("-------- Commencing Sleep Move --------")
                   sleep()
           elseif advanceCatchOn then
               log("-------- Commencing False Swipe with Sleep Move --------")
                   advanceCatch()
           elseif normalCatchOn then
               log("-------- Starting to throw Pokeballs --------")
                   normal()  
        end
    elseif multipleCatch and (getOpponentName() == toHunt1 or getOpponentName() == toHunt2 or getOpponentName() == toHunt3) then
        if fswipeOn then
              log("-------- Commencing False Swipe --------")
                   fswipe()
           elseif sleepOn then
               log("-------- Commencing Sleep Move --------")
                   sleep()
           elseif advanceCatchOn then
               log("-------- Commencing False Swipe with Sleep Move --------")
                   advanceCatch()
           elseif normalCatchOn then
               log("-------- Starting to throw Pokeballs --------")
                   normal()  
        end
    elseif Add and (getOpponentName() == addHunt1 or getOpponentName() == addHunt2 or getOpponentName() == addHunt3) then
        if fswipeOn then
              log("-------- Commencing False Swipe --------")
                   fswipe()
           elseif sleepOn then
               log("-------- Commencing Sleep Move --------")
                   sleep()
           elseif advanceCatchOn then
               log("-------- Commencing False Swipe with Sleep Move --------")
                   advanceCatch()
           elseif normalCatchOn then
               log("-------- Starting to throw Pokeballs --------")
                   normal()  
        end
    elseif (getOpponentName() == "Wobbuffet" ) then
        return attack() or sendAnyPokemon()
    elseif huntandFarm then
           return attack() or sendAnyPokemon() or run() or sendUsablePokemon()  
    else
           return run() or sendUsablePokemon() or attack() or sendAnyPokemon()
       end
    
end

function normal()
   return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball")  or sendAnyPokemon() or attack() or run()
end

function advanceCatch()
       if getActivePokemonNumber() == 1 then
           return sendPokemon(falseswiper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif ( getActivePokemonNumber() == falseswiper ) and ( getOpponentHealth() > 1 ) then
           return weakAttack() or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif ( getActivePokemonNumber() == sleeper ) and ( getOpponentStatus() ~= "SLEEP" and getOpponentStatus() ~= "PARALIZE" and getOpponentStatus() ~= "POISON" and getOpponentStatus() ~= "BURN" ) and ( getOpponentHealth() == 1 ) then
           return useMove(sleepmove) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif ( getActivePokemonNumber() == falseswiper ) and ( getOpponentHealth() == 1 ) then
           return sendPokemon(sleeper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif getOpponentStatus() == "SLEEP" or getOpponentStatus() == "PARALIZE" or getOpponentStatus() == "POISON" or getOpponentStatus() == "BURN" then
           return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or attack() or run()
       else
               return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or attack() or run()
       end
end

function fswipe()
       if getActivePokemonNumber() == 1 then
           return sendPokemon(falseswiper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif ( getActivePokemonNumber() == falseswiper ) and ( getOpponentHealth() > 1 ) then
           return weakAttack() or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif getOpponentHealth() == 1 then
           return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball")  or sendAnyPokemon() or attack() or run()
       end
end
function sleep()
       if getActivePokemonNumber() == 1 then
           return sendPokemon(sleeper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or run()
       elseif ( getActivePokemonNumber() == sleeper ) and ( getOpponentStatus() ~= "SLEEP" and getOpponentStatus() ~= "PARALIZE" and getOpponentStatus() ~= "POISON" and getOpponentStatus() ~= "BURN" ) then
           return useMove(sleepmove) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       elseif getOpponentStatus() == "SLEEP" or getOpponentStatus() == "PARALIZE" or getOpponentStatus() == "POISON" or getOpponentStatus() == "BURN" then
           return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
       else
           return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or attack() or run()
       end    
end


    
function onStart()

    startime = os.time()
       shinyCounter = 0
    pokecenterCounter = 0
       wildCounter = 0    
    pokeballCounter = 0
    startMoney = getMoney()
    poke1 = 0
    poke2 = 0
    poke3 = 0
    poke = 0
    add1 = 0
    add2 = 0
    add3 = 0
    log("-----------------------------------------------------------")
       log("|---- We are now Commencing the Catch Routine ----|")
       log("-----------------------------------------------------------")
    if multipleCatch then
        log("-------- MULTI-CATCHING STARTED --------")
           log("-------- Script Information --------")
        log("~~~HUNTED POKEMONS~~~")
        log("-Morning Time: "..toHunt1.."- -Location: Hoenn Safari "..huntMap1.." -")
        log("-Day Time: "..toHunt2.."- -Location: Hoenn Safari "..huntMap2.." -")
        log("-Night Time: "..toHunt3.."- -Location: Hoenn Safari "..huntMap3.." -")
           log("--------------------------------------")
    elseif singleCatch then
        log("-------- SINGLE-CATCHING STARTED --------")
              log("-------- Script Information --------")
        log("-We will hunt "..toHunt.." all Day!!!- -Location: Hoenn Safari "..huntMap.." -")
           log("--------------------------------------")
    end
    

end
function onDialogMessage(pokecenter)
   if stringContains(pokecenter, "Would you like me to heal your Pokemon?") then
       pokecenterCounter = pokecenterCounter + 1
   end
end
function onBattleMessage(wild)
   
   if stringContains(wild, "A Wild SHINY ") then
       shinyCounter = shinyCounter + 1    
   
   elseif stringContains(wild, "You throw") then
       pokeballCounter = pokeballCounter + 1    
   
   elseif wild == "A Wild [FF9900]"..toHunt.."[-] Attacks!" then
       poke = poke + 1
 
   elseif wild == "A Wild [FF9900]"..toHunt1.."[-] Attacks!" then
       poke1 = poke1 + 1
    
   elseif wild == "A Wild [FF9900]"..toHunt2.."[-] Attacks!" then
       poke2 = poke2 + 1

   elseif wild == "A Wild [FF9900]"..toHunt3.."[-] Attacks!" then
       poke3 = poke3 + 1

   elseif stringContains(wild, "A Wild ") then
           wildCounter = wildCounter + 1
   end
     
end
    

    
function onPause()
   
       log(" --------------------------------------------")
       log("|--------- CATCH ROUTINE PAUSED ----------|")
       log(" --------------------------------------------")
    log("|--------- Move Remaining Power Points ----------|")
       log("--------------------------------------")
       log("False Swipe: " .. tostring(getRemainingPowerPoints(falseswiper,weakmove)))
       log("Sleep Move: " .. tostring(getRemainingPowerPoints(sleeper,sleepmove)))
       log("-----------------------------------------------------------")
       
       log(" ")
    if multipleCatch then
        log("-------- MULTI-CATCHING Status --------")
           log(" ")
        log("~~~HUNTED POKEMONS~~~")
        log("- "..toHunt1..": "..poke1)
        log("- "..toHunt2..": "..poke2)
        log("- "..toHunt3..": "..poke3)
           log("--------------------------------------")
    elseif singleCatch then
        log("-------- SINGLE-CATCHING Status --------")
              log(" ")
        log("- "..toHunt..": "..poke)
           log("--------------------------------------")
    end
    
    
    log(" --------------------------------------------")
       log("Pokeball's used: " .. pokeballCounter)
       log("-----------------------------------------------------------")
       log("Shinies Caught: " .. shinyCounter)
    log("Pokemons encountered: " .. wildCounter)
       log("---------------------------------------------")
    log("Times in Pokecenter: " .. pokecenterCounter)
    if huntandFarm then
        log("Pokedollars earned: "..tostring(getMoney() - startMoney))
    end
    log("---------------------------------------------")
end

function onStop()
   log("-----------------------------------------------------------")
       log("---------------------- Routine Stopped ---------------------")
       log("-----------------------------------------------------------")
   endtime = os.time()
       log(string.format("Bot running time: %.2f", os.difftime(endtime,startime)/3600 ).. " hours")
       log("or")
       log(string.format("Bot running time: %.2f", os.difftime(endtime,startime)/60 ).. " minutes")
       log("-----------------------------------------------------------")
end

same with default config , just set to single catch torchic and keep healing in pc

What are the pokemons in your team?

Do you have fswiper, sleeper,  or synch poke? If not, please set the normalCatchOn = true and leave the rest to false.

sync slot 1 , gallade fswiper slot 2 , oddish sleeper slot 3
 
Reply
#18
Synch ada slot one, Parasecr slot 2(false swaipe and spore) synch jolly slot 3, kingler with hms at slot 4
 
Reply
#19
@Pan Please make sure you have Damaging Moves on your Synchronize Poke


@Theory Make sure you set the correct nature on Poke Time and Please properly arrange the poke slots before starting the script
God Karp Trainer loading... *splash*splash Huh

 
Reply
#20
(2016-08-31, 08:17:56)redskhie @Pan Please make sure you have Damaging Moves on your Synchronize Poke


@Theory Make sure you set the correct nature on Poke Time and Please properly arrange the poke slots before starting the script

Is everything alright, gonna test it later again.
 
Reply
#21
Thanks work fine now
 
Reply
#22
I don't know what is happening but when i try to use the Multiple Catch the bot doesn't walk. When i changed the config to the single catch it works fine. 
My team was:
1 - Synch Adamant (Alakazam with offensive moves)
2 - Normal Pokemon
3 - Synch Jolly (Xatu with offensive moves)
4 - Normal pokemon
5 - False Swiper (Scyther)
6 - Speed Powder (Venusaur)

Show ContentThe error was::

If you need more information about the problem just let me know

The config that i tried to use in the multiple catch:
- Copyright © 2016 redskhie



huntandFarm = false        --set to true if you want to kill all encountered pokes else false
catchUncaught = false        --set to true if you want to catch uncaught pokes else false
catchShiny = true        --set to true if you want to catch encountered shiny's else false


                       -- CATCH CONFIGURATION --CASE INSENSITIVE
           --SINGLE CATCHING

singleCatch = false        --Set to true if you want to catch only 1 Pokes and set multipleCatch to false
   
toHunt = "Torchic"        --Set/Change the name of Pokemon you want to Catch    
huntMap = "Zone 6"        --Set/Change the Map Area of the Pokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"



           --MULTIPLE CATCHING

multipleCatch = true        --Set to true if you want to catch multiple Pokes at Different Time and set singleCatch to false
               --NOTE: PLEASE PROPERLY ARRANGE THE TEAM ACCORDING TO YOUR INPUT CONFIG


           --MORNING TIME CONFIG

toHunt1 = "Torchic"        --Set/Change the name of Pokemon you want to Catch
huntMap1 = "Zone 6"        --Set/Change the Map Area of the 1st Pokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"



synch1 = "Adamant"            --Set the Nature of the Synch Poke to Use at Morning
synchIndex1 = 1            --Do not touch this line!

           --DAY TIME CONFIG

toHunt2 = "Riolu"            --Set/Change the name of Pokemon you want to Catch at Noon
huntMap2 = "Zone 3"            --Set/Change the Map Area of the 2nd Pokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"


synch2 = "Jolly"        --Set the Nature of the Synch Poke to Use at Noon
synchIndex2 = 3            --set the Index # of the Synch Poke to Use at Noon, elseif the same leave
           --NIGHT TIME CONFIG

toHunt3 = "Beldum"            --Set/Change the name of Pokemon you want to Catch at Night
huntMap3 = "Zone 2"        --Set/Change the Map Area of the 3rdPokemon    --OPTIONS: "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Zone 6"


synch3 = "Adamant"        --Set the Nature of the Synch Poke to Use at Night        
synchIndex3 = 3         --set the Index # of the Synch Poke to Use at Night, elseif the same leave




   --ADDED HUNT    --Use this if multiple catch is full and you think you can Hunt another poke in the same area

Add = false        --Set to true if you want to catch another pokemon
addHunt1 = "Rhyhorn"    --Set the name of the pokemon
addHunt2 = ""        --Set the name of the pokemon
addHunt3 = ""        --Set the name of the pokemon



fishItem = "Super Rod"        --Set/Change the Name of the Fishing Item you want to Use, Don't leave it blank        --NOT USABLE at HOENN






   -- You can only choose One Special Catching, set true, else leave the 3 false

                                 --use only normalCatchOn if you don't have fswiper and sleeper
                                 --Leave blank at sleepmove/weakmove if you don't have atleast


normalCatchOn = false        --Directly throw pokeballs on hunted pokemons
fswipeOn = false        --Switch to pokemon with false swipe, use false swipe until the hunted pokes hp is reach to 1 then throw pokeballs
sleepOn = false            --Switch to pokemon with sleep move, use sleep move until the hunted pokes status is SLEEPING then throw pokeballs
advanceCatchOn = true        --Use fswipeOn and sleepOn to catch hunted pokes

falseswiper = 5            --Index of pokemon with false swipe
fswipeHP = 10            --Returns the health percent of the false swiper, then heal to PC
weakmove = "False Swipe"    --False Swipe move

sleeper = 6            --Index of pokemon with sleep move
sleeperHP = 10            --Returns the health percent of the false swiper, then heal to PC
sleepmove = "Sleep Powder"        --Set/Change the name of the sleep move



           --MOUNTING CONFIGURATION


  -- Set/Change the name of the mount you want to use on LAND

mount = "Latios Mount"

  -- Set/Change to true if you want to use mount,else false

mountSwitch = true









       --WARNING!!! DO NOT TOUCH THE CODES BELOW!!!


                    -- Copyright © 2016 redskhie
           --List of Pokemon to Catch

   local ZoneOneList = {"Pikachu", "Treecko", "Girafarig", "Natu", "Wobuffet", "Buneary"}
   local ZoneTwoList = {"Natu", "Beldum"}
   local ZoneThreeList = {"Riolu", "Rhyhorn", "Heracross"}
   local ZoneFourList = {"Litleo", "Heracross", "Stantler", "Donphan", "Pinsir"}
   local ZoneFiveList = {"Gligar", "Aipom", "Mareep", "Snubbull"}
   local ZoneFiveSurfList = {"Mudkip", "Remoraid", "Marill", "Octillery"}
   local ZoneSixList = {"Torchic", "Aipom", "Houndour", "Teddiursa", "Pineco", "Miltank"}
       
                    -- Copyright © 2016 redskhie



name = "All in One Catcher at Hoenn Safari"
author = "redskhie"
description = [[This script will catch your desired Pokemons at Hoenn Safari]]



function List5()

for _,ZoneFiveList in pairs(ZoneFiveList) do
if (singleCatch and ZoneFiveList == toHunt) or (multipleCatch and isMorning() and ZoneFiveList == toHunt1) or (multipleCatch and isNoon() and ZoneFiveList == toHunt2) or (multipleCatch and isNight() and ZoneFiveList == toHunt3) then
      moveToGrass()
  break
end
end

for _,ZoneFiveSurfList in pairs(ZoneFiveSurfList) do
if (singleCatch and ZoneFiveSurfList == toHunt) or (multipleCatch and isMorning() and ZoneFiveSurfList == toHunt1) or (multipleCatch and isNoon() and ZoneFiveSurfList == toHunt2) or (multipleCatch and isNight() and ZoneFiveSurfList == toHunt3) then
      moveToWater()
  break
end
end

end


function pc()

   if getMapName() == "Lilycove City" then
              moveToMap("Pokecenter Lilycove City")
      elseif getMapName() == "Route 121" then
              moveToMap("Lilycove City")
      elseif getMapName() == "Hoenn Safari Zone Lobby" then
              moveToMap("Route 121")
   elseif getMapName() == "Hoenn Safari Zone Area 6" then
       moveToMap("Hoenn Safari Zone Area 5")
   elseif getMapName() == "Hoenn Safari Zone Area 3" then
       moveToMap("Hoenn Safari Zone Area 4")
   elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 4" then
       moveToMap("Hoenn Safari Zone Area 1")
   elseif getMapName() == "Hoenn Safari Zone Area 1" then
       moveToCell(23,48)
      elseif getMapName() == "Hoenn Safari Zone Area 2" then
       moveToMap("Hoenn Safari Zone Area 1")
      elseif getMapName() == "Pokecenter Lilycove City" then
          usePokecenter()
      end
     
end

function Zone1()

   if getMapName() == "Pokecenter Lilycove City" then
              moveToMap("Lilycove City")
      elseif getMapName() == "Lilycove City" then
              moveToMap("Route 121")
      elseif getMapName() == "Route 121" then
              moveToMap("Hoenn Safari Zone Lobby")
      elseif getMapName() == "Hoenn Safari Zone Lobby" then
              talkToNpcOnCell(21, 6)
   elseif getMapName() == "Hoenn Safari Zone Area 6" then
       moveToMap("Hoenn Safari Zone Area 5")
   elseif getMapName() == "Hoenn Safari Zone Area 3" then
       moveToMap("Hoenn Safari Zone Area 4")
   elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 4" or getMapName() == "Hoenn Safari Zone Area 2" then
       moveToMap("Hoenn Safari Zone Area 1")
      elseif getMapName() == "Hoenn Safari Zone Area 1" then
              moveToGrass()
      end

end

function Zone2()

   if getMapName() == "Pokecenter Lilycove City" then
              moveToMap("Lilycove City")
      elseif getMapName() == "Lilycove City" then
              moveToMap("Route 121")
      elseif getMapName() == "Route 121" then
              moveToMap("Hoenn Safari Zone Lobby")
      elseif getMapName() == "Hoenn Safari Zone Lobby" then
              talkToNpcOnCell(21, 6)
   elseif getMapName() == "Hoenn Safari Zone Area 6" then
       moveToMap("Hoenn Safari Zone Area 5")
   elseif getMapName() == "Hoenn Safari Zone Area 3" then
       moveToMap("Hoenn Safari Zone Area 4")
   elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 4" then
       moveToMap("Hoenn Safari Zone Area 1")
   elseif getMapName() == "Hoenn Safari Zone Area 1" then
       moveToMap("Hoenn Safari Zone Area 2")
      elseif getMapName() == "Hoenn Safari Zone Area 2" then
              moveToGrass()
      end

end
function Zone3()

   if getMapName() == "Pokecenter Lilycove City" then
              moveToMap("Lilycove City")
      elseif getMapName() == "Lilycove City" then
              moveToMap("Route 121")
      elseif getMapName() == "Route 121" then
              moveToMap("Hoenn Safari Zone Lobby")
      elseif getMapName() == "Hoenn Safari Zone Lobby" then
              talkToNpcOnCell(21, 6)
   elseif getMapName() == "Hoenn Safari Zone Area 6" then
       moveToMap("Hoenn Safari Zone Area 5")
   elseif getMapName() == "Hoenn Safari Zone Area 4" then
       moveToMap("Hoenn Safari Zone Area 3")
   elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 2" then
       moveToMap("Hoenn Safari Zone Area 1")
   elseif getMapName() == "Hoenn Safari Zone Area 1" then
       moveToMap("Hoenn Safari Zone Area 4")
      elseif getMapName() == "Hoenn Safari Zone Area 3" then
              moveToGrass()
      end

end
function Zone4()

   if getMapName() == "Pokecenter Lilycove City" then
              moveToMap("Lilycove City")
      elseif getMapName() == "Lilycove City" then
              moveToMap("Route 121")
      elseif getMapName() == "Route 121" then
              moveToMap("Hoenn Safari Zone Lobby")
      elseif getMapName() == "Hoenn Safari Zone Lobby" then
              talkToNpcOnCell(21, 6)
   elseif getMapName() == "Hoenn Safari Zone Area 6" then
       moveToMap("Hoenn Safari Zone Area 5")
   elseif getMapName() == "Hoenn Safari Zone Area 3" then
       moveToMap("Hoenn Safari Zone Area 4")
   elseif getMapName() == "Hoenn Safari Zone Area 5" or getMapName() == "Hoenn Safari Zone Area 2" then
       moveToMap("Hoenn Safari Zone Area 1")
   elseif getMapName() == "Hoenn Safari Zone Area 1" then
       moveToMap("Hoenn Safari Zone Area 4")
      elseif getMapName() == "Hoenn Safari Zone Area 4" then
              moveToGrass()
      end

end

function Zone5()

   if getMapName() == "Pokecenter Lilycove City" then
              moveToMap("Lilycove City")
      elseif getMapName() == "Lilycove City" then
              moveToMap("Route 121")
      elseif getMapName() == "Route 121" then
              moveToMap("Hoenn Safari Zone Lobby")
      elseif getMapName() == "Hoenn Safari Zone Lobby" then
              talkToNpcOnCell(21, 6)
   elseif getMapName() == "Hoenn Safari Zone Area 6" then
       moveToMap("Hoenn Safari Zone Area 5")
   elseif getMapName() == "Hoenn Safari Zone Area 3" then
       moveToMap("Hoenn Safari Zone Area 4")
   elseif getMapName() == "Hoenn Safari Zone Area 2" or getMapName() == "Hoenn Safari Zone Area 4" then
       moveToMap("Hoenn Safari Zone Area 1")
   elseif getMapName() == "Hoenn Safari Zone Area 1" then
       moveToMap("Hoenn Safari Zone Area 5")
      elseif getMapName() == "Hoenn Safari Zone Area 5" then
              List5()
      end


end

function Zone6()

   if getMapName() == "Pokecenter Lilycove City" then
              moveToMap("Lilycove City")
      elseif getMapName() == "Lilycove City" then
              moveToMap("Route 121")
      elseif getMapName() == "Route 121" then
              moveToMap("Hoenn Safari Zone Lobby")
      elseif getMapName() == "Hoenn Safari Zone Lobby" then
              talkToNpcOnCell(21, 6)
   elseif getMapName() == "Hoenn Safari Zone Area 5" then
       moveToMap("Hoenn Safari Zone Area 6")
   elseif getMapName() == "Hoenn Safari Zone Area 3" then
       moveToMap("Hoenn Safari Zone Area 4")
   elseif getMapName() == "Hoenn Safari Zone Area 2" or getMapName() == "Hoenn Safari Zone Area 4" then
       moveToMap("Hoenn Safari Zone Area 1")
   elseif getMapName() == "Hoenn Safari Zone Area 1" then
       moveToMap("Hoenn Safari Zone Area 5")
      elseif getMapName() == "Hoenn Safari Zone Area 6" then
              moveToGrass()
      end


end

function natureSwap()
   

   if isMorning() and getPokemonNature(synchIndex1) == synch3 and getPokemonNature(synchIndex2) == synch1 and getPokemonNature(synchIndex3) == synch2 then
       return swapPokemon(synchIndex1, synchIndex2)
   elseif isMorning() and getPokemonNature(synchIndex1) == synch3 and getPokemonNature(synchIndex2) == synch2 and getPokemonNature(synchIndex3) == synch1 then
       return swapPokemon(synchIndex1, synchIndex3)
   elseif isMorning() and getPokemonNature(synchIndex1) == synch1 then

       if huntMap1 == "Zone 1" then
           Zone1()
       elseif huntMap1 == "Zone 2" then
           Zone2()
       elseif huntMap1 == "Zone 3" then
           Zone3()
       elseif huntMap1 == "Zone 4" then
           Zone4()
       elseif huntMap1 == "Zone 5" then
           Zone5()
       elseif huntMap1 == "Zone 6" then
           Zone6()
       end

   end

   if isNoon() and getPokemonNature(synchIndex1) == synch1 and getPokemonNature(synchIndex2) == synch2 and getPokemonNature(synchIndex3) == synch3 then
       return swapPokemon(synchIndex1, synchIndex2)
   elseif isNoon() and getPokemonNature(synchIndex1) == synch1 and getPokemonNature(synchIndex2) == synch3 and getPokemonNature(synchIndex3) == synch2 then
       return swapPokemon(synchIndex1, synchIndex3)
   elseif isNoon() and getPokemonNature(synchIndex1) == synch2 then

       if huntMap2 == "Zone 1" then
           Zone1()
       elseif huntMap2 == "Zone 2" then
           Zone2()
       elseif huntMap2 == "Zone 3" then
           Zone3()
       elseif huntMap2 == "Zone 4" then
           Zone4()
       elseif huntMap2 == "Zone 5" then
           Zone5()
       elseif huntMap2 == "Zone 6" then
           Zone6()
       end
   end
   
   if isNight() and getPokemonNature(synchIndex1) == synch2 and getPokemonNature(synchIndex2) == synch3 and getPokemonNature(synchIndex3) == synch1 then
       return swapPokemon(synchIndex1, synchIndex2)
   elseif isNight() and getPokemonNature(synchIndex1) == synch2 and getPokemonNature(synchIndex2) == synch1 and getPokemonNature(synchIndex3) == synch3 then
       return swapPokemon(synchIndex1, synchIndex3)
   elseif isNight() and getPokemonNature(synchIndex1) == synch3 then

       if huntMap3 == "Zone 1" then
           Zone1()
       elseif huntMap3 == "Zone 2" then
           Zone2()
       elseif huntMap3 == "Zone 3" then
           Zone3()
       elseif huntMap3 == "Zone 4" then
           Zone4()
       elseif huntMap3 == "Zone 5" then
           Zone5()
       elseif huntMap3 == "Zone 6" then
           Zone6()
       end
   end

end



function onPathAction()
   if not isMounted() and mountSwitch == true and hasItem(mount) and not isSurfing() and isOutside() then
      log("---------------------------")
      log("~~~ Riding on my pet!!! ~~~")
      log("---------------------------")
              return useItem(mount)

   elseif isPokemonUsable(1) and isPokemonUsable(synchIndex2) and isPokemonUsable(synchIndex3) and isPokemonUsable(falseswiper) and getPokemonHealthPercent(falseswiper) > fswipeHP and getPokemonHealthPercent(sleeper) > sleeperHP and isPokemonUsable(sleeper) and getRemainingPowerPoints(sleeper, sleepmove) >= 1 and getRemainingPowerPoints(falseswiper, weakmove) >= 1 then
 
       if singleCatch then
           if huntMap == "Zone 1" then
               Zone1()
           elseif huntMap == "Zone 2" then
               Zone2()
           elseif huntMap == "Zone 3" then
               Zone3()
           elseif huntMap == "Zone 4" then
               Zone4()
           elseif huntMap == "Zone 5" then
               Zone5()
           elseif huntMap == "Zone 6" then
               Zone6()
           end
       elseif multipleCatch then
           natureSwap()
       end
   else
       pc()
   end

end

function onBattleAction()

   if isWildBattle() and ((catchShiny and isOpponentShiny()) or (catchUncaught and not isAlreadyCaught())) then
       if fswipeOn then
             log("-------- Commencing False Swipe --------")
                  fswipe()
          elseif sleepOn then
              log("-------- Commencing Sleep Move --------")
                  sleep()
          elseif advanceCatchOn then
              log("-------- Commencing False Swipe with Sleep Move --------")
                  advanceCatch()
          elseif normalCatchOn then
              log("-------- Starting to throw Pokeballs --------")
                  normal()  
       end
   elseif isWildBattle() and getOpponentName() == "Beldum" then
              log("-------- Commencing Sleep Move --------")
                  sleep()
   elseif singleCatch and getOpponentName() == toHunt then
       if fswipeOn then
             log("-------- Commencing False Swipe --------")
                  fswipe()
          elseif sleepOn then
              log("-------- Commencing Sleep Move --------")
                  sleep()
          elseif advanceCatchOn then
              log("-------- Commencing False Swipe with Sleep Move --------")
                  advanceCatch()
          elseif normalCatchOn then
              log("-------- Starting to throw Pokeballs --------")
                  normal()  
       end
   elseif multipleCatch and (getOpponentName() == toHunt1 or getOpponentName() == toHunt2 or getOpponentName() == toHunt3) then
       if fswipeOn then
             log("-------- Commencing False Swipe --------")
                  fswipe()
          elseif sleepOn then
              log("-------- Commencing Sleep Move --------")
                  sleep()
          elseif advanceCatchOn then
              log("-------- Commencing False Swipe with Sleep Move --------")
                  advanceCatch()
          elseif normalCatchOn then
              log("-------- Starting to throw Pokeballs --------")
                  normal()  
       end
   elseif Add and (getOpponentName() == addHunt1 or getOpponentName() == addHunt2 or getOpponentName() == addHunt3) then
       if fswipeOn then
             log("-------- Commencing False Swipe --------")
                  fswipe()
          elseif sleepOn then
              log("-------- Commencing Sleep Move --------")
                  sleep()
          elseif advanceCatchOn then
              log("-------- Commencing False Swipe with Sleep Move --------")
                  advanceCatch()
          elseif normalCatchOn then
              log("-------- Starting to throw Pokeballs --------")
                  normal()  
       end
   elseif (getOpponentName() == "Wobbuffet" ) then
       return attack() or sendAnyPokemon()
   elseif huntandFarm then
          return attack() or sendAnyPokemon() or run() or sendUsablePokemon()  
   else
          return run() or sendUsablePokemon() or attack() or sendAnyPokemon()
      end
   
end

function normal()
  return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball")  or sendAnyPokemon() or attack() or run()
end

function advanceCatch()
      if getActivePokemonNumber() == 1 then
          return sendPokemon(falseswiper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
      elseif ( getActivePokemonNumber() == falseswiper ) and ( getOpponentHealth() > 1 ) then
          return weakAttack() or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
      elseif ( getActivePokemonNumber() == sleeper ) and ( getOpponentStatus() ~= "SLEEP" and getOpponentStatus() ~= "PARALIZE" and getOpponentStatus() ~= "POISON" and getOpponentStatus() ~= "BURN" ) and ( getOpponentHealth() == 1 ) then
          return useMove(sleepmove) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
      elseif ( getActivePokemonNumber() == falseswiper ) and ( getOpponentHealth() == 1 ) then
          return sendPokemon(sleeper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
      elseif getOpponentStatus() == "SLEEP" or getOpponentStatus() == "PARALIZE" or getOpponentStatus() == "POISON" or getOpponentStatus() == "BURN" then
          return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or attack() or run()
      else
              return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or attack() or run()
      end
end

function fswipe()
      if getActivePokemonNumber() == 1 then
          return sendPokemon(falseswiper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
      elseif ( getActivePokemonNumber() == falseswiper ) and ( getOpponentHealth() > 1 ) then
          return weakAttack() or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
      elseif getOpponentHealth() == 1 then
          return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball")  or sendAnyPokemon() or attack() or run()
      end
end
function sleep()
      if getActivePokemonNumber() == 1 then
          return sendPokemon(sleeper) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or run()
      elseif ( getActivePokemonNumber() == sleeper ) and ( getOpponentStatus() ~= "SLEEP" and getOpponentStatus() ~= "PARALIZE" and getOpponentStatus() ~= "POISON" and getOpponentStatus() ~= "BURN" ) then
          return useMove(sleepmove) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
      elseif getOpponentStatus() == "SLEEP" or getOpponentStatus() == "PARALIZE" or getOpponentStatus() == "POISON" or getOpponentStatus() == "BURN" then
          return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or run()
      else
          return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() or attack() or run()
      end    
end


   
function onStart()

   startime = os.time()
      shinyCounter = 0
   pokecenterCounter = 0
      wildCounter = 0    
   pokeballCounter = 0
   startMoney = getMoney()
   poke1 = 0
   poke2 = 0
   poke3 = 0
   poke = 0
   add1 = 0
   add2 = 0
   add3 = 0
   log("-----------------------------------------------------------")
      log("|---- We are now Commencing the Catch Routine ----|")
      log("-----------------------------------------------------------")
   if multipleCatch then
       log("-------- MULTI-CATCHING STARTED --------")
          log("-------- Script Information --------")
       log("~~~HUNTED POKEMONS~~~")
       log("-Morning Time: "..toHunt1.."- -Location: Hoenn Safari "..huntMap1.." -")
       log("-Day Time: "..toHunt2.."- -Location: Hoenn Safari "..huntMap2.." -")
       log("-Night Time: "..toHunt3.."- -Location: Hoenn Safari "..huntMap3.." -")
          log("--------------------------------------")
   elseif singleCatch then
       log("-------- SINGLE-CATCHING STARTED --------")
             log("-------- Script Information --------")
       log("-We will hunt "..toHunt.." all Day!!!- -Location: Hoenn Safari "..huntMap.." -")
          log("--------------------------------------")
   end
   

end
function onDialogMessage(pokecenter)
  if stringContains(pokecenter, "Would you like me to heal your Pokemon?") then
      pokecenterCounter = pokecenterCounter + 1
  end
end
function onBattleMessage(wild)
 
  if stringContains(wild, "A Wild SHINY ") then
      shinyCounter = shinyCounter + 1    
 
  elseif stringContains(wild, "You throw") then
      pokeballCounter = pokeballCounter + 1    
 
  elseif wild == "A Wild [FF9900]"..toHunt.."[-] Attacks!" then
      poke = poke + 1

  elseif wild == "A Wild [FF9900]"..toHunt1.."[-] Attacks!" then
      poke1 = poke1 + 1
   
  elseif wild == "A Wild [FF9900]"..toHunt2.."[-] Attacks!" then
      poke2 = poke2 + 1

  elseif wild == "A Wild [FF9900]"..toHunt3.."[-] Attacks!" then
      poke3 = poke3 + 1

  elseif stringContains(wild, "A Wild ") then
          wildCounter = wildCounter + 1
  end
   
end
   

   
function onPause()
 
      log(" --------------------------------------------")
      log("|--------- CATCH ROUTINE PAUSED ----------|")
      log(" --------------------------------------------")
   log("|--------- Move Remaining Power Points ----------|")
      log("--------------------------------------")
      log("False Swipe: " .. tostring(getRemainingPowerPoints(falseswiper,weakmove)))
      log("Sleep Move: " .. tostring(getRemainingPowerPoints(sleeper,sleepmove)))
      log("-----------------------------------------------------------")
     
      log(" ")
   if multipleCatch then
       log("-------- MULTI-CATCHING Status --------")
          log(" ")
       log("~~~HUNTED POKEMONS~~~")
       log("- "..toHunt1..": "..poke1)
       log("- "..toHunt2..": "..poke2)
       log("- "..toHunt3..": "..poke3)
          log("--------------------------------------")
   elseif singleCatch then
       log("-------- SINGLE-CATCHING Status --------")
             log(" ")
       log("- "..toHunt..": "..poke)
          log("--------------------------------------")
   end
   
   
   log(" --------------------------------------------")
      log("Pokeball's used: " .. pokeballCounter)
      log("-----------------------------------------------------------")
      log("Shinies Caught: " .. shinyCounter)
   log("Pokemons encountered: " .. wildCounter)
      log("---------------------------------------------")
   log("Times in Pokecenter: " .. pokecenterCounter)
   if huntandFarm then
       log("Pokedollars earned: "..tostring(getMoney() - startMoney))
   end
   log("---------------------------------------------")
end

function onStop()
  log("-----------------------------------------------------------")
      log("---------------------- Routine Stopped ---------------------")
      log("-----------------------------------------------------------")
  endtime = os.time()
      log(string.format("Bot running time: %.2f", os.difftime(endtime,startime)/3600 ).. " hours")
      log("or")
      log(string.format("Bot running time: %.2f", os.difftime(endtime,startime)/60 ).. " minutes")
      log("-----------------------------------------------------------")
end
 
Reply
#23
@Tess you need to arrange properly the synch, example in Morning you want an Ada synch then if the POKE TIME is Morning the first slot must be ADAMANT
God Karp Trainer loading... *splash*splash Huh

 
Reply
#24
(2016-09-01, 07:09:13)redskhie @Tess you need to arrange properly the synch, example in Morning you want an Ada synch then if the POKE TIME is Morning the first slot must be ADAMANT

Ohh now it's working, thanks a lot!
 
Reply
#25
hello,im a newbie,for hoenn safari script,its need a reqruitment like pokemon or skill pokemon in your team?

thanks before Smile
 
Reply
  


Forum Jump:


Browsing: 1 Guest(s)