Guest User

AIT Gem Crafting Tool

a guest
Jun 22nd, 2012
1,129
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Global $Paused
  2. HotKeySet("=","Start")  ;script can START by pressing =
  3. HotKeySet("-", "Pause") ;script can be Pause by pressing -
  4. HotKeySet("x", "Stop") ;script can be Stopped by pressing x
  5. $Run = False
  6. $c = 0
  7. ;----------------------^-Set-Variables-^-----------------------
  8.  
  9. ;-------------------------Script-Info--------------------------
  10. ;Use 1920x1080 Fullscreen Windowed resolution
  11. ;Go to the jeweler and select the gem you would like to craft. Make sure you have enough tomes/pages, and of course gold, in your inventory. Run the .exe and then alt+tab into Diablo3. Press '=' and the script should begin. Enjoy!
  12. ;Note: The script will prompt you with a Message Box when you have crafted the amount of gems you wish to craft and the script will stop running.
  13.  
  14.  
  15. ;-----------------------Custom-Variables-----------------------
  16. $craftNumber = 15 ;Number of items you wish to craft
  17. $craftDelay = 3600 ;This is the amount of time (3.6 seconds) that the script will pause in between crafting another item. If you need to adjust this, adjust it accordingly. 3600 works perfectly for me.
  18.  
  19.  
  20. ;----------------------------Script----------------------------
  21. While $c < $craftNumber
  22.    If ($Run) Then
  23.       MouseClick("left", 291, 787) ;pixel location for the craft button on a 1920 x 1080 windowed resolution
  24.       sleep($craftDelay)
  25.       $c += 1
  26.       If $c = $craftnumber Then
  27.          MsgBox(64, "Success", "You have crafted your desired amount! (" & $craftNumber & ")  ...closing script..." )
  28.       EndIf
  29.    Else
  30.    EndIf
  31. WEnd
  32.    
  33.    
  34. Func Pause() ;function to pause the script
  35.    $Run = False
  36. EndFunc
  37.  
  38. Func Stop() ;fucntion to allow the script to stop
  39.     Exit
  40. EndFunc
  41.  
  42. Func Start() ;function to start the script after .exe is loaded
  43.     $Run = True
  44. EndFunc
RAW Paste Data