[redskhie]

If you don't have pokemon with shadow tag ability, you can use Pokemon with Mean Look move instead. Here's a simple script.


Requirements
1. Pokemon with Mean Look move at 1st slot
2. Pokeballs

name = "Abra Catcher"
Author = "redskhie"
Description = "It will catch Abra at Route 5"

function onStart()
    abra_count = 0
    abra_found = false
    used_meanlook = false
end

function onPathAction()

    used_meanlook = false
    abra_found = false
    
    if isPokemonUsable(2) and getRemainingPowerPoints(1,"Mean Look") > 0 then

        if getMapName() == "Pokecenter Cerulean" then
            moveToMap("Cerulean City")
        elseif getMapName() == "Cerulean City" then
            moveToCell(16, 50)
        elseif getMapName() == "Route 5" then
            moveToGrass()
        end

    else

        if getMapName() == "Route 5" then
            moveToCell(14, 0)
        elseif getMapName() == "Cerulean City" then
            moveToMap("Pokecenter Cerulean")
        elseif getMapName() == "Pokecenter Cerulean" then
            usePokecenter()
        end
        
    end

end

function onBattleAction()

    if getOpponentName() == "Abra" then
        
        if getActivePokemonNumber() == 1 then
            if used_meanlook == false then
                pp_left = useMove("Mean Look")
                --pp_left = pp_left - 1
                if getPokemonStatus(1) == "SLEEP" then
                    used_meanlook = false
                else
                    used_meanlook = true
                end
                
            elseif abra_found == true then
                return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon()
            elseif pp_left == false then
                return run() or sendAnyPokemon()
            else
                return run() or sendAnyPokemon()
            end

        end

    elseif isOpponentShiny() then

        return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendUsablePokemon()
    
    else
        return run() or sendUsablePokemon()
    end

end

function onBattleMessage(message)
    if stringContains(message, "switched") then
        abra_found = true
        abra_count = abra_count + 1

    end
end

function onPause()
    log("You have caught " .. abra_count .. " Abra's " )
end

Goodluck

[Someone]

Nice method! Didn't even though about mean look method x').

[lonelydestiny0]

if u have shadow tag abi, i'll be easier

[haiduong]

Could not load script abra.lua:
chunk_11,1758): unexpected symbol near '<eof>'

I think there's some thing wrong :o
Im using 2.1.1.0 Proshine

[redskhie]

No there's not. Recopy it properly.

[10:47:43 AM] Bot started
[10:49:01 AM] Script "Abra Catcher" by "" successfully loaded
[10:49:01 AM] Bot stopped

[haiduong]

i recopied many times but i still couldn't load it
after deleting "--pp_left = pp_left - 1" it could load but it ran away from abra

Pls tell me what did i do wrong

[ChowMein]

yeah hai is right, this script doesnt work

[10:42:33 PM] Script "Abra Catcher" by "" successfully loaded
[10:42:36 PM] Bot started
[10:42:46 PM] No action executed: stopping the bot.
[10:42:46 PM] Bot stopped

[ewazdomu]

It works for me, I used this script for 10 mins and get 2 abras. Thanks mate.

[Victormaru]

This works, except I've changed "Mean Look" to "Sleep Powder" since I'm using an Oddish to put the Abra to Sleep. However, while Sleep Powder was successful, my Oddish still ran instead of throwing a PokéBall, which I do have in my inventory. That's weird. I may have to look through the script again.

[redskhie]

name = "Abra Catcher"
Author = "redskhie"
Description = "It will catch Abra at Route 5"

function onStart()
    abra_count = 0
end

function onPathAction()
    
    if isPokemonUsable(2) and getRemainingPowerPoints(1,"Sleep Powder") > 0 then

        if getMapName() == "Pokecenter Cerulean" then
            moveToMap("Cerulean City")
        elseif getMapName() == "Cerulean City" then
            moveToCell(16, 50)
        elseif getMapName() == "Route 5" then
            moveToGrass()
        end

    else

        if getMapName() == "Route 5" then
            moveToCell(14, 0)
        elseif getMapName() == "Cerulean City" then
            moveToMap("Pokecenter Cerulean")
        elseif getMapName() == "Pokecenter Cerulean" then
            usePokecenter()
        end
        
    end

