PokeSniper2 - AutoSniping only SPECIFIC pokemon

[sasunuz]

does anyone know why the script cant work for me? i run it and then appear 1 cmd window that saying im login, after that auto close, then open again another cmd window like the 1st thing and then close automatically again, and the last one is same. always going like that. did i do something wrong?

EDITED:
Works now. Thanks

[damhirgomez]

guys how to use the autospin and not get softbanned all time?

[amishhipster]

Any way to have this grab all mon with IV higher the 90%?

[codipassaro]

I have been watching the site for a while, letting it run the script, the script picks up SOME pokemon, but not all. I have seen 3 dragonites come and go, and the script didnt even try to catch it. It catches like 30% of the pokemon on the pokesnipers site, any reason for this? Or is it just a little slow?

[Sealice]

Try replacing the ShellExecute line with this. Haven't tested but should work.

ShellExecuteWait($PathToSnipe, '"' & $Array[$i] & '" "' & $Coords[1] & '" "' & $Coords[2] & '"', "", "open", @SW_HIDE)

Works perfekt! Thank you very much!!!
(Was starting this - waiting 10 minutes - looking ingame into my catch list and there are over 10 new pokes catched since relog be4 i changed it)

[jomykzzf1]

I have been watching the site for a while, letting it run the script, the script picks up SOME pokemon, but not all. I have seen 3 dragonites come and go, and the script didnt even try to catch it. It catches like 30% of the pokemon on the pokesnipers site, any reason for this? Or is it just a little slow?

Exactly. It doesnt catch 'em all. Just catch some pokemons. I saw also 2 Vaporeons on the list and the bot just picked one. I dont know why it happens though.

[looki31]

how open this script, i'm not understand

[neutronz]

Works perfekt! Thank you very much!!!
(Was starting this - waiting 10 minutes - looking ingame into my catch list and there are over 10 new pokes catched since relog be4 i changed it)

i always getting soft ban, can explain how to properly use it w/out soft ban?

[Dylanerd]

how to fix this dude?
Couldn't grab data from 'pokemon.json'

[sed-]

am confused what this has that his doesnt. It has already auto snipe, auto snipe set iv auto snipe set cp with auto snipe set pokemon.

[0hyears]

EDIT: Maclone just added v1.7 of PokeSnipe2 which makes this script obsolete.

Hey fellas,

as many of you I very much admire what mr maclone coded for us. However, I was missing an auto snipe / afk snipe feature in his release of PokeSniper2. There is Auto snipe, but it will snipe ALL the pokemons available on PokeSnipers.com. This snipes only those pokemon which you specify.

You will need AutoIt for this. If you don't have it, download it. IMPORTANT: save the script to the same folder as PokeSniper2!

Edit these settings and just run the script
Global $PathToSnipe - path to PokeSniper2.exe
Global $Pokemon2Snipe - what pokemons to snipe

Happy sniping Just caught my 6th Dragonite today while watching a movie :-D

Code below, or download the AU3 file HERE

#include <INet.au3>
#include <Array.au3>

HotKeySet("{F8}", "Shut")
HotKeySet("{F5}", "Pause")

Global $Paused
Global $CaughtPokemonIDs = ""
Global $JSONerror = 0



; *************************************************************************************************************************************************************
; *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS ***
; *************************************************************************************************************************************************************

Global $PathToSnipe = "F:\Pokemon GO\Snipe\30.7.2016\PokeSniper2.exe" ; REPLACE WITH THE PATH TO PokeSniper2.exe
Global $Pokemon2Snipe = "Snorlax,Dragonite,Chansey,Mew,Mewtwo,Dragonair,Lapras" ; POKEMON NAMES TO SNIPE SEPARATED WITH A COMMA (no spaces)

; *************************************************************************************************************************************************************
; *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS *** EDIT THIS ***
; *************************************************************************************************************************************************************



$Array = StringSplit($Pokemon2Snipe, ",")
$aSize = UBound($Array)

While 1
    $Source = _INetGetSource("http://pokesnipers.com/api/v1/pokemon.json")
	If @error Then
		$JSONerror = $JSONerror + 1
		If $JSONerror > 10 Then
			MsgBox(16, "Error", "Couldn't grab data from 'pokemon.json'. Try again later" & @CRLF & "Exiting script.")
			Exit
		EndIf
	Else
		$JSONerror = 0
		;MsgBox(1, "", $Source)
		For $i = 1 to $aSize - 1
			$PokemonSearch = StringInStr($Source, $Array[$i])
			If $PokemonSearch > 0 Then
				$PokemonOccurenceSearch = StringReplace($Source, $Array[$i], $Array[$i])
				$PokemonOccurence = @extended
				For $j = 1 to $PokemonOccurence
					$PokemonSearch = StringInStr($Source, $Array[$i], 0, $j)
					$IDPosStart = StringInStr($Source, '"id":', 0, -1, $PokemonSearch)
					$IDPosEnd = StringInStr($Source, ',"', 0, 1, $IDPosStart)
					$ID = StringMid($Source, $IDPosStart + 5, $IDPosEnd - $IDPosStart - 5)

					If StringInStr($CaughtPokemonIDs, $ID) = 0 Then
						$CoordsStart = StringInStr($Source, '"coords":"', 0, 1, $PokemonSearch)
						$CoordsEnd = StringInStr($Source, '","', 0, 1, $CoordsStart + 10)
						$CoordsRaw = StringMid($Source, $CoordsStart + 10, $CoordsEnd - $CoordsStart - 10)
						$Coords = StringSplit($CoordsRaw, ',')
						;MsgBox(1, "", "Found it / ID: " & $ID & " / Coords: " & $Coords[1] & " / " & $Coords[2])
						ShellExecuteWait($PathToSnipe, '"' & $Array[$i] & '" "' & $Coords[1] & '" "' & $Coords[2] & '"')
						If @error Then
							MsgBox(16, "Error", "Could not run PokeSniper2.exe" & @CRLF & "Make sure ' PathToSnipe ' variable is correctly set." & @CRLF & "Existing script")
							Exit
						EndIf
						$CaughtPokemonIDs = $CaughtPokemonIDs & $ID & ","
						;MsgBox(1, "", $CaughtPokemonIDs)
					;Else
						;MsgBox(1, "", "Duplicate ID: " & $ID & " / " & $CaughtPokemonIDs)
					EndIf
				Next
			;Else
				;MsgBox(1, "", "nothing to snipe")
			EndIf
		Next
	EndIf
	Sleep(15000)
WEnd

Func Shut()
	Exit
EndFunc

Func Pause() ; PAUSE RELATED FUNCTION
	$Paused = NOT $Paused
	While $Paused
		Sleep(100)
	WEnd
EndFunc

Tiếng Anh Tiếng Ý Klingon
You can delay between 2 times catch pokemon? Please ?

[0hyears]

you can fix the time delay between catching pokemon 10s-15s?