AutoShoot Code

[FoxHunter]

Here I found for AutoShoot.
Try it for yourself, good luck and tell me if is something wrong and need to change please.

;msgbox.au3
;Created by LogisticDad https://logisticdad.co.uk
HotKeySet("{F1}", "mousecur")
HotKeySet("{F2}", "getcol")
HotKeySet("{F5}", "Terminate")
HotKeySet("{F9}", "Home")
#include "CustomMsgBox.au3"
Home()
While 1
    Sleep(10)
WEnd
 
Func Terminate()
	MsgBox(0, "Bye", "Bye, Bye")
	Exit 1
EndFunc
 
Func Home()
	$REturn = xMsgBox(16+0x200,"Palidins AutoShoot","Please use one of the options below. use F9 to open this page again","Start","help", "Exit",  Default,34,"C:\vista.ico")
	switch $REturn
 
		case 6 ;Start
			Start()
 
 
		case 7 ;Help
			Help()
 
	endswitch
EndFunc
 
Func Start()
	$Start  = xMsgBox(16+0x200,"Palidins AutoShoot","Please select resolution below.","1920x1080","1366x768", "Exit",Default,34,"C:\vista.ico")
	switch $Start
 
	case 6 ;1920x1080
	MsgBox(0, "Online", "1920x1080 Enabled")
	While 1
	  $point = PixelSearch(960,538,962,538, 0xFE4040, 10)
	  if IsArray($point) Then
		 MouseClick("left")
		 $point = ""
	  EndIf
	  $point = PixelSearch(960,538,962,538, 0xFDB033, 10)
	  if IsArray($point) Then
		 MouseClick("left")
		 $point = ""
	  EndIf
	WEnd
 
	case 7 ;1366x768
	MsgBox(0, "Online", "1366x768 Enabled")
	While 1
	  $point = PixelSearch(683,383,686,384, 0xFE4040, 3)
	  if IsArray($point) Then
		 MouseClick("left")
		 $point = ""
	  EndIf
	  $point = PixelSearch(683,383,684,383, 0xFDB033, 3)
	  if IsArray($point) Then
		 MouseClick("left")
		 $point = ""
	  EndIf
   WEnd
 
endswitch
EndFunc
 
Func Help()
	$Help  = xMsgBox(16+0x200,"Palidins AutoShoot","Please Follow below instructions for this to work." &   @CRLF & "" &   @CRLF & "1) Go to game options" &   @CRLF & "2) Goto Gameplay and set:" &   @CRLF & "3) Enable Reticle type: DOT" &   @CRLF & "4) Enable Reticle change over target: ENABLED.","Start","Extra","Exit",Default,34,"C:\vista.ico")
	switch $Help
 
		case 6 ;Start
			Start()
 
		case 7 ;Extras
			Extras()
 
	endswitch
EndFunc
 
Func Extras()
	$Extras  = xMsgBox(16+0x200,"Palidins AutoShoot","Extras For Config." &   @CRLF & "" &   @CRLF & "F1 - Show Mouse Position" &   @CRLF & "F2 - Show Color of Pixel","Start","Home","Exit",Default,34,"C:\vista.ico")
	switch $Extras
 
		case 6 ;Start
			Start()
 
		case 7 ;Extras
			Home()
 
	endswitch
EndFunc
 
Func mousecur()
	$MousePos = MouseGetPos()
	$MousePos[0] ; Mouse X position
	$MousePos[1] ; Mouse Y position
	msgbox(0,"Debug","Cursor located at " & $MousePos[0] & "," & $MousePos[1])
EndFunc
 
Func getcol()
 
   $iColor = PixelGetColor(745,375)
   msgbox(0,"Debug","Cursor located at " & Hex($iColor, 6))
 
EndFunc

[Sunz115]

Here I found for AutoShoot.
Try it for yourself, good luck and tell me if is something wrong and need to change please.

;msgbox.au3
;Created by LogisticDad https://logisticdad.co.uk
HotKeySet("{F1}", "mousecur")
HotKeySet("{F2}", "getcol")
HotKeySet("{F5}", "Terminate")
HotKeySet("{F9}", "Home")
#include "CustomMsgBox.au3"
Home()
While 1
    Sleep(10)
WEnd
 
Func Terminate()
	MsgBox(0, "Bye", "Bye, Bye")
	Exit 1
EndFunc
 
Func Home()
	$REturn = xMsgBox(16+0x200,"Palidins AutoShoot","Please use one of the options below. use F9 to open this page again","Start","help", "Exit",  Default,34,"C:\vista.ico")
	switch $REturn
 
		case 6 ;Start
			Start()
 
 
		case 7 ;Help
			Help()
 
	endswitch
EndFunc
 
Func Start()
	$Start  = xMsgBox(16+0x200,"Palidins AutoShoot","Please select resolution below.","1920x1080","1366x768", "Exit",Default,34,"C:\vista.ico")
	switch $Start
 
	case 6 ;1920x1080
	MsgBox(0, "Online", "1920x1080 Enabled")
	While 1
	  $point = PixelSearch(960,538,962,538, 0xFE4040, 10)
	  if IsArray($point) Then
		 MouseClick("left")
		 $point = ""
	  EndIf
	  $point = PixelSearch(960,538,962,538, 0xFDB033, 10)
	  if IsArray($point) Then
		 MouseClick("left")
		 $point = ""
	  EndIf
	WEnd
 
	case 7 ;1366x768
	MsgBox(0, "Online", "1366x768 Enabled")
	While 1
	  $point = PixelSearch(683,383,686,384, 0xFE4040, 3)
	  if IsArray($point) Then
		 MouseClick("left")
		 $point = ""
	  EndIf
	  $point = PixelSearch(683,383,684,383, 0xFDB033, 3)
	  if IsArray($point) Then
		 MouseClick("left")
		 $point = ""
	  EndIf
   WEnd
 
endswitch
EndFunc
 
Func Help()
	$Help  = xMsgBox(16+0x200,"Palidins AutoShoot","Please Follow below instructions for this to work." &   @CRLF & "" &   @CRLF & "1) Go to game options" &   @CRLF & "2) Goto Gameplay and set:" &   @CRLF & "3) Enable Reticle type: DOT" &   @CRLF & "4) Enable Reticle change over target: ENABLED.","Start","Extra","Exit",Default,34,"C:\vista.ico")
	switch $Help
 
		case 6 ;Start
			Start()
 
		case 7 ;Extras
			Extras()
 
	endswitch
EndFunc
 
Func Extras()
	$Extras  = xMsgBox(16+0x200,"Palidins AutoShoot","Extras For Config." &   @CRLF & "" &   @CRLF & "F1 - Show Mouse Position" &   @CRLF & "F2 - Show Color of Pixel","Start","Home","Exit",Default,34,"C:\vista.ico")
	switch $Extras
 
		case 6 ;Start
			Start()
 
		case 7 ;Extras
			Home()
 
	endswitch
EndFunc
 
Func mousecur()
	$MousePos = MouseGetPos()
	$MousePos[0] ; Mouse X position
	$MousePos[1] ; Mouse Y position
	msgbox(0,"Debug","Cursor located at " & $MousePos[0] & "," & $MousePos[1])
EndFunc
 
Func getcol()
 
   $iColor = PixelGetColor(745,375)
   msgbox(0,"Debug","Cursor located at " & Hex($iColor, 6))
 
EndFunc

how do i start or run
it

[TruGam3rr]

how do i start or run
it

i think u need to install autohotkey to run it.
just copy paste the code in a .txt file then rename it to .ahk

[razzettii]

i think u need to install autohotkey to run it.
just copy paste the code in a .txt file then rename it to .ahk

I tried this today (not sure if it still works) and I got an error saying
Error at line 7.
#Include file "C:\Users\user\Desktop"CustomMsgBox.au3"" cannot be opened.
The program will exit.

Any help?