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

[kurodoll]

I tried to find a fix which consist in:

the char goes up the stairs, aggro the mob, then runs back and leave

I keep the paladin with me

there are some bugs: -

-I can't manage to make him go back to the door, and then leave, so it saves time, instead the char goes to the door, but doesnt enter, just leaves the game

here the code, if you manage to improve it, post then you results:

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")
        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(120,130))
            ControlSend("Diablo III","","","{SPACE}")
            Sleep(Random(550,600))
            Click(757,519,"Left",2)
            Sleep(Random(1900,1950))
            Click(736,521)
            Sleep(Random(1500,1550))
            Click(592,181)
            Sleep(Random(1200,1250))
            Click(144,66)
            Sleep(Random(1200,1250))
            Click(589,521)
Sleep(Random(1200,1250))
            Click(397,527)
Sleep(Random(1200,1250))

            ;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 1
                    Click(705,410,"Right",10)
                    Sleep(Random(250,275))
                Next

                ControlSend("Diablo III","","","{SHIFTUP}")
                Sleep(25)
             EndIf
             ;Back to Camp.
             Sleep(Random(200,250))

Click(36,125)
Sleep(Random(1500,1550))
Click(77,50)
Sleep(Random(2700,2750))
Click(111,103)
Sleep(Random(320,325))

            ;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) = 2570191885

            $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 

Doesnt work for me, the bot doesnt pull the creeps fast enough.

I'll try to adjust the timings when I get home

[AJ989]

I'm playing a DH lvl 25, in NORMAL MODE

[1kaotik1]

i famr this spot by hand most of the time, i can do a run in about 1:15, going up the stairs, killing everything there, and resetting it. VERY fast xp, sometimes rares and even chest will spawn sometimes. I went from 20-30 in about 2 hours doing this by hand. Got to 40 just last night doing this in NM, took about an hour and a half.

This was not using the meteor exploit.

[AJ989]

yes, we need a version that makes the char go up the stairs, then kills the mobs, and leave

can someone help?

[j0achim]

I will add the moves to do that a little later, right now i just need to get some decent amount of gold on my gold farmers.

[AJ989]

can you tell how to do it?

how to implement it in the code, I can try to fix it

cause I d like to level fast my char

[Stede]

Not to repost, but the meteor now hits my character and no mobs come down the stairs. So - major nerf - was fun while it lasted.

[j0achim]

Heres one of the tools i have written as a simple aid to get correct mouse offset location.

Hotkeys:

• e = mouse click.
• x = exit.

When you press "E" it will put a "Click(x,y)" into your copy paste so all you need to do is run script (Diablo obviously running) and start clicking all over the place. And Ctrl+V into my other script. If you want to start on the task you're self.

HotKeySet("e","mouse")
HotKeySet("x","close")

$wpos = WinGetPos("Diablo III", "")
WinMove("Diablo III","",$wpos[0],$wpos[1],816, 638, 10)
WinActivate("Diablo III")
ConsoleWrite("Diablo III - window properties." & @CRLF)
ConsoleWrite("Width: " & $wpos[2] & " Height: " & $wpos[3] & @crlf)

While 1
    Sleep(100)
WEnd

Func mouse()
    $wpos = WinGetPos("Diablo III")
    $mpos = MouseGetPos()
    $s = "Click("&$mpos[0]-$wpos[0]&","&$mpos[1]-$wpos[1]&")"
    ClipPut($s)
    ConsoleWrite($s&@CRLF)
    MouseClick("Left")
EndFunc

Func close()
    Exit
EndFunc 

Not to repost, but the meteor now hits my character and no mobs come down the stairs. So - major nerf - was fun while it lasted.

We are fully aware of this, the edited script will simply just be a kill bot that kills the pack that comes down the stairs by itself.

[AJ989]

for the coord I was using

HotKeySet("z","jPos")

While 1
    Sleep(100)
WEnd

Func jPos()
    $jPos = MouseGetPos()
    MsgBox(0, "Mouse x,y:", $jPos[0] & "," & $jPos[1])
    
EndFunc 

what I can't manage to do, is to make the char ATTACK towards the enemy, and not towards the direction he is facing

then I must leave the door, leave the game and resume

[Stede]

We are fully aware of this, the edited script will simply just be a kill bot that kills the pack that comes down the stairs by itself.

Changed the coords on my own - hitting 2-4% of a lvl on each run, 27 seconds per run, 116 runs per hour.

Also - a tip for you guys w/ a DH. I've modded the code to pop my sentry just before it starts firing. Sentry will continue to fire while the countdown timer is running. I also pop cluster arrow, then ss, immediately before leaving the game - saves me a couple seconds where I could be hit during the timer.

[zerofield]

share the DH modification please?

[pinguoin01]

My SciTE isnt working anymore im trying to press go it tell me " Are you in hell ? " i press yess but my mouse still dont move could someone hlep me plz and the bot is on

[AJ989]

Changed the coords on my own - hitting 2-4% of a lvl on each run, 27 seconds per run, 116 runs per hour.

Also - a tip for you guys w/ a DH. I've modded the code to pop my sentry just before it starts firing. Sentry will continue to fire while the countdown timer is running. I also pop cluster arrow, then ss, immediately before leaving the game - saves me a couple seconds where I could be hit during the timer.

can you share?

[AJ989]

ok, I managed to get a script for DH lvl 30

normal mode, he aggro the mobs on top stairs, then he goes down, he does RAIN OF VENGEANCE, all mobs dead, he leave door, exit game and resume


I need one fix, when char leaves game, he takes 10sec to click resume

how can I speed this up? so it can do 1 run in 30sec

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")
        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(120,130))
            ControlSend("Diablo III","","","{SPACE}")
            Sleep(Random(550,600))
            Click(751,529,"Left",2)
            Sleep(Random(1900,1950))
            Click(743,521)
            Sleep(Random(1500,1550))
            Click(551,203)
            Sleep(Random(1200,1250))
            Click(205,87)
            Sleep(Random(800,850))
            Click(569,549)
Sleep(Random(2200,2250))


            ;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 1
                    Click(705,410,"Right",10)
                    Sleep(Random(2500,2750))
                Next

                ControlSend("Diablo III","","","{SHIFTUP}")
                Sleep(25)
             EndIf
             ;Back to Camp.
             Sleep(Random(200,250))

Click(235,480)
Sleep(Random(1500,1550))
Click(124,94)
Sleep(Random(2700,2750))
Click(102,61)
Sleep(Random(2320,2325))

            ;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) = 2570191885

            $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 

[Shimizoki]

ok, I managed to get a script for DH lvl 30
normal mode, he aggro the mobs on top stairs, then he goes down, he does RAIN OF VENGEANCE, all mobs dead, he leave door, exit game and resume
I need one fix, when char leaves game, he takes 10sec to click resume
how can I speed this up? so it can do 1 run in 30sec

This line

Until PixelChecksum($wpos[0]+76,$wpos[1]+258,$wpos[0]+80,$wpos[1]+262) = 2570191885

Needs to have the same number as this line

ElseIf PixelChecksum($wpos[0]+76,$wpos[1]+258,$wpos[0]+80,$wpos[1]+262) = 2572354573 Then ;Were in character menu.