AutoShoot Code
Here I found for AutoShoot.
Try it for yourself, good luck and tell me if is something wrong and need to change please.
Try it for yourself, good luck and tell me if is something wrong and need to change please.
Code:
;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
Originally Posted by FoxHunter
