Advertisement
Guest User

Untitled

a guest
Mar 26th, 2017
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.02 KB | None | 0 0
  1. name = "Capturar Shellos"
  2. author = "Pinguim"
  3. description = [[Captura Shellos Relaxed w/ False Swipe]]
  4.  
  5. function onStart()
  6. pcVisits = 0
  7. shinyCounter = 0
  8. wildCounter = 0
  9. log("O Bot foi ligado.")
  10. end
  11.  
  12. function onPause()
  13. log("Shinies capturados: " .. shinyCounter)
  14. log("Pokemons encontrados: " .. wildCounter)
  15. log("Você visitou o PokeCenter ".. pcVisits .." vezes.")
  16. log("*********************************************************************************************")
  17. end
  18.  
  19. function onPathAction()
  20. if isPokemonUsable(1)
  21. and (getRemainingPowerPoints(2, "False Swipe") == 0) -- you can change "Hypnosis" to "Sleep Powder"
  22. then
  23. if getMapName() == "Granite Cave 1F" then
  24. moveToMap("Route 106")
  25. elseif getMapName() == "Route 106" then
  26. moveToMap("Dewford Town")
  27. elseif getMapName() == "Dewford Town" then
  28. moveToMap("Pokecenter Dewford Town")
  29. elseif getMapName() == "Pokecenter Dewford Town" then
  30. usePokecenter()
  31. end
  32. elseif isPokemonUsable(1) then
  33. if getPokemonNature(1) == "Adamant" then
  34. if getMapName() == "Pokecenter Dewford Town" then
  35. moveToMap("Dewford Town")
  36. elseif getMapName() == "Dewford Town" then
  37. moveToMap("Route 106")
  38. elseif getMapName() == "Route 106" then
  39. moveToMap("Granite Cave 1F")
  40. elseif getMapName() == "Granite Cave B1F1F" then
  41. moveToRectangle(7, 16, 8, 17)
  42. end
  43. end
  44. end
  45. end
  46. function onBattleAction()
  47. if isWildBattle() and (isOpponentShiny() or getOpponentName() == "Axew") then
  48. if getActivePokemonNumber() == 1 then
  49. if sendPokemon(2) then return end
  50. end
  51. if getActivePokemonNumber() == 2 and getOpponentHealth() > 1 then
  52. if weakAttack() then return end
  53. end
  54. if useItem("Pokeball") or useItem("Great Ball") or useItem("Ultra Ball") then return end
  55. end
  56. return run() or sendUsablePokemon() or sendAnyPokemon()
  57. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement