Note:To use this macro you need to hawe programm called Auto it,it can be easy found in google.
After it just type what code(it writeed down) in a macro slot,and use.
This is a basic killing bot for AutoIt Version 3.1.0.
Code______________________________________________ _______________
; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:djomen
; Name:Killbot
; Script Function:For afk killing with Guild Wars.
;
;
; ----------------------------------------------------------------------------
;~~~~~~~~~~~~~~~
#NoTrayIcon
#Include<GUIConstants.au3>
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__________________
__________________________________________________ _______________
 |
