Atm no use, fixing it! - The Siege of Bastion's Keep A:3 Q:1 [Any Res] [AutoIt]

[pinguoin01]

Hi, so i tryed to fixe it with my demon hunter level 57 hell so theres the code and tell me what you think about it i do 33 sec per run 113 run per hour so There is

#cs ---------------------------------------------------------------------------- 
 
 AutoIt Version: 3.3.6.1 
 Author:         j0achim @ www.ownedcore.com - http://www.ownedcore.com/forums/members/625808-j0achim.html 
 Date:           09.06.2012 
 Script Version: 1.4 
 Name:              j-BastionBot 
 
 Script Function: 
    Repeating a part of Quest 1 in Act 3 "Light the Beacons", 
    after you start the quest (you can start the very first quest in act 3) 
    there is a point where you port to a guard that rambles about 
    Lighting the Beacons, you need to manually go to this fella and leave game. 
 
    When your in the menu simply start the script. 
 
    Enjoy! 
 
 
    I give you this for free in the hope that you return the favor by showing your appreciation. 
 
 
 Developer comment: 
    Have ran this script for a little over 2 weeks and leveled a whole bunch of new characters. 
 
    If i can recommend quickest way to get lvl 60 do following. 
 
    1-25~30 on Normal mode. 2~ hours. 
    25-50 on Nightmare mode. 5~ hours. 
    50-60 on Hell mode. 3~ hours. 
 
    These times are merely rough estimates, as this is a script it can fail, 
    disconnected from server for instance. However you check in on bot every now and then 
    and you will easily be able to level 1 level 60 in a single day! 
 
    Friends have requested features such as looting gold and such, but just to answer it right away 
    it will simply slow down the process considerably and the gain is so little that one hour farming 
    and you have earned the "lost" amount due to the script not looting. 
 
 
 Questions and Answers: 
    Q: Bot leaves the game so quickly is it failing? 
    A: No this is by design we want as many as possible runs per hour. This is the key behind the quick leveling. 
 
    Q: Not all monsters die?! 
    A: There are many factors, this is meant for characters that have no run speed bonus. And if your pc is incredibly 
    slow it could mess up the script making it delay actions till the time window has expired. I.e running virtual machines 
    to level multiple toons at same time. (I do that.) 
 
    Q: Please make it loot! 
    A: No. Dont want it, dont need it. 
 
 Credits: 
    To anyone contributed in the tread with tweaks. 
 
#ce ---------------------------------------------------------------------------- 
 
HotKeySet("x","endbot") 
HotKeySet("s","toggle") 
 
Global $toggle = True 
Global $mode = 0 
Global $wpos = WinGetPos("Diablo III") 
Global $ini = "j-Bationbot.ini" 
Global $checksum[3] 
;Lets make sure user have made Diablo window as small as possible. 
WinMove("Diablo III","",$wpos[0],$wpos[1],816, 638) 
 
ConsoleWrite("Starting j-BastionBot by j0achim @ www.ownedcore.com"&@CRLF) 
ConsoleWrite("Version: 1.4 - 09.06.2012"&@CRLF) 
ConsoleWrite("Greetings to all of the ownedcore community!"&@CRLF&@CRLF) 
 
Check() 
GetChecksum() 
 
 
$q = MsgBox(48+4,"j-BastionBot","You're difficulty set to Hell?") 
If $q = 6 Then 
    $mode = 1 
EndIf 
 
WinActivate("Diablo III") 
Sleep(500) 
$r = 1 
$t = TimerInit() 
 
while 1 
    While $toggle = True 
        Check() 
        $wpos = WinGetPos("Diablo III") 
        If PixelChecksum($wpos[0]+385,$wpos[1]+382,$wpos[0]+389,$wpos[1]+86) = $checksum[0] Then ;Error message. 
            Click(385,382) 
            Move(40,40,20) 
            Sleep(50) 
        ElseIf PixelChecksum($wpos[0]+76,$wpos[1]+258,$wpos[0]+80,$wpos[1]+262) = $checksum[1] Then ;Were in character menu. 
            Click(76,258) 
            Move(40,40,20) 
            Sleep(50) 
        ElseIf PixelChecksum($wpos[0]+116,$wpos[1]+608,$wpos[0]+120,$wpos[1]+612) = $checksum[2] Then ;Were ingame. 
            ConsoleWrite("=== STARTING NEW GAME ===" & @CRLF) 
            ConsoleWrite("Run #: " & $r & @crlf) 
 
            $rt = TimerInit() 
            Click(735,531) 
            ControlSend("Diablo III","","","{SPACE}") 
            Sleep(Random(1900,1950)) 
            Click(742,528) 
            Sleep(Random(1900,1950)) 
            Click(606,205) 
            Sleep(Random(1900,1950)) 
            Click(193,47) 
            Sleep(Random(1900,1950)) 
 
            ;Mode 1 means we should do some AOE dmg over the guard. This is absolutely needed in Hell mode. 
            If $mode = 1 Then 
                ControlSend("Diablo III","","","{SHIFTDOWN}") 
                Sleep(25) 
 
                For $x = 0 to 12 
                    Click(616,530,"Right",20) 
                    Sleep(Random(25,75)) 
                Next 
                For $x = 13 to 25 
                    Click(457,114,"Right",30) 
                    Sleep(Random(25,75)) 
                Next 
 
                ControlSend("Diablo III","","","{SHIFTUP}") 
                Sleep(25) 
            EndIf 
 
            ;Back to Camp. 
            Sleep(Random(500,600)) 
            Click(581,549) 
            Sleep(Random(1900,1950)) 
            Click(135,420) 
            Sleep(Random(2900,2950)) 
            Click(84,98) 
            Sleep(Random(1900,1950)) 
            Click(127,117) 
            Sleep(Random(2200,2250)) 
 
            ;Back to game menu. 
            ControlSend("Diablo III","","","{ESC}") 
            Sleep(Random(760,810)) 
            Click(352,349) 
 
            $c = 0 
            Do 
                Sleep(100) 
                $c +=1 
                ;Make sure we never get stuck here for infinity. 
                If $c > 120 Then 
                    ExitLoop 
                EndIf 
            Until PixelChecksum($wpos[0]+76,$wpos[1]+258,$wpos[0]+80,$wpos[1]+262) = $checksum[1] 
 
            $srt = TimerDiff($rt) 
            ConsoleWrite("Runtime: " & Round($srt/1000,2) & " seconds." & @CRLF) 
            $trt = TimerDiff($t) 
            $total = Round((($trt/1000)/60)/60,4) 
            $rph = Round($r/$total) 
 
            ;Total runtiume calculation. 
            $hours = Floor((($trt/1000)/60)/60) 
            $minutes = (($trt/1000)/60) 
            ;trim minutes if runtime is more then 1 hour. 
            If $minutes > 60 Then 
                While $minutes > 60 
                    $minutes -=60 
                WEnd 
            EndIf 
 
            ConsoleWrite("Total runtime: " & $hours & " hours, "& Ceiling($minutes) &" minutes."& @CRLF) 
            ConsoleWrite("Runs per hour: " & $rph & @CRLF) 
            ConsoleWrite("=== RUN #: " & $r & " HAS ENDED ===" & @CRLF & @CRLF) 
 
            $r +=1 
            Move(40,40,20) 
        EndIf 
        Sleep(300) 
    WEnd 
    Sleep(300) 
