Pixel bot menu
Follow us:

User Tag List

Thread: Pixel bot

Results 1 to 1 of 1
  1. 06-25-2016 #1
    AutoScript's Avatar
    AutoScript
    AutoScript is offline
    Corporal CoreCoins Purchaser
    Reputation
    23
    Join Date
    Oct 2014
    Posts
    29
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Free Pixel bot ESB

    Hi all

    Compile with autoit 3. If you do not know how Let me google that for you
    Note ( Need to run client in window mode.)
    Note ( Need to set AOE Loot as L )
    Note ( Need to set Tab as closest target )

    Pixel bot-gw2-1-00-png



    Code:
     
 
; AutoIt Version: 3.0
; Language: English
; Platform: Win9x/NT
; Author:  ESB

#Region Include
#include <Math.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <UpDownConstants.au3>
#include <Misc.au3>
#include <WindowsConstants.au3>
#include <DateTimeConstants.au3>
#include <date.au3>
#include <MsgBoxConstants.au3>
#RequireAdmin
#EndRegion Include

#Region flags
$cot = 1 ; turn and target function
$Interrupt = 0 ;stop func
$EventCheck = 0 ;button or stop
$P = 1 ; set to pause
$fInterrupt = 0 ; wraper functon for sleep
$Tc = 0
$h = 1
$a = 0
$m = 0
$Face = 1 ; face target
#EndRegion flags

#Region    GUI

Opt("GUIOnEventMode", 1)
$hGUI = GUICreate("GW2 Pixel Bot 1.05", 325, 400, 75, 200, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
GUICtrlSetFont($hGUI, 6, 800, 0, "Arial")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetFont(11, 500, 1, "Tahoma")
GUISetBkColor(0xDAE0F1)
GUICtrlSetColor(-1, 0xB1BCCA)

;;;;;;;;;;Labels;;;;;;;;;;;;;;;;;

$Label9 = GUICtrlCreateLabel("Color  Variance", 12, 202, 63, 22)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x001F40)
$Label10 = GUICtrlCreateLabel("Health Check", 178, 260, 64, 15)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x001F40)
$Label12 = GUICtrlCreateLabel("Move", 94, 162, 38, 20)
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
$Label11 = GUICtrlCreateLabel("Rotation", 94, 126, 61, 20)
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
$Label13 = GUICtrlCreateLabel("Pause", 158, 308, 46, 18)
$Label15 = GUICtrlCreateLabel("Latency", 24, 272, 54, 20)
GUICtrlSetFont(-1, 7, 800, 0, "Arial")
$Label1 = GUICtrlCreateLabel("Pet Health Check", 188, 215, 112, 15)
GUICtrlSetFont(-1, 7, 800, 0, "Arial")

;;;;;;;;;;;;;input;;;;;;;;;;;;

;;;;;;;;;    1    ;;;;;;;;;;;;;;;

$Input25 = GUICtrlCreateInput("0", 8, 16, 16, 22, $ES_NUMBER)
GUICtrlSetTip($Input25, "This will set what key to send for this skill.  " & @CRLF & "  0 -9")
$Input1 = GUICtrlCreateInput("0", 32, 16, 40, 22, $ES_NUMBER)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$hUpDown1 = GUICtrlCreateUpdown($Input1)
GUICtrlSetLimit(-1, 1, 0)
GUICtrlSetTip($Input1, "This will set if to fire this skill." & @CRLF & "  1 = fire")
$Input5 = GUICtrlCreateInput("0", 72, 16, 40, 22, $ES_NUMBER)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$hUpDown5 = GUICtrlCreateUpdown($Input5)
GUICtrlSetLimit(-1, 20, 0)
GUICtrlSetTip($Input5, "This will set the delay time for this skill to recharge " & @CRLF & "1 - 20 sec. .")
$Input9 = GUICtrlCreateInput("0", 112, 16, 40, 22, $ES_NUMBER)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$hUpDown9 = GUICtrlCreateUpdown($Input9)
GUICtrlSetLimit(-1, 50, 0)
GUICtrlSetTip($Input9, "This will set the delay time for the skill to compleet casting" & @CRLF & "1 - 50 ( 10 = 1 sec. .")

;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;

$Input26 = GUICtrlCreateInput("0", 168, 16, 16, 26, $ES_NUMBER)
$Input2 = GUICtrlCreateInput("0", 192, 16, 40, 22, $ES_NUMBER)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$hUpDown2 = GUICtrlCreateUpdown($Input2)
GUICtrlSetLimit(-1, 1, 0)
$Input6 = GUICtrlCreateInput("0", 232, 16, 40, 22, $ES_NUMBER)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$hUpDown6 = GUICtrlCreateUpdown($Input6)
GUICtrlSetLimit(-1, 20, 0)
$Input10 = GUICtrlCreateInput("0", 272, 16, 40, 22, $ES_NUMBER)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$hUpDown10 = GUICtrlCreateUpdown($Input10)
GUICtrlSetLimit(-1, 50, 0)

;;;;;;;;;;;;;;;;;;;  3   ;;;;;;;;;;;;;;;

