Monk autoit super script. 1280x720 A3Q4 Tremors in the Stone. menu

These ads disappear when you log in.

Results 1 to 3 of 3
  1. #1
    laughsitup2005's Avatar Private
    Reputation
    2
    Join Date
    Aug 2013
    Posts
    4
    Thanks G/R
    0/1
    Trade Feedback
    0 (0%)

    Monk autoit super script. 1280x720 A3Q4 Tremors in the Stone.

    Hello. Credit for this goes to NoUseLying. Copied the code from him and changed it to work for the resolution in the title. I also removed the group feature for solo afk leveling.
    This is specifically for a monk using the setup listed in the controls section below. Fully automated scripting. Copy and paste the code below into notepad and save as a .au3 file.
    If you need the program, please google autoit to run this script.

    ;#### - NoUseLying's - Tremors in the Stone - Au3 Leveling AutoIt Script - ####
    ;Version .8

    ;Controls-
    ;Skill Slot 1 = Exploding Palm (not required, any glyph that you want) Left button
    ;Skill Slot 2 = Breath of Heaven (any glyph that you want, I use Blazing Wrath) Down button
    ;Skill Slot 3 = Serenity (any glyph that you want, I use Instant Karma) Up button
    ;Skill Slot 4 = Mantra of Evasion (any glyph that you want, I use Hard Target) Right button
    ;Skill Slot Left Click = Crippling Wave (any glyph that you want, I use Concussion)
    ;Skill Slot Right Click = Seven Sided Strike (not required, glyph that you want)

    ;Notes-
    ;Timings after loads is very high in order for various machines to run it flawlessly. Approximately 25
    ;seconds between click to load game and talk to the npc.
    ;It will automatically repair all equipment as well so you don't have
    ;to check to make sure you are not doing this with broken gear.
    ;Attack actions are done in place using the shift key. All Terror Spawns will come to you.


    ;Hotkeys Defined
    HotKeySet("=","start") ;START by pressing =
    HotKeySet("-", "stop") ;STOP by pressing -

    $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()
    sleep(random(24000,25000))
    $xQuestDialog = Random(700,725) ; x leftside(700) x rightside(725)
    $yQuestDialog = Random(260,294) ; y top(275) y bottom(294)
    MouseClick("left",$xQuestDialog,$yQuestDialog,1)
    EndFunc

    Func findblacksmith()
    $xFindBlacksmith = Random(1145,1150) ; x leftside(1145) x rightside(1150)
    $yFindBlacksmith = Random(20,30) ; y top(20) y bottom(30)
    MouseClick("left",$xFindBlacksmith,$yFindBlacksmith,1)
    sleep(random(2000,2500))
    EndFunc

    Func findrepair()
    $xFindRepair = Random(335,345) ; x leftside(335) x rightside(345)
    $yFindRepair = Random(400,425) ; y top(400) y bottom(425)
    MouseClick("left",$xFindRepair,$yFindRepair,1)
    sleep(random(500,750))
    EndFunc

    Func repair()
    $xRepair = Random(150,175) ; x leftside(150) x rightside(175)
    $yRepair = Random(385,400) ; y top(385) y bottom(400)
    MouseClick("left",$xRepair,$yRepair,1)
    sleep(random(500,750))
    EndFunc

    Func movefromblacksmith()
    Send("{Right}")
    $xMoveFromBlacksmith = Random(400,410) ; x leftside(400) x rightside(410)
    $yMoveFromBlacksmith = Random(460,470) ; y top(460) y bottom(470)
    MouseClick("left",$xMoveFromBlacksmith,$yMoveFromBlacksmith,1)
    EndFunc

    Func huntchamber()
    $xHuntChamber = Random(900,910) ; x leftside(900) x rightside(910)
    $yHuntChamber = Random(490,500) ; y top(490) y bottom(500)
    MouseClick("left",$xHuntChamber,$yHuntChamber,1)
    EndFunc

    Func findchamber()
    $xFindChamber = Random(900,910) ; x leftside(900) x rightside(910)
    $yFindChamber = Random(380,390) ; y top(380) y bottom(390)
    MouseClick("left",$xFindChamber,$yFindChamber,1)
    EndFunc

    Func findchamber2()
    $xFindChamber2 = Random(790,800) ; x leftside(790) x rightside(800)
    $yFindChamber2 = Random(300,310) ; y top(300) y bottom(310)
    MouseClick("left",$xFindChamber2,$yFindChamber2,1)
    EndFunc

    Func enterchamber()
    $xEnterChamber = Random(490,500) ; x leftside(490) x rightside(450)
    $yEnterChamber = Random(155,165) ; y top(155) y bottom(165)
    MouseClick("left",$xEnterChamber,$yEnterChamber,1)
    EndFunc


    Func killeverything()
    sleep(random(13500,13750))
    $xRightKillArea = Random(1000,1075) ; x leftside(1000) x rightside(1075)
    $yRightKillArea = Random(514,603) ; y top(514) y bottom(603)
    $xMiddleKillArea = Random(675,750) ; x leftside(675) x rightside(750)
    $yMiddleKillArea = Random(514,603) ; y top(514) y bottom(603)
    $xLeftKillArea = Random(370,495) ; x leftside(370) x rightside(495)
    $yLeftKillArea = Random(483,613) ; y top(483) y bottom(613)
    $xUpperKillArea = Random(575,600) ; x leftside(575) x rightside(600)
    $yUpperKillArea = Random(275,285) ; y top(275) y bottom(285)
    MouseMove($xRightKillArea,$yRightKillArea,1)
    Send("{RShift down}")
    MouseDown("left")
    sleep(random(1000,1500))
    MouseMove($xLeftKillArea,$yLeftKillArea,1)
    sleep(random(1000,1500))
    MouseMove($xMiddleKillArea,$yMiddleKillArea,1)
    sleep(random(1000,1500))
    MouseMove($xRightKillArea,$yRightKillArea,1)
    sleep(random(1000,1500))
    MouseMove($xLeftKillArea,$yLeftKillArea,1)
    sleep(random(1000,1500))
    MouseMove($xUpperKillArea,$yUpperKillArea,1)
    sleep(random(2000,2500))
    MouseMove($xRightKillArea,$yRightKillArea,1)
    Send("{Up}")
    sleep(random(1000,1500))
    MouseMove($xLeftKillArea,$yLeftKillArea,1)
    sleep(random(1000,1500))
    MouseMove($xRightKillArea,$yRightKillArea,1)
    sleep(random(1000,1500))
    MouseMove($xLeftKillArea,$yLeftKillArea,1)
    sleep(random(1000,1500))
    MouseMove($xMiddleKillArea,$yMiddleKillArea,1)
    Send("{Down}")
    sleep(random(1000,1500))
    MouseMove($xUpperKillArea,$yUpperKillArea,1)
    sleep(random(2000,2500))
    MouseMove($xRightKillArea,$yRightKillArea,1)
    sleep(random(1000,1500))
    MouseMove($xLeftKillArea,$yLeftKillArea,1)
    sleep(random(1000,1500))
    MouseUp("left")
    Send("{RShift up}")
    EndFunc

    Func exitchamber()
    $xExitChamber = Random(535,545) ; x leftside(535) x rightside(545)
    $yExitChamber = Random(155,165) ; y top(155) y bottom(165)
    MouseClick("left",$xExitChamber,$yExitChamber,1)
    sleep(random(1750,2000))
    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)
    sleep(Random(20000,21000))
    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(1000,1500)
    $bclearroom = random(1000,1500)
    sleep(random($min,$max))
    Call ( "resumegame" ) ;enter game
    sleep(random($min,$max))
    Call ( "quest" ) ;get quest
    sleep(random(1200,1400))
    Call ( "findblacksmith" ) ;move to blacksmith to repair.
    sleep(random(2000,2500))
    Call ( "findrepair" ) ;move to blacksmith to repair.
    sleep(random(500,750))
    Call ( "repair" ) ;move to blacksmith to repair.
    sleep(random(500,750))
    Call ( "movefromblacksmith" ) ;move away from blacksmith
    sleep(random(500,750))
    Call ( "huntchamber" ) ;head to the chamber
    sleep(random(750,1000))
    Call ( "findchamber" ) ;head to the chamber
    sleep(random(750,1000))
    Call ( "findchamber2" ) ;head to the chamber
    sleep(random(750,1000))
    Call ( "enterchamber" ) ;enter chamber
    sleep(random(2200,2300))
    Call ( "killeverything" ) ;clear room
    sleep(random($aclearroom,$bclearroom))
    Call ( "exitchamber" ) ;leave chamber
    sleep(random(2300,2700))
    Call ( "endrun" ) ;tp and exit
    sleep(random(6250,6500))
    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 [/LEFT]
    Last edited by laughsitup2005; 09-10-2013 at 02:30 AM.

  2. Thanks fm365met (1 members gave Thanks to laughsitup2005 for this useful post)
  3. #2
    cyborg5742's Avatar Private
    Reputation
    1
    Join Date
    Aug 2013
    Posts
    6
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    is it possible to edit this for wizard? would you be so kindly to guide me from a-z? i dont know a thing here

  4. #3
    laughsitup2005's Avatar Private
    Reputation
    2
    Join Date
    Aug 2013
    Posts
    4
    Thanks G/R
    0/1
    Trade Feedback
    0 (0%)
    Hi there. All you have to do is change the skills to what you want. I do not play a wizard so I do not know what skills are best, but when you get through, you need to edit this according to your set up.
    A quick explination on what you need to do is this.
    Send is the action command for sending a key press. For example: Send("{Up}") this presses the up arrow.
    A mouse click is a little different though: MouseDown("left") this presses the left mouse button.
    And lastly: Send("{RShift down}") Notice that RShift has caps but down doesn't. The down action tells Right shift to be pressed, then to stay pressed until Send("{RShift up}") is called.
    My rule of thumb is to make your main aoe ability left mouse click and have the shift hold for it. Right click for resource regenerating abilities if applicable, Right and down arrows for minions to help keep the terror spawns from all attacking you at once, Up and down arrow for buffs, and Left arrow for a secondary attack.

    When you set up these skills in autoit, make sure you put the send actions between the mouse movement and sleep actions. For example:
    MouseMove($xRightKillArea,$yRightKillArea,1)
    (((Place attack here)))
    sleep(random(1000,1500))
    MouseMove($xLeftKillArea,$yLeftKillArea,1)
    (((Place attack here)))
    sleep(random(1000,1500))

    Hope this helps. If you have any more questions, I will be happy to help.
    Last edited by laughsitup2005; 09-17-2013 at 09:11 PM.

Similar Threads

  1. 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
  2. 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
  3. [Active]Act3Q1 Tremors in the Stone - Au3 Leveling AutoIt Script
    By NoUseLying in forum D3 Leveling profiles
    Replies: 41
    Last Post: 11-30-2012, 01:49 AM
  4. 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
  5. [Goldfarming] AutoIT only script Monk Sarkoth 16:10 Resolution
    By Karlschlag in forum D3 Gold profiles
    Replies: 4
    Last Post: 07-04-2012, 11:04 AM
All times are GMT -5. The time now is 04:40 AM. Powered by vBulletin® Version 4.2.3
Copyright © 2019 vBulletin Solutions, Inc. All rights reserved. Digital Point modules: Sphinx-based search