Hello There, Guest! Login Register


Squirtle-Farmer / Shellder Farmer
#1
Squirtle-Farmer

You can start this script in Route 6, Vermilion City, inside the Pokecenter there and inside the Pokemart.
The script will move to the next water spot and surf around there.

[Image: 95f920759bb1402ab3d0a42d63e2cbf2.jpg]
  • Catch every Shiny
  • Catch every Squirtle
  • Catch every Shellder
  • You can choose if you would like to farm at the day Squirtle and in the night Shellder
  • Leveling your first Pokemon
  • Counter (You're able to deactivate this)
  • Buy Pokeballs
  • The script will use a Sync, a False Swiper and a Pokemon with a sleep attack to catch Shinies and Squirtles (You can set this to true or false)


[Image: 1db3a0aa89fa4c9890b77037d08c6b20.png]

Royal 5th July 2016: First release
8th July 2016: Some improvements
9th July 2016: Final fix
10th July 2016: Beta release
11th July 2016: Final release
10th October 2016: Little bug fix

[Image: 57e4fd7b135f4a1e839ac392ee7d539e.jpg]

-- ########################## CONFIG ##########################
-- ######### Change these lines for your own purpose ##########
-- ############################################################

-- ##### Logs #####
-- Set them to false if you don't want to use logs,
-- I would advise you to use logs, so you don't
-- need to login with the normal client
-- if you want to look if the bot catch any Shinies
usingLogs = true

-- If you encounter a bug this logs can help me to fix this bug,
-- so please turn this to true if you want to support this script
usingDebugLogs = true
-- ################

-- ##### Buying Pokeballs ######
-- Set them to false if you don't want to buy Pokeballs,
-- I would advise you to set them to true, so you won't miss
-- any Pokemon because you had not enough Pokeballs
buyingPokeballs = true

-- Set the number of Pokeballs you would like to buy                      
quantity = 50    

itemName = "Pokeball"    

-- If you have less than the number what you entered then the bot will
-- buy new Pokeballs
atLeast = 100          
-- #############################

-- ##### Attack Config #####
-- Set them to true if you want to attack every Pokemon
-- set them to false if you want to run away from every Pokemon
attackPokemon = true
-- #########################

-- ##### Catch Config #####
-- If you set them to true the bot will use a Sync, a False Swiper and a Pokemon with sleep to catch every Pokemon
usingSpecialCatch = true
-- ########################

-- ##### Private Message #####
-- turn it to true if you want to disable private messages (recommend)
allowPrivateMessage = true
-- ###########################

-- ################## Special Catch Config ####################
-- ## Only change these lines if you activated special catch ##
-- Set the index of your first Sync Pokemon
indexOfSync1 = 1
-- Set the nature for your first Sync Pokemon
nature1 = "Bold"
-- Set the index of your second Sync Pokemon
indexOfSync2 = 6
-- Set the nature of your second Sync Pokemon
nature2 = "Adamant"
-- Set the index of your False Swiper
indexOfFalseSwiper = 3
-- Set the Index of your Sleeper
indexOfSleeper = 4
-- Set the Sleep Attack for your Sleeper
sleepAttack = "Sleep Powder"
-- ############################################################

-- ############## Night Config ##############
-- ## This config will happen if its Night ##
-- Set hunt Shellder to true if you want to hunt it in the night
huntShellder = true
-- Set the rod what you want to use
usingRod = "Good Rod"
-- ###########################################

-- [[Below these lines is the Script if you haven't any experience about Lua scripting then don't change anything!]]
-- #########################################################################################################################

name = "Vermilion Squirtle Farmer | Route 6 Shellder Farmer"
author = "Royal"
description = [[Start the Script in Route 6, Vermilion City, Pokecenter Vermilion and Vermilion Pokemart.
It will catch any Shiny, any Squirtle and any Shellder.
If you found any bugs or have any suggestions feel free to report it to me.]]

function onStart()
    -- Display the Configurations if usingLogs is true
    if usingLogs then
        if buyingPokeballs then
            log("Config | Buying Pokeballs is activated!")
            log("Config | The bot will buy: " .. quantity .. " Pokeballs.")
            log("Config | The bot moves to the next Pokemart if you have less then: " .. atLeast .. " Pokeballs.")
        elseif buyingPokeballs == false then
            log("Config | Buying Pokeballs is deactivated!")
        end
        if usingDebugLogs then
            log("Config | Using Debug Logs is activated!")
        elseif usingDebugLogs == false then
            log("Config | Using Debug Logs is deactivated!")
        end
        if allowPrivateMessage then
            log("Config | Private messages are disabled!")
        elseif allowPrivateMessage == false then
            log("Config | Private messages aren't disabled!")
        end
        if attackPokemon then
            log("Config | The bot will attack every Pokemon!")
        elseif attackPokemon == false then
            log("Config | The bot will run away from every Pokemon!")
        end
        if usingSpecialCatch then
            log("Config | The bot will use special catch feature!")
            log("Config | Your first Sync Pokemon is on index " .. indexOfSync1 .. " and use the nature " .. nature1 .. ".")
            log("Config | Your second Sync Pokemon is on index " .. indexOfSync2 .. " and use the nature " .. nature2 .. ".")
            log("Config | Your false swiper is on index " .. indexOfFalseSwiper .. ".")
            log("Config | Your sleeper is on index " .. indexOfSleeper .. " and use the Sleep Attack " .. sleepAttack .. ".")
        elseif usingSpecialCatch == false then
            log("Config | The bot won't use special catch feature!")
        end
        if huntShellder then
            log("Config | Hunting Shellder is activated!")
            log("Config | Used rod is " .. usingRod .. ".")
        elseif huntShellder == false then
            log("Config | Hunting Shellder is deactivated!")
        end
    end
    
    wildCounter = 0
    shinyCounter = 0
    squirtleCounter = 0
    poliwagCounter = 0
    tentacoolCounter = 0
    tentacruelCounter = 0
    pokecenterCounter = 0
    shellderCounter = 0
    krabbyCounter = 0
    magikarpCounter = 0
    goldeenCounter = 0
    startingMoney = getMoney()
    pokeballCounter = 0
    pokemonsCaught = 0
    
    specialCase = false
    
    specialShellder = true
    
    if usingSpecialCatch == true and huntShellder == true then
        specialShellder = true
    else
        specialShellder = false
    end
    
end

if allowPrivateMessage then
    if isPrivateMessageEnabled() then
        disablePrivateMessage()
    end
end


function useLogs()
    if usingLogs then
        log("Info | Pokemons encountered: " .. wildCounter)
        log("Info | Shinies encountered: " .. shinyCounter)
        log("Info | Squirtles ecountered: " .. squirtleCounter)
        log("Info | Pokemons caught: " .. pokemonsCaught)
    end
end

function useLogs2()
    if usingLogs then
        log("Info | Pokemons encountered: " .. wildCounter)
        log("Info | Shinies encountered: " .. shinyCounter)
        log("Info | Shellders ecountered: " .. shellderCounter)
        log("Info | Pokemons caught: " .. pokemonsCaught)
    end
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 onBattleMessage(wild)
    if not isNight() then
        if stringContains(wild, "A Wild SHINY ") then
            shinyCounter = shinyCounter + 1
            wildCounter = wildCounter + 1
            useLogs()
        elseif wild == "A Wild [FF9900]Squirtle[-] Attacks!" then
            squirtleCounter = squirtleCounter + 1
            wildCounter = wildCounter + 1
            useLogs()
        elseif wild == "A Wild [FF9900]Poliwag[-] Attacks!" then
            poliwagCounter = poliwagCounter + 1
            wildCounter = wildCounter + 1
            useLogs()
        elseif wild == "A Wild [FF9900]Tentacool[-] Attacks!" then
            tentacoolCounter = tentacoolCounter + 1
            wildCounter = wildCounter + 1
            useLogs()
        elseif wild == "A Wild [FF9900]Tentacruel[-] Attacks!" then
            tentacruelCounter = tentacruelCounter + 1
            wildCounter = wildCounter + 1
            useLogs()
        elseif stringContains(wild, "A Wild ") then
            wildCounter = wildCounter + 1
            useLogs()
        elseif stringContains(wild, "Pokedollar(s)") then
            if usingLogs then
                log("Info | Pokedollars earned: "..tostring(getMoney() - startingMoney).." (" ..tostring((getMoney() - startingMoney)/wildCounter).." average)")
            end
        elseif stringContains(wild, "Success!") then
            pokemonsCaught = pokemonsCaught + 1
        elseif stringContains(wild, "You throw") then
            pokeballCounter = pokeballCounter + 1
        end
    elseif isNight() and huntShellder then
        if stringContains(wild, "A Wild SHINY ") then
            shinyCounter = shinyCounter + 1
            wildCounter = wildCounter + 1
            useLogs2()
        elseif wild == "A Wild [FF9900]Shellder[-] Attacks!" then
            shellderCounter = shellderCounter + 1
            wildCounter = wildCounter + 1
            useLogs2()
        elseif wild == "A Wild [FF9900]Goldeen[-] Attacks!" then
            goldeenCounter = goldeenCounter + 1
            wildCounter = wildCounter + 1
            useLogs2()
        elseif wild == "A Wild [FF9900]Krabby[-] Attacks!" then
            krabbyCounter = krabbyCounter + 1
            wildCounter = wildCounter + 1
            useLogs2()
        elseif wild == "A Wild [FF9900]Magikarp[-] Attacks!" then
            magikarpCounter = magikarpCounter + 1
            wildCounter = wildCounter + 1
            useLogs2()
        elseif wild == "A Wild [FF9900]Poliwag[-] Attacks!" then
            poliwagCounter = poliwagCounter + 1
            wildCounter = wildCounter + 1
            useLogs2()
        elseif stringContains(wild, "A Wild ") then
            wildCounter = wildCounter + 1
            useLogs2()
        elseif stringContains(wild, "Pokedollar(s)") then
            if usingLogs then
                log("Info | Pokedollars earned: "..tostring(getMoney() - startingMoney).." (" ..tostring((getMoney() - startingMoney)/wildCounter).." average)")
            end
        elseif stringContains(wild, "Success!") then
            pokemonsCaught = pokemonsCaught + 1
        elseif stringContains(wild, "You throw") then
            pokeballCounter = pokeballCounter + 1
        end
    end
end

function onPause()

    if usingLogs then
    
        if not isNight() then
        
            log("Times in Pokecenter: " .. pokecenterCounter)
            log("Pokemons encountered: " .. wildCounter)
            log("Shinies encountered: " .. shinyCounter .. " (" .. 100 * (shinyCounter/wildCounter) .. "%)")
            log("Squirtles encountered: " .. squirtleCounter .. " (" .. 100 * (squirtleCounter/wildCounter) .. "%)")
            log("Poliwags encountered: " .. poliwagCounter .. " (" .. 100 * (poliwagCounter/wildCounter) .. "%)")
            log("Tentacools encountered: " .. tentacoolCounter .. " (" .. 100 * (tentacoolCounter/wildCounter) .. "%)")
            log("Tentacruels encountered: " .. tentacruelCounter .. " (" .. 100 * (tentacruelCounter/wildCounter) .. "%)")
            log("Pokedollars earned: "..tostring(getMoney() - startingMoney).." (" ..tostring((getMoney() - startingMoney)/wildCounter).." average)")
            log("Pokeballs used: " .. pokeballCounter)
            
        elseif huntShellder and isNight() then
        
            log("Times in Pokecenter: " .. pokecenterCounter)
            log("Pokemons encountered: " .. wildCounter)
            log("Shinies encountered: " .. shinyCounter .. " (" .. 100 * (shinyCounter/wildCounter) .. "%)")
            log("Shellders encountered: " .. shellderCounter .. " (" .. 100 * (shellderCounter/wildCounter) .. "%)")
            log("Magikarps encountered: " .. magikarpCounter .. " (" .. 100 * (magikarpCounter/wildCounter) .. "%)")
            log("Goldeens encountered: " .. goldeenCounter .. " (" .. 100 * (goldeenCounter/wildCounter) .. "%)")
            log("Poliwags encountered: " .. poliwagCounter .. " (" .. 100 * (poliwagCounter/wildCounter) .. "%)")
            log("Krabbys encountered: " .. krabbyCounter .. " (" .. 100 * (krabbyCounter/wildCounter) .. "%)")
            log("Pokedollars earned: "..tostring(getMoney() - startingMoney).." (" ..tostring((getMoney() - startingMoney)/wildCounter).." average)")
            log("Pokeballs used: " .. pokeballCounter)
            
        end
        
    end
    
end

function onPathAction()

    -- Switching Syncs

    if specialShellder and not isNight() and getPokemonNature(1) ~= nature1 then
        swapPokemon(indexOfSync2, indexOfSync1)
        if usingDebugLogs then
            log("Switching Sync 2 with Sync 1")
        end
    elseif specialShellder and isNight() and getPokemonNature(1) ~= nature2 then
        swapPokemon(indexOfSync1, indexOfSync2)
        if usingDebugLogs then
            log("Switching Sync 1 with Sync 2")
        end

    -- Buying Pokeballs

    elseif getItemQuantity(itemName) < atLeast and buyingPokeballs == true then
        if getMapName() == "Vermilion City" then
            moveToMap("Vermilion Pokemart")
        elseif getMapName() == "Route 6" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion Pokemart" and not isShopOpen() then
            talkToNpcOnCell(3, 5)
        elseif isShopOpen() then
            buyItem(itemName, quantity)
        end

    -- Normal Squirtle, without Special Catch and disabled hunting Shellder
    
    elseif usingSpecialCatch == false and huntShellder == false and isPokemonUsable(1) then
        if usingDebugLogs then
            log("Farming | Catch Squirtle without Special Catch | Hunting Squirtle")
        end
        if getMapName() == "Route 6" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Pokecenter Vermilion" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion City" then
            moveToRectangle(10, 28, 17, 33)
        end
    elseif usingSpecialCatch == false and huntShellder == false and not isPokemonUsable(1) then
        if usingDebugLogs then
            log("Farming / Healing | Catch Squirtle without Special Catch")
        end
        if getMapName() == "Route 6" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion City" then
            moveToMap("Pokecenter Vermilion")
        elseif getMapName() == "Pokecenter Vermilion" then
            usePokecenter()
        end

    -- Normal Shellder, without Special Catch
    
    elseif usingSpecialCatch == false and huntShellder and isNight() and isPokemonUsable(1) then    
        if usingDebugLogs then
            log("Farming | Catch Squirtle and Shellder without Special Catch | Hunting Shellder")
        end
        if getMapName() == "Pokecenter Vermilion" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion City" then
            moveToMap("Route 6")
        elseif getMapName() == "Route 6" then
            if (getPlayerX() == 23 and getPlayerY() == 43) then
                useItem(usingRod)
            else
                moveToCell(23, 43)
            end
        end
    elseif not isPokemonUsable(1) and usingSpecialCatch == false then
        if usingDebugLogs then
            log("Farming / Healing | Catch Squirtle and Shellder without Special Catch")
        end
        if getMapName() == "Route 6" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion City" then
            moveToMap("Pokecenter Vermilion")
        elseif getMapName() == "Pokecenter Vermilion" then
            usePokecenter()
        end
    
    -- Squirtle, with Special Catch and without hunting Shellder

    elseif usingSpecialCatch and huntShellder == false and not isNight() and isPokemonUsable(1) and isPokemonUsable(indexOfFalseSwiper) and isPokemonUsable(indexOfSleeper) and getRemainingPowerPoints(indexOfFalseSwiper, "False Swipe") >= 1 and getRemainingPowerPoints(indexOfSleeper, sleepAttack) >= 1 then
        if usingDebugLogs then
            log("Farming | Catch Squirtle with Special Catch")
        end
        if getPokemonNature(1) ~= "Bold" then
            swapPokemon(indexOfSync2, indexOfSync1)
        elseif getMapName() == "Route 6" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Pokecenter Vermilion" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion City" then
            moveToRectangle(10, 28, 17, 33)
        end
    elseif huntShellder == false and not isPokemonUsable(1) or not isPokemonUsable(indexOfFalseSwiper) or not isPokemonUsable(indexOfSleeper) or getRemainingPowerPoints(indexOfFalseSwiper, "False Swipe") < 1 or getRemainingPowerPoints(indexOfSleeper, sleepAttack) < 1 then
        if usingDebugLogs then
            log("Farming / Healing | Catch Squirtle with Special Catch")
        end
        if getMapName() == "Route 6" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion City" then
            moveToMap("Pokecenter Vermilion")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Pokecenter Vermilion" then
            usePokecenter()
        end
    
    -- Squirtle and Shellder with Special Catch
    
    elseif (usingSpecialCatch and huntShellder and isNight() and isPokemonUsable(1) and isPokemonUsable(indexOfFalseSwiper) and isPokemonUsable(indexOfSleeper) and getRemainingPowerPoints(indexOfFalseSwiper, "False Swipe") >= 1 and getRemainingPowerPoints(indexOfSleeper, sleepAttack) >= 1) then
        if usingDebugLogs then
            log("Farming | Catch Squirtle and Shellder with Special Catch | Hunting Shellder")
        end
        if getMapName() == "Pokecenter Vermilion" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion City" then
            moveToMap("Route 6")
        elseif getMapName() == "Route 6" then
            if (getPlayerX() == 23 and getPlayerY() == 43) then
                useItem(usingRod)
            else
                moveToCell(23, 43)
            end
        end
    elseif (usingSpecialCatch and not isNight() and huntShellder and isPokemonUsable(1) and isPokemonUsable(indexOfFalseSwiper) and isPokemonUsable(indexOfSleeper) and getRemainingPowerPoints(indexOfFalseSwiper, "False Swipe") >= 1 and getRemainingPowerPoints(indexOfSleeper, sleepAttack) >= 1) then
        if usingDebugLogs then
            log("Farming | Catch Squirtle and Shellder with Special Catch | Hunting Squirtle")
        end
        if getMapName() == "Route 6" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion City" then
            moveToRectangle(10, 28, 17, 33)
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Pokecenter Vermilion" then
            moveToMap("Vermilion City")
        end
    elseif not isPokemonUsable(1) or not isPokemonUsable(indexOfFalseSwiper) or not isPokemonUsable(indexOfSleeper) or getRemainingPowerPoints(indexOfFalseSwiper, "False Swipe") < 1 or getRemainingPowerPoints(indexOfSleeper, sleepAttack) < 1 then
        if usingDebugLogs then
            log("Farming / Healing | Catch Squirtle and Shellder with Special Catch")
        end
        if getMapName() == "Route 6" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion City" then
            moveToMap("Pokecenter Vermilion")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Pokecenter Vermilion" then
            usePokecenter()
        end
    end

end

function onBattleAction()

    -- Using Special Catch

    if usingSpecialCatch and (isWildBattle() and (isOpponentShiny() or getOpponentName() == "Squirtle" or getOpponentName() == "Shellder" or getOpponentName() == "Buizel")) then
        if getActivePokemonNumber() == 1 then
            if usingDebugLogs then
                log("Battle | Sending False Swiper")
            end
            sendPokemon(indexOfFalseSwiper)
        elseif ( getActivePokemonNumber() == indexOfFalseSwiper ) and (getOpponentHealth() > 1) then
            if usingDebugLogs then
                log("Battle | Using False Swipe")
            end
            return useMove("False Swipe") or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball")
        elseif ( getActivePokemonNumber() == indexOfFalseSwiper ) and (getOpponentHealth() == 1) then
            if usingDebugLogs then
                log("Battle | Sending Sleeper")
            end
            sendPokemon(indexOfSleeper)
        elseif (getActivePokemonNumber() == indexOfSleeper) and (getOpponentStatus() ~= "SLEEP") then
            if usingDebugLogs then
                log("Battle | Using a Sleep Attack")
            end
            return useMove(sleepAttack) or useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball")
        elseif (getActivePokemonNumber() == indexOfSleeper) and ( getOpponentStatus() == "SLEEP") then
            if usingDebugLogs then
                log("Battle | Using Pokeballs")
            end
            return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball")
        end
    
    
        -- Don't using Special Catch
    
    elseif usingSpecialCatch == false and isWildBattle() and (isOpponentShiny() or getOpponentName() == "Squirtle" or getOpponentName() == "Shellder" or getOpponentName() == "Buizel") then
        if usingDebugLogs then
            log("Battle | Catch Pokemon (without Special Catch)")
        end
        return useItem("Ultra Ball") or useItem("Great Ball") or useItem("Pokeball") or sendUsablePokemon() or run()
    
    -- Attack Pokemon
    
    elseif attackPokemon and isWildBattle() and not isOpponentShiny() or not getOpponentName() == "Squirtle" or not getOpponentName() == "Shellder" or getOpponentName() == "Buizel" then
        if usingDebugLogs then
            log("Battle | Attacking Pokemon")
        end
        return attack() or sendUsablePokemon() or run()
        
        -- Run Away
    
    elseif attackPokemon == false and isWildBattle() and not isOpponentShiny() or not getOpponentName() == "Squirtle" or not getOpponentName() == "Shellder" or not getOpponentName() == "Buizel" then
        if usingDebugLogs then
            log("Battle | Run away from Pokemon")
        end
        return run() or sendUsablePokemon() or attack()
    end
    
end

[Image: Credits_Royal.jpg]
 
Reply
#2
Heyla bro!
can u make this script with first sincro then change with a pokemon with false swipe then another with sleep pls?
 
Reply
#3
roberto.1986 Heyla bro!
can u make this script with first sincro then change with a pokemon with false swipe then another with sleep pls?

Alright, give me a few minutes.
 
Reply
#4
[Image: Update_Royal.jpg]
  • You can now deactivate the counters (just set them in the config part to false)
  • The script will now use a Sync, a False Swiper and a Pokemon with a sleep attack to catch Pokemons (just edit the config for your own purpose)
  • You're now able to deactivate buying Pokeballs
  • Some improvements, big thanks to Someone, you know, I love you

If you found any bugs please report it to me.
 
Reply
#5
Royal https://s32.postimg.org/yiwam9bo5/Update_Royal.jpg
  • You can now deactivate the counters (just set them in the config part to false)
  • The script will now use a Sync, a False Swiper and a Pokemon with a sleep attack to catch Pokemons (just edit the config for your own purpose)
  • You're now able to deactivate buying Pokeballs
  • Some improvements, big thanks to Someone, you know, I love you

If you found any bugs please report it to me.


ty bro u are awesome^^
so let me understand for disable buy pokeball i just need to edit that?
buyingPokeballs = true
itemName = "Pokeball"
-- How many do you would like to buy??
and put false for let bot dont buy pokeball?
also i didnt understand how to set that because i just want to swap sincro/false swipe/sleep/catch squirtle and shiny
-- Config
usingLogs = true
buyingPokeballs = true
itemName = "Pokeball"
-- How many do you would like to buy?
quantity = 50
-- Set the minimum number of Pokeballs what you would like to have (after you have less than you entered the bot will buy new Pokeballs)
atLeast = 100  
-- Attack config
attack_pokemon = true
-- Special catch: False Swipe + Sleep
usingSpecialCatch = false
-- Config theses lines only if you use Special Catch
indexOfFalseSwiper = 2
indexOfSleep = 3
sleepAttack = "Sleep Powder"
--[[
Below this line is the script.
Don't touch anything if you don't know what you're doing.
]]
tell me what i need to edit tyty^^
 
Reply
#6
roberto.1986
Royal https://s32.postimg.org/yiwam9bo5/Update_Royal.jpg
  • You can now deactivate the counters (just set them in the config part to false)
  • The script will now use a Sync, a False Swiper and a Pokemon with a sleep attack to catch Pokemons (just edit the config for your own purpose)
  • You're now able to deactivate buying Pokeballs
  • Some improvements, big thanks to Someone, you know, I love you

If you found any bugs please report it to me.


ty bro u are awesome^^
so let me understand for disable buy pokeball i just need to edit that?
buyingPokeballs = true
itemName = "Pokeball"
-- How many do you would like to buy??
and put false for let bot dont buy pokeball?
also i didnt understand how to set that because i just want to swap sincro/false swipe/sleep/catch squirtle and shiny
-- Config
usingLogs = true
buyingPokeballs = true
itemName = "Pokeball"
-- How many do you would like to buy?
quantity = 50
-- Set the minimum number of Pokeballs what you would like to have (after you have less than you entered the bot will buy new Pokeballs)
atLeast = 100  
-- Attack config
attack_pokemon = true
-- Special catch: False Swipe + Sleep
usingSpecialCatch = false
-- Config theses lines only if you use Special Catch
indexOfFalseSwiper = 2
indexOfSleep = 3
sleepAttack = "Sleep Powder"
--[[
Below this line is the script.
Don't touch anything if you don't know what you're doing.
]]
tell me what i need to edit tyty^^

Just set buyingPokeballs to false.

-- Config
usingLogs = true
buyingPokeballs = false
itemName = "Pokeball"
-- How many do you would like to buy?
quantity = 50
-- Set the minimum number of Pokeballs what you would like to have (after you have less than you entered the bot will buy new Pokeballs)
atLeast = 100  
-- Attack config
attack_pokemon = true
-- Special catch: False Swipe + Sleep
usingSpecialCatch = true
-- Config theses lines only if you use Special Catch
indexOfFalseSwiper = 2
indexOfSleep = 3
sleepAttack = "Sleep Powder"
--[[
Below this line is the script.
Don't touch anything if you don't know what you're doing.
]]

name = "Vermilion Squirtle Farmer"
author = "Royal"
description = [[You can start this script in Vermilion City, inside the Pokecenter there and inside the Pokemart.
The script will move to the next water spot and surf around there.
If any Squirtle or Shiny appears the script will try to catch this.]]

function onStart()
    -- Counters, don't change the lines below
    wildCounter = 0
    shinyCounter = 0
    squirtleCounter = 0
    poliwagCounter = 0
    tentacoolCounter = 0
    tentacruelCounter = 0
    pokecenterCounter = 0
    startingMoney = getMoney()
    startingLevel = getPokemonLevel(1)
    pokeballCounter = 0
end

function useLogs()
    if usingLogs == true then
        log("Info | Pokemons encountered: " .. wildCounter)
        log("Info | Shinies encountered: " .. shinyCounter)
        log("Info | Squirtles ecountered: " .. squirtleCounter)
    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
        wildCounter = wildCounter + 1
        useLogs()
    elseif wild == "A Wild [FF9900]Squirtle[-] Attacks!" then
        squirtleCounter = squirtleCounter + 1
        wildCounter = wildCounter + 1
        useLogs()
    elseif wild == "A Wild [FF9900]Poliwag[-] Attacks!" then
        poliwagCounter = poliwagCounter + 1
        wildCounter = wildCounter + 1
        useLogs()
    elseif wild == "A Wild [FF9900]Tentacool[-] Attacks!" then
        tentacoolCounter = tentacoolCounter + 1
        wildCounter = wildCounter + 1
        useLogs()
    elseif wild == "A Wild [FF9900]Tentacruel[-] Attacks!" then
        tentacruelCounter = tentacruelCounter + 1
        wildCounter = wildCounter + 1
        useLogs()
    elseif stringContains(wild, "A Wild ") then
        wildCounter = wildCounter + 1
        useLogs()
    elseif stringContains(wild, "Pokedollar(s)") then
        if usingLogs == true then
            log("Pokedollars earned: "..tostring(getMoney() - startingMoney).." (" ..tostring((getMoney() - startingMoney)/wildCounter).." average)")
        end
    elseif stringContains(wild, "You throw") then
        pokeballCounter = pokeballCounter + 1
    end
end

function onPause()
    if usingLogs == true then
        log("Times in Pokecenter: " .. pokecenterCounter)
        log("Pokemons encountered: " .. wildCounter)
        log("Shinies encountered: " .. shinyCounter .. " (" .. 100 * (shinyCounter/wildCounter) .. "%)")
        log("Squirtles encountered: " .. squirtleCounter .. " (" .. 100 * (squirtleCounter/wildCounter) .. "%)")
        log("Poliwags encountered: " .. poliwagCounter .. " (" .. 100 * (poliwagCounter/wildCounter) .. "%)")
        log("Tentacools encountered: " .. tentacoolCounter .. " (" .. 100 * (tentacoolCounter/wildCounter) .. "%)")
        log("Tentacruels encountered: " .. tentacruelCounter .. " (" .. 100 * (tentacruelCounter/wildCounter) .. "%)")
        log("Your ".. getPokemonName(1) .." gained " .. (getPokemonLevel(1) - startingLevel) .. " level during the bot time")
        log("Pokedollars earned: "..tostring(getMoney() - startingMoney).." (" ..tostring((getMoney() - startingMoney)/wildCounter).." average)")
        log("Pokeballs used: " .. pokeballCounter)
    end
end

function onPathAction()
    if getItemQuantity(itemName) < atLeast and buyingPokeballs == true then
        if getMapName() == "Vermilion City" then
            moveToMap("Vermilion Pokemart")
        elseif getMapName() == "Vermilion Pokemart" and not isShopOpen() then
            talkToNpcOnCell(3, 5)
        elseif isShopOpen() then
            buyItem(itemName, quantity)
        end
    elseif usingSpecialCatch == true and isPokemonUsable(1) and getRemainingPowerPoints(indexOfFalseSwiper, "False Swipe") >= 1 and getRemainingPowerPoints(indexOfSleep, sleepAttack) >= 1 then
        if getMapName() == "Pokecenter Vermilion" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion City" then
            moveToWater()
        end
    elseif isPokemonUsable(1) then
        if getMapName() == "Pokecenter Vermilion" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion City" then
            moveToWater()
        end
    elseif not isPokemonUsable(1) and usingSpecialCatch == false then
        if getMapName() == "Vermilion City" then
            moveToMap("Pokecenter Vermilion")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Pokecenter Vermilion" then
            usePokecenter()
        end
    elseif not isPokemonUsable(1) or (usingSpecialCatch and (getRemainingPowerPoints(indexOfFalseSwiper, "False Swipe") < 1 or getRemainingPowerPoints(indexOfSleep, sleepAttack) < 1)) then
        if getMapName() == "Vermilion City" then
            moveToMap("Pokecenter Vermilion")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Pokecenter Vermilion" then
            usePokecenter()
        end
    end
end

function onBattleAction()
    if usingSpecialCatch == true and (isWildBattle() and (isOpponentShiny() or getOpponentName() == "Squirtle")) then
        if getActivePokemonNumber() == 1 then
            return sendPokemon(indexOfFalseSwiper) or sendUsablePokemon()
        elseif getActivePokemonNumber() == indexOfFalseSwiper and getOpponentHealth() > 1 then
            useMove("False Swipe")
        elseif getOpponentHealth() == 1 then
            return sendPokemon(indexOfSleep) or sendUsablePokemon()
        elseif getActivePokemonNumber() == indexOfSleep and getOpponentHealth() == 1 then
            return useMove(sleepAttack)
        elseif getOpponentStatus() == "SLEEP" and getOpponentHealth() == 1 then
            return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or attack() or run()
        end
    elseif not usingSpecialCatch and isWildBattle() and (isOpponentShiny() or getOpponentName() == "Squirtle") then
        return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or attack() or run()
    elseif attack_pokemon == false and isWildBattle() and not isOpponentShiny() or not getOpponentName() == "Squirtle" then
        return run() or sendUsablePokemon() or attack()
    elseif attack_pokemon == true and isWildBattle() and not isOpponentShiny() or not getOpponentName() == "Squirtle" then
        return attack() or run() or sendUsablePokemon()
    end
end

Use this code and it will do what you want (hopefully). Smile
Keep in mind that you need to set your sleep attack in the config.
 
Reply
#7
Royal
roberto.1986
Royal https://s32.postimg.org/yiwam9bo5/Update_Royal.jpg
  • You can now deactivate the counters (just set them in the config part to false)
  • The script will now use a Sync, a False Swiper and a Pokemon with a sleep attack to catch Pokemons (just edit the config for your own purpose)
  • You're now able to deactivate buying Pokeballs
  • Some improvements, big thanks to Someone, you know, I love you

If you found any bugs please report it to me.


ty bro u are awesome^^
so let me understand for disable buy pokeball i just need to edit that?
buyingPokeballs = true
itemName = "Pokeball"
-- How many do you would like to buy??
and put false for let bot dont buy pokeball?
also i didnt understand how to set that because i just want to swap sincro/false swipe/sleep/catch squirtle and shiny
-- Config
usingLogs = true
buyingPokeballs = true
itemName = "Pokeball"
-- How many do you would like to buy?
quantity = 50
-- Set the minimum number of Pokeballs what you would like to have (after you have less than you entered the bot will buy new Pokeballs)
atLeast = 100  
-- Attack config
attack_pokemon = true
-- Special catch: False Swipe + Sleep
usingSpecialCatch = false
-- Config theses lines only if you use Special Catch
indexOfFalseSwiper = 2
indexOfSleep = 3
sleepAttack = "Sleep Powder"
--[[
Below this line is the script.
Don't touch anything if you don't know what you're doing.
]]
tell me what i need to edit tyty^^

Just set buyingPokeballs to false.

-- Config
usingLogs = true
buyingPokeballs = false
itemName = "Pokeball"
-- How many do you would like to buy?
quantity = 50
-- Set the minimum number of Pokeballs what you would like to have (after you have less than you entered the bot will buy new Pokeballs)
atLeast = 100  
-- Attack config
attack_pokemon = true
-- Special catch: False Swipe + Sleep
usingSpecialCatch = true
-- Config theses lines only if you use Special Catch
indexOfFalseSwiper = 2
indexOfSleep = 3
sleepAttack = "Sleep Powder"
--[[
Below this line is the script.
Don't touch anything if you don't know what you're doing.
]]

name = "Vermilion Squirtle Farmer"
author = "Royal"
description = [[You can start this script in Vermilion City, inside the Pokecenter there and inside the Pokemart.
The script will move to the next water spot and surf around there.
If any Squirtle or Shiny appears the script will try to catch this.]]

function onStart()
    -- Counters, don't change the lines below
    wildCounter = 0
    shinyCounter = 0
    squirtleCounter = 0
    poliwagCounter = 0
    tentacoolCounter = 0
    tentacruelCounter = 0
    pokecenterCounter = 0
    startingMoney = getMoney()
    startingLevel = getPokemonLevel(1)
    pokeballCounter = 0
end

function useLogs()
    if usingLogs == true then
        log("Info | Pokemons encountered: " .. wildCounter)
        log("Info | Shinies encountered: " .. shinyCounter)
        log("Info | Squirtles ecountered: " .. squirtleCounter)
    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
        wildCounter = wildCounter + 1
        useLogs()
    elseif wild == "A Wild [FF9900]Squirtle[-] Attacks!" then
        squirtleCounter = squirtleCounter + 1
        wildCounter = wildCounter + 1
        useLogs()
    elseif wild == "A Wild [FF9900]Poliwag[-] Attacks!" then
        poliwagCounter = poliwagCounter + 1
        wildCounter = wildCounter + 1
        useLogs()
    elseif wild == "A Wild [FF9900]Tentacool[-] Attacks!" then
        tentacoolCounter = tentacoolCounter + 1
        wildCounter = wildCounter + 1
        useLogs()
    elseif wild == "A Wild [FF9900]Tentacruel[-] Attacks!" then
        tentacruelCounter = tentacruelCounter + 1
        wildCounter = wildCounter + 1
        useLogs()
    elseif stringContains(wild, "A Wild ") then
        wildCounter = wildCounter + 1
        useLogs()
    elseif stringContains(wild, "Pokedollar(s)") then
        if usingLogs == true then
            log("Pokedollars earned: "..tostring(getMoney() - startingMoney).." (" ..tostring((getMoney() - startingMoney)/wildCounter).." average)")
        end
    elseif stringContains(wild, "You throw") then
        pokeballCounter = pokeballCounter + 1
    end
end

function onPause()
    if usingLogs == true then
        log("Times in Pokecenter: " .. pokecenterCounter)
        log("Pokemons encountered: " .. wildCounter)
        log("Shinies encountered: " .. shinyCounter .. " (" .. 100 * (shinyCounter/wildCounter) .. "%)")
        log("Squirtles encountered: " .. squirtleCounter .. " (" .. 100 * (squirtleCounter/wildCounter) .. "%)")
        log("Poliwags encountered: " .. poliwagCounter .. " (" .. 100 * (poliwagCounter/wildCounter) .. "%)")
        log("Tentacools encountered: " .. tentacoolCounter .. " (" .. 100 * (tentacoolCounter/wildCounter) .. "%)")
        log("Tentacruels encountered: " .. tentacruelCounter .. " (" .. 100 * (tentacruelCounter/wildCounter) .. "%)")
        log("Your ".. getPokemonName(1) .." gained " .. (getPokemonLevel(1) - startingLevel) .. " level during the bot time")
        log("Pokedollars earned: "..tostring(getMoney() - startingMoney).." (" ..tostring((getMoney() - startingMoney)/wildCounter).." average)")
        log("Pokeballs used: " .. pokeballCounter)
    end
end

function onPathAction()
    if getItemQuantity(itemName) < atLeast and buyingPokeballs == true then
        if getMapName() == "Vermilion City" then
            moveToMap("Vermilion Pokemart")
        elseif getMapName() == "Vermilion Pokemart" and not isShopOpen() then
            talkToNpcOnCell(3, 5)
        elseif isShopOpen() then
            buyItem(itemName, quantity)
        end
    elseif usingSpecialCatch == true and isPokemonUsable(1) and getRemainingPowerPoints(indexOfFalseSwiper, "False Swipe") >= 1 and getRemainingPowerPoints(indexOfSleep, sleepAttack) >= 1 then
        if getMapName() == "Pokecenter Vermilion" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion City" then
            moveToWater()
        end
    elseif isPokemonUsable(1) then
        if getMapName() == "Pokecenter Vermilion" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion City" then
            moveToWater()
        end
    elseif not isPokemonUsable(1) and usingSpecialCatch == false then
        if getMapName() == "Vermilion City" then
            moveToMap("Pokecenter Vermilion")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Pokecenter Vermilion" then
            usePokecenter()
        end
    elseif not isPokemonUsable(1) or (usingSpecialCatch and (getRemainingPowerPoints(indexOfFalseSwiper, "False Swipe") < 1 or getRemainingPowerPoints(indexOfSleep, sleepAttack) < 1)) then
        if getMapName() == "Vermilion City" then
            moveToMap("Pokecenter Vermilion")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Pokecenter Vermilion" then
            usePokecenter()
        end
    end
end

function onBattleAction()
    if usingSpecialCatch == true and (isWildBattle() and (isOpponentShiny() or getOpponentName() == "Squirtle")) then
        if getActivePokemonNumber() == 1 then
            return sendPokemon(indexOfFalseSwiper) or sendUsablePokemon()
        elseif getActivePokemonNumber() == indexOfFalseSwiper and getOpponentHealth() > 1 then
            useMove("False Swipe")
        elseif getOpponentHealth() == 1 then
            return sendPokemon(indexOfSleep) or sendUsablePokemon()
        elseif getActivePokemonNumber() == indexOfSleep and getOpponentHealth() == 1 then
            return useMove(sleepAttack)
        elseif getOpponentStatus() == "SLEEP" and getOpponentHealth() == 1 then
            return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or attack() or run()
        end
    elseif not usingSpecialCatch and isWildBattle() and (isOpponentShiny() or getOpponentName() == "Squirtle") then
        return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or attack() or run()
    elseif attack_pokemon == false and isWildBattle() and not isOpponentShiny() or not getOpponentName() == "Squirtle" then
        return run() or sendUsablePokemon() or attack()
    elseif attack_pokemon == true and isWildBattle() and not isOpponentShiny() or not getOpponentName() == "Squirtle" then
        return attack() or run() or sendUsablePokemon()
    end
end

Use this code and it will do what you want (hopefully). Smile
Keep in mind that you need to set your sleep attack in the config.

so if im using hypnosis i need to change
sleepAttack = "Sleep Powder"
--[[
into hypnosis right?
sry for the alot confirm but my english is not very well^^
 
Reply
#8
roberto.1986
Royal
roberto.1986 ty bro u are awesome^^
so let me understand for disable buy pokeball i just need to edit that?
buyingPokeballs = true
itemName = "Pokeball"
-- How many do you would like to buy??
and put false for let bot dont buy pokeball?
also i didnt understand how to set that because i just want to swap sincro/false swipe/sleep/catch squirtle and shiny
-- Config
usingLogs = true
buyingPokeballs = true
itemName = "Pokeball"
-- How many do you would like to buy?
quantity = 50
-- Set the minimum number of Pokeballs what you would like to have (after you have less than you entered the bot will buy new Pokeballs)
atLeast = 100  
-- Attack config
attack_pokemon = true
-- Special catch: False Swipe + Sleep
usingSpecialCatch = false
-- Config theses lines only if you use Special Catch
indexOfFalseSwiper = 2
indexOfSleep = 3
sleepAttack = "Sleep Powder"
--[[
Below this line is the script.
Don't touch anything if you don't know what you're doing.
]]
tell me what i need to edit tyty^^

Just set buyingPokeballs to false.

-- Config
usingLogs = true
buyingPokeballs = false
itemName = "Pokeball"
-- How many do you would like to buy?
quantity = 50
-- Set the minimum number of Pokeballs what you would like to have (after you have less than you entered the bot will buy new Pokeballs)
atLeast = 100  
-- Attack config
attack_pokemon = true
-- Special catch: False Swipe + Sleep
usingSpecialCatch = true
-- Config theses lines only if you use Special Catch
indexOfFalseSwiper = 2
indexOfSleep = 3
sleepAttack = "Sleep Powder"
--[[
Below this line is the script.
Don't touch anything if you don't know what you're doing.
]]

name = "Vermilion Squirtle Farmer"
author = "Royal"
description = [[You can start this script in Vermilion City, inside the Pokecenter there and inside the Pokemart.
The script will move to the next water spot and surf around there.
If any Squirtle or Shiny appears the script will try to catch this.]]

function onStart()
    -- Counters, don't change the lines below
    wildCounter = 0
    shinyCounter = 0
    squirtleCounter = 0
    poliwagCounter = 0
    tentacoolCounter = 0
    tentacruelCounter = 0
    pokecenterCounter = 0
    startingMoney = getMoney()
    startingLevel = getPokemonLevel(1)
    pokeballCounter = 0
end

function useLogs()
    if usingLogs == true then
        log("Info | Pokemons encountered: " .. wildCounter)
        log("Info | Shinies encountered: " .. shinyCounter)
        log("Info | Squirtles ecountered: " .. squirtleCounter)
    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
        wildCounter = wildCounter + 1
        useLogs()
    elseif wild == "A Wild [FF9900]Squirtle[-] Attacks!" then
        squirtleCounter = squirtleCounter + 1
        wildCounter = wildCounter + 1
        useLogs()
    elseif wild == "A Wild [FF9900]Poliwag[-] Attacks!" then
        poliwagCounter = poliwagCounter + 1
        wildCounter = wildCounter + 1
        useLogs()
    elseif wild == "A Wild [FF9900]Tentacool[-] Attacks!" then
        tentacoolCounter = tentacoolCounter + 1
        wildCounter = wildCounter + 1
        useLogs()
    elseif wild == "A Wild [FF9900]Tentacruel[-] Attacks!" then
        tentacruelCounter = tentacruelCounter + 1
        wildCounter = wildCounter + 1
        useLogs()
    elseif stringContains(wild, "A Wild ") then
        wildCounter = wildCounter + 1
        useLogs()
    elseif stringContains(wild, "Pokedollar(s)") then
        if usingLogs == true then
            log("Pokedollars earned: "..tostring(getMoney() - startingMoney).." (" ..tostring((getMoney() - startingMoney)/wildCounter).." average)")
        end
    elseif stringContains(wild, "You throw") then
        pokeballCounter = pokeballCounter + 1
    end
end

function onPause()
    if usingLogs == true then
        log("Times in Pokecenter: " .. pokecenterCounter)
        log("Pokemons encountered: " .. wildCounter)
        log("Shinies encountered: " .. shinyCounter .. " (" .. 100 * (shinyCounter/wildCounter) .. "%)")
        log("Squirtles encountered: " .. squirtleCounter .. " (" .. 100 * (squirtleCounter/wildCounter) .. "%)")
        log("Poliwags encountered: " .. poliwagCounter .. " (" .. 100 * (poliwagCounter/wildCounter) .. "%)")
        log("Tentacools encountered: " .. tentacoolCounter .. " (" .. 100 * (tentacoolCounter/wildCounter) .. "%)")
        log("Tentacruels encountered: " .. tentacruelCounter .. " (" .. 100 * (tentacruelCounter/wildCounter) .. "%)")
        log("Your ".. getPokemonName(1) .." gained " .. (getPokemonLevel(1) - startingLevel) .. " level during the bot time")
        log("Pokedollars earned: "..tostring(getMoney() - startingMoney).." (" ..tostring((getMoney() - startingMoney)/wildCounter).." average)")
        log("Pokeballs used: " .. pokeballCounter)
    end
end

function onPathAction()
    if getItemQuantity(itemName) < atLeast and buyingPokeballs == true then
        if getMapName() == "Vermilion City" then
            moveToMap("Vermilion Pokemart")
        elseif getMapName() == "Vermilion Pokemart" and not isShopOpen() then
            talkToNpcOnCell(3, 5)
        elseif isShopOpen() then
            buyItem(itemName, quantity)
        end
    elseif usingSpecialCatch == true and isPokemonUsable(1) and getRemainingPowerPoints(indexOfFalseSwiper, "False Swipe") >= 1 and getRemainingPowerPoints(indexOfSleep, sleepAttack) >= 1 then
        if getMapName() == "Pokecenter Vermilion" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion City" then
            moveToWater()
        end
    elseif isPokemonUsable(1) then
        if getMapName() == "Pokecenter Vermilion" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Vermilion City" then
            moveToWater()
        end
    elseif not isPokemonUsable(1) and usingSpecialCatch == false then
        if getMapName() == "Vermilion City" then
            moveToMap("Pokecenter Vermilion")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Pokecenter Vermilion" then
            usePokecenter()
        end
    elseif not isPokemonUsable(1) or (usingSpecialCatch and (getRemainingPowerPoints(indexOfFalseSwiper, "False Swipe") < 1 or getRemainingPowerPoints(indexOfSleep, sleepAttack) < 1)) then
        if getMapName() == "Vermilion City" then
            moveToMap("Pokecenter Vermilion")
        elseif getMapName() == "Vermilion Pokemart" then
            moveToMap("Vermilion City")
        elseif getMapName() == "Pokecenter Vermilion" then
            usePokecenter()
        end
    end
end

function onBattleAction()
    if usingSpecialCatch == true and (isWildBattle() and (isOpponentShiny() or getOpponentName() == "Squirtle")) then
        if getActivePokemonNumber() == 1 then
            return sendPokemon(indexOfFalseSwiper) or sendUsablePokemon()
        elseif getActivePokemonNumber() == indexOfFalseSwiper and getOpponentHealth() > 1 then
            useMove("False Swipe")
        elseif getOpponentHealth() == 1 then
            return sendPokemon(indexOfSleep) or sendUsablePokemon()
        elseif getActivePokemonNumber() == indexOfSleep and getOpponentHealth() == 1 then
            return useMove(sleepAttack)
        elseif getOpponentStatus() == "SLEEP" and getOpponentHealth() == 1 then
            return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or attack() or run()
        end
    elseif not usingSpecialCatch and isWildBattle() and (isOpponentShiny() or getOpponentName() == "Squirtle") then
        return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or attack() or run()
    elseif attack_pokemon == false and isWildBattle() and not isOpponentShiny() or not getOpponentName() == "Squirtle" then
        return run() or sendUsablePokemon() or attack()
    elseif attack_pokemon == true and isWildBattle() and not isOpponentShiny() or not getOpponentName() == "Squirtle" then
        return attack() or run() or sendUsablePokemon()
    end
end

Use this code and it will do what you want (hopefully). Smile
Keep in mind that you need to set your sleep attack in the config.

so if im using hypnosis i need to change
sleepAttack = "Sleep Powder"
--[[
into hypnosis right?
sry for the alot confirm but my english is not very well^^

Your english is good enough. Yes, you have to change this into Hypnosis. Smile
 
Reply
#9
sry forgot to said something!!!
can u let bot stop when is night and log in when is morning?
 
Reply
#10
roberto.1986 sry forgot to said something!!!
can u let bot stop when is night and log in when is morning?

If I'm not wrong you can't handle the login and logout through a script.
 
Reply
#11
Royal
roberto.1986 sry forgot to said something!!!
can u let bot stop when is night and log in when is morning?

If I'm not wrong you can't handle the login and logout through a script.


kk ty but can u let stop bot when is night?
because squirtle spawn only morning and day...is useless farm night lol;P
 
Reply
#12
idk why but when im encounters an squirtle the bot continue to change pokemon without catch it...
-- Config
usingLogs = true
buyingPokeballs = false
itemName = "Pokeball"
-- How many do you would like to buy?
quantity = 50
-- Set the minimum number of Pokeballs what you would like to have (after you have less than you entered the bot will buy new Pokeballs)
atLeast = 100  
-- Attack config
attack_pokemon = false
-- Special catch: False Swipe + Sleep
usingSpecialCatch = true
-- Config theses lines only if you use Special Catch
indexOfFalseSwiper = 2
indexOfSleep = 3
sleepAttack = "Hypnosis"
--[[
Below this line is the script.
Don't touch anything if you don't know what you're doing.
]]
here is my setup what im wrong
 
Reply
#13
roberto.1986 idk why but when im encounters an squirtle the bot continue to change pokemon without catch it...
-- Config
usingLogs = true
buyingPokeballs = false
itemName = "Pokeball"
-- How many do you would like to buy?
quantity = 50
-- Set the minimum number of Pokeballs what you would like to have (after you have less than you entered the bot will buy new Pokeballs)
atLeast = 100  
-- Attack config
attack_pokemon = false
-- Special catch: False Swipe + Sleep
usingSpecialCatch = true
-- Config theses lines only if you use Special Catch
indexOfFalseSwiper = 2
indexOfSleep = 3
sleepAttack = "Hypnosis"
--[[
Below this line is the script.
Don't touch anything if you don't know what you're doing.
]]
here is my setup what im wrong

Its a bug, I'll try to fix it.
I need some informations to fix it. Like the bot try to switch to which Pokemon?
 
Reply
#14
Royal
roberto.1986 idk why but when im encounters an squirtle the bot continue to change pokemon without catch it...
-- Config
usingLogs = true
buyingPokeballs = false
itemName = "Pokeball"
-- How many do you would like to buy?
quantity = 50
-- Set the minimum number of Pokeballs what you would like to have (after you have less than you entered the bot will buy new Pokeballs)
atLeast = 100  
-- Attack config
attack_pokemon = false
-- Special catch: False Swipe + Sleep
usingSpecialCatch = true
-- Config theses lines only if you use Special Catch
indexOfFalseSwiper = 2
indexOfSleep = 3
sleepAttack = "Hypnosis"
--[[
Below this line is the script.
Don't touch anything if you don't know what you're doing.
]]
here is my setup what im wrong

Its a bug, I'll try to fix it.
I need some informations to fix it. Like the bot try to switch to which Pokemon?


first 3 pokemon
 
Reply
#15
[Image: Update_Royal.jpg]
  • Final fix: The script works now perfectly!

There shouldn't be anymore bugs now but if you found one please report it to me.
 
Reply
#16
In the next update I'll include hunting Shellder in the night. But I have to fix many bugs now, I hope I can release it today.
 
Reply
#17
[Image: Update_Royal.jpg]
  • Beta Version released!
  • You can choose now if you jsut want Squirtle, catch Squirtle with Special Catch, hunt Squirtle and Shellder without Special Catch and hunt Squirtle / Shellder with Special Catch
  • The config part is now a bit more described
  • If you activate huntingShellder in the config the bot moves in the night to Route 6 and fishing Shellder there

Its just the Beta Version, I have not tested everything! If you encounter any bug please tell me where it happend and what excatly is happend!

Special Catch: The bot use two Sync Pokemons (I would advise you to use a Bold and Adamant one), it also use a False Swiper and a Pokemon with Sleep (You have to edit the Sleep Attack in the config).
And please make sure you have a Pokemon with Surf. Smile
 
Reply
#18
elseif getMapName("Vermilion City") then
            moveToWater()
        end

*whistle* Big Grin
I do NOT publish script and don't accept script requests.
I just help people do their own scripts.
 
Reply
#19
Someone
elseif getMapName("Vermilion City") then
            moveToWater()
        end

*whistle* Big Grin

This isn't funny. ._.

Big Grin
 
Reply
#20
[Image: Update_Royal.jpg]
  • Fixed many bugs
 
Reply
#21
[Image: Update_Royal.jpg]
  • Fixed many bugs
  • You can now deactivate the debugs logs

It should now works nearly perfectly, if you encountered any bugs please report them to me.
 
Reply
#22
[Image: Update_Royal.jpg]
  • Fixed every bug

So guys, its done! After many hours of testing and debugging I'm finished, the script works fine, without any problems.
At this point I allow everybody (you don't even have to ask me) to edit the script for your own purpose, your own script, do whatever you want, you don't even have to put me in the credits.
If you got any questions or suggestions feel free to contact me. Smile
 
Reply
#23
Royal https://s32.postimg.org/yiwam9bo5/Update_Royal.jpg
  • Fixed every bug

So guys, its done! After many hours of testing and debugging I'm finished, the script works fine, without any problems.
At this point I allow everybody (you don't even have to ask me) to edit the script for your own purpose, your own script, do whatever you want, you don't even have to put me in the credits.
If you got any questions or suggestions feel free to contact me. Smile


Great job man!!!!
work perfectly^^
 
Reply
#24
bot stops if sleeper is KO'd
it just keeps spaming sleep attack even tho he is dead

[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] No action executed: stopping the bot.
[7:31:34] Bot stopped
 
Reply
#25
marselcro bot stops if sleeper is KO'd
it just keeps spaming sleep attack even tho he is dead

[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] Battle | Using a Sleep Attack
[7:31:34] No action executed: stopping the bot.
[7:31:34] Bot stopped

Alright, I'll change this. So if the Sleeper of False Swiper is KO it will just use Pokeballs to catch it. Wink
 
Reply
  


Forum Jump:


Browsing: 1 Guest(s)