WEnd 
 
Func GetChecksum() 
    $checksum[0] = IniRead($ini,"Checksum","Error",0) 
    $checksum[1] = IniRead($ini,"Checksum","Menu",0) 
    $checksum[2] = IniRead($ini,"Checksum","Ingame",0) 
 
    If $checksum[0] = 0 Then 
        MsgBox(64,"j-BastionBot","Calibration needed, for this calibration bot needs to see a Error message in you're Diablo III client. Easiest way to do this is logging out of the game and typing the wrong password. When you have done this press Ok.") 
        Check() 
        $wpos = WinGetPos("Diablo III","") 
        Sleep(50) 
        Move(40,40) 
        Sleep(50) 
        $checksum[0] = PixelChecksum($wpos[0]+385,$wpos[1]+382,$wpos[0]+389,$wpos[1]+86) 
        IniWrite($ini,"Checksum","Error",$checksum[0]) 
    EndIf 
 
    If $checksum[1] = 0 Then 
        MsgBox(64,"j-BastionBot","Calibration needed, for this calibration bot needs to be in the game menu, then press Ok.") 
        Check() 
        $wpos = WinGetPos("Diablo III","") 
        Sleep(50) 
        Move(40,40) 
        Sleep(50) 
        $checksum[1] = PixelChecksum($wpos[0]+76,$wpos[1]+258,$wpos[0]+80,$wpos[1]+262) 
        IniWrite($ini,"Checksum","Menu",$checksum[1]) 
    EndIf 
 
    If $checksum[2] = 0 Then 
        MsgBox(64,"j-BastionBot","Calibration needed, for this calibration bot needs to be in-game, then press Ok.") 
        Check() 
        $wpos = WinGetPos("Diablo III","") 
        Sleep(50) 
        Move(40,40) 
        Sleep(50) 
        $checksum[2] = PixelChecksum($wpos[0]+116,$wpos[1]+608,$wpos[0]+120,$wpos[1]+612) 
        IniWrite($ini,"Checksum","Ingame",$checksum[2]) 
    EndIf 
 
EndFunc 
 
Func Move($x,$y,$offset = 5) 
    Check() 
    $wpos = WinGetPos("Diablo III") 
    MouseMove(Random(($wpos[0]+$x)-$offset,($wpos[0]+$x)+$offset),Random(($wpos[1]+$y)-$offset,($wpos[1]+$y)+$offset)) 
EndFunc 
 
Func Click($x, $y, $button = "Left", $offset = 5) 
    Check() 
    $wpos = WinGetPos("Diablo III") 
    MouseClick($button,Random(($wpos[0]+$x)-$offset,($wpos[0]+$x)+$offset), Random(($wpos[1]+$y)-$offset,($wpos[1]+$y)+$offset), 1, 3) 
    Sleep(50) 
EndFunc 
 
Func Check() 
    If Not WinExists("Diablo III","") Then 
        MsgBox(64,"j-BastionBot","Unable to detect if Diablo III window exists, if this is incorrect please replay in thread about this issue and include as much details as possible."&@CRLF&@CRLF&"Closing!") 
        Exit 
    EndIf 
 
    If Not WinActive("Diablo III","") Then 
        WinActivate("Diablo III") 
    EndIf 
 
    $p = WinGetPos("Diablo III","") 
    If $p[2] <> 816 Or $p[3] <> 638 Then 
        WinMove("Diablo III", "", $p[0],$p[1], 816, 638) 
 
        $c = WinGetPos("Diablo III","") 
        If $c[2] <> 816 Or $c[3] <> 638 Then 
            $r = MsgBox(16+4,"j-BastionBot","Unable to set the correct window size script might not run correctly. Do you want to continue run the script?") 
            If $r = 7 Then 
                endbot() 
            EndIf 
        EndIf 
    EndIf 
EndFunc 
 
Func toggle() 
    If $toggle = True Then 
        ConsoleWrite("Toggle bot OFF."&@CRLF) 
        $toggle = False 
        Sleep(100) 
    Else 
        ConsoleWrite("Toggle bot ON."&@CRLF) 
        $toggle = True 
        Sleep(100) 
    EndIf 
EndFunc 
 
Func endbot() 
    MsgBox(64,"j-BastionBot", "j-BastionBot stopped.",5) 
    Exit 
