Hello There, Guest! Login Register


It's Safari Time!
#26
Hi redskhie, 

I have a problem with this script : 

                  -- Copyright © 2016 redskhie


       --CHOOSE WHAT POKEMON DO YOU WANT TO HUNT
       -- WARNING!!! YOU CAN ONLY PICK 1 "true" then leave "false"

   -- Set to true if you want to catch this Pokemon, else leave false

huntEevee = true        --hunt Eevee all time    
huntScyther = false        --hunt Scyther all time
huntPinsir = false        --hunt Pinsir all time
huntBulba = false        --hunt Bulbasaur all time
huntChansey = false        --hunt Chansey all time
huntRhyhorn = false        --hunt Rhyhorn all time
huntKanga = false        --hunt Kangaskhan all time
huntChanseyBulba = false        --hunt Chansey and Bulbasaur all time


   -- If you want to use this Go to Synchronize Section after picking 1 at the bottom
   -- Set to true if you want to catch multiple Pokemon at multiple time, else leave false

huntEeveeRhyhorn = false    --hunt Eevee at Morning and Day        -- hunt Rhyhorn at Night
huntEeveeBulba = false         --hunt Eevee at Morning and Day     -- hunt Bulbasaur at Night
huntEeveeChansey = false    --hunt Eevee at Morning and Day        -- hunt Chansey at Night
huntEeveeScytherPinsir = false     --hunt Eevee at Morning and Day     -- hunt Scyther and Pinsir at Night

   --You can only use this if you have MEMBERSHIP

       --UNTESTED

huntEeveeUmbreon = false    --hunt Eevee at Morning and Day        -- hunt Umbreon at Night
huntEeveeMarill = false        --hunt Eevee at Morning and Day         -- hunt Marill at Night
huntStarlyUmbreon = false        --hunt Starly at Morning and Day    -- hunt Umbreon at Night
huntDratiniStarlyUmbreon = false        --hunt Dratini at Morning     --hunt Starly Day    -- hunt Umbreon at Night
huntScytherRhyhorn = false        --hunt Scyther and Rhyhorn all time




                   -- CATCH CONFIGURATION

               --If you don't have synch poke leave. And don't use the multiple hunt

    --Use synch1 at MORNING and DAY Time/    synch2 at NIGHT Time


   --Synchronize
   
synch1 = 1            --Pokemon Index of 1st SynchPoke
nature1 = "Adamant"    --Pokemon Nature of 1st SynchPoke
synch2 = 4            --Pokemon Index of 2nd SynchPoke
nature2 = "Timid"    --Pokemon Nature of 2nd SynchPoke


   -- 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 = 2            --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 = 3            --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 = "Arcanine Mount"

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

mountSwitch = false



       --POKEBALL CONFIGURATION

   --Disable/enable pokeball function. set to true else false

ballSwitch = false

   


   --POKEBALLS --Great ball is the default balls it will buy

ballquantity = 10         --set the number of balls you want to buy
minball = 49            --set the minimum number of balls and bot will buy more    




       --MONEY FARMING CONFIGURATION


huntandfarm = false    --set this to true if you want to farm money while hunting pokes

moneyfarm = false    --set this to true if you want to farm money when minimum money reaches, else false
minmoney = 1000    --set the minimum money to start farming
maxmoney = 100000    --set the maximum money to start again on hunting pokes

   --Set the number of pokemon you want to remain while farming and start healing

pokeNumber = 2

   --Pick only one area of farming

cCave = false        --Start farming at Cerulean Cave 1F
sFoam = false        --Start farming at Seafoam B4F






                           -- Copyright © 2016 redskhie






       --DO NOT TOUCH THIS if you don't know what you're doing!

name = "Rare catcher at Kanto Safari"
author = "redskhie"
description = [[This script will catch your desired Pokemons at Kanto Safari]]

function onStart()
   
   startime = os.time()

   shinyCounter = 0

   eeveecounter = 0
   scythercounter = 0
   pinsircounter = 0
   bulbacounter = 0
   chanseycounter = 0
   rhycounter = 0
   kangascounter = 0
   umbreoncounter = 0
   starlycounter = 0
   pokecenterCounter = 0
   wildCounter = 0
   
   startingMoney = getMoney()

   log("-----------------------------------------------------------")
       log("|---- We are now Commencing the Catch Routine ----|")
       log("-----------------------------------------------------------")

   if huntEeveeRhyhorn then
       log("-------- MULTI-CATCHING STARTED --------")
       log("Script Info ~~> Hunting Eevee at Morning and Day ~ Hunting Rhyhorn at Night")
       log("--------------------------------------")
   elseif huntEeveeBulba then
       log("-------- MULTI-CATCHING STARTED --------")
       log("Script Info ~~> Hunting Eevee at Morning and Day ~ Hunting Bulbasaur at Night")
       log("--------------------------------------")
   elseif huntEeveeChansey then
       log("-------- MULTI-CATCHING STARTED --------")
       log("Script Info ~~> Hunting Eevee at Morning and Day ~ Hunting Chansey at Night")
       log("--------------------------------------")
   elseif huntEeveeScytherPinsir then
       log("-------- MULTI-CATCHING STARTED --------")
       log("Script Info ~~> Hunting Eevee at Morning and Day ~ Hunting Scyther and Pinsir at Night")
       log("--------------------------------------")
   elseif huntEeveeUmbreon then
       log("-------- MULTI-CATCHING STARTED --------")
       log("Script Info ~~> Hunting Eevee at Morning and Day ~ Hunting Umbreon and Pinsir at Night")
       log("--------------------------------------")
   elseif huntStarlyUmbreon then
       log("-------- MULTI-CATCHING STARTED --------")
       log("Script Info ~~> Hunting Starly at Morning and Day ~ Hunting Umbreon at Night")
       log("--------------------------------------")
   elseif huntEeveeMarill then
       log("-------- MULTI-CATCHING STARTED --------")
       log("Script Info ~~> Hunting Eevee at Morning and Day ~ Hunting Marill at Night")
       log("--------------------------------------")
   end

   if huntEevee then
       log("-------- SINGLE-CATCHING STARTED --------")
       log("Script Info ~~> Hunting Eevee at Safari Area 3")
       log("--------------------------------------")
   elseif huntScyther then
       log("-------- SINGLE-CATCHING STARTED --------")
       log("Script Info ~~> Hunting Scyther at Safari Area 1")
       log("--------------------------------------")
   elseif huntPinsir then
       log("-------- SINGLE-CATCHING STARTED --------")
       log("Script Info ~~> Hunting Pinsir at Safari Area 1")
       log("--------------------------------------")
   elseif huntBulba then
       log("-------- SINGLE-CATCHING STARTED --------")
       log("Script Info ~~> Hunting Bulbasaur at Safari Area 2")
       log("--------------------------------------")
   elseif huntChansey then
       log("-------- SINGLE-CATCHING STARTED --------")
       log("Script Info ~~> Hunting Chansey at Safari Area 2")
       log("--------------------------------------")
   elseif huntRhyhorn then
       log("-------- SINGLE-CATCHING STARTED --------")
       log("Script Info ~~> Hunting Rhyhorn at Safari Area 2")
       log("--------------------------------------")
   elseif huntKanga then
       log("-------- SINGLE-CATCHING STARTED --------")
       log("Script Info ~~> Hunting Kangaskhan at Safari Area 1")
       log("--------------------------------------")
   elseif huntChanseyBulba then
       log("-------- SINGLE-CATCHING STARTED --------")
       log("Script Info ~~> Hunting Chansey and Bulbasaur at Safari Area 2")
       log("--------------------------------------")

   end
   if moneyfarm then
       if cCave then
           log("~Farming money at Cerulean Cave 1F when money is less than "..minmoney.." pokedollars")
           log("~Continue hunting when money reached to "..maxmoney.."+ pokedollars")
           log("--------------------------------------")
       elseif sFoam then
           log("~Farming money at Seafoam B4F when money is less than "..minmoney.." pokedollars")
           log("~Continue hunting when money reached to "..maxmoney.."+ pokedollars")
           log("--------------------------------------")
       end
   end
   if huntandfarm then
       log("Killing all encountered pokes while hunting your desired pokes")
       log("--------------------------------------")
   end
   pokeballCounter = 0

