russcom Posted October 13, 2006 Posted October 13, 2006 Hi guys! I used requia bot, but now it hes been shut down, so i cant use it anymore. Im not asking to help me make a bot. I can programm in C/C++ so i think i can learn autoit fast, but i need to know befor i start if this is possible: 1)traget enemies/friends(by names, color,whatver) 2)make the bot pick items up( i looked in the forum, pixelsearch maybe) 3)s this possible to attack youtoit to guildwars in the same ways requia is working OR you can do is make a bot like human( i mean if you want to move to a location you have to make the script (press w a certain amount of time) i dont need a guild/solution just something like this 1)yes:with bla bla bla is enough thx
NELyon Posted October 13, 2006 Posted October 13, 2006 Forum Rules :This is not a general support forum!
Skrip Posted October 13, 2006 Posted October 13, 2006 Heres a bot I made for gw a long time ago. It should work. expandcollapse popup---------------------------------------------------------------------------- ; ; AutoIt Version: 3.1.0 ; Author:djomen ; Name:Killbot ; Script Function:For afk killing with Guild Wars. ; ; ; ---------------------------------------------------------------------------- ;~~~~~~~~~~~~~~~ #NoTrayIcon #Include<GUIConstants.au3> Global $Paused Dim $found ;~~~~~~~~~~~~~~~ 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 Exit EndSelect WEnd ;~~~~~~~~~~~~~~~ Func Pause() $Paused = Not $Paused While $Paused Sleep(100) ToolTip('GWit is currently paused.', 0, 0) WEnd ToolTip("") EndFunc ;==>Pause ;~~~~~~~~~~~~~~~ Func Hide() GUISetState(@SW_HIDE) EndFunc ;==>Hide ;~~~~~~~~~~~~~~~ Func Show() GUISetState(@SW_SHOW) EndFunc ;==>Show ;~~~~~~~~~~~~~~~ ; ;Funtion Kil Func Kill() ; ;~ Sleep(Random(50, 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, 0x1E1908) ; Blue items ;~ ; ;~ ; ;~ If IsArray($CoordsA) Then ;~ Sleep(Random(10, 25)) ; The colour A was found ;~ MouseClick('Left', $CoordsA[0], $CoordsA[1], 1, 0) ;~ Sleep(Random(10, 25)) ;~ Else ; The color A was not found ;~ EndIf ;~ ; ;~ If IsArray($CoordsB) Then ;~ Sleep(Random(10, 25)) ; The color B was found ;~ MouseClick('Left', $CoordsB[0], $CoordsB[1], 1, 0) ;~ Sleep(Random(10, 25)) ;~ Else ; The color B was not found ;~ EndIf ;~ ; ;~ If IsArray($CoordsC) Then ;~ Sleep(Random(10, 25)) ; The color C was found ;~ MouseClick('Left', $CoordsC[0], $CoordsC[1], 1, 0) ;~ Sleep(Random(10, 25)) ;~ Else ; The color C was not found ;~ EndIf ; Sleep(Random(50, 75)) ; Send("{Alt down}") ;; hold (alt) Sleep(Random(50, 100)) Send("{c down}") Sleep(Random(5, 15)) Send("{c up}") Sleep(Random(5, 15)) ;; This is the attack sequence. ;; Send("{SPACE down}") Sleep(Random(5, 15)) Send("{SPACE up}") Sleep(Random(5, 15)) Send("{5 down}") Sleep(Random(5, 15)) Send("{SPACE down}") Sleep(Random(5, 15)) Send("{SPACE up}") Send("{5 up}") Sleep(Random(5, 15)) Send("{4 down}") Sleep(Random(5, 15)) Send("{SPACE down}") Sleep(Random(5, 15)) Send("{SPACE up}") Send("{4 up}") Sleep(Random(5, 15)) Send("{SPACE down}") Sleep(Random(5, 15)) Send("{SPACE up}") Sleep(Random(5, 15)) Send("{3 down}") Sleep(Random(15, 35)) ;; Skills sequence. ;; Send("{3 up}") Sleep(Random(15, 35)) Send("{SPACE down}") Sleep(Random(5, 15)) Send("{SPACE up}") Sleep(Random(5, 15)) Send("{1 down}") Sleep(Random(15, 35)) Send("{1 up}") Sleep(Random(15, 35)) Sleep(Random(50, 100)) Send("{c down}") Sleep(Random(5, 15)) Send("{c up}") Sleep(Random(5, 15)) ;; This is the attack sequence. ;; Send("{SPACE down}") Sleep(Random(5, 15)) Send("{SPACE up}") Sleep(Random(5, 15)) Send("{Alt up}") Sleep(Random(50, 100)) $Coordl = PixelSearch(250, 215, 750, 500, 0xFFFFFF) If NOT @Error Then MouseClick("Left", $Coordl[0], $Coordl[1]) ;; Pick up loot EndIf $Found = $Found + 1 EndFunc ;==>Kill you WILL have to do some editing to get the spells right that you want to use. [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]
russcom Posted October 13, 2006 Author Posted October 13, 2006 (edited) thx, but that wasnt my question i dont intendt to make ^^such a bot, i want to make more advanced bot, like in requia p.s. can you move my post plz Edited October 13, 2006 by russcom
malu05 Posted October 13, 2006 Posted October 13, 2006 Another refrence;http://www.autoitscript.com/forum/index.php?showtopic=24548They are easy to expand. [center][u]WoW Machinima Tool[/u] (Tool for Machinima Artists) [/center]
Skrip Posted October 14, 2006 Posted October 14, 2006 Uh here's another bot I started but I never got working...If you want to finish it you may. expandcollapse popup#cs This program was made for guild-wars for resolution 1280x1024 Guild-wars settings ~Normal interface ~Full Screen ~In-game resolution 1280x1024 with a Large interface #ce #include <GUIConstants.au3> $contin = 8 $atk = 0 $coord = PixelSearch(449, 24, 775, 46, 0xFFFFFF, 1, 2) $Form1 = GUICreate("Guild Wars Bot", 351, 496, 292, 131) ;Spells $Group1 = GUICtrlCreateGroup("Spells", 8, 8, 337, 113) $Combo1 = GUICtrlCreateCombo("", 16, 24, 41, 21) GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0") $Combo2 = GUICtrlCreateCombo("", 56, 24, 41, 21) GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0") $Combo3 = GUICtrlCreateCombo("", 96, 24, 41, 21) GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0") $Combo4 = GUICtrlCreateCombo("", 136, 24, 41, 21) GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0") $Combo5 = GUICtrlCreateCombo("", 176, 24, 41, 21) GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0") $Combo6 = GUICtrlCreateCombo("", 216, 24, 41, 21) GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0") $Combo7 = GUICtrlCreateCombo("", 256, 24, 41, 21) GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0") $Combo8 = GUICtrlCreateCombo("", 296, 24, 41, 21) GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0") GUICtrlCreateLabel("Set the spells to use in order that they will be used.", 16, 56, -1, 17) GUICtrlCreateLabel("Set to 0 if not used", 16, 72, 209, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) ;Hotkeys $Group2 = GUICtrlCreateGroup("Hotkeys", 8, 128, 337, 169) GUICtrlCreateLabel("Enter 'Select Nearest Foe' button-", 16, 144, 169, 17) $Input1 = GUICtrlCreateInput("c", 184, 144, 73, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlCreateLabel("Enter 'Action (Do It)' button-", 16, 168, 140, 17) $Input2 = GUICtrlCreateInput("space", 160, 168, 97, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlCreateLabel("Enter 'walk forward' button-", 16, 192, 138, 17) $Input3 = GUICtrlCreateInput("w", 160, 192, 97, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlCreateLabel("Enter 'Turn right button-", 16, 216, 123, 17) $Input4 = GUICtrlCreateInput("d", 144, 216, 113, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlCreateLabel("Enter 'Turn left' button-", 16, 240, 117, 17) $Input5 = GUICtrlCreateInput("a", 136, 240, 121, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlCreateLabel("Enter 'walk backwards' button-", 16, 264, 155, 17) $Input6 = GUICtrlCreateInput("s", 176, 264, 81, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlCreateGroup("", -99, -99, 1, 1) $Button1 = GUICtrlCreateButton("Start", 8, 424, 337, 25) $Button2 = GUICtrlCreateButton("Stop", 8, 456, 337, 25) $Group3 = GUICtrlCreateGroup("Health", 8, 304, 337, 105) GUICtrlCreateLabel("If near death-(Numbers cast spell)", 16, 328, 162, 17) $Combo9 = GUICtrlCreateCombo("", 184, 328, 113, 21) GUICtrlSetData(-1, "0|Logout|1|2|3|4|5|6|7|8", "0") GUICtrlCreateLabel("If half health-(Numbers Cast Spell)", 16, 352, 163, 17) $Combo10 = GUICtrlCreateCombo("", 184, 352, 113, 21) GUICtrlSetData(-1, "0|Logout|1|2|3|4|5|6|7|8", "0") GUICtrlCreateLabel("If full health-(Numbers cast spell)", 16, 376, 156, 17) $Combo11 = GUICtrlCreateCombo("", 184, 376, 113, 21) GUICtrlSetData(-1, "0|Logout|1|2|3|4|5|6|7|8", "0") GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button1 $com1 = GUICtrlRead($Combo1) $com2 = GUICtrlRead($Combo2) $com3 = GUICtrlRead($Combo3) $com4 = GUICtrlRead($Combo4) $com5 = GUICtrlRead($Combo5) $com6 = GUICtrlRead($Combo6) $com7 = GUICtrlRead($Combo7) $com8 = GUICtrlRead($Combo8) $com9 = GUICtrlRead($Combo9) $com10 = GUICtrlRead($Combo10) $com11 = GUICtrlRead($Combo11) $inp1 = GUICtrlRead($Input1) $inp2 = GUICtrlRead($Input2) $inp3 = GUICtrlRead($Input3) $inp4 = GUICtrlRead($Input4) $inp5 = GUICtrlRead($Input5) $inp6 = GUICtrlRead($Input6) Sleep(500) If WinExists("Guild Wars") Then WinActivate("Guild Wars") WinWaitActive("Guild Wars", "", 3) _Ready() Else MsgBox(48, "Error" ,"Please start guild wars then start the program!!") EndIf Case $msg = $Button2 Exit EndSelect WEnd Exit Func _Ready() Sleep(500) ConsoleWrite('Ready started') ;~ Find enemy Send($inp1) While 1 If $atk = 0 Then sl(50, 100) ;~ ConsoleWrite($coord[0] & " " & $coord[1]) ;~ If IsArray($coord) = 1 Then _Attack() ;~ Else ;~ _Search() EndIf WEnd EndFunc ;==>_Ready Func _Attack() $atk = 1 Send("{ALT DOWN}") Send($inp1) sl(1, 10) Send($inp1) sl(50, 100) Send($inp2) If Not $com1 = "0" Then $contin = 0 Else Send($com1 & "{down}") Sl(1, 10) Send($com1 & "{up}") EndIf Send($inp2) sl(500, 1000) If Not $contin = 0 Then If $com2 = "0" Then $contin = 0 Else Send($com2 & "{down}") Sl(1, 10) Send($com2 & "{up}") EndIf EndIf Send($inp2) sl(500, 1000) If not $contin = 0 Then If $com3 = "0" Then $contin = 0 Else Send($com3 & "{down}") Sl(1, 10) Send($com3 & "{up}") EndIf EndIf Send($inp2) sl(500, 1000) If not $contin = 0 Then If $com4 = "0" Then $contin = 0 Else Send($com4 & "{down}") Sl(1, 10) Send($com4 & "{up}") EndIf EndIf Send($inp2) sl(500, 1000) If Not $contin = 0 Then If $com5 = "0" Then $contin = 0 Else Send($com5 & "{down}") Sl(1, 10) Send($com5 & "{up}") EndIf EndIf sl(500, 1000) If Not $contin = 0 Then If $com6 = "0" Then $contin = 0 Else Send($com6 & "{down}") Sl(1, 10) Send($com6 & "{up}") EndIf EndIf Send($inp2) sl(500, 1000) If Not $contin = 0 Then If $com7 = "0" Then $contin = 0 Else Send($com7 & "{down}") Sl(1, 10) Send($com7 & "{up}") EndIf EndIf Send($inp2) sl(500, 1000) If Not $contin = 0 Then If $com8 = "0" Then $contin = 0 Else Send($com8 & "{down}") Sl(1, 10) Send($com8 & "{up}") EndIf EndIf Send($inp2) Send("{ALT UP}") $contin = 8 $atk = 0 _Ready() EndFunc ;==>_Attack Func sl($sleep, $sleep2) $ran_sleep = Random($sleep, $sleep2, 1) Sleep($ran_sleep) EndFunc ;==>sl [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now