GW Killbot Macro (Auto IT)

03/30/2006 00:21 undispudet#1
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 &#036;Paused
;~~~~~~~~~~~~~~~
HotKeySet("{Pause}", "Pause")
HotKeySet("{End}", "Hide")
HotKeySet("{Home}", "Show")
;~~~~~~~~~~~~~~~
GuiCreate("Killbot", 100, 50,(@DesktopWidth-100)/2, (@DesktopHeight-50)/2, &#036;WS_DLGFRAME)
WinSetOnTop("Killbot", "", 1)
;~~~~~~~~~~~~~~~
&#036;startKB = GuiCtrlCreateCheckbox("Start", 4, 1, 50, 20)
&#036;Button_1 = GuiCtrlCreateButton("X", 95, 3, 18, 18)
&#036;ButtonHelp = GUICtrlCreateButton("Help", 60, 3, 35, 18)
GuiSetState()
;~~~~~~~~~~~~~~~
While 1
&#036;msg = GuiGetMsg()
;~~~~~~~~~~~~~~~
Select
Case GUICtrlRead(&#036;startKB) <> 4
While GUICtrlRead(&#036;startKB) <> 4
Kill()
WEnd
Case GUICtrlRead(&#036;startKB) = -15
ExitLoop
EndSelect
;~~~~~~~~~~~~~~~
Select
Case &#036;msg = &#036;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 &#036;msg = &#036;Button_1
ExitLoop
EndSelect
WEnd
;~~~~~~~~~~~~~~~
Func Pause()
&#036;Paused = NOT &#036;Paused
While &#036;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)
&#036;CoordsA = PixelSearch(400, 300, 700, 550, 0xE3C243) ; Gold items
&#036;CoordsB = PixelSearch(400, 300, 700, 550, 0xBB88EE) ; Purple items
&#036;CoordsC = PixelSearch(400, 300, 700, 550, 0x99EEFF) ; Blue items
;
;
If IsArray(&#036;CoordsA) Then
Sleep(500) ; The colour A was found
MouseClick('Left', &#036;CoordsA[0], &#036;CoordsA[1], 1, 0)
Sleep(500)
Else ; The color A was not found
EndIf
;
If IsArray(&#036;CoordsB) Then
Sleep(500) ; The color B was found
MouseClick('Left', &#036;CoordsB[0], &#036;CoordsB[1], 1, 0)
Sleep(500)
Else ; The color B was not found
EndIf
;
If IsArray(&#036;CoordsC) Then
Sleep(500) ; The color C was found
MouseClick('Left', &#036;CoordsC[0], &#036;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__________________




__________________________________________________ _______________