[UOSteam] Alamiester's Ginseng Master v0.2

[Alamiester]

hiya everyone! this macro was requested by someone, otherwise i would have never tried it. its not perfect, and theres a alot of infinite loops in it. but to tell you the truth im sick of messing with this one, lol. as is, it takes alot of the clicking out of farming ginseng,weeding the ground, and then planting a ginseng seed, but its not a smart macro. originally i was gonna make it to harvest every crop and plant the seed you select. but i got so engrossed on trying to end the loops that i got sick of it. maybe i will revisit this macro later and move on to my next one.

*UPDATE* - you need to set a hotkey to part one only.

this is a three part macro...Name them as follows(CaseSensitive):

part one = AutoHarvestGinseng
part two = AutoHarvestWeeds
part three = AutoPlantGinseng

PART ONE:

Code: Select all

//***************************************************************************//
// [UOSteam] Alamiesters's Ginseng Master v0.2P1
// Name this Macro AutoHarvestGinseng
// This is part one of a ginseng harvester, weed eater, and ginseng seed
// planter.  make sure you have enough seeds in your pack for the amount of
// tiles your going to be planting.
//***************************************************************************//
@clearjournal
@removelist 'plants'
@unsetalias 'found'
@unsetalias 'plants'
if not listexists 'plants'
  createlist 'plants'
endif
@pushlist 'plants' '0x18e9' // ginseng
for 0 to plants
  while @findtype 'plants[]' 'any' 'ground' 'any' '0'
    if not @injournal "There is nothing here to harvest." "system"
      @setalias 'plants' 'found'
      @useobject 'found'
      headmsg "Harvesting Ginseng."
      waitforgump 3508768218 3000
    elseif @injournal "There is nothing here to harvest." "system"
      waitforgump 402698232 2000
      @replygump 0x1800aff8 2
      sysmsg "*Check back later.*" "28"
      stop
    elseif @targetground '0xd06' 'any' '0'
      sysmsg "*This has just been Planted.*" "28"
      stop
    endif
  endwhile
endfor
@clearjournal
playmacro 'AutoHarvestWeeds'

PART TWO:

Code: Select all

//***************************************************************************//
// [UOSteam] Alamiesters's Ginseng Master v0.2P2
// Name this Macro AutoHarvestWeeds
// This is part two of a ginseng harvester, weed eater, and ginseng seed
// planter.  make sure you have enough seeds in your pack for the amount of
// tiles your going to be planting.
//***************************************************************************//
@clearjournal
@removelist 'weeds'
@unsetalias 'found'
@unsetalias 'weeds'
if not listexists 'weeds'
  createlist 'weeds'
endif
@pushlist 'weeds' '0xcad' // weed1
@pushlist 'weeds' '0xcae' // weed2
@pushlist 'weeds' '0xcaf' // weed3
for 0 to weeds
  while @findtype 'weeds[]' 'any' 'ground' 'any' '0'
    @setalias 'weeds' 'found'
    @useobject 'found'
    headmsg "Clearing Weeds."
    waitforgump 3508768218 3000
  endwhile
endfor
playmacro 'AutoPlantGinseng'

PART THREE:

Code: Select all

//***************************************************************************//
// [UOSteam] Alamiesters's Ginseng Master v0.2P3
// Name this Macro AutoPlantGinseng
// This is part three of a ginseng harvester, weed eater, and ginseng seed
// planter.  make sure you have enough seeds in your pack for the amount of
// tiles your going to be planting.
//***************************************************************************//
@clearjournal
if @targetground '0x32c9' 'any' '0'
  @usetype '0xf21' '718' 'backpack' '2'
  waitforgump 3508768218 3000
elseif @targetground '0xd06' 'any' '0'
  sysmsg "*This has already been Planted.*" "28"
  stop
elseif @injournal "There is already something growing here." "system"
  stop
elseif @injournal "You successfully planted the ginseng" "system"
  stop
endif

ENJOY!

[Alamiester]

Updated to v0.2. i finally got the planting loops to end, without messing up the whole thing, lol. you still need to only hotkey the first part. now you havto hit your hotkey over each patch your standing on. only forseeable bump i can see would be a weight issue since i didnt put that in there. i think im gonna leave this macro as is. next forseeable macro will probly be able to harvest everything and plant what seed you pick. enjoy!

[erised_faylen]

this is AWESOME. i just wanted to say thanks because my neighbor has one of those pesky large yew trees blocking part of my yard... it happens to be my planting area. ive been trying to figure out for months how to get this weed that i couldnt see, and this completely fixed that for me. great work and thanks

[Alamiester]

glad you like it

[Slomo]

Love these. So much easier than doing it by hand. You rock and Thank you

[Alamiester]

ive actually been tryin to tweak this still. keep your eyes open for an update soon.