end

function onBattleAction()

    if getOpponentName() == "Abra" or isOpponentShiny() then
        
        if getActivePokemonNumber() == 1 then
                        return sendPokemon(2)
                elseif getActivePokemonNumber() == 2 and getOpponentStatus() ~= "SLEEP" then
                        return useMove("Sleep Powder") or useItem("Pokeball") or sendAnyPokemon() or run()
            elseif getOpponentStatus() == "SLEEP" then

                return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendUsablePokemon()

            end
    else
        return run() or sendUsablePokemon()
    end

end

function onBattleMessage(message)
    if stringContains(message, "Success") then

        abra_count = abra_count + 1

    end
end

function onPause()
    log("You have caught " .. abra_count .. " Abra's " )
end

[Victormaru]

Thanks a lot. You're the best!

[Elunius]

Victormaru This works, except I've changed "Mean Look" to "Sleep Powder" since I'm using an Oddish to put the Abra to Sleep. However, while Sleep Powder was successful, my Oddish still ran instead of throwing a PokéBall, which I do have in my inventory. That's weird. I may have to look through the script again.

http://oi68.tinypic.com/287hd8o.jpg

Look into my variante of the script (thx to redskhie)
It should show how to solve the problem.

Greetings

[Progamer163]

redskhie

name = "Abra Catcher"
Author = "redskhie"
Description = "It will catch Abra at Route 5"

function onStart()
    abra_count = 0
end

function onPathAction()
    
    if isPokemonUsable(2) and getRemainingPowerPoints(1,"Sleep Powder") > 0 then

        if getMapName() == "Pokecenter Cerulean" then
            moveToMap("Cerulean City")
        elseif getMapName() == "Cerulean City" then
            moveToCell(16, 50)
        elseif getMapName() == "Route 5" then
            moveToGrass()
        end

    else

        if getMapName() == "Route 5" then
            moveToCell(14, 0)
        elseif getMapName() == "Cerulean City" then
            moveToMap("Pokecenter Cerulean")
        elseif getMapName() == "Pokecenter Cerulean" then
            usePokecenter()
        end
        
    end

end

function onBattleAction()

    if getOpponentName() == "Abra" or isOpponentShiny() then
        
        if getActivePokemonNumber() == 1 then
                        return sendPokemon(2)
                elseif getActivePokemonNumber() == 2 and getOpponentStatus() ~= "SLEEP" then
                        return useMove("Sleep Powder") or useItem("Pokeball") or sendAnyPokemon() or run()
            elseif getOpponentStatus() == "SLEEP" then

                return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendUsablePokemon()

            end
    else
        return run() or sendUsablePokemon()
    end

end

function onBattleMessage(message)
    if stringContains(message, "Success") then

        abra_count = abra_count + 1

    end
end

function onPause()
    log("You have caught " .. abra_count .. " Abra's " )
end

Found a problem when I put my belsprout with Sleep Powder on the first slot of my team and got KOd the pokemon on slot 2 will continue to find pokemon in grass which would be for naught since pokemon #2 doesnt have sleep powder when instead he should have gone back to pokecenter to revive pokemon #1.

EDIT: Nvm I went and leveled a golbat to learn Mean Look and I caught an abra within minutes. Thanks for this script

[MangNine]

Hello, can you evolve your script for use sync in slot 1 and shadow tag in slot 2, i've tried to do this by my own, dut not worked at all.

[mushedpancakes]

I've been using spore on my parasect. I left everything no the script exactly the same except changing the skills from either mean look or sleep powder to spore, but when i meet an abra, it switches my pokemon and either runs or lets abra teleport. Can someone tell me what I'm doing wrong or show me how its supposed to be scripted?

[X1VK_TroJan]

