[Active]Act3Q1 Tremors in the Stone - Au3 Leveling AutoIt Script menu

User Tag List

Page 3 of 3 FirstFirst 123
Results 31 to 42 of 42
  1. #31
    davecshow's Avatar Member
    Reputation
    1
    Join Date
    Aug 2012
    Posts
    5
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by voidlife View Post
    just put sleep(3*100) for 3 seconds delay and try..
    put it when you want it to sleep.. like after entering room or leaving or whatever..
    Try, adding sleep, you will eventually get it right..

    you could also try teh other script.. that's more nicer.. These scripts are easy to understand and edit.
    so you want me to change.
    Code:
      Call ( "endrun" ) ;tp and exit
    							  sleep(random(3250,3500))
    to
    Code:
      Call ( "endrun" ) ;tp and exit
    							  sleep(random(3,100))
    please advise

    [Active]Act3Q1 Tremors in the Stone - Au3 Leveling AutoIt Script
  2. #32
    voidlife's Avatar Member
    Reputation
    2
    Join Date
    Jun 2012
    Posts
    36
    Thanks G/R
    1/0
    Trade Feedback
    2 (100%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    sorry, Typo

    Sleep(3*1000) will seep 3 seconds..

    So add this to sleep 8-9 seconds

    Sleep(Random(8000,9000))

    What Random(8000,9000) is, it picks a random number, say 8500 and then it becomes sleep(8500) .. so it sleeps 8.5 seconds.. got it ?

  3. #33
    davecshow's Avatar Member
    Reputation
    1
    Join Date
    Aug 2012
    Posts
    5
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    got it thanks!

  4. #34
    Mercury63's Avatar Corporal
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    24
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    is there a way to make the sript make a pause after a number of run?

  5. #35
    davecshow's Avatar Member
    Reputation
    1
    Join Date
    Aug 2012
    Posts
    5
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by Mercury63 View Post
    is there a way to make the sript make a pause after a number of run?
    I was wondering this to, do you know how many runs the client allows before shutting off

    Originally Posted by Snubbel View Post
    It does, but for its closing down d3 after aprox 20-30 runs for some reason.
    20-30 runs sound right? so say 1 minute per run 30 mins stop and start again?

  6. #36
    bickin's Avatar Private
    Reputation
    1
    Join Date
    Aug 2012
    Posts
    1
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    can you make one for any of these:

    the 800x600 just doesnt work for me, it misclicks


    1024x768
    1152x864
    1280x720 [16:9 widescreen]
    1280x768 [16:10 widescreen]
    1280x800 [16:10 widescreen]
    1280x960
    1280x1024
    1360x768 [16:9 widescreen]
    1366x768 [16:9 widescreen]
    1440x900 [16:10 widescreen]
    1600x900 [16:10 widescreen]
    1600x1024 [16:10 widescreen]
    1680x1050 [16:10 widescreen]
    1920x1080 [16:9 widescreen]

  7. #37
    Mercury63's Avatar Corporal
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    24
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    i think we can make around 200 runs before being hit by limit game number

  8. #38
    soulout's Avatar Private
    Reputation
    1
    Join Date
    Jul 2012
    Posts
    2
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Complicated.
    Last edited by soulout; 11-13-2012 at 11:58 PM.

  9. #39
    manjinder209's Avatar Private
    Reputation
    1
    Join Date
    Jul 2012
    Posts
    9
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    I modified MadMan's Skaroth script to run ACT3 quest 4 so there's alot of dead code. This script is for demon hunters it runs at 1920x1080 I also added a limit function so that it runs for about an hour and then it shuts down D3 for an hour and then it'll log back in to D3 to start the run again
    thought i it might help some one

    u have to select the quest and talk to the guy yourself before starting the bot
    before you run the script don't forget to add the location of the Diablo III.exe in the Limit function
    And also your password to log back in and you need to check save email
    I put in arrow where you need to put in the location and the password

    Edit: I removed some of the dead code and changed the amount of runs before pausing

    start the script with "="
    pause with "-"
    stop with "x"

    skills i used to test the script
    1. Caltrops - Jagged Spikes
    2. Smokescreen - Lingering Fog
    3. Rain of Vengeance - Flying Strike
    4. Companion - Ferrets
    Right mouse. Chakram - Razors

    Code:
    $SleepRun = 90 ; the amount of the runs before it pauses
    Global $Paused
    
    HotKeySet("=","Start")  ;script can START by pressing =
    HotKeySet("-", "Pause") ;script can be Pause by pressing -
    HotKeySet("x", "Stop") ;script can be Stopped by pressing x
    
    ;-----------------------------------------------------
    ;-----------------------------------------------------
    ; Settings
    $ShootingTime = 8000					;Default: 5000			;Time in 1/1000 sec to shoot at sarkoth. Increase if you can't kill him.
    $DebugMode = True						;Default: False			;True / false Activate/Deactivate logging. Will create log file in your script folder
    $ShutDown = False						;Default: False			;True shuts down the computer
    ;-----------------------------------------------------
    ;-----------------------------------------------------
    ; Time 		29 sec
    ;-----------------------------------------------------
    ;-----------------------------------------------------
    
    
    ; areas
    Global $LootArea[4]
    $LootArea[0] = 450
    $LootArea[1] = 115
    $LootArea[2] = 1550
    $LootArea[3] = 864
    
    Global $FullScreen[4]
    $FullScreen[0] = 0
    $FullScreen[1] = 0
    $FullScreen[2] = 1920
    $FullScreen[3] = 1080
    
    Global $InventoryArea[4]
    $InventoryArea[0] = 1400
    $InventoryArea[1] = 584
    $InventoryArea[2] = 1900
    $InventoryArea[3] = 1874
    
    $go = True
    $Run = False
    $runMade = 0
    $Break = 0
    $Input = 250 ;amount of runs before it either puases for 2 hours or shuts down the computer
    
    While $go
       if($Run) Then
       $Pixel1 = PixelSearch(1482,20,1535,95,0xFFF000) ;searches top right screen for yellow of broken armor
    	  If Not @error Then
    		 ;we need to repair
    		 ToLog("We need to repair")
    		 Sleep(8000)
    		 MouseClick("left", 1380 + GetRandomInt(0, 50), 30 + GetRandomInt(0, 10)) ;clicks the blacksmith
    		 Sleep(5500)
    		 MouseClick("left", 520, 575) ;button to open up repair menu
    		 Sleep(1500)
    		 MouseClick("left", 260, 595) ;button to pay for repairs
    		 Sleep(2500)
    		 Send("{ESCAPE}") ;close windows
    		 Sleep(200);
    		 ToLog("Repairing completed... Resuming the game")
    		 ResumeGame()
    	  Else
    		 ;starts the run
    		 RunToCellarArea()
    		 Attack()
    		 CheckDeath()
    		 ResumeGame()
    	  EndIf
       EndIf
    WEnd
    
    Func Pause()
       $Run = False
    EndFunc
    
    Func Stop() ;to allow the script to stop
       ToLog("Stopping the bot")
        Exit
    EndFunc 
     
    Func Start()
       ToLog("Starting the bot")
        $Run = True
     EndFunc
       
    Func StatusCheck()
       if Not CheckDeath() Then
    		 ToLog("Status check: Death")
    	  Return False
       EndIf
       
       if Not CheckConnection() Then
    	  ToLog("Status check: Connection lost")
    	  Return False
       EndIf
       Return True
    EndFunc
    
    Func CheckDeath()
       ;ToLog("Checking death")
       $Pixel3 = PixelSearch(830,840,860,850,0xe69f4f )			
       if Not @error Then
    	  $Pixel3 = PixelSearch(700,830,730,860,0x180000 )		
    	  if Not @error Then
    		; ToLog("Death check 1 failed... you're dead")
    		 ResumeGame()
    		 Return False
    	  EndIf
       EndIf
       
       $Pixel3 = PixelSearch(830,840,860,850,0x4b4742 )			
       if Not @error Then
    	  $Pixel3 = PixelSearch(700,830,730,860,0x060201 )		
    	  if Not @error Then
    		 ;ToLog("Death check 2 failed... you're dead")
    		 ResumeGame()
    		 Return False
    	  EndIf
       EndIf
       
       ;ToLog("Death check Success!... you're still alive!")
       Return True
    EndFunc
    
    Func CheckConnection()
       ;ToLog("Checking connection")
       $Pixel3 = PixelSearch(860,417,1068,438,0xf09901 )			
       if Not @error Then
    	  $Pixel3 = PixelSearch(900,620,920,640,0x230400 )			
    	  if Not @error Then
    		 ToLog("Connection test failed")
    		 MouseClick("left", 910, 630)
    		 ResumeGame()
    		 Return False
    	  EndIf
       EndIf
       ;ToLog("Connection test success")
       Return True
    EndFunc
    
    Func Loading()
       $Pixel3 = PixelSearch(1700,168,1775,240,0x00a6ff )			
       if Not @error Then
    	  ; pixel found = loading is over
    	  Sleep(300)
    	  Return False
       EndIf
       
       ;Still on loading screen
       return True
    EndFunc
    
    Func GetRandomInt($min, $max)
       Return Round(Random($min, $max))
    EndFunc
    
    Func RunToCellarArea()
       ToLog("Running to cellar")
       $sleep = 0
       MouseClick("middle", 1385, 305 + GetRandomInt(0, 5))
       $sleep = 1450 + GetRandomInt(0, 50)
       Sleep($sleep)
       Send("4")
       Sleep(1000)
       MouseClick("middle", 1764, 876)
       $sleep = 1950 + GetRandomInt(0, 50)
       Sleep($sleep)
       MouseClick("middle", 1420 + GetRandomInt(20, 50), 390)
       $sleep = 1750 + GetRandomInt(50, 150)
       Sleep($sleep)
       MouseClick("left", 700, 330)
       Sleep(3000)
       Send("{ESCAPE}")
       MouseClick("left", 760 + GetRandomInt(0, 50), 350 + GetRandomInt(0, 40))
       $sleep = 2150 + GetRandomInt(50, 150)
       Sleep($sleep)
       MouseClick("middle", 985 + GetRandomInt(0, 50), 880 + GetRandomInt(0, 50))
       $sleep = 1250 + GetRandomInt(0, 50)
       Sleep($sleep)
       MouseClick("middle", 970 + GetRandomInt(0, 50), 820 + GetRandomInt(0, 50))
       $sleep = 1050 + GetRandomInt(0, 50)
       Sleep($sleep)
    endFunc
    
    Func Attack()
       ToLog("Begin the attack !")
       $ShootingTimeDone = 0
       $ShootingStep = Round($ShootingTime * .2) - 20
       $sleep = 0
       MouseMove(1040 + GetRandomInt(10, 20), 539 + GetRandomInt(10, 20))
       Send("3")
       Sleep(500)
       Send("1")
       Sleep(500)
       Send("1")
       Sleep(500)
       Send("1")
       Sleep(500)
       Send("2")
       Send("{SHIFTDOWN}")
       MouseDown("right")
       $sleep = $ShootingStep * 2 + GetRandomInt(100, 250)
       $ShootingTimeDone = $ShootingTimeDone + $sleep
       Sleep($sleep)
       MouseUP("right")
       Send("{SHIFTUP}")
       ToLog("Attack loop done.")
    EndFunc
    
    Func MouseActionOnPixelColor($mouseBtn, $color, $area, $searchCount, $timeBetweenFinds = 0, $randomRange = 4)
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch($area[0],$area[1],$area[2],$area[3],$color)			
    	  if Not @error Then
    		 MouseClick($mouseBtn, $Pixel3[0] + GetRandomInt(0,$randomRange), $Pixel3[1] + GetRandomInt(0,$randomRange))
    		 Sleep($timeBetweenFinds)
    		 $cnt = $cnt + 1
    		 if $cnt > $searchCount Then
    			$Searching = False
    		 EndIf
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
    EndFunc
    
    Func ResumeGame()
    	  ToLog("Resuming game")
       ; move the mouse to be sure it's not over the pixel we're looking for
       MouseMove(100, 100,1)
       
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(800,550,1125,610,0xf3aa55 )			
    	  if Not @error Then
    		 $Pixel = PixelSearch(800, 610, 1125, 660, 0xf3aa55)
    		 if Not @error Then
    			ToLog("Click 'leave game'")
    			; this check return if there is a button under the one we,re going to click. If there is not, we're on the select character screen and would click on "exit game" if we proceed
    			MouseClick("left", GetRandomInt(810,1115), GetRandomInt(560, 600)) ;button to leave game
    			$Searching = False
    		 Else
    			Send("{ESCAPE}") ;close menu
    			CloseErrorMessage()
    			ExitLoop
    		 EndIf
    	  Else
    		 Send("{ESCAPE}") ;close menu
    		 CloseErrorMessage()
    		 Sleep(1000)
    	  EndIf
       WEnd
       
       ; check if profile screen is open
       $Pixel3 = PixelSearch(1565,98,1593,126,0xffd794 )			
    	  if Not @error Then
    		 ToLog("Closing profile screen")
    		 Send("{ESCAPE}") ;close profile
    	  EndIf
    	  
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(60,384,411,450,0x3c0700 )	    
    	  if Not @error Then
    		 $Break = $Break + 1
    		 Limit()
    		 GameInput()
    		 ToLog("Clicking resume from Main menu")
    		 MouseClick("left", GetRandomInt(70,401), GetRandomInt(394,440)) ;button to resume game from main menu
    		 $Searching = False
    	  Else
    		 CloseErrorMessage()
    	  EndIf
       WEnd
       
       while Loading()
    	  ;will get out of the loop when loading is over and resume the script
       WEnd   
    EndFunc
    
    Func Limit()
       If $Break = $SleepRun Then
    	  $SleepRun = $SleepRun + 95
    	  ToLog("Opening Auction House")
    	  MouseClick("left", 238,641) ;button to open Auction House
    	  Sleep(6000)
    	  ToLog("Closing Auction House")
    	  Send("{ESCAPE}") ;close Auction House
    	  Sleep(3000)
    	  ToLog("Closing Diablo 3")
    	  Send("{ESCAPE}")
    	  MouseClick("left", 962,580) ;button to close diablo 3
    	  Sleep(1000)			
    	  MouseClick("left", 847,635) ;ok to close diablo 3			
    	  ToLog("Pausing for 1 hour")
    	  Sleep(3600000)
    	  ToLog("Opening Diablo 3")
    	  Run("") ;opens Diablo 3 <----- Loctaion of the Diablo III.exe
    	  Sleep(4000)
    	  MouseClick("left", 1217,696) ;Launches D3
    	  Sleep(15000)
    	  ToLog("Entering Password") 
    	  Send("") ; <------- your password to log in the game
    	  MouseClick("left", 961,853) ;button to log in
    	  Sleep(10000)
       Endif
    EndFunc
    
    Func GameInput()
       If $Break = $Input Then
    	  $Input = $Input + 250
    	  $SleepRun = $SleepRun + 70
    	  ToLog("Input Limit Has Been Reached")
    	  ToLog("Closing Diablo 3")
    	  Send("{ESCAPE}")
    	  MouseClick("left", 962,580) ;button to close diablo 3
    	  Sleep(1000)
    	  MouseClick("left", 847,635) ;ok to close diablo 3	  
    	  PowerOff()
    	  ToLog("Pausing for 2 hour")
    	  Sleep(7600000)
    	  ToLog("Opening Diablo 3")
    	  Run("") ;opens Diablo 3 <----- Loctaion of the Diablo III.exe
    	  Sleep(4000)
    	  MouseClick("left", 1217,696) ;Launches D3
    	  Sleep(15000)
    	  ToLog("Entering Password")
    	  Send("") ; <------- your password to log in the game
    	  MouseClick("left", 961,853) ;button to log in
    	  Sleep(10000)
       EndIf
    EndFunc
    
    Func PowerOff()
       If ($ShutDown) Then
    	  Sleep(2000)
    	  ToLog("Shutting down the computer")
    	  Shutdown(9) ;shuts down the computer
       EndIf
    EndFunc
    
    Func CloseErrorMessage()
       $Pixel3 = PixelSearch(860,417,1068,438,0xf09901 )			
       if Not @error Then
    	  $Pixel3 = PixelSearch(900,620,920,640,0x230400 )			
    	  if Not @error Then
    		 MouseClick("left", 910, 630)
    	  EndIf
       EndIf
    EndFunc
    
    Func ToLog($text)
       if Not $DebugMode Then
    	  TrayTip("file", "not debug mode", 1)
    	  Return
       EndIf
       
       $log = FileOpen ( @ScriptDir & "\log.txt", 1)
       If $log = -1 Then
    	  TrayTip("file", "not found", 1)
    	  Return
       EndIf
       
       FileWrite($log, @mon & "/" & @MDAY  & " @ " & @HOUR & ":" & @MIN & ":" & @SEC & " - " & $text)
       FileWrite($log, @CRLF)
       FileClose($log)
    EndFunc
    Last edited by manjinder209; 10-07-2012 at 05:00 PM.

  10. #40
    soulout's Avatar Private
    Reputation
    1
    Join Date
    Jul 2012
    Posts
    2
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    How do I delete this post?
    Last edited by soulout; 11-13-2012 at 11:59 PM.

  11. #41
    la102's Avatar Private
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    10
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    thanks for the script man, haven't run it for a long time, but have completed about 10 runs so far. I tried to add in a command to press "4" for the skill, but it seems to skip it all the time. and remain doing 1,1,1,3

    edit: got it sorted. had my sleep timer too small.
    Last edited by la102; 09-29-2012 at 04:56 PM.

  12. #42
    tr0jandude's Avatar Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    4
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Would you be able to make 1280x768?

Page 3 of 3 FirstFirst 123

Similar Threads

  1. Final Fantasy XIV:ARR 41 Level Dungeon Guide: The Stone Vigil
    By finalfantasy14gil in forum Final Fantasy XIV
    Replies: 0
    Last Post: 05-20-2014, 02:47 AM
  2. Monk autoit super script. 1280x720 A3Q4 Tremors in the Stone.
    By laughsitup2005 in forum D3 Leveling profiles
    Replies: 2
    Last Post: 09-17-2013, 09:07 PM
  3. WD Autoit super script. 1280x720 A3Q4 Tremors in the stone.
    By laughsitup2005 in forum D3 Leveling profiles
    Replies: 0
    Last Post: 08-17-2013, 04:13 AM
  4. WD Autoit super script. 1280x720 A3Q4 Tremors in the stone.
    By laughsitup2005 in forum D3 Leveling profiles
    Replies: 0
    Last Post: 08-17-2013, 04:06 AM
  5. ACT 3 : Tremors in the stone. (Vermin Kill EXP) [Raith] (Demonbuddy)
    By raithology in forum D3 Leveling profiles
    Replies: 7
    Last Post: 09-16-2012, 05:04 PM
All times are GMT -5. The time now is 01:56 AM. Powered by vBulletin® Version 4.2.3
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved. User Alert System provided by Advanced User Tagging (Pro) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
Digital Point modules: Sphinx-based search