end
function onDialogMessage(pokecenter)
   if stringContains(pokecenter, "Would you like me to heal your Pokemon?") then
       pokecenterCounter = pokecenterCounter + 1
       if usingLogs then
           log("Info ~ Times in Pokecenter: " .. pokecenterCounter)
       end
   end
end
function areaone()

           
       if getMapName() == "Pokecenter Fuchsia" then
           moveToMap("Fuchsia City")
       elseif getMapName() == "Fuchsia City" then
           moveToMap("Safari Stop")
       elseif getMapName() == "Safari Stop" then
           talkToNpcOnCell(6, 4)    
       elseif getMapName() == "Safari Entrance" then
           moveToMap("Safari Area 1")
       elseif getMapName() == "Safari Area 2" then
           moveToMap("Safari Area 1")
       elseif getMapName() == "Safari Area 3" then
           moveToMap("Safari Area 2")
       elseif getMapName() == "Fuchsia Pokemart" then
           moveToMap("Fuchsia City")
       elseif getMapName() == "Safari Area 1" then
           moveToGrass()
       elseif getMapName() ~= "Fuchsia City" then
           backtofarm()
       end
   
end

function areatwo()

       if getMapName() == "Pokecenter Fuchsia" then
           moveToMap("Fuchsia City")
       elseif getMapName() == "Fuchsia City" then
           moveToMap("Safari Stop")
       elseif getMapName() == "Safari Stop" then
           talkToNpcOnCell(6, 4)    
       elseif getMapName() == "Safari Entrance" then
           moveToMap("Safari Area 1")
       elseif getMapName() == "Safari Area 2" then
           moveToGrass()
       elseif getMapName() == "Safari Area 1" then
           moveToMap("Safari Area 2")
       elseif getMapName() == "Fuchsia Pokemart" then
           moveToMap("Fuchsia City")
       elseif getMapName() == "Safari Area 3" then
           moveToMap("Safari Area 2")
       elseif getMapName() ~= "Fuchsia City" then
           backtofarm()
       end
   
end

function areathree()

   
       if getMapName() == "Pokecenter Fuchsia" then
           moveToMap("Fuchsia City")
       elseif getMapName() == "Fuchsia City" then
           moveToMap("Safari Stop")
       elseif getMapName() == "Safari Stop" then
           talkToNpcOnCell(6, 4)    
       elseif getMapName() == "Safari Entrance" then
           moveToMap("Safari Area 3")
       elseif getMapName() == "Safari Area 2" then
           moveToMap("Safari Area 3")
       elseif getMapName() == "Safari Area 1" then
           moveToMap("Safari Entrance")
       elseif getMapName() == "Fuchsia Pokemart" then
           moveToMap("Fuchsia City")
       elseif getMapName() == "Safari Area 3" then
           moveToRectangle(25, 29, 30, 29)
       elseif getMapName() ~= "Fuchsia City" then
           backtofarm()
       end
   
end

function area13()

       
       if not isNight() and getPokemonNature(synch1) ~= nature1 then
           return swapPokemon(synch2, synch1)
       elseif not isNight() and getPokemonNature(synch1) == nature1 then

           areathree()

       elseif isNight() and getPokemonNature(synch1) ~= nature2 then
           return swapPokemon(synch2, synch1)
       elseif isNight() and getPokemonNature(synch1) == nature2 then

           areaone()

       
       end
   

end

function area23()
   
    if isPokemonUsable(1) 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 not isNight() and getPokemonNature(synch1) ~= nature1 then
           return swapPokemon(synch2, synch1)
       elseif not isNight() and getPokemonNature(synch1) == nature1 then

           areathree()

       end
       if isNight() and getPokemonNature(synch1) ~= nature2 then
           return swapPokemon(synch2, synch1)
       elseif isNight() and getPokemonNature(synch1) == nature2 then

           areatwo()

       end

   else
       pc()
   end    
end
function exclusive()
       
            if getMapName() == "Pokecenter Fuchsia" then
                   moveToMap("Fuchsia City")
               elseif getMapName() == "Fuchsia City" then    
                   moveToMap("Safari Stop")
               elseif getMapName() == "Safari Stop" then
                   talkToNpcOnCell(6, 4)
               elseif getMapName() == "Safari Entrance" then
                    moveToMap("Safari Area 3")
               elseif getMapName() == "Safari Area 3" then
                   talkToNpcOnCell(17, 34)
              elseif getMapName() == "Fuchsia Pokemart" then
                   moveToMap("Fuchsia City")
           elseif getMapName() == "Safari Exclusive" then
                   moveToRectangle(13, 11, 18, 11)
           elseif getMapName() ~= "Fuchsia City" then
                   backtofarm()
           end

end

function exwater()
       
            if getMapName() == "Pokecenter Fuchsia" then
                   moveToMap("Fuchsia City")
               elseif getMapName() == "Fuchsia City" then    
                   moveToMap("Safari Stop")
               elseif getMapName() == "Safari Stop" then
                   talkToNpcOnCell(6, 4)
               elseif getMapName() == "Safari Entrance" then
                    moveToMap("Safari Area 3")
               elseif getMapName() == "Safari Area 3" then
                   talkToNpcOnCell(17, 34)
              elseif getMapName() == "Fuchsia Pokemart" then
                   moveToMap("Fuchsia City")
           elseif getMapName() == "Safari Exclusive" then
                   moveToWater()
           elseif getMapName() ~= "Fuchsia City" then
                   backtofarm()
           end

end

function areaex3()
   
   
       if not isNight() and getPokemonNature(synch1) ~= nature1 then
           return swapPokemon(synch2, synch1)
       elseif not isNight() and getPokemonNature(synch1) == nature1 then

           areathree()

       end
       if isNight() and getPokemonNature(synch1) ~= nature2 then
           return swapPokemon(synch2, synch1)
       elseif isNight() and getPokemonNature(synch1) == nature2 then

           exclusive()

       end
   
   

end

