taultunleashed


https://www.taultunleashed.com/phpbb3/

[AutoIt, Hotfixed] The Royal Crypts Bots

https://www.taultunleashed.com/phpbb3/viewtopic.php?t=82191

Page 1 of 1

[AutoIt, Hotfixed] The Royal Crypts Bots

Posted: June 9th, 2012, 1:11 am
by dtrick
Found on another site linking here for users on this one:
-----------------------
http://www.autoitscript.com/cgi-bin/get ... -setup.exe
http://www.autoitscript.com/cgi-bin/get ... utoIt3.exe


THE ROYAL CRYPTS HAS BEEN HOTFIXED on EU

But these scripts below are still working and can be used as examples.
All credit goes to the original authors. Thanks everyone for contributing

Here you have several Royal Crypts farming bots, made by forum users, based on my scripts:

Bots are designed for Demon Hunters, I don't know about any other class. Search this thread for more info.
PRIME_BBCODE_SPOILER_SHOW PRIME_BBCODE_SPOILER: Royal Crypts farming bots

Code: Select all

Before starting:
- Bind Potion to MWHEELUP
- Town Portal to MWHEELDOWN
- Move to Mouse3
- Ferret Companion On Skill Slot 1
- Caltrops - Jagged Spikes Slot 2
- Chakram - Shuriken Cloud Slot 4
- Elemental Arrow - Ball Lightning Right Click
- D3Prefs (in my documents / diablo 3):


[code]DisplayModeFlags "0"
DisplayModeWindowMode "1"
DisplayModeWinLeft "200"
DisplayModeWinTop "135"
DisplayModeWinWidth "808"
DisplayModeWinHeight "627"
DisplayModeUIOptWidth "800"
DisplayModeUIOptHeight "600"
DisplayModeWidth "800"
DisplayModeHeight "600"
DisplayModeRefreshRate "75"
DisplayModeBitDepth "32"
Gamma "1.000000"
MipOffset "1"
ShadowQuality "0"
PhysicsQuality "0"
ClutterQuality "0"
Vsync "0"
Letterbox "0"
Antialiasing "0"
LowFX "1"
Bots are working on 800x600 window mode. [/code]

Posted: June 9th, 2012, 1:11 am
by dtrick
PRIME_BBCODE_SPOILER_SHOW PRIME_BBCODE_SPOILER: Alister's script:
Alister's script:

Code: Select all

Opt('MouseCoordMode', 0)
Opt('PixelCoordMode', 0)
HotKeySet('{END}', 'Quit')
HotKeySet('{SPACE}', 'Pause')
Global $Paused
Global $Picked = False
Global $DebugOn = True
Global $still = 0
Global $moving = 0

;bot starts paused. press space to start.
Pause()

