Jump to content

Guild Wars Bots possible?


russcom
 Share

Recommended Posts

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 :lmao:

Link to comment
Share on other sites

Heres a bot I made for gw a long time ago. It should work.

----------------------------------------------------------------------------
;
; 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]

Link to comment
Share on other sites

Uh here's another bot I started but I never got working...If you want to finish it you may.

#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]

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...