Mackus Sarkoth Gold Farm - Modified by Teddy Bear Love [1900x1200] Wizard menu

User Tag List

Results 1 to 2 of 2
  1. #1
    Teddy Bear Love's Avatar Member
    Reputation
    9
    Join Date
    Mar 2007
    Posts
    60
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Mackus Sarkoth Gold Farm - Modified by Teddy Bear Love [1900x1200] Wizard

    So I played around with the script that Mackus made a bit for 1920x1200 resolution and for a wizard and this is what I came up with.
    Original post can be found here: http://www.ownedcore.com/forums/diab...0-made-dh.html

    The keys are set to:
    Left Mouse - Electrocute (Forked Lightning)
    Right Mouse - Not Used
    1 - Not Used
    2 - Diamond Skin (Endurance)
    3 - Ice Armor (Ice Reflect)
    4 - Magic Weapon (Force Weapon)

    Code:
     Global $Paused
    
    HotKeySet("=","Leave")
    HotKeySet("-", "Pause")
    HotKeySet("x", "Stop")
    
    
    $default_resolutionX = 1920
    $default_resolutionY = 1200
    $x_ratio = @Desktopwidth / $default_resolutionX
    $y_ratio = @Desktopheight / $default_resolutionY
    
    
    $go = True
    $Leave = False
    
    
    While $go
       if($Leave) Then
       $Pixel1 = PixelSearch((1435 * $x_ratio),(27 * $y_ratio),(1500 * $x_ratio),(110 * $y_ratio),0xFFF000) ;searches top right screen for yellow of broken armor
          If Not @error Then
             Send("t")
             Sleep(8000)
             MouseClick("left", Round(1460 * $x_ratio),Round(429 * $y_ratio));begin movement towards merchant
             Sleep(1500)
             MouseClick("left", Round(1358 * $x_ratio),Round(171 * $y_ratio)) ;moves to get merchant in screen
             Sleep(1500)
             MouseClick("left", Round(945 * $x_ratio),Round(183 * $y_ratio)) ;NPC Merchant to the right of cain's home
             Sleep(1500)
             MouseClick("left", Round(567 * $x_ratio),Round(538 * $y_ratio)) ;button to open up repair menu
             Sleep(1500)
             MouseClick("left", Round(283 * $x_ratio),Round(658 * $y_ratio)) ;button to pay for repairs
             Sleep(2500)
             Send("{ESCAPE}") ;opens menu
             Sleep(1000)
             MouseClick("left", Round(956 * $x_ratio),Round(629 * $y_ratio)) ;button to leave game
             Sleep(8000)
             MouseClick("left", Round(230 * $x_ratio),Round(466 * $y_ratio)) ;button to resume game from main menu
             Sleep(8000)
          Else
             MouseClick("left", Round(587 * $x_ratio),Round(383 * $y_ratio)) ;starts the main run
             Sleep(1800)
             Send("2")
             MouseClick("left", Round(96 * $x_ratio),Round(483 * $y_ratio))
             Sleep(800)
             MouseClick("left", Round(96 * $x_ratio),Round(483 * $y_ratio))
             Sleep(2000)
             MouseClick("left", Round(417 * $x_ratio),Round(422 * $y_ratio)) ;middle of area outside of cellar
             Sleep(2000)
             MouseMove(Round(115 * $x_ratio),Round(265 * $y_ratio),1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
             Sleep(2000)
                $Pixel2 = PixelSearch(0,0,(960 * $x_ratio),(520 * $y_ratio),0x3B62E3,3) ;searches for the specific blue pixel that only occurs when mouse hovers over open cellar
                   If Not @error Then
                      MouseClick("left",Round(115 *$x_ratio),Round(265 * $y_ratio)) ;Entrance to cellar
                      Sleep(3700)
                      MouseClick("left",Round(659 *$x_ratio),Round(733 * $y_ratio))
                      Sleep(1000)
                      Send("4")
                      Sleep(500)
                      Send("3")
                      Sleep(500)
                      MouseClick("left",Round(520 *$x_ratio),Round(815 * $y_ratio)) ;moves to doorway leading to rare inside cellar
                      Sleep(1500)
                      MouseMove(Round(344 * $x_ratio),Round(126 * $y_ratio),1)  ;hovers over the rare Sarkoth
                      Sleep(1000)
                      Send("{shift down}") ;Holds the shift key down, force stand still
                      MouseDown("left")
                      Sleep(10000)
                      MouseUp("left")
                      Send("{shift up}") ;Releases the shift key
                      MouseClick("left",Round(316 *$x_ratio),Round(136 * $y_ratio)) ;Starts gold collect
                      Sleep(2500)
                      MouseClick("left",Round(909 *$x_ratio),Round(295 * $y_ratio))
                      Sleep(2500)
                      MouseClick("left",Round(855 *$x_ratio),Round(892 * $y_ratio))
                      Sleep(2500)
                      MouseClick("left",Round(694 *$x_ratio),Round(487 * $y_ratio)) ;Ends gold collect
                      Sleep(1000)
                      Sleep(1500)
                      Send("t")
                      Sleep(8200)
                      Send("{Escape}") ;menu
                      MouseClick("left",Round(956 *$x_ratio),Round(629 * $y_ratio)) ;button to leave game
                      Sleep(13000)
                      MouseClick("left",Round(230 *$x_ratio),Round(466 * $y_ratio)) ;button to resume game from main menu
                      Sleep(7000)
                   Else
                      MouseClick("left",Round(900 *$x_ratio),Round(900 * $y_ratio))    ;moves down screen away from cellar in attempt for safety before teleporting back to town
                      Sleep(1200)
                      Send("t")
                      Sleep(8200)
                      Send("{ESCAPE}") ;menu
                      MouseClick("left",Round(956 *$x_ratio),Round(629 * $y_ratio))    ;button to leave game
                      Sleep(13000)
                      MouseClick("left",Round(230 *$x_ratio),Round(466 * $y_ratio))    ;button to resume game from main menu
                      Sleep(8000)
                   EndIf
          EndIf
       EndIf
    WEnd
    
    
    Func Pause()
       $Leave = False
    EndFunc
    
    
    Func Stop() ;to allow the script to stop
        Exit
    EndFunc
    
    
    Func Leave()
        $Leave = True
     EndFunc
    Last edited by Teddy Bear Love; 06-08-2012 at 09:38 AM.

    Mackus Sarkoth Gold Farm - Modified by Teddy Bear Love [1900x1200] Wizard
  2. #2
    Hangar's Avatar Corporal
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    15
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    My wizard won't enter the cellar. I think you used the wrong coordinates at that point. Fix this please

    EDIT: on fullscreen windowed with 1920x1080 resolution he entered the cellar, but in there he toggled the skills menu for some reason ...
    Last edited by Hangar; 06-08-2012 at 03:37 PM.

Similar Threads

  1. Replies: 108
    Last Post: 06-14-2012, 06:10 AM
  2. Replies: 12
    Last Post: 06-14-2012, 01:26 AM
  3. Sarkoth Gold Farm [Original Script Credit to Mackus] - Modified by Jakesmurf
    By jakesmurf in forum Diablo 3 Bots and Programs
    Replies: 94
    Last Post: 06-11-2012, 10:56 AM
  4. Sarkoth Gold Farm for Witch Doctor?
    By lostsk8r in forum Diablo 3 Bots Questions & Requests
    Replies: 1
    Last Post: 06-09-2012, 02:02 PM
  5. Mackus Sarkoth Gold Farm - Modified by Teddy Bear Love [1900x1200] Wizard
    By Teddy Bear Love in forum Diablo 3 Bots and Programs
    Replies: 1
    Last Post: 06-08-2012, 03:27 PM
All times are GMT -5. The time now is 12:45 PM. 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