function ball()
       if getMapName() == "Safari Exclusive" then
                   talkToNpcOnCell(21, 3)
       elseif getMapName() == "Safari Area 2" then
           moveToMap("Safari Area 1")
       elseif getMapName() == "Safari Area 3" then
           moveToMap("Safari Entrance")
       elseif getMapName() == "Safari Area 1" then
           if not isMounted() then
               useItem("Arcanine Mount")
           elseif isMounted() then
               moveToMap("Safari Entrance")
           end
       elseif getMapName() == "Safari Entrance" then
           talkToNpcOnCell(27, 25)
       elseif getMapName() == "Safari Stop" then
           moveToMap("Fuchsia City")
       elseif getMapName() == "Pokecenter Fuchsia" then
           moveToMap("Fuchsia City")
       elseif getMapName() == "Fuchsia City" then
                  moveToMap("Fuchsia Pokemart")
           elseif getMapName() == "Fuchsia Pokemart" and not isShopOpen() then
                   talkToNpcOnCell(3, 5)
           elseif isShopOpen() then
           log("----------------")
           log("--- Buying "..ballquantity.." Great Balls ---")
           log("----------------")
                   buyItem("Great Ball", ballquantity)
       elseif getMapName() ~= "Fuchsia City" then
           backtofarm()
           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 moneyfarm and (getMoney() >= minmoney and getMoney() <= maxmoney)  then
       log("~~~ Grinding some pokedollars!!! ~~~")
       if cCave then
           ceCave()
       elseif sFoam then
           seafoam()
       end
           
   elseif ballSwitch and ( getItemQuantity("Great Ball") <= minball ) then

       ball()

   elseif isPokemonUsable(1) 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 huntEeveeRhyhorn then
           
       area23()

   elseif huntEeveeBulba then
       
       area23()

   elseif huntEeveeChansey then
       
       area23()

   elseif huntEeveeScytherPinsir then
       
       area13()

   elseif huntEeveeUmbreon then
       
       areaex3()

   elseif huntStarlyUmbreon or huntScytherRhyhorn then
       
       exclusive()

   elseif huntEeveeMarill then
       
       areaex3()

   elseif huntEevee then
       
       areathree()

   elseif huntScyther then
       
       areaone()

   elseif huntPinsir then
           
       areaone()

   elseif huntBulba then
       
       areatwo()

   elseif huntChansey then
       
       areatwo()

   elseif huntRhyhorn then
       
       areatwo()

   elseif huntKanga then
       
       areaone()

   elseif huntChanseyBulba then
           
       areatwo()

   elseif huntDratiniStarlyUmbreon then
    
    if isMorning() and getPokemonNature(synch1) ~= nature1 then
           return swapPokemon(synch2, synch1)
       elseif isMorning() and getPokemonNature(synch1) == nature1 then

           exwater()

       end

    if isNoon() and getPokemonNature(synch1) ~= nature1 then
           return swapPokemon(synch2, synch1)
       elseif isNoon() and getPokemonNature(synch1) == nature1 then

           exclusive()

       end

       if isNight() and getPokemonNature(synch1) ~= nature2 then
           return swapPokemon(synch2, synch1)
       elseif isNight() and getPokemonNature(synch1) == nature2 then

           exclusive()

       end

   end

   else
       pc()
   end
   

end

function pc()
       if getMapName() == "Cerulean Cave 1F" then
           moveToMap("Cerulean City")
       elseif getMapName() == "Cerulean City" then    
           return moveToMap("Route 5") or moveToMap("Route 4")
       elseif getMapName() == "Route 4"  then    
           moveToCell(96, 21)
       elseif getMapName() == "Pokecenter Cerulean" then
           moveToMap("Cerulean City")
       elseif getMapName() == "Pokecenter Vermilion" or getMapName() == "Route 6" then
           moveToMap("Vermilion City")
       elseif getMapName() == "Vermilion City" then
           moveToMap("Route 11")
       elseif getMapName() == "Cerulean City" then
           moveToMap("Route 5")
       elseif getMapName() == "Route 5" then
           moveToMap("Route 5 Stop House")
       elseif getMapName() == "Route 5 Stop House" then
           moveToMap("Saffron City")
       elseif getMapName() == "Saffron City" then
           moveToMap("Route 6 Stop House")
       elseif getMapName() == "Route 6 Stop House" then
           moveToMap("Route 6")
       elseif getMapName() == "Cerulean Cave 1F" then
           moveToMap("Cerulean City")
       elseif ( getPlayerX() == 1 and getPlayerY() == 20 ) or ( getPlayerX() == 1 and getPlayerY() == 19 ) then
           moveToMap("Route 5")
       elseif getMapName() == "Cerulean City" then    
           return moveToMap("Route 4")
       elseif getMapName() == "Route 4"  then    
           moveToCell(96, 21)
       elseif getMapName() == "Route 11" then
           moveToMap("Route 11 Stop House")
       elseif getMapName() == "Route 11 Stop House" then
           moveToMap("Route 12")
       elseif getMapName() == "Route 12" then
           moveToCell(24, 92)
       elseif getMapName() == "Route 13" then
           moveToMap("Route 14")
       elseif getMapName() == "Route 14" then
           moveToMap("Route 15")
       elseif getMapName() == "Route 15" then
           moveToMap("Route 15 Stop House")
       elseif getMapName() == "Route 15 Stop House" then
           moveToMap("Fuchsia City")
       elseif getMapName() == "Seafoam B4F" then    
           moveToCell(9, 6)
       elseif getMapName() == "Seafoam B3F" then    
           moveToMap("Seafoam B2F")
       elseif getMapName() == "Seafoam B2F" then    
           moveToMap("Seafoam B1F")
       elseif getMapName() == "Seafoam B1F" then    
           moveToMap("Seafoam 1F")
       elseif getMapName() == "Seafoam 1F" then    
           moveToCell(13, 16)
       elseif getMapName() == "Route 20" then    
           moveToMap("Route 19")
       elseif getMapName() == "Route 19" then    
           moveToMap("Fuchsia City Stop House")
       elseif getMapName() == "Fuchsia City Stop House" then    
           moveToMap("Fuchsia City")
       elseif getMapName() == "Safari Exclusive" then
                   talkToNpcOnCell(21, 3)
       elseif getMapName() == "Safari Area 2" then
           moveToMap("Safari Area 1")
       elseif getMapName() == "Safari Area 3" then
           moveToMap("Safari Entrance")
       elseif getMapName() == "Safari Area 1" then
           moveToMap("Safari Entrance")
       elseif getMapName() == "Safari Entrance" then
           talkToNpcOnCell(27, 25)
       elseif getMapName() == "Safari Stop" then
           moveToMap("Fuchsia City")
       elseif getMapName() == "Fuchsia City" then
           moveToMap("Pokecenter Fuchsia")
           elseif getMapName() == "Pokecenter Fuchsia" then
           usePokecenter()
       end

