Excelsior

Posted: **Sun Oct 29, 2017 12:41 pm**

I tried using Fixxers Relative Location Harvester the other day and it didnt seem to be running right for digging sand. im given him props for the idea, i just toned it down a bit. im tryin to keep it just to digging with the shovel. so i made some modifications and it seems to be digging up sand pretty quick now. im gonna play around with integrating ore, stone, and sand digging in a 8x grid around you and post another macro later on. this works for sand as of now. i dont know what kinda plans are in store for sand or glassblowing, this might havto be modified again later on. the pauses seem to work well for my character but if it seems its hanging up for you you can try to tweak them. i believe speed has to do with skill and swing speed and probly alot of other factors too. feel free to leave some feedback or ways to improve or speed it up more. enjoy!

v0.2 -i adjusted it so the sand goes into keys right after you pick it up, just in case you got alot of junk in your trunk. ;P

Code: Select all

//************************
// [UOSteam] Alamiester's SandDigger v0.2
//************************
// Original idea and some lines from Fixxer's Relative Location Harvester v1.03
//************************
// Add // in front of unsetalias if your gonna be digging awhile.
unsetalias 'Digger'
unsetalias 'spellkeys'
//************************
// For selecting your digging tool.
//************************
if not findalias 'Digger'
  headmsg 'Select Shovel or Pickaxe'
  promptalias 'Digger'
endif
//************************
// For selecting Spell Casters keys.
//************************
if not findalias 'spellkeys'
  headmsg 'Select Spell Casters Keys'
  promptalias 'spellkeys'
endif
//************************
// To start the digging.
//************************
while not @injournal 'There is no'
  useobject "Digger"
  waitfortarget 500
  targettileoffset  0 0 0
  pause 10000
  if @injournal 'You dig for awhile'
    useobject "Digger"
    waitfortarget 500
    targettile 'last' 0 0 0
    pause 10000
  else
    //************************
    // To add sand to the Spell Casters keys.
    //************************
    while @targettype! '0x11ea' 'backpack'
      useobject 'spellkeys'
      pause 500
      replygump 0x68557d42 25
      waitforgump 1750433090 500
      waitfortarget 500
      @targettype! '0x11ea' 'Any'
      pause 500
      replygump 0x68557d42 0
    endwhile
    @canceltarget!
  endwhile
  //************************
  if @injournal "There is no sand here to mine."
    headmsg 'Move to the next target area.' 24
    pause 500
  endif
  @clearjournal!