Anyone have Dank Cellar scrit For DH? 800x600

rara23 · **Joined:** Thu Jun 07, 2012 5:33 am

If anyone has can you please link it here or PM Me ?

sleeping~ · **Joined:** Fri May 25, 2012 3:54 pm

I'm working on one ... but so far it's not perfect (started yesterday)

It has many bugs ... like not finding the cellar or not looting gems ... and I'm dying a lot :]
Repair is not working so good ... sometimes zombies are in your way so you get the wrong position.
Atm there is no check if your dead or safe in town, so I had to insert a Sleep(10000) after the Leave() sequence.
Suggestion and help are welcome!
Hopefully I'm not missing anything.

[edit]
Keybind: MiddleMouse = Move (NOT interact)

Numpad9 = end script
Numpad2 = start script (from menu)

quest: the legacy of cain -> explore cellar
checkpoint: wp to old ruins and walk west to the gate
[/edit]

My build

D3Prefs.txt

AutoIt3

Code: Select all

HotKeySet("{NUMPAD9}","EndScript")
HotKeySet("{NUMPAD5}","PositionAndColor")
HotKeySet("{NUMPAD1}","InsideCellar")
HotKeySet("{NUMPAD2}","DoRun")

$LoadingTime = 3500
$Repair = 1
$Left = 261
$Top = 222
$Right = 773
$Bottom = 559
$Color = 0xFFFF00 ;rare color code
$Color2 = 0x6969FF ;blue color code
$Color3 = 0xBF642F ;legendary color code
$Color4 = 0x00FF00 ;set color
$Amethyst = 0xA56DF1
$Ruby = 0xFA8078
$Emerald = 0x51965B
$Topaz = 0xFFFF59

Func EndScript()
   Exit
EndFunc

Func PositionAndColor()
   $pos = MouseGetPos()
   $lor = PixelGetColor($pos[0],$pos[1])
   MsgBox(0,"f", "Mouse position and pixel color:" & @LF & @LF & "X = " & $pos[0] & @LF & "Y = " & $pos[1] & @LF & "Color = " & $lor & " // " & Hex($lor,6))
EndFunc

Func FindItem()
   $SearchResult = PixelSearch($Left,$Top,$Right,$Bottom,$Color) ;searches for rares
   If Not @error Then
      MouseClick("left",$SearchResult[0],$SearchResult[1],1,10)
      Sleep(2000)
   EndIf
   ;$SearchResult = PixelSearch($Left,$Top,$Right,$Bottom,$Color2) ;searches for magics
   ;If Not @error Then 
   ;   MouseClick("left",$SearchResult[0],$SearchResult[1],1,10)
   ;   Sleep(2000)
   ;EndIf
   $SearchResult = PixelSearch($Left,$Top,$Right,$Bottom,$Color3) ;searches for legendarys
   If Not @error Then
      MouseClick("left",$SearchResult[0],$SearchResult[1],1,10)
      Sleep(2000)
   EndIf    
   $SearchResult = PixelSearch($Left,$Top,$Right,$Bottom,$Color4) ;searches for sets
   If Not @error Then
      MouseClick("left",$SearchResult[0],$SearchResult[1],1,10)
      Sleep(2000)
   EndIf
   $SearchResult = PixelSearch($Left,$Top,$Right,$Bottom,$Amethyst) ;searches for gems
   If Not @error Then
      MouseClick("left",$SearchResult[0],$SearchResult[1],1,10)
      Sleep(2000)
   EndIf
   $SearchResult = PixelSearch($Left,$Top,$Right,$Bottom,$Ruby) ;searches for gems
   If Not @error Then
      MouseClick("left",$SearchResult[0],$SearchResult[1],1,10)
      Sleep(2000)
   EndIf
   $SearchResult = PixelSearch($Left,$Top,$Right,$Bottom,$Emerald) ;searches for gems
   If Not @error Then
      MouseClick("left",$SearchResult[0],$SearchResult[1],1,10)
      Sleep(2000)
   EndIf
   $SearchResult = PixelSearch($Left,$Top,$Right,$Bottom,$Topaz) ;searches for gems
   If Not @error Then
      MouseClick("left",$SearchResult[0],$SearchResult[1],1,10)
      Sleep(2000)
   EndIf
EndFunc

Func Resume()
   ; Move mouse to the right side of the screen
   MouseMove(Random(800,900),Random(500,600))
   Sleep(Random(200,600))
   ; Click start/resume
   MouseClick("left",Random(266,399),Random(386,405))
   Sleep(Random(100,500))
   MouseMove(Random(800,900),Random(500,600))
   Sleep(Random($LoadingTime,$LoadingTime+1000))