EndFunc  

[Teiik0]

It work with wizzard ?

[blankasf3]

how's this work for barb?? i got 2 lvl 29 barbs i need to get to 60 lol

[AJ989]

This line


Needs to have the same number as this line

ok works great, it resumes the games istantly now

need the last fix,

I let the bot run for 1 hour, and when I checked It I had:

disconnected from server message, I just needed to click ok, and then RESUME

how can I manage to make the script check if he doesnt leave because of disconnected message, the bot CLICKS OK and continue

so if disconnect happen, it will continue botting

[fr0gg]

the guy is getting hit with the meteor after taking two steps. maybe they fixed this?

[Mrtypr02]

Hi, so i tryed to fixe it with my demon hunter level 57 hell so theres the code and tell me what you think about it i do 33 sec per run 113 run per hour so There is

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         j0achim @ www.ownedcore.com - http://www.ownedcore.com/forums/members/625808-j0achim.html
 Date:           09.06.2012
 Script Version: 1.4
 Name:              j-BastionBot

 Script Function:
    Repeating a part of Quest 1 in Act 3 "Light the Beacons",
    after you start the quest (you can start the very first quest in act 3)
    there is a point where you port to a guard that rambles about
    Lighting the Beacons, you need to manually go to this fella and leave game.

    When your in the menu simply start the script.

    Enjoy!


    I give you this for free in the hope that you return the favor by showing your appreciation.


 Developer comment:
    Have ran this script for a little over 2 weeks and leveled a whole bunch of new characters.

    If i can recommend quickest way to get lvl 60 do following.

    1-25~30 on Normal mode. 2~ hours.
    25-50 on Nightmare mode. 5~ hours.
    50-60 on Hell mode. 3~ hours.

    These times are merely rough estimates, as this is a script it can fail,
    disconnected from server for instance. However you check in on bot every now and then
    and you will easily be able to level 1 level 60 in a single day!

    Friends have requested features such as looting gold and such, but just to answer it right away
    it will simply slow down the process considerably and the gain is so little that one hour farming
    and you have earned the "lost" amount due to the script not looting.


 Questions and Answers:
    Q: Bot leaves the game so quickly is it failing?
    A: No this is by design we want as many as possible runs per hour. This is the key behind the quick leveling.

    Q: Not all monsters die?!
    A: There are many factors, this is meant for characters that have no run speed bonus. And if your pc is incredibly
    slow it could mess up the script making it delay actions till the time window has expired. I.e running virtual machines
    to level multiple toons at same time. (I do that.)

    Q: Please make it loot!
    A: No. Dont want it, dont need it.

 Credits:
    To anyone contributed in the tread with tweaks.

#ce ----------------------------------------------------------------------------

HotKeySet("x","endbot")
HotKeySet("s","toggle")

Global $toggle = True
Global $mode = 0
Global $wpos = WinGetPos("Diablo III")
Global $ini = "j-Bationbot.ini"
Global $checksum[3]
;Lets make sure user have made Diablo window as small as possible.
WinMove("Diablo III","",$wpos[0],$wpos[1],816, 638)

ConsoleWrite("Starting j-BastionBot by j0achim @ www.ownedcore.com"&@CRLF)
ConsoleWrite("Version: 1.4 - 09.06.2012"&@CRLF)
ConsoleWrite("Greetings to all of the ownedcore community!"&@CRLF&@CRLF)

Check()
GetChecksum()


$q = MsgBox(48+4,"j-BastionBot","You're difficulty set to Hell?")
If $q = 6 Then
    $mode = 1
EndIf

WinActivate("Diablo III")
Sleep(500)
$r = 1
$t = TimerInit()

while 1
    While $toggle = True
        Check()
        $wpos = WinGetPos("Diablo III")
        If PixelChecksum($wpos[0]+385,$wpos[1]+382,$wpos[0]+389,$wpos[1]+86) = $checksum[0] Then ;Error message.
            Click(385,382)
            Move(40,40,20)
            Sleep(50)
        ElseIf PixelChecksum($wpos[0]+76,$wpos[1]+258,$wpos[0]+80,$wpos[1]+262) = $checksum[1] Then ;Were in character menu.
            Click(76,258)
            Move(40,40,20)
            Sleep(50)
        ElseIf PixelChecksum($wpos[0]+116,$wpos[1]+608,$wpos[0]+120,$wpos[1]+612) = $checksum[2] Then ;Were ingame.
            ConsoleWrite("=== STARTING NEW GAME ===" & @CRLF)
            ConsoleWrite("Run #: " & $r & @crlf)

            $rt = TimerInit()
            Click(735,531)
            ControlSend("Diablo III","","","{SPACE}")
            Sleep(Random(1900,1950))
            Click(742,528)
            Sleep(Random(1900,1950))
            Click(606,205)
            Sleep(Random(1900,1950))
            Click(193,47)
            Sleep(Random(1900,1950))

            ;Mode 1 means we should do some AOE dmg over the guard. This is absolutely needed in Hell mode.
            If $mode = 1 Then
                ControlSend("Diablo III","","","{SHIFTDOWN}")
                Sleep(25)

                For $x = 0 to 12
                    Click(616,530,"Right",20)
                    Sleep(Random(25,75))
                Next
                For $x = 13 to 25
                    Click(457,114,"Right",30)
                    Sleep(Random(25,75))
                Next

                ControlSend("Diablo III","","","{SHIFTUP}")
                Sleep(25)
            EndIf

            ;Back to Camp.
            Sleep(Random(500,600))
            Click(581,549)
            Sleep(Random(1900,1950))
            Click(135,420)
            Sleep(Random(2900,2950))
            Click(84,98)
            Sleep(Random(1900,1950))
            Click(127,117)
            Sleep(Random(2200,2250))

            ;Back to game menu.
            ControlSend("Diablo III","","","{ESC}")
            Sleep(Random(760,810))
            Click(352,349)

            $c = 0
            Do
                Sleep(100)
                $c +=1
                ;Make sure we never get stuck here for infinity.
                If $c > 120 Then
                    ExitLoop
                EndIf
            Until PixelChecksum($wpos[0]+76,$wpos[1]+258,$wpos[0]+80,$wpos[1]+262) = $checksum[1]

            $srt = TimerDiff($rt)
            ConsoleWrite("Runtime: " & Round($srt/1000,2) & " seconds." & @CRLF)
            $trt = TimerDiff($t)
            $total = Round((($trt/1000)/60)/60,4)
            $rph = Round($r/$total)

            ;Total runtiume calculation.
            $hours = Floor((($trt/1000)/60)/60)
            $minutes = (($trt/1000)/60)
            ;trim minutes if runtime is more then 1 hour.
            If $minutes > 60 Then
                While $minutes > 60
                    $minutes -=60
                WEnd
            EndIf

            ConsoleWrite("Total runtime: " & $hours & " hours, "& Ceiling($minutes) &" minutes."& @CRLF)
            ConsoleWrite("Runs per hour: " & $rph & @CRLF)
            ConsoleWrite("=== RUN #: " & $r & " HAS ENDED ===" & @CRLF & @CRLF)

            $r +=1
            Move(40,40,20)
        EndIf
        Sleep(300)
    WEnd
    Sleep(300)
