[UOSteam] Alamiester's Ginseng Master v0.2
Posted: Thu Mar 08, 2018 9:49 pm
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:
PART TWO:
PART THREE:
ENJOY! 
*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'
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'
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