WinActivate('Diablo III')
While 1
   If WinActive('Diablo III') Then
      ;start
      Sleep(2000)
      ;Click(134, 255) ;resume
      ;ControlClick ("Diablo III","","D3 Main Window Class0","Right",1,134,255)
      MouseClick('left',134, 255,1,0)
      Sleep(5500) ;load
      DEBUG("Searching for do repair")
      $repair = PixelSearch(569,39,597,84,0xFFF000) ;searches top right screen for yellow of broken armor
      If Not @error Then
         DEBUG("Going to repair")
         Send("t")
         Sleep(11000)
         MouseClick("left", 700, 147) ;begin movement towards merchant
         Sleep(2400)
         MouseClick("left", 531, 51) ;moves to get merchant in screen
         ;Sleep(1500)
         ;MouseClick("left", 845, 225) ;NPC Merchant to the right of cain's home
         Sleep(3000)
         MouseClick("left", 294, 296) ;button to open up repair menu
         Sleep(1500)
         MouseClick("left", 186, 326) ;button to pay for repairs
         Sleep(1500)
         Send("{ESCAPE}") ;opens menu
         Sleep(1000)
         Send("{ESCAPE}") ;opens menu
         Sleep(1000)
         MouseClick("left", 407, 345) ;button to leave game
         Sleep(8000)
         ;MouseClick("left", 230, 416) ;button to resume game from main menu
         ;Sleep(8000)
      Else
         ;$handle = WinGetHandle("Diablo")
         ;$thecolor = PixelGetColor (580 , 55,$handle)
         ;DEBUG("Didn't find repair, color:" & $thecolor)
         Click(235, 595) ;companion
         Click(349, 595) ;choose chakram
         Click(300, 300) ;cast chakram
         ;route start
         DEBUG("1")
         Shoot(298, 201)
         DEBUG("2")
         Shoot(648, 465)
         DEBUG("3")
         Move(648, 465)
         DEBUG("4")
         Sleep(1000)
         Click(275, 594) ;trap
         For $i = 0 To Random(5, 5)
            Shoot(538, 208)
         Next
            Click(275, 594) ;trap
         For $i = 0 To Random(5, 5)
            Shoot(561, 402)
         Next
            DEBUG("5")
            Shoot(689, 479)
            DEBUG("6")
            Move(689, 479)
            DEBUG("7")
            Move(555, 302)
            DEBUG("8")
            Shoot(725, 139)
            DEBUG("9")
            Move(725, 139)
            DEBUG("10")
            Sleep(1000)
            Click(275, 594) ;trap
         For $i = 0 To Random(5, 5)
            Shoot(552, 218)
         Next
            Click(275, 594) ;trap
         For $i = 0 To Random(5, 5)
            Shoot(310, 210)
         Next
      Move(658, 187)
      ;door check & open
      MouseMove(423, 220)
      MouseMove(421, 225)
      $blue = PixelSearch(380, 140, 465, 290, 0x5877A3, 50) ;if it still doesn't catch the door, make a screenshot of
      ;your highlighted door and check for blue color with AutoIt Window Info - then replace the 0x5877A3 with yours.
      If Not @error Then
         MouseClick("left")
         Sleep(500)
         Shoot(526, 174)
      EndIf
      Sleep(100)
           Sleep(1000)
           DEBUG("16")
           Shoot(526, 174)
           DEBUG("17")
           Move(622, 174)
           DEBUG("18")
           Shoot(655, 140)
           DEBUG("19")
           Move(655, 140)
           DEBUG("20")
           Shoot(384, 94)
           DEBUG("21")
           Move(588, 252)
           DEBUG("22")
           Move(608, 389)
           DEBUG("23")
           Shoot(628, 281)
           DEBUG("24")
           Shoot(470, 459)
           DEBUG("25")
           Shoot(431, 139)
           DEBUG("26")
           Move(634, 285)
           DEBUG("27")
           Shoot(613, 158)
           DEBUG("28")
           Move(589, 259)
           DEBUG("29")
           Shoot(459, 112)
           DEBUG("30")
           Shoot(683, 408)
           DEBUG("31 - mousemove?")
           MouseMove(543, 492, 0)
           DEBUG("32")
           Shoot(543, 492)
           DEBUG("33")
           Move(688, 465)
           DEBUG("34")
           Move(649, 469)
           DEBUG("35")
           Shoot(469, 460)
           DEBUG("36 - mousemove?")
           MouseMove(720, 429, 0)
           DEBUG("37")
           Shoot(720, 429)
           DEBUG("38")
           Move(699, 485)
           DEBUG("39")
           Shoot(466, 348)
         Shoot(466, 348)
         Sleep(900)
           DEBUG("40 - mousemove?")
           MouseMove(270, 352, 0)
           DEBUG("41 - Trap and Shoot")
       Click(275, 594) ;trap
       For $i = 0 To Random(3, 3)  
           Shoot(270, 352)
         Shoot(265, 160)
       Next  
         sleep(900)
           DEBUG("42")
           Move(64, 100)
           DEBUG("43")
           Sleep(1000)
           Move(219, 114)
           Sleep(1000)
           DEBUG("44")
           Shoot(550, 148)
         Shoot(550, 148)
           DEBUG("45")
           Move(471, 153)
           DEBUG("46")
           Click(275, 594) ;trap
         For $i = 0 To Random(3, 3)
           Shoot(369, 117)
       Next
           DEBUG("47")
           Move(282, 101)
           DEBUG("48")
           Shoot(224, 141)
           DEBUG("49 - mousemove?")
           MouseMove(53, 246, 0)
           DEBUG("50")
           Shoot(53, 246)
           DEBUG("51")
           Move(83, 241)
           DEBUG("52")
           Move(156, 371)
           DEBUG("54")
           Shoot(140, 491)
           DEBUG("55")
           Move(181, 268)
           DEBUG("56")
           Shoot(131, 174)
         Shoot(131, 174)
         Shoot(131, 174)
           DEBUG("57 - mousemove?")
           MouseMove(187, 92, 0)
           DEBUG("58")
           Shoot(187, 92)
           DEBUG("59")
           Move(107, 108)
           DEBUG("60")
       Click(275, 594) ;trap
         For $i = 0 To Random(3, 3)
         Shoot(649, 437)
         Shoot(649, 437)
         Next
           DEBUG("61")
           Move(707, 485)
         Sleep(900)
           DEBUG("62")
           Move(713, 504)
           DEBUG("63")
           Move(275, 506)
           DEBUG("64")
           Shoot(165, 400)
           DEBUG("65")
           Shoot(462, 494)
         ;route end
         Sleep(2000)
         DEBUG("quitting")
         ;Click(567, 594) ;menu
         MouseClick('left',567,594,1,0)
         ;Click(407, 345) ;leave
         MouseClick('left',407,345,1,0)
         $Picked = False
         Sleep(12000)
      EndIf
   EndIf