end
function onBattleAction()

   if moneyfarm and (getMoney() <= minmoney or ((getMoney() - startingMoney) < moneyneeded)) then
       
           return attack() or sendAnyPokemon() or sendUsablePokemon() or run()
           
       
   elseif isOpponentShiny() or not isAlreadyCaught() or getOpponentName() == "Charmander" or getOpponentName() == "Squirtle" 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 huntEeveeRhyhorn then
       if getOpponentName() == "Rhyhorn" 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() == "Eevee" then
           log("-------- Commencing Sleep Move --------")
           sleep()
       elseif huntandfarm then
           return attack() or sendAnyPokemon() or run() or sendUsablePokemon()
       else
           return run() or sendUsablePokemon() or attack() or sendAnyPokemon()
   
       end
   elseif huntEeveeBulba then
       if getOpponentName() == "Bulbasaur" 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() == "Eevee" then
           log("-------- Commencing Sleep Move --------")
           sleep()
       elseif huntandfarm then
           return attack() or sendAnyPokemon() or run() or sendUsablePokemon()
       else
           return run() or sendUsablePokemon() or attack() or sendAnyPokemon()
   
       end
   elseif huntEeveeChansey then
       if getOpponentName() == "Chansey" 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() == "Eevee" then
           log("-------- Commencing Sleep Move --------")
           sleep()
       elseif huntandfarm then
           return attack() or sendAnyPokemon() or run() or sendUsablePokemon()
       else
           return run() or sendUsablePokemon() or attack() or sendAnyPokemon()
   
       end
   elseif huntEeveeScytherPinsir then
       if getOpponentName() == "Scyther" or getOpponentName() == "Pinsir" 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() == "Eevee" then
           log("-------- Commencing Sleep Move --------")
           sleep()
       elseif huntandfarm then
           return attack() or sendAnyPokemon() or run() or sendUsablePokemon()
       else
           return run() or sendUsablePokemon() or attack() or sendAnyPokemon()
       
       end
   elseif huntEeveeUmbreon then
       if getOpponentName() == "Umbreon" 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() == "Eevee" then
           log("-------- Commencing Sleep Move --------")
           sleep()
       elseif huntandfarm then
           return attack() or sendAnyPokemon() or run() or sendUsablePokemon()
       else
           return run() or sendUsablePokemon() or attack() or sendAnyPokemon()
   
       end
   elseif huntStarlyUmbreon and ( getOpponentName() == "Starly" or getOpponentName() == "Umbreon" ) 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 huntEeveeMarill then
       if getOpponentName() == "Marill" 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() == "Eevee" then
           log("-------- Commencing Sleep Move --------")
           sleep()
       elseif huntandfarm then
           return attack() or sendAnyPokemon() or run() or sendUsablePokemon()
       else
           return run() or sendUsablePokemon() or attack() or sendAnyPokemon()
   
       end    
   elseif huntEevee and getOpponentName() == "Eevee" then
           log("-------- Commencing Sleep Move --------")
           sleep()
   elseif huntScyther and getOpponentName() == "Scyther" 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 huntPinsir and getOpponentName() == "Pinsir" 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 huntBulba and getOpponentName() == "Bulbasaur" 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 huntChansey and getOpponentName() == "Chansey" 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 huntRhyhorn and getOpponentName() == "Rhyhorn" 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 huntKanga and getOpponentName() == "Kangaskhan" 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 huntChanseyBulba and ( getOpponentName() == "Chansey" or getOpponentName() == "Bulbasaur" ) 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 huntScytherRhyhorn and ( getOpponentName() == "Scyther" or getOpponentName() == "Rhyhorn" ) 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 huntDratiniStarlyUmbreon and ( getOpponentName() == "Dratini" or getOpponentName() == "Starly" or getOpponentName() == "Umbreon" ) 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 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 onBattleMessage(wild)
   
       if stringContains(wild, "A Wild SHINY ") then
       shinyCounter = shinyCounter + 1    
   
   elseif stringContains(wild, "You throw") then
       pokeballCounter = pokeballCounter + 1    
   
       elseif stringContains(wild, "Pokedollar(s)") then
               log("Info ~ Pokedollars earned: "..tostring(getMoney() - startingMoney).." (" ..tostring((getMoney() - startingMoney)/wildCounter).." average)")
   elseif wild == "A Wild [FF9900]Scyther[-] Attacks!" then
       scythercounter = scythercounter + 1
 
   elseif wild == "A Wild [FF9900]Pinsir[-] Attacks!" then
       pinsircounter = pinsircounter + 1
   
   elseif wild == "A Wild [FF9900]Eevee[-] Attacks!" then
       eeveecounter = eeveecounter + 1
   
   elseif wild == "A Wild [FF9900]Bulbasaur[-] Attacks!" then
       bulbacounter = bulbacounter + 1
   
   elseif wild == "A Wild [FF9900]Chansey[-] Attacks!" then
       chanseycounter = chanseycounter + 1

   elseif wild == "A Wild [FF9900]Rhyhorn[-] Attacks!" then
       rhycounter = rhycounter + 1

   elseif wild == "A Wild [FF9900]Kangaskhan[-] Attacks!" then
       kangascounter = kangascounter + 1
   
   elseif wild == "A Wild [FF9900]Umbreon[-] Attacks!" then
       umbreoncounter = umbreoncounter + 1

   elseif wild == "A Wild [FF9900]Starly[-] Attacks!" then
       starlycounter = starlycounter + 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("|--------- Pokemon Caught Status ----------|")
   log(" ")
   
   if huntEeveeRhyhorn then
       log("Eevee Caught: " .. eeveecounter)
       log("Rhyhorn Caught: ".. rhycounter)
       
   elseif huntEeveeBulba then
       log("Eevee Caught: " .. eeveecounter)
       log("Bulbasaur Caught: " .. bulbacounter)
       
   elseif huntEeveeChansey then
       log("Eevee Caught: " .. eeveecounter)
       log("Chansey Caught: " .. chanseycounter)
       
   elseif huntEeveeScytherPinsir then
       log("Eevee Caught: " .. eeveecounter)
       log("Scyther Caught: " .. scythercounter)
       log("Pinsir Caught: " .. pinsircounter)
       
   elseif huntEeveeUmbreon then
       log("Eevee Caught: " .. eeveecounter)
       log("Umbreon Caught: " .. umbreoncounter)
       
   elseif huntStarlyUmbreon then
       log("Starly Caught: " .. starlycounter)
       log("Umbreon Caught: " .. umbreoncounter)
       
   elseif huntEeveeMarill then
       log("Eevee Caught: " .. eeveecounter)
       log("Marill Caught: " .. marillcounter)
       
   elseif huntEevee then
       log("Eevee Caught: " .. eeveecounter)
       
   elseif huntScyther then
       log("Scyther Caught: " .. scythercounter)
       
   elseif huntPinsir then
       log("Pinsir Caught: " .. pinsircounter)
       
   elseif huntBulba then
       log("Bulbasaur Caught: " .. bulbacounter)
       
   elseif huntChansey then
       log("Chansey Caught: " .. chanseycounter)
       
   elseif huntRhyhorn then
       log("Rhyhorn Caught: ".. rhycounter)
       
   elseif huntKanga then
       log("Kangaskhan Caught: " .. kangascounter)
       
   elseif huntChanseyBulba then
       log("Chansey Caught: " .. chanseycounter)
       log("Bulbasaur Caught: " .. bulbacounter)
   end
   
   log(" --------------------------------------------")
   log("Pokemons encountered: " .. wildCounter)
   log("-----------------------------------------------------------")
   log("Shinies Caught: " .. shinyCounter)
   log("Pokeball's used: " .. pokeballCounter)
   log("---------------------------------------------")
   log("|--------- Character Information ----------|")
   log(" ")
   log("Times in Pokecenter: " .. pokecenterCounter)
   if huntandfarm or moneyfarm then
        log("Pokedollars earned: "..tostring(getMoney() - startingMoney).." (" ..tostring((getMoney() - startingMoney)/wildCounter).." average)")
       log("-----------------------------------------------------------")
   end
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



