Page 1 of 1

[UOSteam] Alamiester's PitcherSprinklerFiller v0.1

Posted: Tue Nov 14, 2017 10:37 pm
by Alamiester
this is an upgrade from the pitcher filler macro. that ones nice if you only have a few plants and just use pitchers to water. this ones for watering several hundred plants quickly. i kinda slapped this one together quickly, was getting sick of all the clicking on the sprinkler to fill it, lol. i only tested it a few times. let me know if its giving anyone trouble and ill take a look at it again. enjoy! :nod:

Code: Select all

//Alamiester's PitcherSprinkler Filler v0.1
//you must have a water sprinkler and a couple full water pitchers in your backpack, and also be standing next to a water trough.
while not @injournal! 'You Completely fill the sprinkler.'
  if not @findtype! 0x1f9d 0 backpack
    sysmsg '*****No Full Pitchers*****' '2165'
    while not @findobject 'WaterTrough' and not inrange 'WaterTrough' '2'
      promptalias 'WaterTrough'
    endif
    if @inrange 'WaterTrough' '2'
      if not @findtype! '0xff6' '0' 'backpack'
        sysmsg '*****No Empty Pitchers*****' '2165'
      else
        @usetype! '0xff6' '0' 'backpack'
        pause 500
        @target! 'WaterTrough'
        pause 1000
      endif
      sysmsg '*****Pitcher Filled*****' '2165'
    endif
    @canceltarget!
    if not @inrange 'WaterTrough' '2'
      headmsg 'Get closer to the Water Trough...'
      stop
    endwhile
    stop
  else
    @usetype! 0x1f9d 0 backpack
    pause 1000
    @targettype! 0xe7a 1152 0
    pause 1000
  endif
  sysmsg '*****Sprinkler Filled*****' '2165'
endwhile
@canceltarget!
@clearjournal!