$Input27 = GUICtrlCreateInput("0", 8, 56, 16, 22, $ES_NUMBER)
$Input3 = GUICtrlCreateInput("0", 32, 56, 40, 22, $ES_NUMBER)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$hUpDown3 = GUICtrlCreateUpdown($Input3)
GUICtrlSetLimit(-1, 1, 0)
$Input7 = GUICtrlCreateInput("0", 72, 56, 40, 22, $ES_NUMBER)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$hUpDown7 = GUICtrlCreateUpdown($Input7)
GUICtrlSetLimit(-1, 20, 0)
$Input11 = GUICtrlCreateInput("0", 112, 56, 40, 22, $ES_NUMBER)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$hUpDown11 = GUICtrlCreateUpdown($Input11)
GUICtrlSetLimit(-1, 50, 0)

;;;;;;;;;;;;;;;;;;; 4   ;;;;;;;;;;

$Input28 = GUICtrlCreateInput("0", 168, 56, 16, 22, $ES_NUMBER)
$Input4 = GUICtrlCreateInput("0", 192, 56, 40, 22, $ES_NUMBER)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$hUpDown4 = GUICtrlCreateUpdown($Input4)
GUICtrlSetLimit(-1, 1, 0)
$Input8 = GUICtrlCreateInput("0", 232, 56, 40, 22, $ES_NUMBER)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$hUpDown8 = GUICtrlCreateUpdown($Input8)
GUICtrlSetLimit(-1, 20, 0)
$Input12 = GUICtrlCreateInput("0", 272, 56, 40, 22, $ES_NUMBER)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$hUpDown12 = GUICtrlCreateUpdown($Input12)
GUICtrlSetLimit(-1, 50, 0)

;;;;;;;;;;;;;;;;; old ;;;;;;;;;;;;;;
$Input19 = GUICtrlCreateInput("5", 12, 225, 45, 26, $ES_NUMBER)
$hUpDown19 = GUICtrlCreateUpdown($Input19)
GUICtrlSetLimit(-1, 20, 0)
$Input13 = GUICtrlCreateInput("6", 286, 271, 20, 19)

;;;;;;;;;;sliders;;;;;;;;;;;;;;;;;;

$Slider1 = GUICtrlCreateSlider(151, 126, 63, 26)
$Slider2 = GUICtrlCreateSlider(151, 165, 63, 26)
$Slider3 = GUICtrlCreateSlider(180, 272, 100, 18)
GUICtrlSetBkColor($Slider3, 0xCE230B)
GUICtrlSetTip($Slider3, "This will set Health Check" & @CRLF & " Pixel Bot", 1, 1)
$Slider4 = GUICtrlCreateSlider(176, 232, 102, 21)
GUICtrlSetLimit(-1, 150, 1)
GUICtrlSetData(-1, 150)
GUICtrlSetTip($Slider4, "Check Box Must Be Checked Before Pet Health Check Will Work, Unchek To Stop" & @CRLF & " Pixel Bot", 1, 1)
$Slider5 = GUICtrlCreateSlider(252, 308, 48, 22)
GUICtrlSetLimit($Slider5, 2, 1)
GUICtrlSetData($Slider5, 1)
$Slider6 = GUICtrlCreateSlider(80, 272, 62, 18)
GUICtrlSetTip($Slider6, "This will set a delay time" & @CRLF & " for all skill . " & @CRLF & "Max 1 sec.   ", " Pixel Bot", 1, 1)
GUICtrlSetLimit(-1, 1000, 100)
GUICtrlSetData(-1, 100)

;;;;;;;;;;check box;;;;;;;;;;;;;;;
$Checkbox7 = GUICtrlCreateCheckbox("Rotate One Dir.", 224, 128, 97, 12)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$Checkbox1 = GUICtrlCreateCheckbox("Check Pet", 88, 232, 89, 17)
GUICtrlSetFont(-1, 7, 800, 0, "Arial")
;;;;;;;;;;;;;time;;;;;;;;;;;;;;;;

$cLabel = GUICtrlCreateLabel(_Time(), 238, 168, 95, 18)
GUICtrlSetFont($cLabel, 10, 800, 0, "Arial")

;;;;;;;;;;;;;;;;;;;;;;;;;;buttons