function ceCave()


   if getUsablePokemonCount() > pokeNumber then

       if getMapName() == "Safari Exclusive" then
                   talkToNpcOnCell(21, 3)
       elseif getMapName() == "Safari Area 2" then
           moveToMap("Safari Area 1")
       elseif getMapName() == "Safari Area 3" then
           moveToMap("Safari Entrance")
       elseif getMapName() == "Safari Area 1" then
           moveToMap("Safari Entrance")
       elseif getMapName() == "Safari Entrance" then
           talkToNpcOnCell(27, 25)
       elseif getMapName() == "Pokecenter Cerulean" then
           moveToMap("Cerulean City")
       elseif (getPlayerX() == 26 and getPlayerY() == 31) or (getPlayerX() == 9 and getPlayerY() == 49) then
           moveToMap("Route 4")
       elseif getMapName() == "Route 6" then    
           moveToMap("Route 6 Stop House")
       elseif getMapName() == "Safari Stop" or getMapName() == "Pokecenter Fuchsia" then    
           moveToMap("Fuchsia City")
       elseif getMapName() == "Fuchsia City" then
           moveToMap("Route 15 Stop House")
       elseif getMapName() == "Route 15 Stop House" then    
           return moveToMap("Route 15")
       elseif getMapName() == "Route 15" then
           moveToMap("Route 14")
       elseif getMapName() == "Route 14" then    
           moveToMap("Route 13")
       elseif getMapName() == "Route 13" then    
           moveToMap("Route 12")
       elseif getMapName() == "Route 12" then    
           moveToMap("Route 11 Stop House")
       elseif getMapName() == "Route 11 Stop House" then    
           moveToMap("Route 11")
       elseif getMapName() == "Route 11" then
           moveToMap("Vermilion City")
       elseif getMapName() == "Pokecenter Vermilion" then    
           moveToMap("Vermilion City")
       elseif getMapName() == "Vermilion City" then    
           moveToMap("Route 6")
       elseif getMapName() == "Route 6 Stop House" then    
           moveToMap("Saffron City")
       elseif getMapName() == "Saffron City" then    
           moveToMap("Route 5 Stop House")
       elseif getMapName() == "Route 5 Stop House" then    
           moveToMap("Route 5")
       elseif getMapName() == "Route 5" then    
           moveToCell(14, 0)
       elseif getMapName() == "Fuchsia Pokemart" then
           moveToMap("Fuchsia City")
       elseif getMapName() == "Cerulean City" or getMapName() == "Route 4" then
           return  moveToMap("Cerulean Cave 1F") or moveToCell(96, 14)    
       elseif getMapName() == "Cerulean Cave 1F"  then    
           return moveNearExit("Cerulean City")
       end
   else
       if getMapName() == "Cerulean Cave 1F" then
           moveToMap("Cerulean City")
       elseif ( getPlayerX() == 1 and getPlayerY() == 20 ) then
           moveToCell(26, 30)
       elseif getMapName() == "Cerulean City" then    
           return moveToMap("Route 4")
       elseif getMapName() == "Route 4"  then    
           moveToCell(96, 21)
       elseif getMapName() == "Pokecenter Cerulean"  then    
               usePokecenter()
       end
   end
end

function seafoam()

   if getUsablePokemonCount() > pokeNumber then
       
       if getMapName() == "Safari Exclusive" then
                   talkToNpcOnCell(21, 3)
       elseif getMapName() == "Safari Area 2" then
           moveToMap("Safari Area 1")
       elseif getMapName() == "Safari Area 3" then
           moveToMap("Safari Entrance")
       elseif getMapName() == "Fuchsia Pokemart" then
           moveToMap("Fuchsia City")
       elseif getMapName() == "Safari Area 1" then
           moveToMap("Safari Entrance")
       elseif getMapName() == "Safari Entrance" then
           talkToNpcOnCell(27, 25)
       elseif getMapName() == "Safari Stop" then
           moveToMap("Fuchsia City")
       elseif getMapName() == "Pokecenter Fuchsia" then
           moveToMap("Fuchsia City")
       elseif getMapName() == "Fuchsia City" then
           moveToMap("Fuchsia City Stop House")
       elseif getMapName() == "Fuchsia City Stop House" then
           moveToMap("Route 19")
       elseif getMapName() == "Route 19" then    
           moveToMap("Route 20")
       elseif getMapName() == "Route 20" then    
           moveToCell(60, 32)
       elseif getMapName() == "Seafoam 1F" then    
           moveToMap("Seafoam B1F")
       elseif getMapName() == "Seafoam B1F" then    
           moveToMap("Seafoam B2F")
       elseif getMapName() == "Seafoam B2F" then    
           moveToMap("Seafoam B3F")
       elseif getMapName() == "Seafoam B3F" then    
           moveToCell(12, 8)
       elseif getMapName() == "Seafoam B4F" then
           moveToRectangle(9,15,13,20)
       end
           
   else
       
       if getMapName() == "Seafoam B4F" then    
           moveToCell(9, 6)
       elseif getMapName() == "Seafoam B3F" then    
           moveToMap("Seafoam B2F")
       elseif getMapName() == "Seafoam B2F" then    
           moveToMap("Seafoam B1F")
       elseif getMapName() == "Seafoam B1F" then    
           moveToMap("Seafoam 1F")
       elseif getMapName() == "Seafoam 1F" then    
           moveToCell(13, 16)
       elseif getMapName() == "Route 20" then    
           moveToMap("Route 19")
       elseif getMapName() == "Route 19" then    
           moveToMap("Fuchsia City Stop House")
       elseif getMapName() == "Fuchsia City Stop House" then    
           moveToMap("Fuchsia City")
       elseif getMapName() == "Fuchsia City" then    
           moveToMap("Pokecenter Fuchsia")
           elseif getMapName() == "Pokecenter Fuchsia" then
           usePokecenter()
       end

   end

end

function backtofarm()
   
       if getMapName() == "Cerulean Cave 1F" then
           moveToMap("Cerulean City")
       elseif getMapName() == "Cerulean City" then    
           return moveToMap("Route 5") or moveToMap("Route 4")
       elseif getMapName() == "Route 4"  then    
           moveToCell(96, 21)
       elseif getMapName() == "Pokecenter Cerulean" then
           moveToMap("Cerulean City")
       elseif getMapName() == "Pokecenter Vermilion" or getMapName() == "Route 6" then
           moveToMap("Vermilion City")
       elseif getMapName() == "Vermilion City" then
           moveToMap("Route 11")
       elseif getMapName() == "Cerulean City" then
           moveToMap("Route 5")
       elseif getMapName() == "Route 5" then
           moveToMap("Route 5 Stop House")
       elseif getMapName() == "Route 5 Stop House" then
           moveToMap("Saffron City")
       elseif getMapName() == "Saffron City" then
           moveToMap("Route 6 Stop House")
       elseif getMapName() == "Route 6 Stop House" then
           moveToMap("Route 6")
       elseif getMapName() == "Cerulean Cave 1F" then
           moveToMap("Cerulean City")
       elseif ( getPlayerX() == 1 and getPlayerY() == 20 ) or ( getPlayerX() == 1 and getPlayerY() == 19 ) then
           moveToMap("Route 5")
       elseif getMapName() == "Cerulean City" then    
           return moveToMap("Route 4")
       elseif getMapName() == "Route 4"  then    
           moveToCell(96, 21)
       elseif getMapName() == "Route 11" then
           moveToMap("Route 11 Stop House")
       elseif getMapName() == "Route 11 Stop House" then
           moveToMap("Route 12")
       elseif getMapName() == "Route 12" then
           moveToCell(24, 92)
       elseif getMapName() == "Route 13" then
           moveToMap("Route 14")
       elseif getMapName() == "Route 14" then
           moveToMap("Route 15")
       elseif getMapName() == "Route 15" then
           moveToMap("Route 15 Stop House")
       elseif getMapName() == "Route 15 Stop House" then
           moveToMap("Fuchsia City")
       elseif getMapName() == "Seafoam B4F" then    
           return moveToCell(9, 6)
       elseif getMapName() == "Seafoam B3F" then    
           moveToMap("Seafoam B2F")
       elseif getMapName() == "Seafoam B2F" then    
           moveToMap("Seafoam B1F")
       elseif getMapName() == "Seafoam B1F" then    
           moveToMap("Seafoam 1F")
       elseif getMapName() == "Seafoam 1F" then    
           moveToCell(13, 16)
       elseif getMapName() == "Route 20" then    
           moveToMap("Route 19")
       elseif getMapName() == "Route 19" then    
           moveToMap("Fuchsia City Stop House")
       elseif getMapName() == "Fuchsia City Stop House" then    
           moveToMap("Fuchsia City")
       elseif getMapName() == "Fuchsia Pokemart" then
           moveToMap("Fuchsia City")
       end
end

The script should be catch only Eevee and run away from other pokemon, no ? Can you do something, please ?
This is the log : 