WEnd

Func Move($x, $y)
   If Not $Picked Then
      FindItems()
   EndIf
   If Not $Picked Then
      ;MouseClick('middle', Random($x - 3, $x + 3), Random($y - 3, $y + 3), 1, Random(0, 1))
      ;Local $z = 1
      ;While $z
         ;If Not IsMoving() Then
            ;$z = 0
            MouseClick('middle',$x,$y,1,0)
         ;EndIf
         ;Sleep(Random(2000, 2500))
         Sleep(2000)
      ;WEnd
   EndIf
EndFunc   ;==>Move

Func Click($x, $y)
   If Not $Picked Then
      FindItems()
   EndIf
   If Not $Picked Then
      ;MouseClick('left', Random($x - 3, $x + 3), Random($y - 3, $y + 3), 1, Random(0, 1))
      MouseClick('left',$x,$y,1,0)
      ;Sleep(Random(1000, 1500))
      Sleep(1000)
   EndIf
EndFunc   ;==>Click

Func Shoot($x, $y)
   If Not $Picked Then
      FindItems()
   EndIf
   If Not $Picked Then
      ;MouseClick('right', Random($x - 2, $x + 2), Random($y - 2, $y + 2), 1, 0)
      MouseClick('right',$x,$y,1,0)
      ;Sleep(Random(550, 700))
      Sleep(550)
   EndIf
EndFunc   ;==>Shoot

Func FindItems()
   ;Local $item = PixelSearch(60, 80, 750, 525, 0xA75A2B, 5)
   Local $item = PixelSearch(15, 96, 794, 525, 0xAC5B2A,0)
   If Not @error Then
      DEBUG("Legendary found, grabbing")
      MouseMove($item[0],$item[1],Random(0, 1))
      Sleep(Random(400))
      MouseClick('left')
      Sleep(2300)
      $Picked = True
   EndIf
   ;$item = PixelSearch(60, 80, 750, 525, 0x07E305, 5)
   $item = PixelSearch(15, 96, 794, 525, 0x07E305,0)
   If Not @error Then
      DEBUG("Set piece found, grabbing")
      MouseMove($item[0],$item[1],Random(0, 1))
      Sleep(Random(400))
      MouseClick('left')
      Sleep(2300)
      $Picked = True
   EndIf
EndFunc

Func IsMoving()
   Local $check = PixelChecksum(659,109,749,177,10)
   Sleep(50)
   Local $check2 = PixelChecksum(659,109,749,177,10)
   Local $ratio = $check/$check2
   If (($ratio < 1.05) And ($ratio > .95)) Then
      $still = $still + 1
      If $still >= 3 Then
         $moving = 0
         Return False
      EndIf
   Else
      $moving = $moving + 1
      If $moving > 3 Then
         ;If $moving > 20 Then
            ;Return
         ;EndIf
         $still = 0
       Return True
      EndIf
   EndIf
   Return True
EndFunc

Func Quit()
   Exit
EndFunc   ;==>Quit