$Button1 = GUICtrlCreateButton("Start", 8, 336, 123, 28, $BS_PUSHLIKE)
GUICtrlSetOnEvent($Button1, "_Func_1")
GUICtrlSetFont($Button1, 9, 800, 0, "Arial")
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
GUICtrlSetTip($Button1, "Be considerate of" & @CRLF & "Other players.")
$Button2 = GUICtrlCreateButton("Stop", 8, 336, 123, 28, $BS_PUSHLIKE)
GUICtrlSetOnEvent($Button2, "_Func_2")
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
GUICtrlSetState($Button2, $GUI_HIDE)
$Button3 = GUICtrlCreateButton("Support ESB", 8, 300, 123, 28)
GUICtrlSetOnEvent($Button3, "Web")
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
$Button5 = GUICtrlCreateButton("Save", 152, 336, 50, 28, $BS_PUSHLIKE)
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
GUICtrlSetOnEvent($Button5, "Save")
$Button6 = GUICtrlCreateButton("Load", 252, 336, 50, 28, $BS_PUSHLIKE)
GUICtrlSetOnEvent($Button6, "Load")
GUICtrlSetFont($Button6, 9, 800, 0, "Arial")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$Menu = GUICtrlCreateMenu("Help")
$TestItem = GUICtrlCreateMenuItem("Help =" & @TAB & "Ctrl-H", $Menu) ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
GUICtrlSetOnEvent($TestItem, "_Help")
GUICtrlCreateMenuItem("", $Menu)
Local $sFile
$sFile = _GetURLImage("http://esbprograms.altervista.org/ICON450.gif", @TempDir)
GUICtrlCreatePic($sFile, 8, 120, 68, 68, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic("", 216, 200, 76, 68)
$Prog = GUICtrlCreateProgress(14, 94, 288, 20, $PBS_MARQUEE)
GUISetState(@SW_SHOW)
#EndRegion GUI

HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("^q", "_Exit")
HotKeySet("^h", "_Help")

GUISetState(@SW_SHOW)
Opt("GUIOnEventMode", 1)
GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")

#Region Ver
Global $sTime1 = "13:43:24", $sTime2 = "13:44:35"
Global $iTime1, $iTime2
Global $aTemp, $sHour, $sMinute, $sSecond
Global $Paused, $iSec = @SEC, $ind = @SEC
Global $title = WinGetTitle("[CLASS:ArenaNet_Dx_Window_Class]", "")
Global $In1 = TimerInit()
Global $In2 = TimerInit()
Global $In3 = TimerInit()
Global $In4 = TimerInit()
Global $ver = GUICtrlRead($Input19) ;===================== Color variance
Dim $pos[2], $pos1[2], $pos2[2], $pos3[2]
#EndRegion Ver

Func TogglePause() ;===================== Pause ======================
	$Paused = Not $Paused
	While $Paused
		ToolTip("Paused")
	WEnd
	ToolTip("")
EndFunc   ;==>TogglePause

While 1
	Sleep(100)
	If $iSec <> @SEC Then
		GUICtrlSetData($cLabel, _Time()) ; set lable time
		$iSec = @SEC
	EndIf
WEnd

Func _IsChecked($idControlID) ;===================== Look for Check box ======================
	Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked

Func TogglePause1() ;===================== Pause ======================
	While 1
		ToolTip("Paused")
		$P = GUICtrlRead($Slider5)
		If $P = 1 Then
			ToolTip("")
			Return
		EndIf
		Sleep(50)
	WEnd
EndFunc   ;==>TogglePause1

Func Save()
	$ClientSize = WinGetClientSize($title)
	$posXdiff = $ClientSize[0] / 2
	$posYdiff = $ClientSize[1] / 2.5
	SplashTextOn("Setup ", "Saving...", 130, 40, $posXdiff, $posYdiff, 32, "Estrangelo Edessa", 15, 700)
	_Interrupt_Sleep(1800)
	SplashOff()
	_Save()
EndFunc   ;==>Save

Func Load()
	$ClientSize = WinGetClientSize($title)
	$posXdiff = $ClientSize[0] / 2
	$posYdiff = $ClientSize[1] / 2.5
	SplashTextOn("Setup", "Loading...", 130, 40, $posXdiff, $posYdiff, 32, "Estrangelo Edessa", 15, 700)
	_Interrupt_Sleep(1800)
	SplashOff()
	_Load()
EndFunc   ;==>Load

Func Web()
	ShellExecute("http://esbprograms.altervista.org/newestbots.html")
	Return
EndFunc   ;==>Web

#Region Setup
Func _Func_1()

	Local $ClientSize = WinGetClientSize($title)
	Local $posXdiff = $ClientSize[0] / 2
	Local $posYdiff = $ClientSize[1] / 2.5
	Global $hWnd = WinWait("[CLASS:ArenaNet_Dx_Window_Class]", "", 0)
	WinActivate($hWnd)
	ControlSend($title, "", "", "{Tab down}") ;target
	Sleep(Random(110, 160, 1))
	ControlSend($title, "", "", "{Tab up}")
	SplashTextOn("Auto Attack Bot Setup", "Please Left Click On Left Side Of Target Health Bar.", 200, 110, $posXdiff, $posYdiff, 0, "Ariel", 15)
	While 1
		If _IsPressed("01") Then
			$pos = MouseGetPos()
			ExitLoop
		EndIf
	WEnd
	SplashOff()
	Global $spot1 = $pos[0]
	Global $spot2 = $pos[1]
	Global $hWnd = WinWait("[CLASS:ArenaNet_Dx_Window_Class]", "", 2)
	$hWnd = WinGetHandle
	WinActivate($hWnd)
	Global $iColor = PixelGetColor($spot1, $spot2, $hWnd)
	_Interrupt_Sleep(1000)
	SplashTextOn("Auto Attack Bot Setup", "Please Left Click On Right Side Of Target Health Bar.", 200, 110, $posXdiff, $posYdiff, 0, "Ariel", 15)

	While 1
		If _IsPressed("01") Then
			$pos2 = MouseGetPos()
			ExitLoop
		EndIf
	WEnd
	SplashOff()
	Global $spot5 = $pos2[0]
	Global $spot6 = $pos2[1]
	Global $hWnd = WinWait("[CLASS:ArenaNet_Dx_Window_Class]", "", 2)
	$hWnd = WinGetHandle
	WinActivate($hWnd)
	_Interrupt_Sleep(1000)
	SplashTextOn("Auto Attack Bot Setup", "Please Right Click On Top Of Health Globe.", 200, 110, $posXdiff, $posYdiff, 0, "Ariel", 15)
	While 1
		If _IsPressed("02") Then
			$pos1 = MouseGetPos()
			ExitLoop
		EndIf
	WEnd
	SplashOff()
	Global $spot3 = $pos1[0]
	Global $spot4 = $pos1[1]
	_Interrupt_Sleep(1000)

		SplashTextOn("Auto Attack Bot Setup", "Please Left Click On Right Side Of Pet's Health Bar.", 200, 110, $posXdiff, $posYdiff, 0, "Ariel", 15)
	While 1
		If _IsPressed("01") Then
			$pos3 = MouseGetPos()
			ExitLoop
		EndIf
	WEnd
	SplashOff()
	Global $spot7 = $pos3[0]
	Global $spot8 = $pos3[1]
	Global $hWnd = WinWait("[CLASS:ArenaNet_Dx_Window_Class]", "", 2)



	_Interrupt_Sleep(1000)



	_Func_3()
EndFunc   ;==>_Func_1
#EndRegion Setup

#Region Main Fire Loop
Func _Func_3()

	GUICtrlSetState($Button1, $GUI_HIDE) ; Hide and show start and stop
	GUICtrlSetState($Button2, $GUI_SHOW)
	; Make sure the flag is cleared
	$fInterrupt = 0
	$Paused = 0
	GUICtrlSendMsg($Prog, $PBM_SETMARQUEE, 1, 20)
	While 1 ; main fire loop
		$a = GUICtrlRead($Slider3)
		$P = GUICtrlRead($Slider5) ; set to pause
		If $P = 2 Then
			TogglePause1()
		EndIf
		If $iSec <> @SEC Then
			GUICtrlSetData($cLabel, _Time()) ; set lable time
			$iSec = @SEC
		EndIf
		;===================fire 1==============

		If _IsChecked($Checkbox1) Then
			$a = GUICtrlRead($Slider4) - 150
			PixelSearch($spot7 + $a, $spot8, $spot7 + $a, $spot8  , 0x050505, 20) ; check health
			If Not @error Then
				$h = 0
			EndIf
			If @error Then
				$h = 1
			EndIf
			If $h = 0 Then
				$k = GUICtrlRead($Input13) ;=====> fire input key for health
				ControlSend($title, "", "", "{" & $k & " down}")
				Sleep(Random(160, 190, 1))
				ControlSend($title, "", "", "{" & $k & " up}")
			EndIf
		EndIf

		PixelSearch($spot1, $spot2, $spot1, $spot2, $iColor, $ver) ; check for target
		If Not @error Then
			$on = 0
		EndIf
		If @error Then
			$on = 1
		EndIf
		If $on = 1 Then
			_turn()
		EndIf
		$e = GUICtrlRead($Input1) ; fire 1 yes 0 no
		If $e = 1 Then
			$Face = $Face + 1
			$a = GUICtrlRead($Slider3)
			PixelSearch($spot3, $spot4 + $a, $spot3, $spot4 + $a, 0x050505, 20) ; check health
			If Not @error Then
				$h = 0
			EndIf
			If @error Then
				$h = 1
			EndIf
			If $h = 0 Then
				$k = GUICtrlRead($Input13) ;=====> fire input key for health
				ControlSend($title, "", "", "{" & $k & " down}")
				Sleep(Random(160, 190, 1))
				ControlSend($title, "", "", "{" & $k & " up}")
			EndIf

			Local $min1 = GUICtrlRead($Input5) ; check cool down time on cast
			$ts = $min1 * 1000
			$tl = TimerDiff($In1)
			If $tl > $ts Then
				$on = 0
			EndIf
			If $tl < $ts Then
				$on = 1
			EndIf
			If $on = 0 Then
				$c = GUICtrlRead($Input25) ;=====> fire input key
				ControlSend($title, "", "", "{" & $c & " down}")
				Sleep(Random(160, 190, 1))
				ControlSend($title, "", "", "{" & $c & " up}")
				Sleep(Random(150, 180, 1))
				Local $t = GUICtrlRead($Input9) * 100 ; check  time to compleet cast
				Sleep($t) ; hard sleep so cast will not be iterrupted
				$In1 = TimerInit() ;reset time for skill
			EndIf
		EndIf
		If $Face = 2 Then ; turn to target
			ControlSend($title, "", "", "{a down}")
			Sleep(Random(130, 160, 1))
			ControlSend($title, "", "", "{a up}")
		EndIf
		ControlSend($title, "", "", "{l down}")
		Sleep(Random(130, 160, 1))
		ControlSend($title, "", "", "{l up}")
		PixelSearch($spot5, $spot6, $spot5, $spot6, $iColor, 5) ; check for dmg
		If Not @error Then
			$m = $m + 1
		ElseIf @error Then
			$m = 0
		EndIf
		If $m > 1 Then
			_turn()
		EndIf

		If $fInterrupt <> 0 Then
			Return
		EndIf

		;=================== fire 2 ============== Check stop, check pause, Loot,
		$e = GUICtrlRead($Input2)
		If $e = 1 Then ;=====> fire 2 loop

			$a = GUICtrlRead($Slider3)
			PixelSearch($spot3, $spot4 + $a, $spot3, $spot4 + $a, 0x050505, 20) ; check health
			If Not @error Then
				$h = 0
			EndIf
			If @error Then
				$h = 1
			EndIf
			If $h = 0 Then
				$k = GUICtrlRead($Input13) ;=====> fire input key
				ControlSend($title, "", "", "{" & $k & " down}")
				Sleep(Random(160, 190, 1))
				ControlSend($title, "", "", "{" & $k & " up}")
			EndIf
			PixelSearch($spot1, $spot2, $spot1, $spot2, $iColor, $ver) ; check for target
			If Not @error Then
				$on = 0
			EndIf
			If @error Then
				$on = 1
			EndIf
			If $on = 1 Then
				_turn()
			EndIf
			If $on = 0 Then
				$c = GUICtrlRead($Input26) ;=====> fire input key
				ControlSend($title, "", "", "{" & $c & " down}")
				Sleep(Random(170, 190, 1))
				ControlSend($title, "", "", "{" & $c & " up}")
				Local $t = GUICtrlRead($Input11) * 100
				Sleep($t)
				$In2 = TimerInit() ;reset time for skill
			EndIf
		EndIf
		ControlSend($title, "", "", "{l down}")
		Sleep(Random(160, 190, 1))
		ControlSend($title, "", "", "{l up}")
		If $fInterrupt <> 0 Then
			Return
		EndIf

		;=================== fire 3 ============== Check stop, check pause, Loot,  and 2nd health check

		$e = GUICtrlRead($Input3)
		If $e = 1 Then
			$a = GUICtrlRead($Slider3)
			PixelSearch($spot3, $spot4 + $a, $spot3, $spot4 + $a, 0x050505, 20) ; check health
			If Not @error Then
				$h = 0
			EndIf
			If @error Then
				$h = 1
			EndIf
			If $h = 0 Then
				$k = GUICtrlRead($Input13) ;=====> fire input key
				ControlSend($title, "", "", "{" & $k & " down}")
				Sleep(Random(160, 190, 1))
				ControlSend($title, "", "", "{" & $k & " up}")
			EndIf
			PixelSearch($spot1, $spot2, $spot1, $spot2, $iColor, $ver) ; check for target
			If Not @error Then
				$on = 0
			EndIf
			If @error Then
				$on = 1
			EndIf
			If $on = 1 Then
				_turn()
			EndIf

			$P = GUICtrlRead($Slider5) ; set to pause
			If $P = 2 Then
				TogglePause1()
			EndIf
			Local $min1 = GUICtrlRead($Input7) * 1000
			$tl = TimerDiff($In3)
			If $tl > $min1 Then
				$on = 0
			EndIf
			If $tl < $min1 Then
				$on = 1
			EndIf
			If $on = 0 Then
				$c = GUICtrlRead($Input27) ;=====> fire input key
				ControlSend($title, "", "", "{" & $c & " down}")
				Sleep(Random(140, 180, 1))
				ControlSend($title, "", "", "{" & $c & " up}")
				Local $t = GUICtrlRead($Input10) * 100
				Sleep($t)
				$c = GUICtrlRead($Slider6)
				Sleep($c) ; ===================lag
				If $fInterrupt <> 0 Then
					Return
				EndIf
				Local $P = GUICtrlRead($Slider5) ; set to pause
				If $P = 2 Then
					TogglePause1()
				EndIf
				$In3 = TimerInit() ;reset time for skill
			EndIf
		EndIf
		ControlSend($title, "", "", "{l down}")
		Sleep(Random(170, 180, 1))
		ControlSend($title, "", "", "{l up}")
		;===================== End fire 4 ======================= Check stop, Loot, check pause

		$e = GUICtrlRead($Input4)
		If $e = 1 Then
			$a = GUICtrlRead($Slider3)
			PixelSearch($spot3, $spot4 + $a, $spot3, $spot4 + $a, 0x050505, 20) ; check health
			If Not @error Then
				$h = 0
			EndIf
			If @error Then
				$h = 1
			EndIf
			If $h = 0 Then
				$k = GUICtrlRead($Input13) ;=====> fire input key
				ControlSend($title, "", "", "{" & $k & " down}")
				Sleep(Random(160, 190, 1))
				ControlSend($title, "", "", "{" & $k & " up}")
			EndIf
			Sleep(Random(110, 140, 1))
			PixelSearch($spot1, $spot2, $spot1, $spot2, $iColor, $ver) ; check for target
			If Not @error Then
				$on = 0
			EndIf
			If @error Then
				$on = 1
			EndIf
			If $on = 1 Then
				_turn()
			EndIf
			$P = GUICtrlRead($Slider5) ; set to pause
			If $P = 2 Then
				TogglePause1()
			EndIf
			Local $min1 = GUICtrlRead($Input8) * 1000
			$tl = TimerDiff($In4)
			If $tl > $min1 Then
				$on = 0
			EndIf
			If $tl < $min1 Then
				$on = 1
			EndIf
			If $on = 0 Then
				$c = GUICtrlRead($Input28) ;=====> fire input key
				ControlSend($title, "", "", "{" & $c & " down}")
				Sleep(Random(160, 170, 1))
				ControlSend($title, "", "", "{" & $c & " up}")
				Sleep(Random(150, 160, 1))
				Local $t = GUICtrlRead($Input12) * 100
				Sleep($t)
				$c = GUICtrlRead($Slider6)
				Sleep($c) ; ===================lag
				If $fInterrupt <> 0 Then
					Return
				EndIf
				Local $P = GUICtrlRead($Slider5) ; set to pause
				If $P = 2 Then
					TogglePause1()
				EndIf
				$In4 = TimerInit() ;reset time for skill
			EndIf
		EndIf
		ControlSend($title, "", "", "{l down}")
		Sleep(Random(140, 190, 1))
		ControlSend($title, "", "", "{l up}")
	WEnd

EndFunc   ;==>_Func_3
#EndRegion Main Fire Loop

Func _Func_2() ;====================================== Set button 1 to show and hide button 2
	GUICtrlSendMsg($Prog, $PBM_SETMARQUEE, 0, 20)
	GUICtrlSetState($Button2, $GUI_HIDE)
	GUICtrlSetState($Button1, $GUI_SHOW)
	ConsoleWrite("   Stop   " & @CRLF)
EndFunc   ;==>_Func_2

Func _turn() ; ===============================Turn for attack bot

	$ClientSize = WinGetClientSize($title)
	$posXdiff = $ClientSize[0] / 2
	$posYdiff = $ClientSize[1] / 2.5
	Local $sl = GUICtrlRead($Slider1) * 50 ; Turn sleep
	Local $wl = GUICtrlRead($Slider2) * 50 ; Move sleep
	$P = GUICtrlRead($Slider5) ; set to pause
	If $P = 2 Then
		TogglePause1()
	EndIf
	Sleep(20)
	If $cot = 1 Then
		If $sl > 1 Then
			ControlSend($title, "", "", "{D down}")
			_Interrupt_Sleep($sl) ;  turn
			ControlSend($title, "", "", "{D up}")
		EndIf
		Sleep(20)
		If $wl > 1 Then
			ControlSend($title, "", "", "{W down}")
			_Interrupt_Sleep($wl) ;move
			ControlSend($title, "", "", "{W up}")
		EndIf
		$cot = 2
		If _IsChecked($Checkbox7) Then
			$cot = 1
		EndIf
		ControlSend($title, "", "", "{Tab Down}")
		Sleep(Random(150, 160, 1))
		ControlSend($title, "", "", "{Tab Up}")
		_Interrupt_Sleep(1000)
		$Face = 1
	ElseIf $cot = 2 Then
		If $sl > 1 Then
			ControlSend($title, "", "", "{A down}")
			_Interrupt_Sleep($sl) ;turn
			ControlSend($title, "", "", "{A up}")
		EndIf
		Sleep(20)
		If $wl > 1 Then
			ControlSend($title, "", "", "{W down}")
			_Interrupt_Sleep($wl) ;move
			ControlSend($title, "", "", "{W up}")
		EndIf
		ControlSend($title, "", "", "{Tab Down}")
		Sleep(Random(140, 180, 1))
		ControlSend($title, "", "", "{Tab Up}")
		$cot = 1
		_Interrupt_Sleep(1000)
		$Face = 1
		Return
	EndIf
EndFunc   ;==>_turn

Func _Interrupt_Sleep($iDelay) ;==>_Interrupt_Sleep
	Local $iBegin = TimerInit() ; Get a timestamp
	Do
		$P = GUICtrlRead($Slider5) ; set to pause
		If $P = 2 Then
			TogglePause1()
		EndIf
		If $fInterrupt <> 0 Then
			Return
		EndIf
		If $iSec <> @SEC Then
			GUICtrlSetData($cLabel, _Time()) ; set lable time
			$iSec = @SEC
		EndIf
		Sleep(Random(50, 100, 1)) ; minimum random Sleep
		If $fInterrupt Then ; Look for interrrupt
			Return True
		EndIf
	Until TimerDiff($iBegin) > $iDelay
	Return False ; Return False if timed out and no interrupt was set
EndFunc   ;==>_Interrupt_Sleep

Func _Exit()
	Exit
EndFunc   ;==>_Exit

Func _WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
	If BitAND($wParam, 0x0000FFFF) = $Button2 Then $fInterrupt = 1
	Return $GUI_RUNDEFMSG
	If BitAND($wParam, 0x0000FFFF) = $Button3 Then $fInterrupt = 1
EndFunc   ;==>_WM_COMMAND

Func _Save() ;==>_Save
	$sSlider1 = GUICtrlRead($Slider1)
	IniWrite("ESBsave.ini", "Config", "$Slider1", $sSlider1)
	$sSlider2 = GUICtrlRead($Slider2)
	IniWrite("ESBsave.ini", "Config", "$Slider2", $sSlider2)
	$sSlider3 = GUICtrlRead($Slider3)
	IniWrite("ESBsave.ini", "Config", "$Slider3", $sSlider3)
	$sSlider6 = GUICtrlRead($Slider6)
	IniWrite("ESBsave.ini", "Config", "$Slider6", $sSlider6)
	$sInput1 = GUICtrlRead($Input1)
	IniWrite("ESBsave.ini", "Config", "Input1", $sInput1)
	$sInput2 = GUICtrlRead($Input2)
	IniWrite("ESBsave.ini", "Config", "Input2", $sInput2)
	$sInput3 = GUICtrlRead($Input3)
	IniWrite("ESBsave.ini", "Config", "Input3", $sInput3)
	$sInput4 = GUICtrlRead($Input4)
	IniWrite("ESBsave.ini", "Config", "Input4", $sInput4)
	$sInput5 = GUICtrlRead($Input5)
	IniWrite("ESBsave.ini", "Config", "Input5", $sInput5)
	$sInput6 = GUICtrlRead($Input6)
	IniWrite("ESBsave.ini", "Config", "Input6", $sInput6)
	$sInput7 = GUICtrlRead($Input7)
	IniWrite("ESBsave.ini", "Config", "Input7", $sInput7)
	$sInput8 = GUICtrlRead($Input8)
	IniWrite("ESBsave.ini", "Config", "Input8", $sInput8)
	$sInput9 = GUICtrlRead($Input9)
	IniWrite("ESBsave.ini", "Config", "Input9", $sInput9)
	$sInput10 = GUICtrlRead($Input10)
	IniWrite("ESBsave.ini", "Config", "Input10", $sInput10)
	$sInput11 = GUICtrlRead($Input11)
	IniWrite("ESBsave.ini", "Config", "Input11", $sInput11)
	$sInput12 = GUICtrlRead($Input12)
	IniWrite("ESBsave.ini", "Config", "Input12", $sInput12)
	$sInput19 = GUICtrlRead($Input19)
	IniWrite("ESBsave.ini", "Config", "Input19", $sInput19)
	$sInput13 = GUICtrlRead($Input13)
	IniWrite("ESBsave.ini", "Config", "Input13", $sInput13)
	$sInput25 = GUICtrlRead($Input25)
	IniWrite("ESBsave.ini", "Config", "Input25", $sInput25)
	$sInput26 = GUICtrlRead($Input26)
	IniWrite("ESBsave.ini", "Config", "Input26", $sInput26)
	$sInput27 = GUICtrlRead($Input27)
	IniWrite("ESBsave.ini", "Config", "Input27", $sInput27)
	$sInput28 = GUICtrlRead($Input28)
	IniWrite("ESBsave.ini", "Config", "Input28", $sInput28)
	Return
EndFunc   ;==>_Save

Func _Load() ;==>_Load
	SetCheckedState($Checkbox7, IniRead("ESBsave.ini", "Config", "Checkbox7", False))
	GUICtrlSetData($Input1, IniRead("ESBsave.ini", "Config", "Input1", ""))
	GUICtrlSetData($Input2, IniRead("ESBsave.ini", "Config", "Input2", ""))
	GUICtrlSetData($Input3, IniRead("ESBsave.ini", "Config", "Input3", ""))
	GUICtrlSetData($Input4, IniRead("ESBsave.ini", "Config", "Input4", ""))
	GUICtrlSetData($Input5, IniRead("ESBsave.ini", "Config", "Input5", ""))
	GUICtrlSetData($Input6, IniRead("ESBsave.ini", "Config", "Input6", ""))
	GUICtrlSetData($Input7, IniRead("ESBsave.ini", "Config", "Input7", ""))
	GUICtrlSetData($Input8, IniRead("ESBsave.ini", "Config", "Input8", ""))
	GUICtrlSetData($Input9, IniRead("ESBsave.ini", "Config", "Input9", ""))
	GUICtrlSetData($Input10, IniRead("ESBsave.ini", "Config", "Input10", ""))
	GUICtrlSetData($Input11, IniRead("ESBsave.ini", "Config", "Input11", ""))
	GUICtrlSetData($Input12, IniRead("ESBsave.ini", "Config", "Input12", ""))
	GUICtrlSetData($Input19, IniRead("ESBsave.ini", "Config", "Input19", ""))
	GUICtrlSetData($Input13, IniRead("ESBsave.ini", "Config", "Input13", ""))
	GUICtrlSetData($Input25, IniRead("ESBsave.ini", "Config", "Input25", ""))
	GUICtrlSetData($Input26, IniRead("ESBsave.ini", "Config", "Input26", ""))
	GUICtrlSetData($Input27, IniRead("ESBsave.ini", "Config", "Input27", ""))
	GUICtrlSetData($Input28, IniRead("ESBsave.ini", "Config", "Input28", ""))
	GUICtrlSetData($Slider1, IniRead("ESBsave.ini", "Config", "$Slider1", ""))
	GUICtrlSetData($Slider2, IniRead("ESBsave.ini", "Config", "$Slider2", ""))
	GUICtrlSetData($Slider3, IniRead("ESBsave.ini", "Config", "$Slider3", ""))
	GUICtrlSetData($Slider6, IniRead("ESBsave.ini", "Config", "$Slider6", ""))
	Return
EndFunc   ;==>_Load

Func _Time() ;==> current time
	Local $hour = @HOUR, $AMPM = "AM"
	If $hour > 11 Then $AMPM = "PM"
	If $hour = 0 Then $hour = 12
	If $hour > 12 Then $hour -= 12
	Return $hour & ":" & @MIN & ":" & @SEC & " " & $AMPM
EndFunc   ;==>_Time

Func SetCheckedState($nCtrl, $iState) ; ========================================= part of load func
	If $iState > 0 Then
		GUICtrlSetState($nCtrl, $GUI_CHECKED)
	Else
		GUICtrlSetState($nCtrl, $GUI_UNCHECKED)
	EndIf
EndFunc   ;==>SetCheckedState

Func IsChecked($nCtrl) ; ================================================part of save func
	If BitAND(GUICtrlRead($nCtrl), $GUI_CHECKED) = $GUI_CHECKED Then Return 1
	Return 0
EndFunc   ;==>IsChecked

Func _Help() ;===================== List all help ======================
	MsgBox(0, "ESB", "Pressing Ctrl + H will show help box" & @CRLF & "Pressing Ctrl + Q will quit bot." & @CRLF & "Pressing Pause Break will pause the bot.")
EndFunc   ;==>_Help

Func _GetURLImage($sURL, $sDirectory = @ScriptDir)
	Local $hDownload, $sFile
	$sFile = StringRegExpReplace($sURL, "^.*/", "")
	If @error Then
		Return SetError(1, 0, $sFile)
	EndIf
	If StringRight($sDirectory, 1) <> "\" Then
		$sDirectory = $sDirectory & "\"
	EndIf
	$sDirectory = $sDirectory & $sFile
	If FileExists($sDirectory) Then
		Return $sDirectory
	EndIf
	$hDownload = InetGet($sURL, $sDirectory, 17, 1)
	While InetGetInfo($hDownload, 2) = 0
		If InetGetInfo($hDownload, 4) <> 0 Then
			InetClose($hDownload)
			Return SetError(1, 0, $sDirectory)
		EndIf
		Sleep(105)
	WEnd
	InetClose($hDownload)
	Return $sDirectory
EndFunc   ;==>_GetURLImage

    Update 1.01
    Note ( Health check is not working as of now .. have not wrote the code for it yet.)
    Note ( Add target check )
    Note ( Add aoe loot )
    Note ( Add time exit )

    Update 1.02
    Note ( Fix time on main fire loop so that it rotates skills better. )

    Update 1.03
    Note ( Add cast time delay input. This input is in 1/10 sec so 3 seconds would be 30 in the input box. )
    Note ( Add ESB icon to gui. )
    Note ( Removed target check for now. Transparent color bar for target. I will come up with a fix. )

    Update 1.04
    Note ( Add Health check and input box for health. )
    Note ( Fix lag on fire loop so bot will run smooth now. )
    Note ( Change setup, need to right click on health. )
    Note ( Still working on target check, this function should be ready soon. )

    Update 1.05
    Note ( Add Pet Health check and check box for health. )
    Note ( Add target check, glad to get this one done. )
    Note ( Add face target after first shot so that point of view is at target )
    Note ( Fix fire loop so bot only fires if there is a target. )
    Note ( Change setup, need to left click on right side of pets health bar. )

    I will update this soon.
    Thanks
    ESB
    Last edited by AutoScript; 07-10-2016 at 05:09 PM. Reason: update 1.05
    Reply With Quote Reply With Quote
    Pixel bot
« Previous Thread | Next Thread »

Similar Threads

  1. Simplest Pixel Bot
    By comic-1337 in forum Overwatch Buy Sell Trade
    Replies: 80
    Last Post: 08-01-2016, 08:15 AM
  2. Pixel bot for BDO
    By AutoScript in forum Black Desert Online General
    Replies: 1
    Last Post: 06-15-2016, 05:52 PM
  3. ArcheAge Pixel Bot
    By AutoScript in forum ArcheAge Bots and Programs
    Replies: 9
    Last Post: 06-19-2015, 09:21 AM
  4. [Bot] Pixel bot source code.
    By Jummi in forum World of Warcraft Bots and Programs
    Replies: 3
    Last Post: 04-30-2012, 06:03 AM
  5. Heretic (macro, window, pixel and image detection bot)
    By Malarkey in forum World of Warcraft Bots and Programs
    Replies: 10
    Last Post: 02-25-2009, 07:30 AM
All times are GMT -5. The time now is 02:56 AM. Powered by vBulletin® Version 4.2.3
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved. User Alert System provided by Advanced User Tagging (Pro) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
Digital Point modules: Sphinx-based search