[UOSteam] Auto Planting Scripts

If you make a Client-side script you can publish it here for other players to use
Post Reply
User avatar
Alamiester
Legendary Scribe
Posts: 279
Joined: Wed Jan 04, 2017 8:49 pm

[UOSteam] Auto Planting Scripts

Post 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
Last edited by Alamiester on Tue Jun 28, 2022 8:28 am, edited 1 time in total.
User avatar
Alamiester
Legendary Scribe
Posts: 279
Joined: Wed Jan 04, 2017 8:49 pm

Re: [UOSteam] Auto Planting Scripts

Post 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
User avatar
Alamiester
Legendary Scribe
Posts: 279
Joined: Wed Jan 04, 2017 8:49 pm

Re: [UOSteam] Auto Planting Scripts

Post by Alamiester »

updated auto water dirt bowls, to stand next to a water trough and auto fill pitchers in your pack.
Post Reply