Func Pause()
   $Paused = Not $Paused
   While $Paused
      Sleep(100)
      ToolTip('Paused...', 0, 0)
   WEnd
   ToolTip("")
EndFunc   ;==>Pause

Func DEBUG($MESSAGE)
   If $DebugOn Then
      ToolTip($MESSAGE, 0, 0)
   Else
      ToolTip('debug !@#$%^&*')
   EndIf
EndFunc      ;==>Debug Info

Re: [AutoIt, Hotfixed] The Royal Crypts Bots

Posted: June 9th, 2012, 1:12 am
by dtrick
knifesideleft's script:
Quest Sword of the Stranger: Khazra Den.
Take the checkpoint to the left from the Royal Crypts' waypoint and leave the game.
Run script in menu.
PRIME_BBCODE_SPOILER_SHOW PRIME_BBCODE_SPOILER: Quest Sword of the Stranger

Code: Select all


;-----------------------NOTES------------------------------
; You MUST have the following for this to work correctly
; Potion Bound to MWHEELUP
; Town Portal Bound to MWHEELDOWN
; Move to Mouse3
; Ferret Companion On Skill Slot 1
; Caltrops - Jagged Spikes Slot 2
; Chakram - Shuriken Cloud Slot 4
; Elemental Arrmor - Ball Lightning Right Click


Opt('MouseCoordMode', 0)
Opt('PixelCoordMode', 0)
HotKeySet('{END}', 'Quit')
HotKeySet('{HOME}', 'Pause')
Global $Paused
Global $UsePot = 1

Pause()
DoRun()


Func DoRun()
WinActivate('Diablo III')
   If WinActive('Diablo III') Then
     ;start
      Sleep(2000)
      Click(134, 255) ;resume
      Sleep(7000) ;load
     RunCrypts()
   
   EndIf
   
EndFunc


Func RunCrypts()
AdlibRegister ( "UsePotion" , 250)
$UsePot = 1
   While 1
   If GoRepair() Then ContinueLoop
   DebugTip("Using Skills...")
   Click(235, 595) ;companion
   Click(349, 595) ;choose chakram
   Click(300, 300) ;cast chakram
   DebugTip("Shoot at entrance and down hallway")
   Shoot(298, 201)
   Shoot(648, 465)
   DebugTip("Move to skeleton spawn 1")
   Move(648, 465)
   Sleep(1000)
   DebugTip("Kill skeletons at spawn 1")
   Click(275, 594) ;trap
   For $i = 0 To Random(1, 2)
     Shoot(561, 402)
   Next
   If IsDead() = 1 Then ExitLoop
   DebugTip("Shoot at waypoint")
   Shoot(689, 479)
   DebugTip("Move around waypoint corner")
   Move(689, 479)
   Move(555, 302)
   DebugTip("Shoot down hallway and move to spawn 2")
   Shoot(635, 139)
   Move(635, 139)
   Sleep(1000)
   DebugTip("Kill skeletons at spawn 2")
   Click(275, 594) ;trap
   If IsDead() = 1 Then ExitLoop
   For $i = 0 To Random(1, 2)
     Shoot(552, 218)
   Next
   DebugTip("Move to left corner of door")
   Move(535, 48)
   MouseMove(579, 285)
   $blue = PixelSearch(556, 224, 605, 323, 0x5877A3, 10) ;if it still doesn't catch the door, make a screenshot of
   If Not @error Then
   Click(579,285) ;Open
   EndIf
   Click(579,285) ;1st attempt
   DebugTip("BL hallway move 1")
   Shoot(526, 174)
   Shoot(752, 257)
   DebugTip("BL hallway move 2")
   Move(622, 174)
   Shoot(655, 140)
   DebugTip("BL hallway move 3")
   Move(655, 140)
   Shoot(384, 94)
   DebugTip("BL hallway move 4")
   Move(547, 286)
   $CheckSpot= PixelSearch (611, 127, 657, 158, 0x7FC8D6, 5)
   if Not @error Then
   DebugTip("Exiting.... We Seem to be stuck at the door >.<")
   Local $IsStuck = 1
   ExitLoop
   EndIf
   
   If IsDead() = 1 Then ExitLoop
   DebugTip("Move to B corner and clear pots")
   Move(608, 389)
   Shoot(466, 561)
   Shoot(766, 205)
   Shoot(631, 379)
   DebugTip("Move to entrance of BR hall and clear")
   Move(794, 241)
   Shoot(533, 146)
   Shoot(683, 408)
   Shoot(764, 83)
   If IsDead() = 1 Then ExitLoop
   MouseMove(543, 492, 0)
   DebugTip("BR hallway move halfway")
   Move(688, 465)
   Move(649, 469)
   Shoot(469, 460)
   MouseMove(720, 429, 0)
   Shoot(720, 429)
   DebugTip("BR hallway move to end")
   Move(699, 485)
   Shoot(466, 348)
   MouseMove(270, 352, 0)
   Sleep(1000)
   If IsDead() = 1 Then ExitLoop
   DebugTip("BR back out of hallway")
   Move(64, 100)
   Sleep(500)
   Move(219, 114)
   Sleep(500)
   DebugTip("R corner move")
   Move(471, 153)
   DebugTip("TR hallway entrance")
   Move(282, 101)
   Shoot(245, 165)
   Shoot(35, 355)
   MouseMove(53, 246, 0)
   Shoot(53, 246)
   If IsDead() = 1 Then ExitLoop
   DebugTip("TR hallway move")
   Move(670, 150)
   Shoot(450, 125)
   Shoot(570, 300)
   Shoot(598, 387)
   MouseMove(600, 220, 0)
   Sleep(3000)
   DebugTip("TR hallway back out")
   Move(25, 535)
   Sleep(500)
   DebugTip("T corner move")
   Move(83, 241)
   DebugTip("TL hallway entrance")
   Move(156, 371)
   Shoot(37, 565)
   Move(294, 392)
   DebugTip("TL hallway just in")
   Move(181, 268)
   Shoot(106, 150)
   Shoot(278, 58)
   If IsDead() = 1 Then ExitLoop
   MouseMove(187, 92, 0)
   Shoot(187, 92)
   DebugTip("TL hallway move to end")
   Move(107, 108)
   Shoot(649, 437)
   Sleep(1000)
   DebugTip("TL hallway back out and to L corner")
   Move(791, 545)
   Move(680, 525)
   Move(95, 456);here
   Shoot(386, 476)
   Shoot(688, 391)
   DebugTip("end route")
   EndRoute()
