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

[NoUseLying]

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:

			;#### - 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:

			;#### - 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

			;#### - 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

[pimperium]

1024 x 600? how s that possible?

[NoUseLying]

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.

[nyau1991]

can you make one for 800 x 600? Greatly appreciate it.

[iMoogle]

1920 x 1080 ! thanks

[NoUseLying]

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.

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.

[nomaC]

Heya

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

[NoUseLying]

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)?

[nomaC]

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!

[cody6759]

The bot doesnt attack for me(im a dh). Is there any ways to fix this?

[xzorionzx]

i need for 1280x720 pls... thanks

[NoUseLying]

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

						   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

						   MouseDown ( "right" )
						 	   sleep(random(500,1200))
						   MouseUp ( "right" )

to

 						 	   sleep(random(5000,10000))

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.

i need for 1280x720 pls... thanks

just added it to first post, thanks for your interest and enjoy.

[iMoogle]

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?

[cody6759]

Sometimes the bot doesn't kill them all, can you add something so it attacks 1once more?

[NoUseLying]

Sometimes the bot doesn't kill them all, can you add something so it attacks 1once more?

go to the killeverything Func.

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:

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.