WEnd

Func GetChecksum()
    $checksum[0] = IniRead($ini,"Checksum","Error",0)
    $checksum[1] = IniRead($ini,"Checksum","Menu",0)
    $checksum[2] = IniRead($ini,"Checksum","Ingame",0)

    If $checksum[0] = 0 Then
        MsgBox(64,"j-BastionBot","Calibration needed, for this calibration bot needs to see a Error message in you're Diablo III client. Easiest way to do this is logging out of the game and typing the wrong password. When you have done this press Ok.")
        Check()
        $wpos = WinGetPos("Diablo III","")
        Sleep(50)
        Move(40,40)
        Sleep(50)
        $checksum[0] = PixelChecksum($wpos[0]+385,$wpos[1]+382,$wpos[0]+389,$wpos[1]+86)
        IniWrite($ini,"Checksum","Error",$checksum[0])
    EndIf

    If $checksum[1] = 0 Then
        MsgBox(64,"j-BastionBot","Calibration needed, for this calibration bot needs to be in the game menu, then press Ok.")
        Check()
        $wpos = WinGetPos("Diablo III","")
        Sleep(50)
        Move(40,40)
        Sleep(50)
        $checksum[1] = PixelChecksum($wpos[0]+76,$wpos[1]+258,$wpos[0]+80,$wpos[1]+262)
        IniWrite($ini,"Checksum","Menu",$checksum[1])
    EndIf

    If $checksum[2] = 0 Then
        MsgBox(64,"j-BastionBot","Calibration needed, for this calibration bot needs to be in-game, then press Ok.")
        Check()
        $wpos = WinGetPos("Diablo III","")
        Sleep(50)
        Move(40,40)
        Sleep(50)
        $checksum[2] = PixelChecksum($wpos[0]+116,$wpos[1]+608,$wpos[0]+120,$wpos[1]+612)
        IniWrite($ini,"Checksum","Ingame",$checksum[2])
    EndIf

EndFunc

Func Move($x,$y,$offset = 5)
    Check()
    $wpos = WinGetPos("Diablo III")
    MouseMove(Random(($wpos[0]+$x)-$offset,($wpos[0]+$x)+$offset),Random(($wpos[1]+$y)-$offset,($wpos[1]+$y)+$offset))
EndFunc

Func Click($x, $y, $button = "Left", $offset = 5)
    Check()
    $wpos = WinGetPos("Diablo III")
    MouseClick($button,Random(($wpos[0]+$x)-$offset,($wpos[0]+$x)+$offset), Random(($wpos[1]+$y)-$offset,($wpos[1]+$y)+$offset), 1, 3)
    Sleep(50)
EndFunc

Func Check()
    If Not WinExists("Diablo III","") Then
        MsgBox(64,"j-BastionBot","Unable to detect if Diablo III window exists, if this is incorrect please replay in thread about this issue and include as much details as possible."&@CRLF&@CRLF&"Closing!")
        Exit
    EndIf

    If Not WinActive("Diablo III","") Then
        WinActivate("Diablo III")
    EndIf

    $p = WinGetPos("Diablo III","")
    If $p[2] <> 816 Or $p[3] <> 638 Then
        WinMove("Diablo III", "", $p[0],$p[1], 816, 638)

        $c = WinGetPos("Diablo III","")
        If $c[2] <> 816 Or $c[3] <> 638 Then
            $r = MsgBox(16+4,"j-BastionBot","Unable to set the correct window size script might not run correctly. Do you want to continue run the script?")
            If $r = 7 Then
                endbot()
            EndIf
        EndIf
    EndIf
EndFunc

Func toggle()
    If $toggle = True Then
        ConsoleWrite("Toggle bot OFF."&@CRLF)
        $toggle = False
        Sleep(100)
    Else
        ConsoleWrite("Toggle bot ON."&@CRLF)
        $toggle = True
        Sleep(100)
    EndIf
EndFunc

Func endbot()
    MsgBox(64,"j-BastionBot", "j-BastionBot stopped.",5)
    Exit
EndFunc  

I gave this a try, but it only enters a game and resume games, once it is in the game, it does nothing, just sits there

Any reason why ?

[maaagooor]

I gave this a try, but it only enters a game and resume games, once it is in the game, it does nothing, just sits there

Any reason why ?

set hell difficulty

[gutekwitek]

so this script basically is for powerleveling yes? altho when i copy the script from 1st post it is not working for me at all :/ whats up ?

