Sign in to follow this  
Followers 0
russcom

Guild Wars Bots possible?

7 posts in this topic

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:

Share this post


Link to post
Share on other sites



Forum Rules :This is not a general support forum!

Share this post


Link to post
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]

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

thx, but that wasnt my question :lmao:

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 by russcom

Share this post


Link to post
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]

Share this post


Link to post
Share on other sites

thx

i think i can start now

Share this post


Link to post
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
Sign in to follow this  
Followers 0