name = "Abra Catcher"
Author = "redskhie"
Description = "It will catch Abra at Route 5"

function onStart()
abra_count = 0
abra_found = false
used_Growl = false
end

function onPathAction()

used_Growl = false
abra_found = false

if isPokemonUsable(2) and getRemainingPowerPoints(1,"Growl") > 0 then

if getMapName() == "Pokecenter Cerulean" then
moveToMap("Cerulean City")
elseif getMapName() == "Cerulean City" then
moveToCell(16, 50)
elseif getMapName() == "Route 5" then
moveToGrass()
end

else

if getMapName() == "Route 5" then
moveToCell(14, 0)
elseif getMapName() == "Cerulean City" then
moveToMap("Pokecenter Cerulean")
elseif getMapName() == "Pokecenter Cerulean" then
usePokecenter()
end

end

end

function onBattleAction()

if getOpponentName() == "Abra" then

if getActivePokemonNumber() == 1 then
if used_Growl == false then
pp_left = useMove("Growl")
--pp_left = pp_left - 1
if getPokemonStatus(1) == "SLEEP" then
used_Growl = false
else
used_Growl = true
end

elseif abra_found == true then
return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon()
elseif pp_left == false then
return run() or sendAnyPokemon()
else
return run() or sendAnyPokemon()
end

end

elseif isOpponentShiny() then

return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendUsablePokemon()

else
return run() or sendUsablePokemon()
end

end

function onBattleMessage(message)
if stringContains(message, "switched") then
abra_found = true
abra_count = abra_count + 1

end
end

function onPause()
log("You have caught " .. abra_count .. " Abra's " )
end


so the digtrio runs for no reason can someone refine the scrift and make him throw a ball instead of running

[hunili]

thanks

but i have a few problem.

When i use your first script, mean look didn't work. abra escaped.
when i use sleep powder script, it give sleep to abra but don't catch it. just sleep & run.

[18:25:37] A Wild Abra Attacks!
[18:25:43] Vileplume used Sleep Powder.
[18:25:43] Abra fell asleep!
[18:25:43] Abra is Fast Asleep...
[18:25:46] You have run away from the wild Pokemon.

After that, i tried to change your first script with sleep powdr, but still no catch. just send it to sleep, then run.

This is the changed version. Thank you anyway

name = "Abra Catcher"
Author = "redskhie"
Description = "It will catch Abra at Route 5"

function onStart()
   abra_count = 0
   abra_found = false
   used_sleeppowder = false
end

function onPathAction()

   used_sleeppowder = false
   abra_found = false
   
   if isPokemonUsable(2) and getRemainingPowerPoints(1,"Sleep Powder") > 0 then

       if getMapName() == "Pokecenter Cerulean" then
           moveToMap("Cerulean City")
       elseif getMapName() == "Cerulean City" then
           moveToCell(16, 50)
       elseif getMapName() == "Route 5" then
           moveToGrass()
       end

   else

       if getMapName() == "Route 5" then
           moveToCell(14, 0)
       elseif getMapName() == "Cerulean City" then
           moveToMap("Pokecenter Cerulean")
       elseif getMapName() == "Pokecenter Cerulean" then
           usePokecenter()
       end
       
   end

end

function onBattleAction()

   if getOpponentName() == "Abra" then
       
       if getActivePokemonNumber() == 1 then
           if used_sleeppowder == false then
               pp_left = useMove("Sleep Powder")
               --pp_left = pp_left - 1
               if getPokemonStatus(1) == "SLEEP" then
                   used_sleeppowder = false
               else
                   used_sleeppowder = true
               end
               
           elseif abra_found == true then
               return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon()
           elseif pp_left == false then
               return run() or sendAnyPokemon()
           else
               return run() or sendAnyPokemon()
           end

       end

   elseif isOpponentShiny() then

       return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendUsablePokemon()
   
   else
       return run() or sendUsablePokemon()
   end

end

function onBattleMessage(message)
   if stringContains(message, "switched") then
       abra_found = true
       abra_count = abra_count + 1

   end
end