[18:47:36] -----------------------------------------------------------
[18:48:22] Script "Rare catcher at Kanto Safari" by "redskhie" successfully loaded
[18:48:22] This script will catch your desired Pokemons at Kanto Safari
[18:48:24] Bot started
[18:48:24] -----------------------------------------------------------
[18:48:24] |---- We are now Commencing the Catch Routine ----|
[18:48:24] -----------------------------------------------------------
[18:48:24] -------- SINGLE-CATCHING STARTED --------
[18:48:24] Script Info ~~> Hunting Eevee at Safari Area 3
[18:48:24] --------------------------------------
[18:48:48] Hello! Welcome to the safari zone!
[18:48:48] Would you like to enter the Safari Zone for $5,000 today?
[18:48:51] System: You can stay in the Safari Zone for 20 minutes!
[18:49:20] A Wild Venonat Attacks!
[18:49:24] -------- Commencing False Swipe with Sleep Move --------
[18:49:24] Come Back, Alakazam!
[18:49:24] Go, Marowak!
[18:49:24] Venonat Attacks Marowak with Leech Life.
[18:49:27] -------- Commencing False Swipe with Sleep Move --------
[18:49:27] Marowak Attacks Venonat with False Swipe.
[18:49:27] Venonat Attacks Marowak with Leech Life.
[18:49:30] -------- Commencing False Swipe with Sleep Move --------
[18:49:31] Marowak Attacks Venonat with False Swipe.
[18:49:31] Venonat Attacks Marowak with Leech Life.
[18:49:33] -------- Commencing False Swipe with Sleep Move --------
[18:49:34] Marowak Attacks Venonat with False Swipe.
[18:49:34] A Critical Hit!
[18:49:34] Venonat Attacks Marowak with Leech Life.
[.....]
[18:51:37] -------- Commencing False Swipe with Sleep Move --------
[18:51:38] Marowak Attacks Venonat with False Swipe.
[18:51:38] Venonat Attacks Marowak with Leech Life.
[18:51:42] -------- Commencing False Swipe with Sleep Move --------
[18:51:43] Marowak Attacks Venonat with False Swipe.
[18:51:43] Venonat Attacks Marowak with Leech Life.
[18:51:46] -------- Commencing False Swipe with Sleep Move --------
[18:51:47] Marowak Attacks Venonat with Retaliate.
[18:51:47] Venonat has fainted!
[18:51:47] Alakazam gained 173 Exp.
[18:51:47] Marowak gained 176 Exp.
[18:51:47] Info ~ Pokedollars earned: -4966 (-4966 average)
[18:51:47] You found 34 Pokedollar(s).
[18:51:47] You have won the battle.
[18:52:12] Would you like to vacate the Safari Zone? Please bear in mind that the fee is irrefundable even if you leave prematurely.
[18:52:32] Bot paused
[18:52:32]  --------------------------------------------
[18:52:32] |--------- CATCH ROUTINE PAUSED ----------|
[18:52:32]  --------------------------------------------
[18:52:32] |--------- Move Remaining Power Points ----------|
[18:52:32] --------------------------------------
[18:52:32] False Swipe: 0
[18:52:32] Sleep Move: 15
[18:52:32] -----------------------------------------------------------
[18:52:32] |--------- Pokemon Caught Status ----------|
[18:52:32]  
[18:52:32] Eevee Caught: 0
[18:52:32]  --------------------------------------------
[18:52:32] Pokemons encountered: 1
[18:52:32] -----------------------------------------------------------
[18:52:32] Shinies Caught: 0
[18:52:32] Pokeball's used: 0
[18:52:32] ---------------------------------------------
[18:52:32] |--------- Character Information ----------|
[18:52:32]  
[18:52:32] Times in Pokecenter: 0
[18:53:51] System: You are now AFK!

Sorry for my bad English, I do my best !  Smile
 
Reply
#27
(2016-08-27, 08:02:28)redskhie
HOENN SAFARI SCRIPT RELEASED!


Big Grin Big Grin Big Grin

ENJOY!

helllo,can i know what the pokemon must be use for this script?
 
Reply
#28
Any pokemon ,just properly read the Configuration! Goodluck!
God Karp Trainer loading... *splash*splash Huh

 
Reply
#29
Error during the script execution: chunk_1Sad393,1-369): cannot convert a nil to a clr type System.Int32

what is that?
 
Reply
#30
[8:24:57 AM] -----------------------------------------------------------
[8:24:57 AM] ---------------------- Routine Stopped ---------------------
[8:24:57 AM] -----------------------------------------------------------
[8:24:57 AM] Bot running time: 0.00 hours
[8:24:57 AM] or
[8:24:57 AM] Bot running time: 0.00 minutes
[8:24:57 AM] -----------------------------------------------------------
[8:24:58 AM] Good day, Trainer!
[8:24:58 AM] Welcome to Route Forty Eight Pokemon Center.
[8:24:58 AM] Would you like me to heal your Pokemon?
[8:25:00 AM] Okay, let me take a look at those Pokemon.
[8:25:08 AM] There you go, take care of them!
[8:25:08 AM] Have a nice day!

Bot stopped ??
Map safari Johto    help !!
 
Reply
#31
I cannot help all of you if you don't bring enough info about your problem
God Karp Trainer loading... *splash*splash Huh

 
Reply
#32
(2016-09-04, 02:19:59)redskhie I cannot help all of you if you don't bring enough info about your problem

For my problem, I could not give more info ^^

Nervermind, to reply to myself (here), the problem was the function "isAlreadyCaught()" !  Wink
 
Reply
#33
@Guest The problem of yours was fixed?
God Karp Trainer loading... *splash*splash Huh

 
Reply
#34
Johoto script wont start for me..not sure why ? Have all the pokes in right slots in game and everything..just says "No action executed"

                         -- Copyright © 2016 redskhie

            --NOTE: YOU NEED ITEM "Escape Rope" in order to heal your fainted Pokes when in the Hunting Area

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 = false        --Set to true if you want to catch only 1 Pokes and set multipleCatch to false
    
toHunt = "Feebas"        --Set/Change the name of Pokemon you want to Catch    
huntMap = "Wet"        --Set/Change the Map Area of the Pokemon    --OPTIONS: "GrassandSwamp", "Mountain", "Snow", "Wet"



            --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 before START SCRIPT


            --MORNING TIME CONFIG

toHunt1 = "Chansey"        --Set/Change the name of Pokemon you want to Catch
huntMap1 = "GrassandSwamp"        --Set/Change the Map Area of the 1st Pokemon    --OPTIONS: "GrassandSwamp", "Mountain", "Snow", "Wet"



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

            --DAY TIME CONFIG

toHunt2 = "Magmar"            --Set/Change the name of Pokemon you want to Catch at Noon
huntMap2 = "Mountain"            --Set/Change the Map Area of the 2nd Pokemon    --OPTIONS: "GrassandSwamp", "Mountain", "Snow", "Wet"


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

toHunt3 = "Sneasel"            --Set/Change the name of Pokemon you want to Catch at Night
huntMap3 = "Snow"        --Set/Change the Map Area of the 3rdPokemon    --OPTIONS: "GrassandSwamp", "Mountain", "Snow", "Wet"


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




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






    -- 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 = "Hypnosis"        --Set/Change the name of the sleep move



            --MOUNTING CONFIGURATION


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

