Blizzhackers

Return of the Jedi

* Login   * Register    * FAQ    * Search

Join us on IRC: #bh@irc.synirc.net (or Mibbit Web IRC)


MuleFactory
It is currently Tue May 21, 2013 9:42 am

View unanswered posts | View active topics



Board index » Diablo III » Diablo III General Discussion

All times are UTC [ DST ]




Post new topic Reply to topic  Page 1 of 1
  [ 4 posts ] 
  Print view Previous topic | Next topic 
Author Message
rara23
 Post subject: Anyone have Dank Cellar scrit For DH? 800x600
PostPosted: Sun Jun 10, 2012 11:19 am 
 
User
User
User avatar

Joined: Thu Jun 07, 2012 5:33 am
If anyone has can you please link it here or PM Me ?

_________________
Image
Top
 Profile  
sleeping~
 Post subject: Re: Anyone have Dank Cellar scrit For DH? 800x600
PostPosted: Sun Jun 10, 2012 1:10 pm 
 
User
User

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
Code: Select all
http://eu.battle.net/d3/en/calculator/demon-hunter#jRYXVT!afW!baZZbY
+1x% run boots
D3Prefs.txt
Code: Select all
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"
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

_________________
Since most time I'm posting I'm drunk ... remenber: I'm DRUNK !

Last edited by sleeping~ on Sun Jun 10, 2012 3:16 pm, edited 3 times in total.
Top
 Profile  
rogersmith30
 Post subject: Re: Anyone have Dank Cellar scrit For DH? 800x600
PostPosted: Sun Jun 10, 2012 1:20 pm 
 
User
User

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
Top
 Profile  
CovertOp
 Post subject: Re: Anyone have Dank Cellar scrit For DH? 800x600
PostPosted: Sun Jun 10, 2012 3:19 pm 
 
User
User

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.
Top
 Profile  
Display posts from previous:  Sort by  
Post new topic Reply to topic  Page 1 of 1
  [ 4 posts ] 

Board index » Diablo III » Diablo III General Discussion

All times are UTC [ DST ]

Who is online

Users browsing this forum: No registered users and 1 guest

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum

Search for:
Jump to:  
cron