function onPause()
   log("You have caught " .. abra_count .. " Abra's " )
end

[Precious]

(2017-05-29, 14:37:51)hunili thanks

but i have a few problem.

When i use your first script, mean look didn't work. abra escaped.
when i use sleep powder script, it give sleep to abra but don't catch it. just sleep & run.

[18:25:37] A Wild Abra Attacks!
[18:25:43] Vileplume used Sleep Powder.
[18:25:43] Abra fell asleep!
[18:25:43] Abra is Fast Asleep...
[18:25:46] You have run away from the wild Pokemon.

After that, i tried to change your first script with sleep powdr, but still no catch. just send it to sleep, then run.

This is the changed version. Thank you anyway

name = "Abra Catcher"
Author = "redskhie"
Description = "It will catch Abra at Route 5"

function onStart()
   abra_count = 0
   abra_found = false
   used_sleeppowder = false
end

function onPathAction()

   used_sleeppowder = false
   abra_found = false
   
   if isPokemonUsable(2) and getRemainingPowerPoints(1,"Sleep Powder") > 0 then

       if getMapName() == "Pokecenter Cerulean" then
           moveToMap("Cerulean City")
       elseif getMapName() == "Cerulean City" then
           moveToCell(16, 50)
       elseif getMapName() == "Route 5" then
           moveToGrass()
       end

   else

       if getMapName() == "Route 5" then
           moveToCell(14, 0)
       elseif getMapName() == "Cerulean City" then
           moveToMap("Pokecenter Cerulean")
       elseif getMapName() == "Pokecenter Cerulean" then
           usePokecenter()
       end
       
   end

end

function onBattleAction()

   if getOpponentName() == "Abra" then
       
       if getActivePokemonNumber() == 1 then
           if used_sleeppowder == false then
               pp_left = useMove("Sleep Powder")
               --pp_left = pp_left - 1
               if getPokemonStatus(1) == "SLEEP" then
                   used_sleeppowder = false
               else
                   used_sleeppowder = true
               end
               
           elseif abra_found == true then
               return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon()
           elseif pp_left == false then
               return run() or sendAnyPokemon()
           else
               return run() or sendAnyPokemon()
           end

       end

   elseif isOpponentShiny() then

       return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendUsablePokemon()
   
   else
       return run() or sendUsablePokemon()
   end

end

function onBattleMessage(message)
   if stringContains(message, "switched") then
       abra_found = true
       abra_count = abra_count + 1

   end
end

function onPause()
   log("You have caught " .. abra_count .. " Abra's " )
end

u did a great mistake here 

              if getPokemonStatus(1) == "SLEEP" then
                  used_sleeppowder = false
              else
                  used_sleeppowder = true
              end

u have to change it to:

              if getOpponentStatus() == "SLEEP" then
                  used_sleeppowder = true
              else
                  used_sleeppowder = false              
               end

[redskhie]

@hunili Abra escaped on Mean Look ? :o HOW?

Replace the battle command with this simple script and delete "used_sleeppowder" on path action

if getOpponentName() == "Abra" or isOpponentShiny() then
        
        if getActivePokemonNumber() == 1 then
                        return sendPokemon(2)
        elseif getActivePokemonNumber() == 2 and getOpponentStatus() ~= "SLEEP" then
                        return useMove("Sleep Powder") or useItem("Pokeball") or sendAnyPokemon() or run()
        elseif getOpponentStatus() == "SLEEP" then
                        return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendUsablePokemon()
        end
else
        return run() or sendUsablePokemon()
end

[Reissfeld]

