PokeSniper2 - AutoSniping only SPECIFIC pokemon

[Seminko]

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

[stillerchiller]

Nice Release.

But you do realise that PokeSniper2 1.6 is in fact having a "Auto Snipe" function using pokesnipers, right? ^^

[teamforprime]

How to do it?>

[nero.]

SO what does this do exactly? Use co ords from discord chats to auto snipe certain pokemon?

[Seminko]

Nice Release.

But you do realise that PokeSniper2 1.6 is in fact having a "Auto Snipe" function using pokesnipers, right? ^^

It snipes all the pokemon from PokeSnipers. This snipes only what you tell it to.

[Seminko]

SO what does this do exactly? Use co ords from discord chats to auto snipe certain pokemon?

PokeSnipers2 from maclone snipes pokemons from PokeSnipers.com. This lets you specify what pokemons to snipe.

[uploader619]

Good job Seminko this is really useful which maclone should had included in his release

[nero.]

Do I need to have the sniper open already before I run the script?

[jomykzzf1]

PokeSnipers2 from maclone snipes pokemons from PokeSnipers.com. This lets you specify what pokemons to snipe.

can you explain me how do I edit it? which tool I need to use? notepad++?

[nero.]

When I run the script it just opens the sniper to the press Y bit and then nothing happens.

can you explain me how do I edit it? which tool I need to use? notepad++?

Read the OP. You need AutoIt

[ronshohan]

Wow !! I don't have words to describe just how awesome this work is. Thank you so very much. You sir ROCK !!!

[jamsya]

Works well. Thx!

[jomykzzf1]

When I run the script with AutoIt, it minimizes and I can't see the progress... Is that normal?

[Seminko]

When I run the script with AutoIt, it minimizes and I can't see the progress... Is that normal?

Yes, once one of the pokemons you cpecified appears it will load the cmd prompt automaticallz. You can find the script running in the tray. If you want to kill it with a hotkey, press F8

[jomykzzf1]

Yes, once one of the pokemons you cpecified appears it will load the cmd prompt automaticallz. You can find the script running in the tray. If you want to kill it with a hotkey, press F8

Oh ok thanks alot