[dklcfr]

so this script basically is for powerleveling yes? altho when i copy the script from 1st post it is not working for me at all :/ whats up ?

if you maybe took 3 minutes to read the posts on this or any of the last 3 pages, or the thread title, or even the first post you would've seen it's not working because blizzard fixed it.

[mpetsch]

when i start the script, it does not move.
and what does it mean by collaboration?

[Drbob]

So I modded a bit today and re-wrote the skript for my barb, and I wanted to share it
THIS IS BARB ONLY, and it's quite fast, with all the leaps and charges.

You have to bind your attacks as following:
1: Super Saiyajin
2: Furious Charge (Merciless Assault !!Very important!!)
3: War cry with Extra Rage
4: Earthquake
Left Mouse: Ground Stomp (Wrenching Smash)
Right Mouse: Leap (Also very important)

PS.: Now I have one problem, the skript worked for me and I wanted to test if it still works after another pixel checksum.
It gets the menu and starts but does not know that we are ingame afterwards. It worked perfectly for more than one hour.
Does someone find the mistake?
It just sits ingame.
I solved the problem - it has something to do with the pixel checksum.
Both Skripts (mine and original one have the same *.ini)
Just drag your window to the upper left corner of your screen and run the original skript one time after all the checks (say also yes to Hell difficulty).
Start my modded one, and he will get the right checksums from the former created right .ini

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         j0achim @ www.ownedcore.com - http://www.ownedcore.com/forums/members/625808-j0achim.html
 Date:           09.06.2012
 Script Version: 1.4
 Name:              j-BastionBot

 Script Function:
    Repeating a part of Quest 1 in Act 3 "Light the Beacons",
    after you start the quest (you can start the very first quest in act 3)
    there is a point where you port to a guard that rambles about
    Lighting the Beacons, you need to manually go to this fella and leave game.

    When your in the menu simply start the script.

    Enjoy!


    I give you this for free in the hope that you return the favor by showing your appreciation.


 Developer comment:
    Have ran this script for a little over 2 weeks and leveled a whole bunch of new characters.

    If i can recommend quickest way to get lvl 60 do following.

    1-25~30 on Normal mode. 2~ hours.
    25-50 on Nightmare mode. 5~ hours.
    50-60 on Hell mode. 3~ hours.

    These times are merely rough estimates, as this is a script it can fail,
    disconnected from server for instance. However you check in on bot every now and then
    and you will easily be able to level 1 level 60 in a single day!

    Friends have requested features such as looting gold and such, but just to answer it right away
    it will simply slow down the process considerably and the gain is so little that one hour farming
    and you have earned the "lost" amount due to the script not looting.


 Questions and Answers:
    Q: Bot leaves the game so quickly is it failing?
    A: No this is by design we want as many as possible runs per hour. This is the key behind the quick leveling.

    Q: Not all monsters die?!
    A: There are many factors, this is meant for characters that have no run speed bonus. And if your pc is incredibly
    slow it could mess up the script making it delay actions till the time window has expired. I.e running virtual machines
    to level multiple toons at same time. (I do that.)

    Q: Please make it loot!
    A: No. Dont want it, dont need it.

 Credits:
    To anyone contributed in the tread with tweaks.

#ce ----------------------------------------------------------------------------

#cs
Mod: Drbob - I did some new waypoints for post-patch, so it still farms the mobs without a meteor
    THIS IS BARB ONLY !
    You have to bind your attacks as following:
    1: Super Saiyajin
    2: Furious Charge (Merciless Assault !!Very important!!)
    3: War cry with Extra Rage
    4: Earthquake
    Left Mouse: Ground Stomp (Wrenching Smash)
    Right Mouse: Leap (Also very important)
#ce

HotKeySet("x","endbot")
HotKeySet("s","toggle")

Global $toggle = True
Global $mode = 0
Global $wpos = WinGetPos("Diablo III")
Global $ini = "j-Bationbot.ini"
Global $checksum[3]
;Lets make sure user have made Diablo window as small as possible.
WinMove("Diablo III","",$wpos[0],$wpos[1],816, 638)

ConsoleWrite("Starting j-BastionBot by j0achim @ www.ownedcore.com"&@CRLF)
ConsoleWrite("Version: 1.4 - 09.06.2012"&@CRLF)
ConsoleWrite("Greetings to all of the ownedcore community!"&@CRLF&@CRLF)

Check()
GetChecksum()


$mode = 1

WinActivate("Diablo III")
Sleep(500)
$r = 1
$t = TimerInit()