Quote[23:34:31] A Wild Abra Attacks!
[23:34:37] error: run: the script can only execute one action per frame.
[23:34:37] Bot stopped
[23:34:37] error: attack: the script can only execute one action per frame.
[23:34:37] error: sendUsablePokemon: the script can only execute one action per frame.
[23:34:37] error: sendAnyPokemon: the script can only execute one action per frame.
[23:34:38] Gengar used Mean Look.
[23:34:38] Abra can not be switched!
[23:34:38] Abra used Teleport.
[23:34:38] But it failed..
[23:35:38] System: You are now AFK!
[23:36:47] Bot started
[23:36:47] error: run: the script can only execute one action per frame.
[23:36:47] Bot stopped
[23:36:47] error: attack: the script can only execute one action per frame.
[23:36:47] error: sendUsablePokemon: the script can only execute one action per frame.
[23:36:47] error: sendAnyPokemon: the script can only execute one action per frame.

what happen here, when battle with abra it just stop like that

[Second]

I just registered today and i found this script..
i tried and it always run after i used mean look..

i fixed it and remove some unused line (im using proshine dark mode from precious)
this is for route 35. just change the local path = {} if you want hunt abra on different place
also you can change your mount/bicycle, just change that "Yellow Bicycle" 

name = "Abra Catcher"
author = "redskhie"
description = "It will catch Abra, edited by Second"

local path = { 'Pokecenter Goldenrod', 'Goldenrod City', 'Route 35 Stop House', 'Route 35', }

local function getPathIndex()
    for i = 1, #path do
        if getMapName() == path[i] then
            return i
        end
    end
    fatal('error: current map is not present in the path table.')
end

local function firstMap()
    if getMapName() == path[1] then
        return true
    end
    moveToMap(path[getPathIndex() - 1])
end

