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

User Tag List

Page 1 of 3 123 LastLast
Results 1 to 15 of 42
  1. #1
    NoUseLying's Avatar Private
    Reputation
    2
    Join Date
    Jul 2012
    Posts
    8
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

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

    This is my first AutoIt script,
    i wrote this to kill the vermin in the armory(act 3 quest 4) as a group for XP Bonus.
    I also put notes in the script for users to learn and understand and modify.
    Any Suggestions Just Post Them Here Please.

    How to Use:
    Download AutoIt from their Official Website and Install
    Open Notepad paste code below into it and save as: AnyFileName.au3

    1024x600:
    Code:
    			;#### - NoUseLying's - ACT 3 Q 4 Tremors in the Stone - Au3 Leveling AutoIt Script - ####
    			;Version .8
    			
    			;Controls-
    			;Skill Slot 3 = Number 3 = Whatever Area Damage Deal attack skill you want.
    			
    			;Notes-
    			;YOU MUST BEABLE TO KILL ALL OF THEM TO KEEP TIMING RIGHT WHEN EXITING
    			;This bot is still in beta, but works pretty much flawless for now.
    			;delays may need to be increased or decresed based on your system performance.
    			;feel free to add to this script and give me suggestions, i love ideas.
    			
    			;NextRelease-
    			;Faster Runs 
    			
    			;Upcoming-
    			;Figure out a way to implement a aspect ratio for all d3 resolutions
    			
    	
    	;Hotkeys Defined
    	HotKeySet("=","start") 	;START by pressing =
        HotKeySet("-", "pause") ;PAUSE by pressing -
        HotKeySet("x", "stop") 	;STOP by pressing x
        
        $runScript = True
        $start = False
         
        Call ( "mainRun" )
       
        Func resumegame()
    	
    			;####Breakdown of MouseClick Function using Random Mouse Cordinates####
    			;$x???????? = Random(???,???) (x axis function named anything)
    			;Left to Right
    			;1st number for x  = 1st number on x axis(x value for left side -------
    			;2nd number for x = 2nd number on x axis(x value for right side -------
    			;MouseClick("anybutton",$x????????,$yFunction,1)
    			;$y???????? = Random(???,???) (y axis function named anything)
    			;Top to Bottom
    			;1st number for y  = 1st number on y ayis(y value for top |||||||
    			;2nd number for y = 2nd number on y ayis(y value for bottom |||||||
    			;MouseClick("anybutton",$xFunction,$y????????,1)
    	
    	;1024 x 600 widescreen mouse positions 
        $xMostResume = Random(40,217)	; x leftside(40) x rightside(217)
        $yMostResume = Random(217,248)	; y top(217) y bottom(248)
        MouseClick("left",$xMostResume,$yMostResume,1)
        EndFunc
     
        Func leavegame()
    	;1024 x 600 widescreen
        $xMostLeave = Random(420,599)	; x leftside(420)  x rightside(599)
        $yMostLeave = Random(312,335)	; y top(312) y bottom(335)
        MouseClick("left",$xMostLeave,$yMostLeave,1)
        EndFunc
     
    	Func quest()
       	;1024 x 600 widescreen
        $xQuestDialog = Random(610,629)	; x leftside(610)  x rightside(629)
        $yQuestDialog = Random(223,232)	; y top(223} y bottom(232)
        MouseClick("left",$xQuestDialog,$yQuestDialog,1)
    					sleep(random(1250,2000))
    			    Send(" {space} ")
       EndFunc
    				 
    	Func movefromstart()
       	;1024 x 600 widescreen
        $xMoveFromStart = Random(1006,1023)	; x leftside(1006)  x rightside(1023)
        $yMoveFromStart = Random(359,383)	; y top(359} y bottom(383)
        MouseClick("left",$xMoveFromStart,$yMoveFromStart,1)
    	EndFunc
     
    	Func getapathtochamber()
       	;1024 x 600 widescreen
        $xGetPathToChamber = Random(952,969)	; x leftside(952)  x rightside(969)
        $yGetPathToChamber = Random(370,383)	; y top(370} y bottom(383)
        MouseClick("left",$xGetPathToChamber,$yGetPathToChamber,1)
        EndFunc
    				 
    	Func enterchamber()
       	;1024 x 600 widescreen
        $xEnterChamber = Random(367,383)	; x leftside(367)  x rightside(383)
        $yEnterChamber = Random(29,42)	; y top(29) y bottom(42)
        MouseClick("left",$xEnterChamber,$yEnterChamber,1)
    					sleep(random(3000,3900))
    			    Send(" {space} ")
        EndFunc
    
    	Func skipquestchat()
       	;1024 x 600 widescreen
        $xSkipQuestChat = Random(401,501)	; x leftside(401)  x rightside(501)
        $ySkipQuestChat = Random(196,221)	; y top(196} y bottom(221)
        MouseClick("left",$xSkipQuestChat,$ySkipQuestChat,1)
     EndFunc
     
     	Func leavechamber()
       	;1024 x 600 widescreen
        $xLeaveChamber = Random(367,383)	; x leftside(367)  x rightside(383)
        $yLeaveChamber = Random(62,94)	; y top(62} y bottom(94)
        MouseClick("left",$xLeaveChamber,$yLeaveChamber,1)
       EndFunc
     
      	Func reenterchamber()
       	;1024 x 600 widescreen
        $xReenterChamber = Random(353,369)	; x leftside(353)  x rightside(369)
        $yReenterChamber = Random(194,212)	; y top(194} y bottom(212)
        MouseClick("left",$xReenterChamber,$yReenterChamber,1)
        EndFunc
         
        Func killeverything()
        $xRightKillArea = Random(1276,1365)	; x leftside(1276)  x rightside(1365)
        $yRightKillArea = Random(644,767)	; y top(644} y bottom(767)
    	$xLeftKillArea = Random(391,418)	; x leftside(391)  x rightside(1365)
        $yLeftKillArea = Random(497,767)	; y top(497} y bottom(767)
        MouseMove($xRightKillArea,$yRightKillArea,1)
    				Send("{1}")
    					sleep(random(900,1000))
        MouseMove($xLeftKillArea,$yLeftKillArea,1)
    				Send("{1}")
    					sleep(random(800,900))
        MouseMove($xRightKillArea,$yRightKillArea,1)
    				Send("{1}")	
    					sleep(random(900,1000))
        MouseMove($xLeftKillArea,$yLeftKillArea,1)
    				Send("{1}")				
    					 sleep(random(900,1000))
        EndFunc
     
        Func endrun()
    			Call ( "leavechamber" ) ;leave game
                Send ( "{Escape}" )
                Sleep(Random(1000,2000))
    			Call ( "leavegame" ) ;leave game
    		 EndFunc
    		 
      	Func changequest()
       	;1024 x 600 widescreen
        $xChangeQuest = Random(40,217)	; x leftside(40) x rightside(217)
        $yChangeQuest = Random(258,282)	; y top(258} y bottom(282)
        MouseClick("left",$xChangeQuest,$yChangeQuest,1)
        EndFunc
    
      	Func selectquest()
       	;1024 x 600 widescreen
        $xSelectQuest = Random(198,415)	; x leftside(198)  x rightside(415)
        $ySelectQuest = Random(391,408)	; y top(391} y bottom(408)
        MouseClick("left",$xSelectQuest,$ySelectQuest,1)
        EndFunc
     
       	Func selectq()
       	;1024 x 600 widescreen
        $xSelectQ = Random(560,736)	; x leftside(560)  x rightside(736)
        $ySelectQ = Random(468,490)	; y top(468} y bottom(490)
        MouseClick("left",$xSelectQ,$ySelectQ,1)
        EndFunc
     
      
      	Func confirmselectedquest()
       	;1024 x 600 widescreen
        $xConfirmSelectedQuest = Random(400,500)	; x leftside(400)  x rightside(500)
        $yConfirmSelectedQuest = Random(340,363)	; y top(340} y bottom(363)
        MouseClick("left",$xConfirmSelectedQuest,$yConfirmSelectedQuest,1)
        EndFunc
         
        Func start()
        $start = True
        EndFunc
         
        Func pause()
        $start = False
        EndFunc
         
        Func stop()
        Exit
        EndFunc
     
        Func mainRun()
                While $runScript
                        If ($start) Then
                                $min = random(2100,2900)
                                $max = random(3100,4400)
    							$aclearroom = random(4000,5000)
    							$bclearroom = random(4500,5500)
    							  sleep(random($min,$max))
    						   Call ( "resumegame" ) ;enter game
    							  sleep(random($min,$max))
    						   Send(" {space} ")
    							  sleep(random(1250,1500))
    						   Send(" {space} ")
    							  sleep(random(1000,1400))
    						   Send(" {space} ")
    							  sleep(random(1000,1500))
    						   Call ( "quest" ) ;get quest
    							  sleep(random(1200,1400))
    						   Call ( "movefromstart" ) ;move closer to chamber
    							  sleep(random(2500,3000))
    						   Call ( "getapathtochamber" ) ;move to area where you can walk directly to chamber
    							  sleep(random(2600,2900))
    						   Call ( "enterchamber" ) ;enter chamber
    							  sleep(random(2200,2300))
    						   Call ( "skipquestchat" ) ;skip quest chat
    							  sleep(random(2300,2700))
    						   Call ( "leavechamber" ) ;leave room to group enemies
    							  sleep(random(8000,9000))
    						   Call ( "reenterchamber" ) ;reenter chamber
    							  sleep(random(1000,1500))
    						   Call ( "killeverything" ) ;clear room
    							  sleep(random($aclearroom,$bclearroom))
    						   Call ( "endrun" ) ;tp and exit
    							  sleep(random(3250,3500))
    						   Call ( "changequest" ) ;change quest button
    							  sleep(random(600,800))
    						   Call ( "selectquest" ) ;reselect quest
    							  sleep(random(666,999))
    						   Call ( "selectq" ) ;select button
    							  sleep(random(500,800))
    						   Call ( "confirmselectedquest" ) ;confirm reselection
                        EndIf
                Wend
        EndFunc
    800x600:

    Code:
    			;#### - NoUseLying's - Tremors in the Stone - Au3 Leveling AutoIt Script - ####
    			;Version .8
    			
    			;Controls-
    			;Skill Slot 3 = Number 3 = Whatever Area Damage Deal attack skill you want.
    			
    			;Notes-
    			;YOU MUST BEABLE TO KILL ALL OF THEM TO KEEP TIMING RIGHT WHEN EXITING
    			;This bot is still in beta, but works pretty much flawless for now.
    			;delays may need to be increased or decresed based on your system performance.
    			;feel free to add to this script and give me suggestions, i love ideas.
    			
    			;NextRelease-
    			;Faster Runs 
    			
    			;Upcoming-
    			;Figure out a way to implement a aspect ratio for all d3 resolutions
    			
    	
    	;Hotkeys Defined
    	HotKeySet("=","start") 	;START by pressing =
        HotKeySet("-", "pause") ;PAUSE by pressing -
        HotKeySet("x", "stop") 	;STOP by pressing x
        
        $runScript = True
        $start = False
         
        Call ( "mainRun" )
       
        Func resumegame()
    	
    			;####Breakdown of MouseClick Function using Random Mouse Cordinates####
    			;$x???????? = Random(???,???) (x axis function named anything)
    			;Left to Right
    			;1st number for x  = 1st number on x axis(x value for left side -------
    			;2nd number for x = 2nd number on x axis(x value for right side -------
    			;MouseClick("anybutton",$x????????,$yFunction,1)
    			;$y???????? = Random(???,???) (y axis function named anything)
    			;Top to Bottom
    			;1st number for y  = 1st number on y ayis(y value for top |||||||
    			;2nd number for y = 2nd number on y ayis(y value for bottom |||||||
    			;MouseClick("anybutton",$xFunction,$y????????,1)
    	
    	;800 x 600 widescreen mouse positions 
        $xMostResume = Random(42,229)	; x leftside(42) x rightside(229)
        $yMostResume = Random(217,245)	; y top(217) y bottom(245)
        MouseClick("left",$xMostResume,$yMostResume,1)
        EndFunc
     
        Func leavegame()
        $xMostLeave = Random(310,480)	; x leftside(310)  x rightside(480)
        $yMostLeave = Random(310,333)	; y top(310) y bottom(333)
        MouseClick("left",$xMostLeave,$yMostLeave,1)
        EndFunc
     
    	Func quest()
        $xQuestDialog = Random(500,517)	; x leftside(500)  x rightside(517)
        $yQuestDialog = Random(215,240)	; y top(215) y bottom(240)
        MouseClick("left",$xQuestDialog,$yQuestDialog,1)
    					sleep(random(1250,2000))
    			    Send(" {space} ")
       EndFunc
    				 
    	Func movefromstart()
        $xMoveFromStart = Random(797,799)	; x leftside(797)  x rightside(799)
        $yMoveFromStart = Random(149,170)	; y top(149) y bottom(170)
        MouseClick("left",$xMoveFromStart,$yMoveFromStart,1)
    	EndFunc
     
    	Func getapathtochamber()
        $xGetPathToChamber = Random(952,969)	; x leftside(952)  x rightside(969)
        $yGetPathToChamber = Random(475,520)	; y top(475) y bottom(520)
        MouseClick("left",$xGetPathToChamber,$yGetPathToChamber,1)
        EndFunc
    				 
    	Func enterchamber()
        $xEnterChamber = Random(337,389)	; x leftside(337)  x rightside(389)
        $yEnterChamber = Random(108,140)	; y top(108) y bottom(140)
        MouseClick("left",$xEnterChamber,$yEnterChamber,1)
    					sleep(random(3000,3900))
    			    Send(" {space} ")
        EndFunc
    
    	Func skipquestchat()
        $xSkipQuestChat = Random(290,380)	; x leftside(290)  x rightside(380)
        $ySkipQuestChat = Random(193,219)	; y top(193) y bottom(219)
        MouseClick("left",$xSkipQuestChat,$ySkipQuestChat,1)
     EndFunc
     
     	Func leavechamber()
        $xLeaveChamber = Random(257,296)	; x leftside(257)  x rightside(296)
        $yLeaveChamber = Random(73,135)	; y top(73) y bottom(135)
        MouseClick("left",$xLeaveChamber,$yLeaveChamber,1)
       EndFunc
     
      	Func reenterchamber()
        $xReenterChamber = Random(266,328)	; x leftside(366)  x rightside(328)
        $yReenterChamber = Random(184,232)	; y top(184) y bottom(232)
        MouseClick("left",$xReenterChamber,$yReenterChamber,1)
        EndFunc
         
        Func killeverything()
        $xRightKillArea = Random(614,670)	; x leftside(614)  x rightside(670)
        $yRightKillArea = Random(341,486)	; y top(341) y bottom(486)
    	$xLeftKillArea = Random(375,404)	; x leftside(282)  x rightside(404)
        $yLeftKillArea = Random(335,507)	; y top(335) y bottom(507)
    				    sleep(random(900,1000))
        MouseMove($xRightKillArea,$yRightKillArea,1)
    				Send("{1}")
    					sleep(random(900,1000))
        MouseMove($xLeftKillArea,$yLeftKillArea,1)
    				Send("{1}")
    					sleep(random(800,900))
        MouseMove($xRightKillArea,$yRightKillArea,1)
    				Send("{1}")	
    					sleep(random(900,1000))
    				Send("{3}")				
    					 sleep(random(900,1000))
        EndFunc
     
        Func endrun()
    			Call ( "leavechamber" ) ;leave game
                Send ( "{Escape}" )
                Sleep(Random(1000,2000))
    			Call ( "leavegame" ) ;leave game
    		 EndFunc
    		 
      	Func changequest()
        $xChangeQuest = Random(39,218)	; x leftside(39) x rightside(218)
        $yChangeQuest = Random(259,280)	; y top(259) y bottom(280)
        MouseClick("left",$xChangeQuest,$yChangeQuest,1)
        EndFunc
    
      	Func selectquest()
        $xSelectQuest = Random(83,306)	; x leftside(83)  x rightside(306)
        $ySelectQuest = Random(391,407)	; y top(391) y bottom(407)
        MouseClick("left",$xSelectQuest,$ySelectQuest,1)
        EndFunc
     
       	Func selectq()
        $xSelectQ = Random(446,626)	; x leftside(446)  x rightside(626)
        $ySelectQ = Random(467,491)	; y top(467) y bottom(491)
        MouseClick("left",$xSelectQ,$ySelectQ,1)
        EndFunc
      
      	Func confirmselectedquest()
        $xConfirmSelectedQuest = Random(286,390)	; x leftside(286)  x rightside(390)
        $yConfirmSelectedQuest = Random(338,364)	; y top(338) y bottom(364)
        MouseClick("left",$xConfirmSelectedQuest,$yConfirmSelectedQuest,1)
        EndFunc
         
        Func start()
        $start = True
        EndFunc
         
        Func pause()
        $start = False
        EndFunc
         
        Func stop()
        Exit
        EndFunc
     
        Func mainRun()
                While $runScript
                        If ($start) Then
                                $min = random(2100,2900)
                                $max = random(3100,4400)
    							$aclearroom = random(4000,5000)
    							$bclearroom = random(4500,5500)
    							  sleep(random($min,$max))
    						   Call ( "resumegame" ) ;enter game
    							  sleep(random($min,$max))
    						   Send(" {space} ")
    							  sleep(random(1250,1500))
    						   Send(" {space} ")
    							  sleep(random(1000,1400))
    						   Send(" {space} ")
    							  sleep(random(1000,1500))
    						   Call ( "quest" ) ;get quest
    							  sleep(random(1200,1400))
    						   Call ( "movefromstart" ) ;move closer to chamber
    							  sleep(random(2500,3000))
    						   Call ( "getapathtochamber" ) ;move to area where you can walk directly to chamber
    							  sleep(random(2600,2900))
    						   Call ( "enterchamber" ) ;enter chamber
    							  sleep(random(2200,2300))
    						   Call ( "skipquestchat" ) ;skip quest chat
    							  sleep(random(2300,2700))
    						   Call ( "leavechamber" ) ;leave room to group enemies
    							  sleep(random(8000,9000))
    						   Call ( "reenterchamber" ) ;reenter chamber
    							  sleep(random(1000,1500))
    						   Call ( "killeverything" ) ;clear room
    							  sleep(random($aclearroom,$bclearroom))
    						   Call ( "endrun" ) ;tp and exit
    							  sleep(random(3250,3500))
    						   Call ( "changequest" ) ;change quest button
    							  sleep(random(600,800))
    						   Call ( "selectquest" ) ;reselect quest
    							  sleep(random(666,999))
    						   Call ( "selectq" ) ;select button
    							  sleep(random(500,800))
    						   Call ( "confirmselectedquest" ) ;confirm reselection
                        EndIf
                Wend
        EndFunc
    1280x700
    Code:
    			;#### - NoUseLying's - Tremors in the Stone - Au3 Leveling AutoIt Script - ####
    			;Version .8
    			
    			;Controls-
    			;Skill Slot 3 = Number 3 = Whatever Area Damage Deal attack skill you want.
    			
    			;Notes-
    			;YOU MUST BEABLE TO KILL ALL OF THEM TO KEEP TIMING RIGHT WHEN EXITING
    			;This bot is still in beta, but works pretty much flawless for now.
    			;delays may need to be increased or decresed based on your system performance.
    			;feel free to add to this script and give me suggestions, i love ideas.
    			
    			;NextRelease-
    			;Faster Runs 
    			
    			;Upcoming-
    			;Figure out a way to implement a aspect ratio for all d3 resolutions
    			
    	
    	;Hotkeys Defined
    	HotKeySet("=","start") 	;START by pressing =
        HotKeySet("-", "pause") ;PAUSE by pressing -
        HotKeySet("x", "stop") 	;STOP by pressing x
        
        $runScript = True
        $start = False
         
        Call ( "mainRun" )
       
        Func resumegame()
    	
    			;####Breakdown of MouseClick Function using Random Mouse Cordinates####
    			;$x???????? = Random(???,???) (x axis function named anything)
    			;Left to Right
    			;1st number for x  = 1st number on x axis(x value for left side -------
    			;2nd number for x = 2nd number on x axis(x value for right side -------
    			;MouseClick("anybutton",$x????????,$yFunction,1)
    			;$y???????? = Random(???,???) (y axis function named anything)
    			;Top to Bottom
    			;1st number for y  = 1st number on y ayis(y value for top |||||||
    			;2nd number for y = 2nd number on y ayis(y value for bottom |||||||
    			;MouseClick("anybutton",$xFunction,$y????????,1)
    	
    	;1280x720 widescreen mouse positions 
        $xMostResume = Random(47,262)	; x leftside(47) x rightside(262)
        $yMostResume = Random(257,296)	; y top(257) y bottom(296)
        MouseClick("left",$xMostResume,$yMostResume,1)
        EndFunc
     
        Func leavegame()
        $xMostLeave = Random(533,744)	; x leftside(533)  x rightside(744)
        $yMostLeave = Random(372,401)	; y top(372) y bottom(401)
        MouseClick("left",$xMostLeave,$yMostLeave,1)
        EndFunc
     
    	Func quest()
        $xQuestDialog = Random(760,780)	; x leftside(760)  x rightside(780)
        $yQuestDialog = Random(260,294)	; y top(260) y bottom(294)
        MouseClick("left",$xQuestDialog,$yQuestDialog,1)
    					sleep(random(1250,2000))
    			    Send(" {space} ")
       EndFunc
    				 
    	Func movefromstart()
        $xMoveFromStart = Random(1254,1279)	; x leftside(1254)  x rightside(1279)
        $yMoveFromStart = Random(321,376)	; y top(321) y bottom(376)
        MouseClick("left",$xMoveFromStart,$yMoveFromStart,1)
    	EndFunc
     
    	Func getapathtochamber()
        $xGetPathToChamber = Random(1126,1162)	; x leftside(1126)  x rightside(1162)
        $yGetPathToChamber = Random(339,385)	; y top(339) y bottom(385)
        MouseClick("left",$xGetPathToChamber,$yGetPathToChamber,1)
        EndFunc
    				 
    	Func enterchamber()
        $xEnterChamber = Random(358,464)	; x leftside(358)  x rightside(464)
        $yEnterChamber = Random(131,187)	; y top(131) y bottom(187)
        MouseClick("left",$xEnterChamber,$yEnterChamber,1)
    					sleep(random(3000,3900))
    			    Send(" {space} ")
        EndFunc
    
    	Func skipquestchat()
        $xSkipQuestChat = Random(505,627)	; x leftside(505)  x rightside(627)
        $ySkipQuestChat = Random(236,261)	; y top(236) y bottom(261)
        MouseClick("left",$xSkipQuestChat,$ySkipQuestChat,1)
     EndFunc
     
     	Func leavechamber()
        $xLeaveChamber = Random(474,516)	; x leftside(474)  x rightside(516)
        $yLeaveChamber = Random(91,148)	; y top(91) y bottom(148)
        MouseClick("left",$xLeaveChamber,$yLeaveChamber,1)
       EndFunc
     
      	Func reenterchamber()
        $xReenterChamber = Random(453,570)	; x leftside(453)  x rightside(570)
        $yReenterChamber = Random(229,292)	; y top(229) y bottom(292)
        MouseClick("left",$xReenterChamber,$yReenterChamber,1)
        EndFunc
         
        Func killeverything()
        $xRightKillArea = Random(816,948)	; x leftside(816)  x rightside(948)
        $yRightKillArea = Random(514,603)	; y top(514) y bottom(603)
    	$xLeftKillArea = Random(570,779)	; x leftside(570)  x rightside(779)
        $yLeftKillArea = Random(483,613)	; y top(483) y bottom(613)
    				    sleep(random(900,1000))
        MouseMove($xRightKillArea,$yRightKillArea,1)
    				Send("{1}")
    					sleep(random(900,1000))
        MouseMove($xLeftKillArea,$yLeftKillArea,1)
    				Send("{1}")
    					sleep(random(800,900))
        MouseMove($xRightKillArea,$yRightKillArea,1)
    				Send("{1}")	
    					sleep(random(900,1000))
    				Send("{3}")				
    					 sleep(random(900,1000))
        EndFunc
     
        Func endrun()
    			Call ( "leavechamber" ) ;leave game
                Send ( "{Escape}" )
                Sleep(Random(1000,2000))
    			Call ( "leavegame" ) ;leave game
    		 EndFunc
    		 
      	Func changequest()
        $xChangeQuest = Random(49,260)	; x leftside(49) x rightside(260)
        $yChangeQuest = Random(311,339)	; y top(311) y bottom(339)
        MouseClick("left",$xChangeQuest,$yChangeQuest,1)
        EndFunc
    
      	Func selectquest()
        $xSelectQuest = Random(261,528)	; x leftside(261)  x rightside(528)
        $ySelectQuest = Random(471,489)	; y top(471) y bottom(489)
        MouseClick("left",$xSelectQuest,$ySelectQuest,1)
        EndFunc
     
       	Func selectq()
        $xSelectQ = Random(699,909)	; x leftside(699)  x rightside(909)
        $ySelectQ = Random(562,588)	; y top(562) y bottom(588)
        MouseClick("left",$xSelectQ,$ySelectQ,1)
        EndFunc
      
      	Func confirmselectedquest()
        $xConfirmSelectedQuest = Random(502,626)	; x leftside(502)  x rightside(626)
        $yConfirmSelectedQuest = Random(409,436)	; y top(409) y bottom(436)
        MouseClick("left",$xConfirmSelectedQuest,$yConfirmSelectedQuest,1)
        EndFunc
         
        Func start()
        $start = True
        EndFunc
         
        Func pause()
        $start = False
        EndFunc
         
        Func stop()
        Exit
        EndFunc
     
        Func mainRun()
                While $runScript
                        If ($start) Then
                                $min = random(2100,2900)
                                $max = random(3100,4400)
    							$aclearroom = random(4000,5000)
    							$bclearroom = random(4500,5500)
    							  sleep(random($min,$max))
    						   Call ( "resumegame" ) ;enter game
    							  sleep(random($min,$max))
    						   Send(" {space} ")
    							  sleep(random(1250,1500))
    						   Send(" {space} ")
    							  sleep(random(1000,1400))
    						   Send(" {space} ")
    							  sleep(random(1000,1500))
    						   Call ( "quest" ) ;get quest
    							  sleep(random(1200,1400))
    						   Call ( "movefromstart" ) ;move closer to chamber
    							  sleep(random(2500,3000))
    						   Call ( "getapathtochamber" ) ;move to area where you can walk directly to chamber
    							  sleep(random(2600,2900))
    						   Call ( "enterchamber" ) ;enter chamber
    							  sleep(random(2200,2300))
    						   Call ( "skipquestchat" ) ;skip quest chat
    							  sleep(random(2300,2700))
    						   Call ( "leavechamber" ) ;leave room to group enemies
    							  sleep(random(8000,9000))
    						   Call ( "reenterchamber" ) ;reenter chamber
    							  sleep(random(1000,1500))
    						   Call ( "killeverything" ) ;clear room
    							  sleep(random($aclearroom,$bclearroom))
    						   Call ( "endrun" ) ;tp and exit
    							  sleep(random(3250,3500))
    						   Call ( "changequest" ) ;change quest button
    							  sleep(random(600,800))
    						   Call ( "selectquest" ) ;reselect quest
    							  sleep(random(666,999))
    						   Call ( "selectq" ) ;select button
    							  sleep(random(500,800))
    						   Call ( "confirmselectedquest" ) ;confirm reselection
                        EndIf
                Wend
        EndFunc
    Last edited by NoUseLying; 07-22-2012 at 06:11 PM.

    [Active]Act3Q1 Tremors in the Stone - Au3 Leveling AutoIt Script
  2. #2
    pimperium's Avatar Member
    Reputation
    1
    Join Date
    Aug 2007
    Posts
    29
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    1024 x 600? how s that possible?


  3. #3
    NoUseLying's Avatar Private
    Reputation
    2
    Join Date
    Jul 2012
    Posts
    8
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    hmmm? 1024x600 is whats selected under video on my d3 screen.
    i just figured out a way to alter my code for more aspect ratios.
    just lemme know what your screen resolution is and i'll gladly modify everything to work accordingly.
    unfortunately i can only do 1024x768, 1280x720, 1280x768, 1360x768, 1366x768.
    but still just let me know.
    Last edited by NoUseLying; 07-20-2012 at 06:49 PM.

  4. #4
    nyau1991's Avatar Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    7
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    can you make one for 800 x 600? Greatly appreciate it.

  5. #5
    iMoogle's Avatar Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    66
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    1920 x 1080 ! thanks

  6. #6
    NoUseLying's Avatar Private
    Reputation
    2
    Join Date
    Jul 2012
    Posts
    8
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by nyau1991 View Post
    can you make one for 800 x 600? Greatly appreciate it.
    Now supports 800x600. Just select act 3 quest 4 and than press = to start and x to stop or - to pause.

    Originally Posted by iMoogle View Post
    1920 x 1080 ! thanks
    Sorry iMoogle, I can only find the coordinates for 1024x768, 1280x720, 1280x768, 1360x768, 1366x768.
    If you got any one of those in your video options let me know.
    Last edited by NoUseLying; 07-20-2012 at 06:57 PM.

  7. #7
    nomaC's Avatar Private
    Reputation
    2
    Join Date
    May 2012
    Posts
    7
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Heya

    Not working for me on 800x600 It clicks around town for 2 mins before leaving.

  8. #8
    NoUseLying's Avatar Private
    Reputation
    2
    Join Date
    Jul 2012
    Posts
    8
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by nomaC View Post
    Heya

    Not working for me on 800x600 It clicks around town for 2 mins before leaving.
    hmmm, it works for me. did you select act 3 quest 4 and than start it with the start button ready(not resume game or ingame)?

  9. #9
    nomaC's Avatar Private
    Reputation
    2
    Join Date
    May 2012
    Posts
    7
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    oh ok now it enters the room properly

    if I'm using Archon and need to right click for 5-10 seconds, how can I code that into the script?

    thanks!

  10. #10
    cody6759's Avatar Private
    Reputation
    1
    Join Date
    Jul 2012
    Posts
    5
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    The bot doesnt attack for me(im a dh). Is there any ways to fix this?

  11. #11
    xzorionzx's Avatar Private
    Reputation
    1
    Join Date
    Jul 2012
    Posts
    1
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    i need for 1280x720 pls... thanks

  12. #12
    NoUseLying's Avatar Private
    Reputation
    2
    Join Date
    Jul 2012
    Posts
    8
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by nomaC View Post
    oh ok now it enters the room properly
    if I'm using Archon and need to right click for 5-10 seconds, how can I code that into the script?
    thanks!
    your gonna want to add this to the func MainRun
    Code:
    						   Call ( "leavechamber" ) ;leave room to group enemies
    							sleep(random(8000,9000))
    						   MouseDown ( "right" )
    						 	   sleep(random(500,1200))
    						   MouseUp ( "right" )
    						   	  sleep(random(1500,2000)) 
    						   Call ( "reenterchamber" ) ;reenter chamber
    							  sleep(random(1000,1500))
    						   Call ( "killeverything" ) ;clear room
    if you need to actually hold the right click for 5-10 secs change
    Code:
    						   MouseDown ( "right" )
    						 	   sleep(random(500,1200))
    						   MouseUp ( "right" )
    to
    Code:
     						 	   sleep(random(5000,10000))
    Originally Posted by cody6759 View Post
    The bot doesnt attack for me(im a dh). Is there any ways to fix this?
    this script was wrote on my dh, make sure your resolution is one of the two supported.
    make sure multishot fire at will is on hotkey number 1 and fan of knives retaliate is on number 3.

    Originally Posted by xzorionzx View Post
    i need for 1280x720 pls... thanks

    just added it to first post, thanks for your interest and enjoy.
    Last edited by NoUseLying; 07-21-2012 at 02:53 AM.

  13. #13
    iMoogle's Avatar Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    66
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by NoUseLying View Post
    Now supports 800x600. Just select act 3 quest 4 and than press = to start and x to stop or - to pause.



    Sorry iMoogle, I can only find the coordinates for 1024x768, 1280x720, 1280x768, 1360x768, 1366x768.
    If you got any one of those in your video options let me know.
    Dang, really? No coordinates for the most commonly used 1920x1080?

  14. #14
    cody6759's Avatar Private
    Reputation
    1
    Join Date
    Jul 2012
    Posts
    5
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Sometimes the bot doesn't kill them all, can you add something so it attacks 1once more?
    Last edited by cody6759; 07-21-2012 at 07:20 PM.

  15. #15
    NoUseLying's Avatar Private
    Reputation
    2
    Join Date
    Jul 2012
    Posts
    8
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by cody6759 View Post
    Sometimes the bot doesn't kill them all, can you add something so it attacks 1once more?
    go to the killeverything Func.

    Code:
    Func killeverything()
        $xRightKillArea = Random(614,670)	; x leftside(614)  x rightside(670)
        $yRightKillArea = Random(341,486)	; y top(341) y bottom(486)
    	$xLeftKillArea = Random(375,404)	; x leftside(282)  x rightside(404)
        $yLeftKillArea = Random(335,507)	; y top(335) y bottom(507)
    				    sleep(random(900,1000))
        MouseMove($xRightKillArea,$yRightKillArea,1)
    				Send("{1}")
    					sleep(random(900,1000))
        MouseMove($xLeftKillArea,$yLeftKillArea,1)
    				Send("{1}")
    					sleep(random(800,900))
        MouseMove($xRightKillArea,$yRightKillArea,1)
    				Send("{1}")	
    					sleep(random(900,1000))
    				Send("{3}")				
    					 sleep(random(900,1000))
        EndFunc
    add whats in bold:
    Code:
    Func killeverything()
        $xRightKillArea = Random(614,670)	; x leftside(614)  x rightside(670)
        $yRightKillArea = Random(341,486)	; y top(341) y bottom(486)
    	$xLeftKillArea = Random(375,404)	; x leftside(282)  x rightside(404)
        $yLeftKillArea = Random(335,507)	; y top(335) y bottom(507)
    				    sleep(random(900,1000))
        MouseMove($xRightKillArea,$yRightKillArea,1)
    				Send("{1}")
    					sleep(random(900,1000))
        MouseMove($xLeftKillArea,$yLeftKillArea,1)
    				Send("{1}")
    					sleep(random(800,900))
        MouseMove($xRightKillArea,$yRightKillArea,1)
    				Send("{1}")	
    					sleep(random(900,1000))
    				Send("{1}")	
    					sleep(random(900,1000))
                                    Send("{3}")				
    					 sleep(random(900,1000))
        EndFunc
    you can change that to whatever keystroke you'd like 1,2,3,4 or letters.
    add as many attacks as you need and skills i use 1 as multishot.
    to clear than 3 fan of knives retaliate, it will eliminate any enemies left around to make a clean exit.
    otherwise the script timing will be off.
    make sure you separate the send commands with a sleep delay.

Page 1 of 3 123 LastLast

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 12:29 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