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!