EndFunc

Func Leave()
   ; Call menu
   Send("{ESCAPE}")
   Sleep(Random(200,600))
   ; Click leave
   MouseClick("left",Random(541,670),Random(479,492))
   Sleep(10000)
EndFunc

Func MoveToCellar()
   MouseClick("middle",238,322)
   Sleep(700)
   Send("2")
   Sleep(300)
   MouseClick("middle",234,367)
   Sleep(1000)
   MouseClick("middle",232,362)
   Sleep(1000)
   Send("2")
   Sleep(10)
   MouseClick("middle",214,440)
   Sleep(500)
   MouseClick("middle",430,447)
   Sleep(300)
   Send("1")
   ; Search for entrance
   For $i = 1 To 10
      $x = Random(675,725)
      $y = Random(260,310)
      MouseMove($x,$y,2)
      Sleep(Random(100,200))
      $enter = PixelSearch($x-100,$y-100,$x+100,$y+100,0x395AC5,4)
      If Not @error Then
         ExitLoop 1
      EndIf
   Next
   If @error Then
      ; No entrance found
      Send("3")
      Sleep(Random(200,600))
      MouseClick("middle",368,692)
      Sleep(Random(800,1200))
      Send("2")
      Sleep(Random(100,300))
      Send("1")
      Sleep(Random(100,300))
      MouseClick("middle",349,689)
      Sleep(Random(1000,1500))
      ; Call Townportal
      Send("t")
      Sleep(Random(7000,8000))
      ; Leave game
      Leave()
      Sleep(Random($LoadingTime,$LoadingTime+1000))
      Return false
   EndIf
   Sleep(Random(10,100))
   MouseClick("left",$x,$y)
   Sleep(Random($LoadingTime,$LoadingTime+1000))
   Return true
EndFunc

Func InsideCellar()
   ; Use preparation
   Send("3")
   Sleep(Random(200,600))
   ; Move to door
   MouseClick("middle",221,697)
   Sleep(Random(1500,2000))
   MouseClick("middle",478,386)
   Sleep(Random(200,600))
   ; Call ferrets
   Send("4")
   Sleep(Random(200,600))
   ; Start attack
   Send("{SHIFTDOWN}")
   Sleep(Random(100,200))
   MouseClick("left",405,272) ; marked for death
   Sleep(Random(100,200))
   MouseDown("right") ; elemental arrow
   Sleep(Random(10000,12000))
   MouseUp("right")
   Sleep(Random(100,200))
   Send("{SHIFTUP}")
   Sleep(Random(200,600))
   ; Move inside room
   MouseClick("middle",405,272)
   Sleep(Random(2000,3000))
   ; Search for items
   FindItem()
   Sleep(Random(500,1000))
   FindItem()
   Sleep(Random(500,1000))
   Send("{ALT}")
   Sleep(Random(100,200))
   FindItem()
   Sleep(Random(500,1000))
   FindItem()
   Sleep(Random(500,1000))
   ; Call Townportal
   Send("t")
   Sleep(Random(7000,8000))
   ; Repair
   If $Repair > 10 Then
      Repair()
      $Repair = 1
   Else
      $Repair = $Repair + 1
   EndIf
   ; Leave game
   Leave()
   Sleep(Random($LoadingTime,$LoadingTime+1000))
EndFunc

Func Repair()
   MouseClick("middle",939,213)
   Sleep(random(4000,5000))
   MouseClick("left",670,250)
   Sleep(Random(2000,3000))
   MouseClick("left",491,439)
   Sleep(Random(200,600))
   MouseClick("left",355,494)
   Sleep(Random(200,600))
   Send("{ESCAPE}")
   Sleep(Random(200,600))
EndFunc

Func DoRun()
   While 1
      Resume()
      If MoveToCellar() == true Then
         InsideCellar()
      EndIf
      Sleep(Random(1234,5678))
   Wend
EndFunc

While 1

Wend

rogersmith30 · **Joined:** Thu Apr 29, 2010 9:27 pm

why would we have this would make to much sense? people were busy making stuff for d3a which obviously wasnt gonna stay undetectable

CovertOp · **Joined:** Fri Jun 08, 2012 3:59 pm

AutoIt is obsolete compared to D3A C# sources... so it makes perfect sense for people to use D3A instead of AutoIT.

Blizzhackers

Anyone have Dank Cellar scrit For DH? 800x600

Who is online