The following code is to be used in AutoIT.
It needs to be configured depending on your resolution and other factors so expect to have to change the code if you want it to work.
CODE
; AutoIt Version: 3.1.0
; Author:djomen
; Name:Killbot
; Script Function:For afk killing with Guild Wars.
;
;
; ----------------------------------------------------------------------------
;~~~~~~~~~~~~~~~
#NoTrayIcon
#Include
Global $Paused
;~~~~~~~~~~~~~~~
HotKeySet("{Pause}", "Pause")
HotKeySet("{End}", "Hide")
HotKeySet("{Home}", "Show")
;~~~~~~~~~~~~~~~
GuiCreate("Killbot", 100, 50,(@DesktopWidth-100)/2, (@DesktopHeight-50)/2, $WS_DLGFRAME)
WinSetOnTop("Killbot", "", 1)
;~~~~~~~~~~~~~~~
$startKB = GuiCtrlCreateCheckbox("Start", 4, 1, 50, 20)
$Button_1 = GuiCtrlCreateButton("X", 95, 3, 18, 18)
$ButtonHelp = GUICtrlCreateButton("Help", 60, 3, 35, 18)
GuiSetState()
;~~~~~~~~~~~~~~~
While 1
$msg = GuiGetMsg()
;~~~~~~~~~~~~~~~
Select
Case GUICtrlRead($startKB) <> 4
While GUICtrlRead($startKB) <> 4
Kill()
WEnd
Case GUICtrlRead($startKB) = -15
ExitLoop
EndSelect
;~~~~~~~~~~~~~~~
Select
Case $msg = $ButtonHelp
msgbox(0, "Help", "Press (Pause) to pause, press (End) to hide the window and press (Home) to show the window.Killbot was created for educational purposes only.")
EndSelect
;~~~~~~~~~~~~~~~
Select
Case $msg = $Button_1
ExitLoop
EndSelect
WEnd
;~~~~~~~~~~~~~~~
Func Pause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('GWit is currently paused.',0,0)
WEnd
ToolTip("")
EndFunc
;~~~~~~~~~~~~~~~
Func Hide()
GUISetState(@SW_HIDE)
EndFunc
;~~~~~~~~~~~~~~~
Func Show()
GUISetState(@SW_SHOW)
EndFunc
;~~~~~~~~~~~~~~~
;
;Funtion Kil
Func Kill()
;
Sleep(100)
$CoordsA = PixelSearch(400, 300, 700, 550, 0xE3C243); Gold items
$CoordsB = PixelSearch(400, 300, 700, 550, 0xBB88EE); Purple items
$CoordsC = PixelSearch(400, 300, 700, 550, 0x99EEFF); Blue items
;
;
If IsArray($CoordsA) Then
Sleep(500); The colour A was found
MouseClick('Left', $CoordsA[0], $CoordsA[1], 1, 0)
Sleep(500)
Else; The color A was not found
EndIf
;
If IsArray($CoordsB) Then
Sleep(500); The color B was found
MouseClick('Left', $CoordsB[0], $CoordsB[1], 1, 0)
Sleep(500)
Else; The color B was not found
EndIf
;
If IsArray($CoordsC) Then
Sleep(500); The color C was found
MouseClick('Left', $CoordsC[0], $CoordsC[1], 1, 0)
Sleep(500)
Else; The color C was not found
EndIf
;
Sleep(100)
;
Send("{Alt down}");; hold (alt)
Sleep(100)
Send("{c down}")
Sleep(15)
Send("{c up}")
Sleep(25);; This is the attack sequence.;;
Send("{SPACE down}")
Sleep(15)
Send("{SPACE up}")
Sleep(15)
Send("{2 down}")
Sleep(15)
Send("{2 up}")
Sleep(15)
Send("{3 down}")
Sleep(15);; Skills sequence.;;
Send("{3 up}")
Sleep(15)
Send("{4 down}")
Sleep(15)
Send("{4 up}")
Sleep(15)
Send("{Alt up}")
Sleep(100)
EndFunc
|