mount = "Ninetales 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

    local GrassSwampList = {"Abra", "Chansey", "Chikorita", "Ducklett", "Gastly", "Girafarig", "Haunter", "Lickitung", "Mr Mime", "Murkrow", "Oddish", "Politoed", "Psyduck", "Seedot", "Skiploom", "Smeargle", "Sunkern", "Surskit", "Wooper"}
    local GrassSwampSurfList = {"Ducklett", "Horsea", "Krabby", "Magikarp" , "Marill", "Poliwag", "Poliwhirl"}
    local MountainList = {"Clefairy", "Cyndaquil", "Fearow", "Graveler", "Magmar", "Magnemite", "Magneton", "Mankey", "Onix", "Slugma", "Wobbuffet", "Zubat"}
    local SnowList = {"Delibird", "Jynx", "Seel", "Sneasel", "Snorunt", "Swinub"}
    local SnowSurfList = {"Dewgong", "Horsea", "Lapras", "Psyduck", "Seadra", "Seel", "Spheal"}
    local SnowFishList = {"Shellder"}
    local WetList = {"Tympole", "Poliwag", "Slowpoke", "Wingull", "Wooper"}
    local WetSurfList = {"Goldeen", "Horsea", "Totodile"}
    local WetFishList = {"Chinchou", "Corphish", "Feebas", "Magikarp", "Remoraid", "Staryu"}
        
                     -- Copyright © 2016 redskhie


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



function GSList()

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

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

end

function WList()

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

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

for _,WetFishList in pairs(WetFishList) do
  if (singleCatch and WetFishList == toHunt) or (multipleCatch and isMorning() and WetFishList == toHunt1) or (multipleCatch and isNoon() and WetFishList == toHunt2) or (multipleCatch and isNight() and WetFishList == toHunt3) then
        if getPlayerX() == 23 and getPlayerY() == 11 then
        useItem(fishItem)
    else
        moveToCell(23,11)
    end
    break
  end
end

end

function SList()

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

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

for _,SnowFishList in pairs(SnowFishList) do
   if (singleCatch and SnowFishList == toHunt) or (multipleCatch and isMorning() and SnowFishList == toHunt1) or (multipleCatch and isNoon() and SnowFishList == toHunt2) or (multipleCatch and isNight() and SnowFishList == toHunt3) then
        if getPlayerX() == 26 and getPlayerY() == 17 then
        useItem(fishItem)
    else
        moveToCell(26,17)
    end
    break
  end
end

end
  

function pc()
    if getMapName() == "Safari Johto Wet Zone" or getMapName() == "Johto Safari Entrance" or getMapName() == "Safari Johto Grass and Swamp Zone" or getMapName() == "Safari Johto Snow Zone" or getMapName() == "Safari Johto Mountain Zone" then
        useItem("Escape Rope")
        elseif getMapName() == "Johto Safari Zone Lobby" then
            moveToMap("Route 48")
        elseif getMapName() == "Route 48" then
            moveToMap("Pokecenter Route 48")
        elseif getMapName() == "Pokecenter Route 48" then
            usePokecenter()
        end
        
end

function GsMap()

    if getMapName() == "Pokecenter Route 48" then
            moveToMap("Route 48")
        elseif getMapName() == "Route 48" then
            moveToMap("Johto Safari Zone Lobby")
    elseif getMapName() == "Johto Safari Zone Lobby" then
            talkToNpcOnCell(21,6)
    elseif getMapName() == "Safari Johto Wet Zone" or getMapName() == "Safari Johto Snow Zone" or getMapName() == "Safari Johto Mountain Zone" then
        moveToMap("Johto Safari Entrance")
    elseif getMapName() == "Johto Safari Entrance" then
        moveToMap("Safari Johto Grass and Swamp Zone")
    elseif getMapName() == "Safari Johto Grass and Swamp Zone" then
        
        GSList()

    end

end

function MtMap()
    if getMapName() == "Pokecenter Route 48" then
            moveToMap("Route 48")
        elseif getMapName() == "Route 48" then
            moveToMap("Johto Safari Zone Lobby")
    elseif getMapName() == "Johto Safari Zone Lobby" then
            talkToNpcOnCell(21,6)
    elseif getMapName() == "Safari Johto Wet Zone" or getMapName() == "Safari Johto Snow Zone" or getMapName() == "Safari Johto Grass and Swamp Zone" then
        moveToMap("Johto Safari Entrance")
    elseif getMapName() == "Johto Safari Entrance" then
        moveToMap("Safari Johto Mountain Zone")
    elseif getMapName() == "Safari Johto Mountain Zone" then
        
        moveToGrass()
        
    end
end
function SnMap()
    if getMapName() == "Pokecenter Route 48" then
            moveToMap("Route 48")
        elseif getMapName() == "Route 48" then
            moveToMap("Johto Safari Zone Lobby")
    elseif getMapName() == "Johto Safari Zone Lobby" then
            talkToNpcOnCell(21,6)
    elseif getMapName() == "Safari Johto Wet Zone" or getMapName() == "Safari Johto Grass and Swamp Zone" or getMapName() == "Safari Johto Mountain Zone" then
        moveToMap("Johto Safari Entrance")
    elseif getMapName() == "Johto Safari Entrance" then
        moveToMap("Safari Johto Snow Zone")
    elseif getMapName() == "Safari Johto Snow Zone" then
        SList()
    end
end
function WetMap()
    if getMapName() == "Pokecenter Route 48" then
            moveToMap("Route 48")
        elseif getMapName() == "Route 48" then
            moveToMap("Johto Safari Zone Lobby")
    elseif getMapName() == "Johto Safari Zone Lobby" then
            talkToNpcOnCell(21,6)
    elseif getMapName() == "Safari Johto Grass and Swamp Zone" or getMapName() == "Safari Johto Mountain Zone" or getMapName() == "Safari Johto Snow Zone" then
        moveToMap("Johto Safari Entrance")
    elseif getMapName() == "Johto Safari Entrance" then
        moveToMap("Safari Johto Wet Zone")
    elseif getMapName() == "Safari Johto Wet Zone" then
        
        WList()
    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 == "GrassandSwamp" then
            GsMap()
        elseif huntMap1 == "Mountain" then
            MtMap()
        elseif huntMap1 == "Snow" then
            SnMap()
        elseif huntMap1 == "Wet" then
            WetMap()
        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 == "GrassandSwamp" then
            GsMap()
        elseif huntMap2 == "Mountain" then
            MtMap()
        elseif huntMap2 == "Snow" then
            SnMap()
        elseif huntMap2 == "Wet" then
            WetMap()
        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 == "GrassandSwamp" then
            GsMap()
        elseif huntMap3 == "Mountain" then
            MtMap()
        elseif huntMap3 == "Snow" then
            SnMap()
        elseif huntMap3 == "Wet" then
            WetMap()
        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 == "GrassandSwamp" then
                GsMap()
            elseif huntMap == "Mountain" then
                MtMap()
            elseif huntMap == "Snow" then
                SnMap()
            elseif huntMap == "Wet" then
                WetMap()
            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 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 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
    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: Safari Johto "..huntMap1.." Zone-")
        log("-Day Time: "..toHunt2.."- -Location: Safari Johto "..huntMap2.." Zone-")
        log("-Night Time: "..toHunt3.."- -Location: Safari Johto "..huntMap3.." Zone-")
            log("--------------------------------------")
    elseif singleCatch then
        log("-------- SINGLE-CATCHING STARTED --------")
               log("-------- Script Information --------")
        log("-We will hunt "..toHunt.." all Day!!!- -Location: Safari Johto "..huntMap.." Zone-")
            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
#35
Don't leave the other synch blank if your using multiple catch
God Karp Trainer loading... *splash*splash Huh

 
Reply
#36
(2016-09-04, 23:09:48)redskhie Don't leave the other synch blank if your using multiple catch

i left it blank after it wasnt working to see if it would, even with that filled in it wont start
 