while 1
    While $toggle = True
        Check()
        $wpos = WinGetPos("Diablo III")
        If PixelChecksum($wpos[0]+385,$wpos[1]+382,$wpos[0]+389,$wpos[1]+86) = $checksum[0] Then ;Error message.
            Click(385,382)
            Move(40,40,20)
            Sleep(50)
        ElseIf PixelChecksum($wpos[0]+76,$wpos[1]+258,$wpos[0]+80,$wpos[1]+262) = $checksum[1] Then ;Were in character menu.
            Click(76,258)
            Move(40,40,20)
            Sleep(50)
        ElseIf PixelChecksum($wpos[0]+116,$wpos[1]+608,$wpos[0]+120,$wpos[1]+612) = $checksum[2] Then ;Were ingame.
            ConsoleWrite("=== STARTING NEW GAME ===" & @CRLF)
            ConsoleWrite("Run #: " & $r & @crlf)

            $rt = TimerInit()
            Sleep(Random(120,130))
            ControlSend("Diablo III","","","{SPACE}")
            Sleep(Random(550,600))
            Click(773,529,"Left",2)
            Send("3")                 ;using shout
            Sleep(Random(1900,2000))
            Click(749,216,"right")    ;leaping up the bridge
            Sleep(Random(750,800))
            Click(525,518,"Left")     ;going down the bridge
            Send("1")
            Sleep(Random(900,1000))
            Click(220,349,"Left")    ;moves to the corner/stands and waits for the mobs
            Sleep(Random(900,1000));adjust if mobs hit you too soon
            MouseMove(529,275)        ;charges to position
            Send("2")
            Sleep(Random(700,750))
            Send("{SHIFTDOWN}")
            Sleep(150)
            MouseClick("left")
            Send("{SHIFTUP}")            ;Stun
            Sleep(Random(800,850))
            Send("4")                ;Erdbeben
            Sleep(Random(800,850))
            MouseMove(236,322)
            Send("2")                ;charge raus
            ;Sleep(Random(800,900))
            ;Click(87,113,"Left")
            ;Sleep(Random(2500,2600))
            ;Click(141,105,"Left")    ;Position der Tür

            ;Mode 1 means we should do some AOE dmg over the guard. This is absolutely needed in Hell mode.
            ;If $mode = 1 Then
            ;    ControlSend("Diablo III","","","{SHIFTDOWN}")
            ;    Sleep(25)

             ;   For $x = 0 to 12
              ;      Click(697,134,"Right",10)
               ;     Sleep(Random(25,75))
                ;Next

              ;  ControlSend("Diablo III","","","{SHIFTUP}")
              ;  Sleep(25)
            ;EndIf

            ;Back to Camp.
            Sleep(Random(700,800))
            Click(87,113)
            Sleep(Random(2100,2200))
            Click(141,105)
            Sleep(Random(2400,2500))

            ;Back to game menu.
            ControlSend("Diablo III","","","{ESC}")
            Sleep(Random(15,25))
            Click(352,349)

            $c = 0
            Do
                Sleep(100)
                $c +=1
                ;Make sure we never get stuck here for infinity.
                If $c > 120 Then
                    ExitLoop
                EndIf
            Until PixelChecksum($wpos[0]+76,$wpos[1]+258,$wpos[0]+80,$wpos[1]+262) = $checksum[1]

            $srt = TimerDiff($rt)
            ConsoleWrite("Runtime: " & Round($srt/1000,2) & " seconds." & @CRLF)
            $trt = TimerDiff($t)
            $total = Round((($trt/1000)/60)/60,4)
            $rph = Round($r/$total)

            ;Total runtiume calculation.
            $hours = Floor((($trt/1000)/60)/60)
            $minutes = (($trt/1000)/60)
            ;trim minutes if runtime is more then 1 hour.
            If $minutes > 60 Then
                While $minutes > 60
                    $minutes -=60
                WEnd
            EndIf

            ConsoleWrite("Total runtime: " & $hours & " hours, "& Ceiling($minutes) &" minutes."& @CRLF)
            ConsoleWrite("Runs per hour: " & $rph & @CRLF)
            ConsoleWrite("=== RUN #: " & $r & " HAS ENDED ===" & @CRLF & @CRLF)

            $r +=1
            Move(40,40,20)
        EndIf
        Sleep(300)
    WEnd
    Sleep(300)
WEnd

Func GetChecksum()
    $checksum[0] = IniRead($ini,"Checksum","Error",0)
    $checksum[1] = IniRead($ini,"Checksum","Menu",0)
    $checksum[2] = IniRead($ini,"Checksum","Ingame",0)

    If $checksum[0] = 0 Then
        MsgBox(64,"j-BastionBot","Calibration needed, for this calibration bot needs to see a Error message in you're Diablo III client. Easiest way to do this is logging out of the game and typing the wrong password. When you have done this press Ok.")
        Check()
        $wpos = WinGetPos("Diablo III","")
        Sleep(50)
        Move(40,40)
        Sleep(50)
        $checksum[0] = PixelChecksum($wpos[0]+385,$wpos[1]+382,$wpos[0]+389,$wpos[1]+86)
        IniWrite($ini,"Checksum","Error",$checksum[0])
    EndIf

    If $checksum[1] = 0 Then
        MsgBox(64,"j-BastionBot","Calibration needed, for this calibration bot needs to be in the game menu, then press Ok.")
        Check()
        $wpos = WinGetPos("Diablo III","")
        Sleep(50)
        Move(40,40)
        Sleep(50)
        $checksum[1] = PixelChecksum($wpos[0]+76,$wpos[1]+258,$wpos[0]+80,$wpos[1]+262)
        IniWrite($ini,"Checksum","Menu",$checksum[1])
    EndIf

    If $checksum[2] = 0 Then
        MsgBox(64,"j-BastionBot","Calibration needed, for this calibration bot needs to be in-game, then press Ok.")
        Check()
        $wpos = WinGetPos("Diablo III","")
        Sleep(50)
        Move(40,40)
        Sleep(50)
        $checksum[2] = PixelChecksum($wpos[0]+116,$wpos[1]+608,$wpos[0]+120,$wpos[1]+612)
        IniWrite($ini,"Checksum","Ingame",$checksum[2])
    EndIf

EndFunc

Func Move($x,$y,$offset = 5)
    Check()
    $wpos = WinGetPos("Diablo III")
    MouseMove(Random(($wpos[0]+$x)-$offset,($wpos[0]+$x)+$offset),Random(($wpos[1]+$y)-$offset,($wpos[1]+$y)+$offset))
EndFunc

Func Click($x, $y, $button = "Left", $offset = 5)
    Check()
    $wpos = WinGetPos("Diablo III")
    MouseClick($button,Random(($wpos[0]+$x)-$offset,($wpos[0]+$x)+$offset), Random(($wpos[1]+$y)-$offset,($wpos[1]+$y)+$offset), 1, 3)
    Sleep(50)
EndFunc

