Lock down script for plants

[Venosa]

Does anyone know if there is a script for locking down plants on the floor? there was one in the gardening post but it does not work, was hoping someone could help me out since i just placed 1000 plants on the floor :/ Thanks in advance.

HAHA fixed it.

[TrailMyx]

...doe snot ...

I'd imagine that would make a pretty good adhesive!  lol!

[Venosa]

LMAO that is what happens when you are trying to manually lock down 1000 plants but I gave up.

Here is the original script I found on the old thread and by no means am I taking any credit or claiming it is mine, it was posted by Cstalker was hoping someone could give me ideas of what i am doing wrong?  I added the QLI under find item exe but when you hit play it doesnt seem to scan the script or something.:

Ok once you have this set up, you put 100 or so plants in a crate. You then place this crate on a table and use a axe on it. Now you have 100 plants stacked ontop of each other. I then run this script.

Code: [Select]

;bxe Blooming Orange Pampas Grass Plant
;QLI Bowl of dirt
repeat
{
Finditem exe_CCF_NXE_lok_BXE G_2
 if #findkind = 1
   {
    event property #findid
    wait 1s
    IF Locked notin #property
     {
      set #ltargetid #findid
      set #ltargetkind 1
      wait 1
      event macro 1 0 I wish to lock this down
      target 2s
      event macro 22 0
      wait 1s
     }
     ignoreitem #findid
    }
   }
until #FINDcnt = 0
halt

This will lock down all them plants. You may want to run it a few times as lag can cause it to miss one or 2.
Now you have your next 100 in another crate, place them on top of the last 100 and repeat until you cant stack any higher. Once this is done, its about 800 or so plants on one tile, you move to the next tile. Useing this method you can easly get 12 tiles of plants stacks and a ungodly amount of plants to tend. Now all your plants are within reach and you just run the script. it will tend away. Usualy takes a few hours, just depends on how many plants you hive. I would say its a good 30s to 1 minute of time per plant.

The hardest part for me was to remember to log in and do it. I solved this by moding my bod fetcher to auto login the plant tender. it was buggy but it works most of the time.

So i hope this helps. Ask away if you have any further questions

[Scrripty]

If you can get this to work for you.  Enjoy.

Code: [Select]

sub Button_Lockdown
  menu get comboLockdown
  if #menures = 1
    set %line a
  if #menures = 2
    set %line vibrant
  If #menures = 3
    set %line healthy
  if #menures = 4
    set %line wilted
  if #menures = 5
    set %line dying
  if #menures = 6
    set %line dead
  if #menures = 7
    set %line soft
  if #menures = 8
    set %line hard
  if #menures = 9
    set %line sopping
  if #menures = 10
    set %line squishy
  if #menures = 11
    set %line empty
  if #menures = 12
    set %line decorative
  if #menures = 13
    set %line seeds
  if #menures = 14
    set %line black
  if #menures = 15
    set %line white
  if #menures = 16
    set %line aqua
  if #menures = 17
    set %line magenta
  if #menures = 18
    set %line pink
  if #menures = 19
    set %line fire
  if #menures = 20
    set %line plain
  if #menures = 21
    set %line red
  if #menures = 22
    set %line blue
  if #menures = 23
    set %line yellow
  if #menures = 24
    set %line purple
  if #menures = 25
    set %line green
  if #menures = 26
    set %line orange
  if #menures = 27
    set %line bright , #spc , red
  if #menures = 28
    set %line bright , #spc , blue
  if #menures = 29
    set %line bright , #spc , yellow
  if #menures = 30
    set %line bright , #spc , purple
  if #menures = 31
    set %line bright , #spc , green
  if #menures = 32
    set %line bright , #spc , orange
  if #menures = 33
    set %line common
  if #menures = 34
    set %line uncommon
  if #menures = 35
    set %line rare
  if #menures = 36
    set %line exceptional
  if #menures = 37
    set %line exotic
  set %lockbowls QLI_OLI
  menu Set EditStatus Locking down plant bowls...
  set #menuButton N/A
  set %lockedPlants 0
  Finditem %lockBowls G_2
  for #findindex 1 #findcnt
  {
    event property #findid
    wait 5
    if bright in #property && ( #menures = 21 || #menures = 22 || #menures = 23 || #menures = 24 || #menures = 25 || #menures = 26 )
    {
      ignoreitem #findid
      continue
    }
    event exmsg #charid 3 0 #property
    IF Locked in #property || %line notin #property
      continue
    set %lockedPlants ( %lockedPlants + 1 )
    menu Set editLockDown %lockedPlants
    set #ltargetid #findid
    set #ltargetkind 1
    wait 1
    event macro 1 0 I wish to lock this down
    target 5s
    event macro 22 0
    wait 10
    ignoreitem #findid
  }
  ignoreitem reset
Return

sub Button_Release
  menu get comboUnlock
  if #menures = 1
    set %line a
  if #menures = 2
    set %line vibrant
  If #menures = 3
    set %line healthy
  if #menures = 4
    set %line wilted
  if #menures = 5
    set %line dying
  if #menures = 6
    set %line dead
  if #menures = 7
    set %line soft
  if #menures = 8
    set %line hard
  if #menures = 9
    set %line sopping
  if #menures = 10
    set %line squishy
  if #menures = 11
    set %line empty
  if #menures = 12
    set %line decorative
  if #menures = 13
    set %line seeds
  if #menures = 14
    set %line black
  if #menures = 15
    set %line white
  if #menures = 16
    set %line aqua
  if #menures = 17
    set %line magenta
  if #menures = 18
    set %line pink
  if #menures = 19
    set %line fire
  if #menures = 20
    set %line plain
  if #menures = 21
    set %line red
  if #menures = 22
    set %line blue
  if #menures = 23
    set %line yellow
  if #menures = 24
    set %line purple
  if #menures = 25
    set %line green
  if #menures = 26
    set %line orange
  if #menures = 27
    set %line bright , #spc , red
  if #menures = 28
    set %line bright , #spc , blue
  if #menures = 29
    set %line bright , #spc , yellow
  if #menures = 30
    set %line bright , #spc , purple
  if #menures = 31
    set %line bright , #spc , green
  if #menures = 32
    set %line bright , #spc , orange
  if #menures = 33
    set %line common
  if #menures = 34
    set %line uncommon
  if #menures = 35
    set %line rare
  if #menures = 36
    set %line exceptional
  if #menures = 37
    set %line exotic
  menu Set EditStatus Releasing plant bowls...
  set #menuButton N/A
  set %releasePlants 0
  Finditem %plantType G_2
  for #findindex 1 #findcnt
  {
    event property #findid
    wait 5
    event exmsg #charid 3 0 #property
    IF Locked notin #property || %line notin #property
      goto _skipRelease
    set %releasePlants ( %releasePlants + 1 )
    menu Set editRelease %releasePlants
    set #ltargetid #findid
    set #ltargetkind 1
    wait 1
    event macro 1 0 I wish to release this
    target 5s
    event macro 22 0
    wait 10
    ignoreitem #findid
_skipRelease:
  }
  ignoreitem reset
Return

[Venosa]

will give this a shot tomorrow thank you very much sorry computer has been down and didnt get a  chance to say thank you