Reply
#37
Please set the correct slot pokemon according to Poke Time
God Karp Trainer loading... *splash*splash Huh

 
Reply
#38
We will hunt Riolu all Day!!!- -Location: Hoenn Safari Zone3 -
[16:37:33] --------------------------------------
[16:37:43] No action executed: stopping the bot.
[16:37:43] Bot stopped
[16:37:43] -----------------------------------------------------------
[16:37:43] ---------------------- Routine Stopped ---------------------
[16:37:43] -----------------------------------------------------------
[16:37:43] Bot running time: 0.00 hours
[16:37:43] or
[16:37:43] Bot running time: 0.17 minutes
[16:37:43] -----------------------------------------------------------


tried changing carefully the script for riolu and the area with advanced catching but it just gets stuck pls help
~ There's a very thin line between motivation and manipulation, when you motivate someone for your own good it becomes the latter!~
 
Reply
#39
Give me more info where did it stop


MAP NAME:
CELL POSITION:
YOUR CONFIGURATION:
God Karp Trainer loading... *splash*splash Huh

 
Reply
#40
I just mean the config, not the whole script btw

This is a COMMON PROBLEM in almost all the SCRIPT. You need to carefully check the NAME of YOUR MOUNT.

It's not "Arcanine"

It's "Arcanine Mount"
God Karp Trainer loading... *splash*splash Huh

 
Reply
#41
changed it still same. wonder where im going wrong :'(
~ There's a very thin line between motivation and manipulation, when you motivate someone for your own good it becomes the latter!~
 
Reply
#42
Add space on Zone3. "Zone 3"
God Karp Trainer loading... *splash*splash Huh

 
Reply
#43
solved... thanks redskhie... ur the best

update: within 10 min of working caught riolu .. cheers red Big Grin
~ There's a very thin line between motivation and manipulation, when you motivate someone for your own good it becomes the latter!~
 
Reply
#44
sorry newbie here :/ need help with kanto script its messy and dont really know how to configure Sad
 
Reply
#45
(2016-09-15, 14:45:10)syedammarhaider14 sorry newbie here :/ need help with kanto script its messy and dont really know how to configure Sad

once u start reading the script u will learn how to change provided you know in what zone which poke to find Smile
~ There's a very thin line between motivation and manipulation, when you motivate someone for your own good it becomes the latter!~
 
Reply
#46
@syedammarhaider14 Yeah, read and understand the CONFIGURATION SECTION. As for Kanto Script you need to set ONLY 1 TRUE per hunts and leave the rest FALSE.
God Karp Trainer loading... *splash*splash Huh

 
Reply
#47
is there a way to set for multiple poke hunt kanto?
 
Reply
#48
dont know what the problem is as it keeps showing
[2:51:14 AM] Welcome to Fuchsia City Pokemon Center.
[2:51:14 AM] Would you like me to heal your Pokemon?
[2:51:16 AM] Okay, let me take a look at those Pokemon.
[2:51:22 AM] There you go, take care of them!
[2:51:22 AM] Have a nice afternoon!
[2:52:22 AM] System: You are now AFK!
 Pokemon: Xatu sync adamant/natu sync timid/parasect falseswipe
where it stops is (9,16) 
                           -- Copyright © 2016 redskhie


        --CHOOSE WHAT POKEMON DO YOU WANT TO HUNT
        -- WARNING!!! YOU CAN ONLY PICK 1 "true" then leave "false"

    -- Set to true if you want to catch this Pokemon, else leave false

huntEevee = false        --hunt Eevee all time    
huntScyther = true        --hunt Scyther all time
huntPinsir = false        --hunt Pinsir all time
huntBulba = false        --hunt Bulbasaur all time
huntChansey = false        --hunt Chansey all time
huntRhyhorn = false        --hunt Rhyhorn all time
huntKanga = false        --hunt Kangaskhan all time
huntChanseyBulba = false        --hunt Chansey and Bulbasaur all time


    -- If you want to use this Go to Synchronize Section after picking 1 at the bottom
    -- Set to true if you want to catch multiple Pokemon at multiple time, else leave false

huntEeveeRhyhorn = false    --hunt Eevee at Morning and Day        -- hunt Rhyhorn at Night
huntEeveeBulba = false         --hunt Eevee at Morning and Day     -- hunt Bulbasaur at Night
huntEeveeChansey = false    --hunt Eevee at Morning and Day        -- hunt Chansey at Night
huntEeveeScyther = true     --hunt Eevee at Morning and Day     -- hunt Scyther and Pinsir at Night

    --You can only use this if you have MEMBERSHIP

        --UNTESTED

huntEeveeUmbreon = false    --hunt Eevee at Morning and Day        -- hunt Umbreon at Night
huntEeveeMarill = false        --hunt Eevee at Morning and Day         -- hunt Marill at Night
huntStarlyUmbreon = false        --hunt Starly at Morning and Day    -- hunt Umbreon at Night
huntDratiniStarlyUmbreon = false        --hunt Dratini at Morning     --hunt Starly Day    -- hunt Umbreon at Night
huntScytherRhyhorn = false        --hunt Scyther and Rhyhorn all time




        -- CATCH CONFIGURATION

                --If you don't have synch poke leave. And don't use the multiple hunt

--Use synch1 at MORNING and DAY Time/ synch2 at NIGHT Time


    --Synchronize
    
synch1 = 1            --Pokemon Index of 1st SynchPoke
nature1 = "Timid"    --Pokemon Nature of 1st SynchPoke
synch2 = 3            --Pokemon Index of 2nd SynchPoke
nature2 = "Adamant"    --Pokemon Nature of 2nd SynchPoke


    -- 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 = true        --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 = false        --Use fswipeOn and sleepOn to catch hunted pokes

falseswiper = 4            --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 = 4            --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



        --POKEBALL CONFIGURATION

    --Disable/enable pokeball function. set to true else false

ballSwitch = false

    


    --POKEBALLS --Great ball is the default balls it will buy

ballquantity = 10         --set the number of balls you want to buy
minball = 49            --set the minimum number of balls and bot will buy more    




        --MONEY FARMING CONFIGURATION


huntandfarm = false    --set this to true if you want to farm money while hunting pokes

moneyfarm = false    --set this to true if you want to farm money when minimum money reaches, else false
minmoney = 1000    --set the minimum money to start farming
maxmoney = 100000    --set the maximum money to start again on hunting pokes

    --Set the number of pokemon you want to remain while farming and start healing

pokeNumber = 2

    --Pick only one area of farming

cCave = true        --Start farming at Cerulean Cave 1F
sFoam = false        --Start farming at Seafoam B4F






                            -- Copyright © 2016 redskhie





did not touch anything else
 
Reply
#49
Make sure you have DAMAGE MOVE on your synchronize Pokemon.

@syedd You can choose on CATCH CONFIGURATION.
God Karp Trainer loading... *splash*splash Huh

 
Reply
#50
i have a peculiar problem which i am facing . since i was farming riolu in safari zone 3 in hoenn my first poke is xatu level 42ish . with damage move as psybeam , psychic .

now problem faced: the random poke that spawns in zone 3 areas are giraffe and dodorio.. soemtimes the poke is unable to flee as both of them have high spd or ability that stops the poke from running . dodorio hits with pursuit which is super effective when ur fleeing and girafig attacks with double hit seriously damaging the poke. when the first sync poke gets KO'd irrespective of the time left in safari it travels back to pc to heal the first poke.

above case is when u deactivate leveling in config.

my question is can we use health potions when the health is lower than say 15 hp so that it doesnt get ko'd easily and if there is no potion available then it goes back to pc .

i left my account for riolu hunting and lost almost 70k in safari fees cuz each time it got ko it will leave safari . hahaha with no riolu caught cuz bad luck .
~ There's a very thin line between motivation and manipulation, when you motivate someone for your own good it becomes the latter!~
 
Reply
  


Forum Jump:


Browsing: 1 Guest(s)