local function lastMap()
    if getMapName() == path[#path] then
        return true
    end
    moveToMap(path[getPathIndex() + 1])
end

function onStart()
    ball_count1 = getItemQuantity("Pokeball")   
    ball_count2 = getItemQuantity("Great Ball")   
    ball_count3 = getItemQuantity("Ultra Ball")
    ball_count = ball_count1 + ball_count2 + ball_count3   
    abra_count = 0
    wild_count = 0
    used_meanlook = false
    log("=======================================================================" )
    log(" - Pokeball : ".. ball_count1 .." -")
    log(" - Greatball : ".. ball_count2 .." -")
    log(" - Pokeball : ".. ball_count3 .." -")
    log(" - Total : ".. ball_count .." -")
    log("=======================================================================" )
end

function onPathAction()

    if ball_count <= 15 then --change this/disable this to make warning
        log("!!! WARNING  !!!")
        log("!!! POKEBALL RUNNING LOW !!!")
    end

    if isOutside() and hasItem('Yellow Bicycle') and not isSurfing() and not isMounted() then --change to name of your mount
        log('Using Yellow Bicycle......')
        return useItem('Yellow Bicycle') --change to name of your mount
    end
    
    used_meanlook = false
    
    if getUsablePokemonCount() > 1 and getRemainingPowerPoints(1,"Mean Look") > 0 then
        if lastMap() then
            return moveLinearX(19, 23, 10, 10) --change to moveGrass()
        end
    else
        if firstMap() then
            return usePokecenter()
        end
    end

end

function onBattleAction()

    if getOpponentName() == "Abra" or isOpponentShiny() then
       
        if getActivePokemonNumber() == 1 then
            if used_meanlook == false then
                pp_left = useMove("Mean Look")
                if getOpponentStatus() == "SLEEP" then
                    used_meanlook = false
                else
                    used_meanlook = true
                end
                
            elseif used_meanlook == true then
                return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() 
            end

        end
    else
        return run() or sendAnyPokemon()
    end

end



function onBattleMessage(message)

    if stringContains(message, "Success") then
        log("  " )
        log("=============================== ABRA CATCHED ===============================" )
        log("  " )
        abra_count = abra_count + 1
    end

    if stringContains(message, "A Wild") then
        wild_count = wild_count + 1
    end
end

function onPause()
    log("=======================================================================" )
    log("You have caught " .. abra_count .. " Abra's " )
    log("You have encounter " .. wild_count .. " Wild Pokemon's " )
    log("You have " .. tostring(getItemQuantity("Pokeball")) .. " Pokeball's Left" )
    log("You have " .. tostring(getItemQuantity("Great Ball")) .. " Great Ball's Left" )
    log("You have " .. tostring(getItemQuantity("Ultra Ball")) .. " Ultra Ball's Left" )
    log("=======================================================================" )
end

[FoxxFlare]

(2018-03-16, 15:47:57)@Second -So when I load up your modified script it just has me talk to Nurse joy over and over and over again lol any idea how to fix? Second I just registered today and i found this script..
i tried and it always run after i used mean look..

i fixed it and remove some unused line (im using proshine dark mode from precious)
this is for route 35. just change the local path = {} if you want hunt abra on different place
also you can change your mount/bicycle, just change that "Yellow Bicycle" 

name = "Abra Catcher"
author = "redskhie"
description = "It will catch Abra, edited by Second"

local path = { 'Pokecenter Goldenrod', 'Goldenrod City', 'Route 35 Stop House', 'Route 35', }

local function getPathIndex()
    for i = 1, #path do
        if getMapName() == path[i] then
            return i
        end
    end
    fatal('error: current map is not present in the path table.')
end

local function firstMap()
    if getMapName() == path[1] then
        return true
    end
    moveToMap(path[getPathIndex() - 1])
end

local function lastMap()
    if getMapName() == path[#path] then
        return true
    end
    moveToMap(path[getPathIndex() + 1])
end

function onStart()
    ball_count1 = getItemQuantity("Pokeball")   
    ball_count2 = getItemQuantity("Great Ball")   
    ball_count3 = getItemQuantity("Ultra Ball")
    ball_count = ball_count1 + ball_count2 + ball_count3   
    abra_count = 0
    wild_count = 0
    used_meanlook = false
   log("=======================================================================" )
    log(" - Pokeball : ".. ball_count1 .." -")
    log(" - Greatball : ".. ball_count2 .." -")
    log(" - Pokeball : ".. ball_count3 .." -")
    log(" - Total : ".. ball_count .." -")
   log("=======================================================================" )
end

function onPathAction()

    if ball_count <= 15 then --change this/disable this to make warning
        log("!!! WARNING  !!!")
        log("!!! POKEBALL RUNNING LOW !!!")
    end

    if isOutside() and hasItem('Yellow Bicycle') and not isSurfing() and not isMounted() then --change to name of your mount
        log('Using Yellow Bicycle......')
        return useItem('Yellow Bicycle') --change to name of your mount
    end
    
    used_meanlook = false
    
    if getUsablePokemonCount() > 1 and getRemainingPowerPoints(1,"Mean Look") > 0 then
        if lastMap() then
            return moveLinearX(19, 23, 10, 10) --change to moveGrass()
        end
    else
        if firstMap() then
            return usePokecenter()
        end
    end

end

function onBattleAction()

    if getOpponentName() == "Abra" or isOpponentShiny() then
       
        if getActivePokemonNumber() == 1 then
            if used_meanlook == false then
                pp_left = useMove("Mean Look")
                if getOpponentStatus() == "SLEEP" then
                    used_meanlook = false
                else
                    used_meanlook = true
                end
                
            elseif used_meanlook == true then
                return useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") or sendAnyPokemon() 
            end

        end
    else
        return run() or sendAnyPokemon()
    end

end



function onBattleMessage(message)

   if stringContains(message, "Success") then
       log("  " )
       log("=============================== ABRA CATCHED ===============================" )
       log("  " )
       abra_count = abra_count + 1
   end

   if stringContains(message, "A Wild") then
       wild_count = wild_count + 1
   end
end

function onPause()
   log("=======================================================================" )
   log("You have caught " .. abra_count .. " Abra's " )
   log("You have encounter " .. wild_count .. " Wild Pokemon's " )
   log("You have " .. tostring(getItemQuantity("Pokeball")) .. " Pokeball's Left" )
   log("You have " .. tostring(getItemQuantity("Great Ball")) .. " Great Ball's Left" )
   log("You have " .. tostring(getItemQuantity("Ultra Ball")) .. " Ultra Ball's Left" )
   log("=======================================================================" )
end