Page 1 of 1

[UOSteam] Auto Planting Scripts

Posted: Fri Jun 10, 2022 1:55 pm
by Alamiester
slapped these together last night, i know they arent perfect, but they get the job done for now. saves alot of time setting up a large plant area.

[UOSteam]Alamiester's AutoDirtToBowl v0.3

Code: Select all

//[UOSteam]Alamiester's AutoDirtToBowl v0.3//
//Updated bowl type to stackable bowls.//
//Stand over a dirt area on map,  start script and click on dirt the first time when curser pops up.//
//09JUN2022//
@usetype  '0x26b9' 'Any' 'Backpack' '3'
@waitingfortarget!
pause 200
while @findtype! '0x26b9' 'Any' 'Backpack' 'Any' '3'
  @usetype '0x26b9' 'Any' 'Backpack' '3'
  pause 200
  @targettile! 'last'
  @waitingfortarget!
  waitfortarget 200
  sysmsg 'One bowl filled with dirt.' 20
  pause 200
endwhile
@canceltarget!
[UOSteam]Alamiester's PitcherFiller v0.1

Code: Select all

//[UOSteam]Alamiester's PitcherFiller v0.2//
//added a promt to target water trough for the first time.//
//make sure you are next to a water trough,  and have the pitchers you wanna fill in your pack.  dont forget to check the loop box.//
//11JUN2022//
if not @findobject 'WaterTrough' and not inrange 'WaterTrough' '2'
  promptalias 'WaterTrough'
      sysmsg '*****Target the Water Trough!*****' '2165'
endif
if @inrange 'WaterTrough' '2'
  if not @findtype! '0xff6' '0' 'backpack'
    sysmsg '*****No Empty Pitchers*****' '2165'
    stop
  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
endif
[UOSteam]Alamiester's PitcherSprinkler Filler v0.1

Code: Select all

//[UOSteam]Alamiester's PitcherSprinkler Filler v0.2//
//added a promt to target water trough for the first time.//
//you must have a water sprinkler and a couple full water pitchers in your backpack, and also be standing next to a water trough.//
//11JUN2022//
if not findalias 'WaterTrough'
  promptalias 'WaterTrough'
  sysmsg '*****Target Your Water Trough!*****' '2165'
endif
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!
[UOSteam]Alamiester's AutoPlantSeed v0.1

Code: Select all

//[UOSteam]Alamiester's AutoPlantSeed v0.1//
//09JUN2022//
//This is for batch planting seeds into pots on the ground.  You need to use object inspector to see the seed color and change your color with '66'. Plants a 5x5 grid if your standing in the middle.//
@usetype '0xdcf' '66' 'backpack' '2'
pause 200
@targetground! '0x1602' '194' '2'
waitfortarget 500
pause 200
[UOSteam]Alamiester's AutoWaterDirt v0.2

Code: Select all

//[UOSteam]Alamiester's AutoWaterDirt v0.2//
//27JUN2022//
//You need a couple pitchers of water in your pack, and bowls full of hard dirt.  it will refill water pitchers while standing next to a water trough, until out of hard dirt bowls.//
if not findalias 'WaterTrough'
  promptalias 'WaterTrough'
  sysmsg '*****Target Your Water Trough!*****' '2165'
endif
while not @injournal! 'You Completely fill'
  if not @findtype! 0x1602 0 backpack
    sysmsg '*****No Dry Dirt Bowls!*****' '2165'
    while not @findobject 'WaterTrough' and not inrange 'WaterTrough' '2'
      promptalias 'WaterTrough'
    endif
    if @inrange 'WaterTrough' '2'
      if not @findtype! '0xff6' '0' 'backpack'
      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! 0x1602 0 backpack
    pause 1000
  endif
  sysmsg '*****Dirt Bowl Filled.*****' '2165'
endwhile
//@unsetalias 'watertrough'
@canceltarget!
@clearjournal!
[UOSteam]Alamiester's AutoSeedToBox v0.1

Code: Select all

//[UOSteam]Alamiester's AutoSeedToBox v0.1//
//13DEC2017//
if not @findobject 'SeedBox'
  promptalias 'SeedBox'
endif
pause 500
@removelist 'Seeds'
if not listexists 'Seeds'
  createlist 'Seeds'
endif
@pushlist 'Seeds' 0xdcf // Seeds
while @findtype 0xdcf 'Any' 'backpack' 'Any'
  for 0 to Seeds
    if @inrange 'SeedBox' 2
      if @movetype Seeds[]  'backpack''SeedBox' 'Any' 'Any' 'Any'
        pause 100
      endif
    endif
    if not @inrange 'SeedBox' '2'
      headmsg 'Move closer to Seed Box, Stopping...'
      stop
    endif
    sysmsg 'Moving Seed.' 20
    pause 100
  endfor
  pause 100
endwhile

Re: [UOSteam] Auto Planting Scripts

Posted: Wed Jun 22, 2022 12:22 am
by Alamiester
i am gonna just add this in this post since it is plant related, and it is working well now for me. it is for easyuo. it opens pots on several levels. so far i have only used it for two levels, but it might open all levels within range if you start in the middle. :nod:

Edit: i should add i am only growing one type of plant for this, if you have multiple types it probably wont see them once they bloom.

[EasyUO]FlowerPotOpener

Code: Select all

initevents

begin:
finditem NXE G_2 ; ABC... being the plant types id, change this too your plant id.
while #findIndex <= #findCnt
{
set #LOBJECTID #FINDID
event macro 17 0
set #findIndex #findIndex + 1
wait 1s
}

begin:
finditem OLI G_2 ;  OLI... Pot with sprouted seed
while #findIndex <= #findCnt
{
set #LOBJECTID #FINDID
event macro 17 0
set #findIndex #findIndex + 1
wait 1s
}

begin:
finditem QLI G_2 ;  QLI... Pot with dirt, includes unsprouted seeds
while #findIndex <= #findCnt
{
set #LOBJECTID #FINDID
event macro 17 0
set #findIndex #findIndex + 1
wait 1s
}

display Finished!
halt

;  QLI Pot with dirt, includes unsprouted seeds
;  OLI Pot with sprouted seed
;  TCF Century Plant
;  BWE Campion
;  IWE Snowdrop
;  ICF Prickly Pear
;  BXE Pampas Grass
;  CCF Barrel Cactus
;  NXE Snake Plant
;  MWE Bullrushes
;  NWE Elephant Ears

Re: [UOSteam] Auto Planting Scripts

Posted: Tue Jun 28, 2022 8:30 am
by Alamiester
updated auto water dirt bowls, to stand next to a water trough and auto fill pitchers in your pack.