WEnd
If IsDead() = 1 or $IsStuck = 1 Then
   EndRoute()
EndIf
EndFunc

Func Shoot($x, $y)
   MouseClick('right', Random($x - 2, $x + 2), Random($y - 2, $y + 2), 1, 0)
   Sleep(Random(550, 700))
EndFunc   ;==>Shoot

Func Move($x, $y)
   MouseClick('middle', Random($x - 3, $x + 3), Random($y - 3, $y + 3), 1, Random(0, 1))
   Sleep(Random(2000, 2500))
EndFunc   ;==>Move

Func Click($x, $y)
   MouseClick('left', Random($x - 3, $x + 3), Random($y - 3, $y + 3), 1, Random(0, 1))
   Sleep(Random(1000, 1500))
EndFunc   ;==>Click

Func EndRoute()
   AdlibUnRegister("UsePotion")
   AdlibUnRegister ( "PotionCooldown")
   Sleep(2000)
   Click(567, 594) ;menu
   Click(407, 345) ;leave
   Sleep(12000)
   DoRun()
EndFunc

Func IsDead()
    Local $Dead = PixelSearch(60, 80, 220 , 213 , 0xFFFFFF , 5)
   If Not @error Then
     Local $Dead = PixelSearch(60, 80, 416 , 500 , 0x490F00 , 5)
     If Not @error Then
       Sleep(300)
       DebugTip("Ending run due to death")
       $Died = 1
       Return 1
     EndIf
   EndIf
EndFunc

Func GoRepair()
   Local $Repair = PixelSearch(60, 80, 583  , 46   , 0xFFDB00 , 5)
   If Not @error Then
     Local $Repair = PixelSearch(60, 80, 578  , 80  , 0xFFC705  , 5)
     If Not @error Then
       RepairPathing()
     EndIf
   Else
     Local $Repair = PixelSearch(60, 80, 583  , 46   , 0xD30000  , 5)
     If Not @error Then
       Local $Repair = PixelSearch(60, 80, 578  , 80  , 0xC40000   , 5)
         If Not @error Then
            RepairPathing()
         EndIf
     EndIf
   EndIf