Func Check()
    If Not WinExists("Diablo III","") Then
        MsgBox(64,"j-BastionBot","Unable to detect if Diablo III window exists, if this is incorrect please replay in thread about this issue and include as much details as possible."&@CRLF&@CRLF&"Closing!")
        Exit
    EndIf

    If Not WinActive("Diablo III","") Then
        WinActivate("Diablo III")
    EndIf

    $p = WinGetPos("Diablo III","")
    If $p[2] <> 816 Or $p[3] <> 638 Then
        WinMove("Diablo III", "", $p[0],$p[1], 816, 638)

        $c = WinGetPos("Diablo III","")
        If $c[2] <> 816 Or $c[3] <> 638 Then
            $r = MsgBox(16+4,"j-BastionBot","Unable to set the correct window size script might not run correctly. Do you want to continue run the script?")
            If $r = 7 Then
                endbot()
            EndIf
        EndIf
    EndIf
EndFunc

Func toggle()
    If $toggle = True Then
        ConsoleWrite("Toggle bot OFF."&@CRLF)
        $toggle = False
        Sleep(100)
    Else
        ConsoleWrite("Toggle bot ON."&@CRLF)
        $toggle = True
        Sleep(100)
    EndIf
EndFunc

Func endbot()
    MsgBox(64,"j-BastionBot", "j-BastionBot stopped.",5)
    Exit
EndFunc  

Edit.: I Improved the skript, it will now get the door more often and more dmg especially for hell! If you want to give credits, make sure j0achim get one too

[jnor]

new to botting where do i copy n paste the code for the bot to work?

[Stede]

Okay, I was kind of a prick a dozen posts back and teased some guys with some modifications I made to coords and skills that were DH-specific. Then I went to sleep. So, to make amends, here's the code I'm using. Please note - I'm not going to support this if you have questions. The code was the original code that was posted before the OP started messing with the fixes that would ensure the game would start. I've a few lines commented out that I used to debug it on my own, but if doesn't work at all and you're totally lost, I can't help ya.

Here's what you want on your DH:
right-click: Ball Lightning
1: Sentry - Rune it with w/e will give more dmg or longer duration
2: Caltrops - Use the Immobilization Rune
3: Smoke Screen w/ Lingering Fog
4: Ferrets - don't bother with PUR - just use ferrets

Should work same as before, but the toon will take a couple steps on the stairs then step back. You want to use Cull the Weak for sure because the Caltrops you lay down will have the mobs slowed. And then w/e else you want. Make sure your dps is good/decent and you should be fine (try finding a level requirement reduced bow).

Hope it works for you guys - if not, I guess I'm still a prick, but at least I tried... If so, leave rep for the OP - this was a sweet lil script.

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         j0achim @ www.ownedcore.com - http://www.ownedcore.com/forums/members/625808-j0achim.html
 Date:           08.06.2012
 Script Version: 1.1
 Name:              j-BastionBot

 Script Function:
    Repeating a part of Quest 1 in Act 3 "Light the Beacons",
    after you start the quest (you can start the very first quest in act 3)
    there is a point where you port to a guard that rambles about
    Lighting the Beacons, you need to manually go to this fella and leave game.

    When your in the menu simply start the script.

    Enjoy!


    I give you this for free in the hope that you return the favor by showing your appreciation.


 Developer comment:
    Have ran this script for a little over 2 weeks and leveled a whole bunch of new characters.

    If i can recommend quickest way to get lvl 60 do following.

    1-25~30 on Normal mode. 2~ hours.
    25-50 on Nightmare mode. 5~ hours.
    50-60 on Hell mode. 3~ hours.

    These times are merely rough estimates, as this is a script it can fail,
    disconnected from server for instance. However you check in on bot every now and then
    and you will easily be able to level 1 level 60 in a single day!

    Friends have requested features such as looting gold and such, but just to answer it right away
    it will simply slow down the process considerably and the gain is so little that one hour farming
    and you have earned the "lost" amount due to the script not looting.


 Questions and Answers:
    Q: Bot leaves the game so quickly is it failing?
    A: No this is by design we want as many as possible runs per hour. This is the key behind the quick leveling.

    Q: Not all monsters die?!
    A: There are many factors, this is meant for characters that have no run speed bonus. And if your pc is incredibly
    slow it could mess up the script making it delay actions till the time window has expired. I.e running virtual machines
    to level multiple toons at same time. (I do that.)

    Q: Please make it loot!
    A: No. Dont want it, dont need it.

#ce ----------------------------------------------------------------------------

HotKeySet("x","endbot")
HotKeySet("s","toggle")

Global $toggle = True
Global $mode = 0
Global $wpos = WinGetPos("Diablo III")
;Lets make sure user have made Diablo window as small as possible.
WinMove("Diablo III","",$wpos[0],$wpos[1],816, 638)

ConsoleWrite("Starting j-BastionBot by j0achim @ www.ownedcore.com"&@CRLF)
ConsoleWrite("Version: 1.1 - 08.06.2012"&@CRLF)
ConsoleWrite("Greetings to all of the ownedcore community!"&@CRLF&@CRLF)

$q = MsgBox(48+4,"j-BastionBot","You're difficulty set to Hell?")
If $q = 6 Then
    $mode = 1
EndIf

WinActivate("Diablo III")
Sleep(500)
$r = 1
$t = TimerInit()

while 1
    While $toggle = True
        Check()
        $wpos = WinGetPos("Diablo III")
		;ConsoleWrite(PixelChecksum($wpos[0]+116,$wpos[1]+608,$wpos[0]+120,$wpos[1]+612)) ;ingame spy.
		;ConsoleWrite(PixelChecksum($wpos[0]+76,$wpos[1]+258,$wpos[0]+80,$wpos[1]+262)) ;menu spy.
		;ConsoleWrite(" ") 
        If PixelChecksum($wpos[0]+385,$wpos[1]+382,$wpos[0]+389,$wpos[1]+86) = 3014526114 Then ;Error message.
            Click(385,382)
            MouseMove(Random(10,45),Random(30,40),0)
            Sleep(50)
        ElseIf PixelChecksum($wpos[0]+76,$wpos[1]+258,$wpos[0]+80,$wpos[1]+262) = 2572354573 Then ;Were in character menu.
            Click(76,258)
            MouseMove(Random(10,45),Random(30,40),0)
            Sleep(50)
        ElseIf PixelChecksum($wpos[0]+116,$wpos[1]+608,$wpos[0]+120,$wpos[1]+612) = 3853584318 Then ;Were ingame.
            ConsoleWrite("=== STARTING NEW GAME ===" & @CRLF)
            ConsoleWrite("Run #: " & $r & @crlf)

            $rt = TimerInit()
            Sleep(Random(100,200))
            ControlSend("Diablo III","","","{SPACE}")
            Sleep(Random(100,200))
			ControlSend("Diablo III","","","{4}")   ; Ferrets - Use em
			Sleep(Random(50,100))
            Click(710,500,"Left",2)
            Sleep(Random(1200,1350))
            Click(710,500)
			Sleep(Random(1100,1200))
			Click(510,350)
			Sleep(Random(400,500))
			Click(530,200)
			Sleep(Random(800,900))
			Click(350,225)
			Sleep(Random(400,500))
			ControlSend("Diablo III","","","{2}")	; caltops - the one with the 2 second immobilize
			Sleep(Random(50,100))
			Click(750,500)		
		    ControlSend("Diablo III","","","{2}")	; caltops - the one with the 2 second immobilize
			Sleep(Random(500,525))
			ControlSend("Diablo III","","","{2}")	; caltops - the one with the 2 second immobilize
			Sleep(Random(300,350))
			ControlSend("Diablo III","","","{1}")	; Drop sentry	
						

            ;Mode 1 means we should do some AOE dmg over the guard. This is absolutely needed in Hell mode. - Old code by original dev - always chose 'Yes'
            If $mode = 1 Then
                ControlSend("Diablo III","","","{SHIFTDOWN}")
                Sleep(25)

                For $x = 0 to 16
                    Click(330,210,"Right",10)
                    Sleep(Random(250,280))
					ControlSend("Diablo III","","","{2}")	
				 Next
				 
		        ControlSend("Diablo III","","","{SHIFTUP}")
                Sleep(25)
            EndIf

			;sleep(random(150,200))
			;ControlSend("Diablo III","","","{2}")
			sleep(random(150,200))
			ControlSend("Diablo III","","","{3}")   ; Pop Smoke Screen for an extra second before logging out
			Sleep(Random(25,50))

            ;Back to game menu.
            ControlSend("Diablo III","","","{ESC}")
            Sleep(Random(15,25))
            Click(352,349)

            $c = 0
            Do
                Sleep(100)
                $c +=1
                ;Make sure we never get stuck here for infinity.
                If $c > 120 Then
                    ExitLoop
                EndIf
            Until PixelChecksum($wpos[0]+76,$wpos[1]+258,$wpos[0]+80,$wpos[1]+262) = 2572354573

            $srt = TimerDiff($rt)
            ConsoleWrite("Runtime: " & Round($srt/1000,2) & " seconds." & @CRLF)
            $trt = TimerDiff($t)
            $total = Round((($trt/1000)/60)/60,4)
            $rph = Round($r/$total)

            ;Total runtiume calculation.
            $hours = Floor((($trt/1000)/60)/60)
            $minutes = (($trt/1000)/60)
            ;trim minutes if runtime is more then 1 hour.
            If $minutes > 60 Then
                While $minutes > 60
                    $minutes -=60
                WEnd
            EndIf

            ConsoleWrite("Total runtime: " & $hours & " hours, "& Ceiling($minutes) &" minutes."& @CRLF)
            ConsoleWrite("Runs per hour: " & $rph & @CRLF)
            ConsoleWrite("=== RUN #: " & $r & " HAS ENDED ===" & @CRLF & @CRLF)

            $r +=1
            MouseMove(Random(10,45),Random(30,40),0)
        EndIf
        Sleep(300)
    WEnd
    Sleep(300)
WEnd

Func Click($x, $y, $button = "Left", $offset = 5)
    Check()
    $wpos = WinGetPos("Diablo III")
    MouseClick($button,Random(($wpos[0]+$x)-$offset,($wpos[0]+$x)+$offset), Random(($wpos[1]+$y)-$offset,($wpos[1]+$y)+$offset), 1, 3)
    Sleep(50)
EndFunc

Func Check()
    If Not WinExists("Diablo III","") Then
        MsgBox(64,"j-BastionBot","Unable to detect if Diablo III window exists, if this is incorrect please replay in thread about this issue and include as much details as possible."&@CRLF&@CRLF&"Closing!")
        Exit
    EndIf

    If Not WinActive("Diablo III","") Then
        WinActivate("Diablo III")
    EndIf

    $p = WinGetPos("Diablo III","")
    If $p[2] <> 816 Or $p[3] <> 638 Then
        WinMove("Diablo III", "", $p[0],$p[1], 816, 638)
    EndIf
EndFunc

Func toggle()
    If $toggle = True Then
        ConsoleWrite("Toggle bot OFF."&@CRLF)
        $toggle = False
        Sleep(100)
    Else
        ConsoleWrite("Toggle bot ON."&@CRLF)
        $toggle = True
        Sleep(100)
    EndIf
EndFunc

Func endbot()
    MsgBox(64,"j-BastionBot", "j-BastionBot stopped.",5)
    Exit
EndFunc

[TanookiLover]

wow looks like they made it even harder now

[Pasaris]

I am having trouble starting this bot ..
To me it just clicks the left corner and on resume game while game menu is still open ..if i press excape the bot closes.

I would love to spend 10-15 USD for someone who can make me a script for a DH for Hell or Inferno dificulty.

Thank You.