EndFunc

Func RepairPathing()
Local $ClickMerchant = 1
DebugTip("Heading to town for repair")
MouseWheel ("Down")
Sleep(8000)
Move(800,40)
Sleep(3300)
DebugTip("clicking merchant")
Local $merchant = PixelSearch(334, 158, 380 , 193   , 0x827883  , 8)
   If @error Then
     Local $merchant = PixelSearch(334, 158, 380 , 193   , 0xB9A9A2  , 8)
       If @error Then
       $ClickMerchant = 0
       DebugTip("Can't find merchant, will try again next run")
       EndIf
     EndIf
If $ClickMerchant <> 0 Then
MouseClick("Left", $merchant[0], $merchant[1])
Click(354,180)
Sleep(3250)
DebugTip("Navigating to repair tab")
Click(294,298)
Sleep(250)
DebugTip("repairing")
Click(161,359)
Sleep(250)
Click(796,38)
EndIf
Sleep(100)
DebugTip("Move 1")
Move(405,563)
Sleep(2750)
DebugTip("Move 2")
Move(17,572)
Sleep(1750)
DebugTip("Going through portal")
Local $portal = PixelSearch(79, 235, 204 , 349  , 0xA0CAF8  , 10)
MouseClick("Left",$portal[0], $portal[1])
Sleep(3500)
EndFunc



Func Quit()
   Exit
EndFunc   ;==>Quit

Func Pause()
   $Paused = Not $Paused
   While $Paused
      Sleep(100)
      ToolTip('Paused...', 0, 0)
   WEnd
   ToolTip("")
EndFunc   ;==>Pause


Func UsePotion()
   If $UsePot = 1 and IsDead() = 0 Then
   Local $Health = PixelSearch(60, 80, 175, 585, 0xBB0905, 45)
     If Not @error Then
     Else
       MouseWheel ("Up")
       $UsePot = 0
       AdlibRegister ( "PotionCooldown" , 31000)
     EndIf
   EndIf
   EndFunc

Func DebugTip($text)
   ToolTip($text, 0, 0)
EndFunc

Func PotionCoolDown()
AdlibUnRegister ( "PotionCooldown")
$UsePot = 1
EndFunc

Posted: June 9th, 2012, 1:14 am
by dtrick
We need spoiler hide/show options btw to hide all this long code..

There is more but i cant post link site wont let me. its keyword blocked.

Posted: June 9th, 2012, 5:17 am
by fadeous
how did they nerf the crypts, and how does this fix it? im acctually pretty good with autoit and actool,

Re: [AutoIt, Hotfixed] The Royal Crypts Bots

Posted: June 9th, 2012, 5:34 am
by itsicarus
Nerfed on US now too since restart this AM. Pots just arent dropping gold :(

Posted: June 9th, 2012, 3:39 pm
by dtrick
they lowered the gold drop to like 50k or somthing.

Posted: June 9th, 2012, 3:39 pm
by dtrick
there is like 4 or so more scripts i can add to here for AutoIT bots.

Posted: June 9th, 2012, 5:31 pm
by fadeous
ugh ugh ugh lol i just moved my guys back to the Core getting a solid 350k PH im gonna handle on that for now, prob can get it up to 500k with movement speed increased

Posted: June 9th, 2012, 7:06 pm
by dtrick
You back on Immortal Fade? Since its back up? I also noticed Demonbuddy is coming the coders from Honorbuddy or w/e

Posted: June 10th, 2012, 3:28 am
by fadeous
Yeah I'm back on immortal hunting for a new spot to they seem to have nerfes everywherr

Posted: June 10th, 2012, 4:02 am
by dtrick
you got AIM/MSN/SKYPE? if so PM me

Re:

Posted: June 10th, 2012, 2:38 pm
by Tault_admin
dtrick wrote:We need spoiler hide/show options btw to hide all this long code..

There is more but i cant post link site wont let me. its keyword blocked.
Good? I also edited your items.

Posted: June 10th, 2012, 3:54 pm
by dtrick
np thx
All times are UTC-08:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited