Author Topic: ENs - Rose Of Trinsic Petal Picker  (Read 15520 times)

0 Members and 1 Guest are viewing this topic.

Offline Endless NightTopic starter

  • Global Moderator
  • *
  • *****
  • Posts: 5467
  • Activity:
    0%
  • Reputation Power: 62
  • Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!
  • Respect: +393
  • Referrals: 1
    • View Profile
ENs - Rose Of Trinsic Petal Picker
« on: May 01, 2009, 06:12:32 PM »
+1
Rose Of Trinsic Petal Picker
Picks ALL Rose of Trinisc Petals for plants within 3 tiles of yourself.
Warning: No Error checking for lack of permission to pick in others houses.


With all these heritage tokens floating around these days I find myself with a whole bunch of Rose Of Trinsic Plants.  Picking those petals is a real pain.  So even thow this script is very short others might find it helpfull.

Code: [Select]
;===========================================
; Script Name: Rose Of Trinsic Petal Picker
; Author: JosephAJ
; Version: V1.0
; Client Tested with: 5.0.??
; EUO version tested with: 1.5 (TV102)
; Shard OSI / FS: OSI
; Revision Date: 1.17.07
; Public Release: 1/17/07
; Purpose: Picks ALL Rose Of Trinsic Petals
;          within 3 tiles of character.
; Requirments: None
;===========================================
; (C) 2007 All Rights Reserved JosephAJ
;===========================================

FindItem FHN G_3
set %Petals 0
If #findCnt > 0
  {
  set #findindex 0
  Repeat
     Set #Findindex #Findindex + 1
     Gosub PickPetal #Findid
  Until #Findindex = #Findcnt
  }
Display ok Collected %Petals Petals
Halt

Sub PickPetal %1
 set #lObjectID %1
 Event Property %1
 str Right #Property 3
 str left #strres 2
 If #Strres < 0
   Set #Strres 0
 event ExMsg #charID 3 0 #findindex , /
    + #findcnt , : #Strres Petals
 Set %Petals %Petals + #Strres
 If #Strres > 0
   For %count 1 #Strres
     {
      event Macro 17 0  ; 5
      wait 20
     }
Return

For a version that moves to the next closest petal see heree http://www.scriptuo.com/index.php?topic=1511.msg85615#msg85615
To mod to work with containors see http://www.scriptuo.com/index.php?topic=1511.msg80164#msg80164

Usage:
  You are free to use this script for not for profit personal UO gameplay.
You are *not* free to modify and repost or post on other places
or post as part of a script or work you yourself have created
or otherwise distribute without written permision from the author.
This license to use can be changed at any time for any reason.
If in doubt dont do it contact the author.

(C) 2007 All Rights Reserved JosephAJ
Commercial usage requires written permission from the author


NOTE: My scripts or any derivative of them are *not* for use in other players script/s!
« Last Edit: August 15, 2012, 07:09:37 PM by Endless Night »
Outlaw Josey Wales - "Manwink, A Long Gone Scripty, and Endless are always teasing us with their private sections lol. What there realy saying is scripters rule and users drool."
Briza - "Your a living breathing vortex of usefulness."

Offline Wilk

  • Sr. Member
  • *
  • Posts: 308
  • Activity:
    0%
  • Reputation Power: 3
  • Wilk has no influence.
  • Gender: Male
  • Respect: +24
  • Referrals: 0
    • View Profile
Re: ENs - Rose Of Trinsic Petal Picker
« Reply #1 on: September 29, 2009, 04:42:30 PM »
+1
Still works with SA.

Because I "know" you really wanted to know!

Offline Endless NightTopic starter

  • Global Moderator
  • *
  • *****
  • Posts: 5467
  • Activity:
    0%
  • Reputation Power: 62
  • Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!
  • Respect: +393
  • Referrals: 1
    • View Profile
Re: ENs - Rose Of Trinsic Petal Picker
« Reply #2 on: September 29, 2009, 06:42:20 PM »
+1
Boy this script is as old as the hills .. glad it still works thow.
Outlaw Josey Wales - "Manwink, A Long Gone Scripty, and Endless are always teasing us with their private sections lol. What there realy saying is scripters rule and users drool."
Briza - "Your a living breathing vortex of usefulness."

Offline TrailMyx

  • Officially retired from UO
  • Administrator
  • *
  • *
  • Posts: 13301
  • Activity:
    0%
  • Reputation Power: 154
  • TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!
  • Gender: Male
  • Viper!
  • Respect: +1349
  • Referrals: 33
    • View Profile
    • ScriptUO
Re: ENs - Rose Of Trinsic Petal Picker
« Reply #3 on: September 29, 2009, 06:42:56 PM »
+1
Isn't this one your EUO reject?  lol
Please read the ScriptUO site RULES
Come play RIFT with me!

Offline Endless NightTopic starter

  • Global Moderator
  • *
  • *****
  • Posts: 5467
  • Activity:
    0%
  • Reputation Power: 62
  • Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!
  • Respect: +393
  • Referrals: 1
    • View Profile
Re: ENs - Rose Of Trinsic Petal Picker
« Reply #4 on: December 05, 2009, 05:54:30 PM »
+1
Isn't this one your EUO reject?  lol

Yea Tm it was lol....   dam how did you know that.
Outlaw Josey Wales - "Manwink, A Long Gone Scripty, and Endless are always teasing us with their private sections lol. What there realy saying is scripters rule and users drool."
Briza - "Your a living breathing vortex of usefulness."

Offline rana70

  • Elite
  • *
  • *
  • Posts: 294
  • Activity:
    0%
  • Reputation Power: 5
  • rana70 has no influence.
  • Gender: Male
  • Respect: +37
  • Referrals: 2
    • View Profile
    • MyScripts
Re: ENs - Rose Of Trinsic Petal Picker
« Reply #5 on: December 05, 2009, 06:55:30 PM »
+1
Isn't this one your EUO reject?  lol

I had the same problem with my HHT Home Harvester Script,
it was too buggy  ;) because I did not use {} within a Repeat / Until Loop.

I guess they just don't like Harvester scripts :-)
cu
« Last Edit: December 05, 2009, 07:09:02 PM by rana70 »

Offline Cerveza

  • Hacksimus Maximus
  • Scripthack
  • *
  • Posts: 5857
  • Activity:
    0%
  • Reputation Power: 80
  • Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!
  • Gender: Male
  • So... Hows that Hopey-Changey thing working out?
  • Respect: +403
  • Referrals: 11
    • View Profile
Re: ENs - Rose Of Trinsic Petal Picker
« Reply #6 on: September 13, 2010, 09:22:18 AM »
+1
Wonder if this would work for doing Enhanced Bandages from a Fountain of Life? Just put a drag/drop after opening the fountain...
XXXXXXXXXX________________________________________] 20%
I've forgotten more about this game then most people will ever know.
Thank you for controlling your children. Their manners reflect your love for them.
Give a man a fish and you feed him for a day. Don't teach a man to fish, and you feed yourself. He's a grown man. Fishing's not that hard.

Offline Endless NightTopic starter

  • Global Moderator
  • *
  • *****
  • Posts: 5467
  • Activity:
    0%
  • Reputation Power: 62
  • Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!
  • Respect: +393
  • Referrals: 1
    • View Profile
Re: ENs - Rose Of Trinsic Petal Picker
« Reply #7 on: September 13, 2010, 09:47:17 AM »
+1
Wonder if this would work for doing Enhanced Bandages from a Fountain of Life? Just put a drag/drop after opening the fountain...

I dont see why it couldnt... this was one of my original starting scripts... look how simple it was...   Do what you want with it Cerveza
Outlaw Josey Wales - "Manwink, A Long Gone Scripty, and Endless are always teasing us with their private sections lol. What there realy saying is scripters rule and users drool."
Briza - "Your a living breathing vortex of usefulness."

Offline Cerveza

  • Hacksimus Maximus
  • Scripthack
  • *
  • Posts: 5857
  • Activity:
    0%
  • Reputation Power: 80
  • Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!Cerveza is awe-inspiring!
  • Gender: Male
  • So... Hows that Hopey-Changey thing working out?
  • Respect: +403
  • Referrals: 11
    • View Profile
Re: ENs - Rose Of Trinsic Petal Picker
« Reply #8 on: September 13, 2010, 09:50:28 AM »
+1
Cool, I'll play a bit. I was trying to make a script to find fountains, open them, drag/drop enhanced bandages to a secure, then ignore the fountain and try again.

For some reason it just kept opening the secure instead of the fountains. Even after I removed any reference to it LOL.
XXXXXXXXXX________________________________________] 20%
I've forgotten more about this game then most people will ever know.
Thank you for controlling your children. Their manners reflect your love for them.
Give a man a fish and you feed him for a day. Don't teach a man to fish, and you feed yourself. He's a grown man. Fishing's not that hard.

Offline Tommy Boy

  • Jr. Member
  • **
  • Posts: 79
  • Activity:
    0%
  • Reputation Power: 2
  • Tommy Boy has no influence.
  • Respect: +14
  • Referrals: 0
    • View Profile
Re: ENs - Rose Of Trinsic Petal Picker
« Reply #9 on: February 03, 2012, 12:32:58 PM »
+1
This still works.  Is it ok if I try to make it work to pick petals from a container?

Offline Endless NightTopic starter

  • Global Moderator
  • *
  • *****
  • Posts: 5467
  • Activity:
    0%
  • Reputation Power: 62
  • Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!
  • Respect: +393
  • Referrals: 1
    • View Profile
Re: ENs - Rose Of Trinsic Petal Picker
« Reply #10 on: February 04, 2012, 07:52:13 PM »
+1
This still works.  Is it ok if I try to make it work to pick petals from a container?

just change this line

Code: [Select]
FindItem FHN G_3
for

Code: [Select]
FindItem FHN C
and open all your contains before starting.
Outlaw Josey Wales - "Manwink, A Long Gone Scripty, and Endless are always teasing us with their private sections lol. What there realy saying is scripters rule and users drool."
Briza - "Your a living breathing vortex of usefulness."

Offline Tommy Boy

  • Jr. Member
  • **
  • Posts: 79
  • Activity:
    0%
  • Reputation Power: 2
  • Tommy Boy has no influence.
  • Respect: +14
  • Referrals: 0
    • View Profile
Re: ENs - Rose Of Trinsic Petal Picker
« Reply #11 on: February 04, 2012, 08:13:04 PM »
+1
Right on.  Thanks.

Offline Endless NightTopic starter

  • Global Moderator
  • *
  • *****
  • Posts: 5467
  • Activity:
    0%
  • Reputation Power: 62
  • Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!Endless Night is awe-inspiring!
  • Respect: +393
  • Referrals: 1
    • View Profile
Re: ENs - Rose Of Trinsic Petal Picker
« Reply #12 on: August 15, 2012, 07:04:36 PM »
+1
The long awaited update 5 or so years in the making...

It now moves to the next nearest petal.... yeeeeee haaaaa.

Code: [Select]
;===========================================
; Script Name: Rose Of Trinsic Petal Picker
; Author: JosephAJ
; Version: V1.0
; Client Tested with: 5.0.??
; EUO version tested with: 1.5 (TV102)
; Shard OSI / FS: OSI
; Revision Date: 8/15/2012
; Public Release: 1/17/07 , 8/15/2012
; Purpose: Picks ALL Rose Of Trinsic Petals
;          within 3 tiles of character.
; Requirments: None
;===========================================
; (C) 2007 All Rights Reserved JosephAJ
;===========================================

ignoreitem reset
set %Petals 0

repeat
  FindItem FHN G_2
  If #findCnt > 0
    {
    set #findindex 0
    repeat
      Set #Findindex #Findindex + 1
      Gosub PickPetal #Findid
      ignoreitem #findid ; dont pick it again
    Until #Findindex = #Findcnt
    }
 FindItem FHN G
 gosub movetoclosest
until #findcnt = 0
Display ok Collected %Petals Petals
Halt

Sub PickPetal %1
 set #lObjectID %1
 Event Property %1
 str Right #Property 3
 str left #strres 2
 If #Strres < 0
   Set #Strres 0
 event ExMsg #charID 3 0 #findindex , /
    + #findcnt , : #Strres Petals
 Set %Petals %Petals + #Strres
 If #Strres > 0
   For %count 1 #Strres
     {
      event Macro 17 0  ; 5
      wait 20
     }
Return

sub movetoclosest
  set #lpc 9000
  set !x N/A
  set !dist 100000
  for #findindex 1 #findcnt
    {
    if #finddist < !dist
      {
      set !dist #finddist
      set !x #findindex
      }
    }
  if !x <> N/A
   {
   set #findindex !x
   goSub ENs_MoveTo #findx #findy #findz 1 4
   wait 10
   }
   set #lpc 10
return

Sub ENs_MoveTo ; x y z Tolerance Timeout
  set !MoveTox %1
  set !MoveToy %2
  set !MoveToz %3
  set !Tolerance %4
  if %0 < 4
    set !Tolerance 1
  set %timeout #scnt + 15
  if %0 >= 5
    set %timeout #Scnt + %5
  if !MoveToz >= #charposz - 30 && !MoveToz <= #Charposz + 30
    {
    repeat
      set !MovetoStartJournal #jindex
      event pathfind !MoveTox !MoveToy !MoveToz
      wait 5
      Gosub CheckJournalfor !MovetoStartJournal get_there  ; can't_get_there
    until ( abs ( #charposx - !MoveTox ) <= !Tolerance && abs ( #charposy - !MoveToy ) <= !Tolerance ) ||  #scnt >= %timeout || #Result
    If ( abs ( #charposx - !MoveTox ) > !Tolerance || abs ( #charposy - !MoveToy ) > !Tolerance ) ; && #Result = #false
       move !MoveTox !MoveToy 0 5s
    }
return ( abs ( #charposx - !MoveTox ) <= !Tolerance && abs ( #charposy - !MoveToy ) <= !Tolerance )


sub checkjournalfor ; StartJournal
  set !StartJournal %1
  set !Filters %0
  set !EndJournal #Jindex
  set !ThisResult #False
  If !EndJournal > !StartJournal
    {
    for !CJFCount !StartJournal !EndJournal
      {
       scanJournal !CJFCount
       For !CJFx 2 !Filters
         {
         If % . !CJFx In #Journal
            Set !ThisResult #True
         }
      }
    }
return !ThisResult
« Last Edit: August 15, 2012, 07:07:49 PM by Endless Night »
Outlaw Josey Wales - "Manwink, A Long Gone Scripty, and Endless are always teasing us with their private sections lol. What there realy saying is scripters rule and users drool."
Briza - "Your a living breathing vortex of usefulness."

Offline TrailMyx

  • Officially retired from UO
  • Administrator
  • *
  • *
  • Posts: 13301
  • Activity:
    0%
  • Reputation Power: 154
  • TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!
  • Gender: Male
  • Viper!
  • Respect: +1349
  • Referrals: 33
    • View Profile
    • ScriptUO
Re: ENs - Rose Of Trinsic Petal Picker
« Reply #13 on: August 15, 2012, 09:09:18 PM »
+1
The mother of all updates! Heh.
Please read the ScriptUO site RULES
Come play RIFT with me!

Offline papa daemon

  • Newbie
  • *
  • Posts: 3
  • Activity:
    0%
  • Reputation Power: 1
  • papa daemon has no influence.
  • Respect: +1
  • Referrals: 0
    • View Profile
Re: ENs - Rose Of Trinsic Petal Picker
« Reply #14 on: February 03, 2016, 11:33:37 AM »
+1
Boy am I glad I scrolled thru this one!! I was actually going to skip it but at the last second I saw the "mother lode" update, and now, as you know, this is a must have!!!

Thanks for coding this EN, picking petals used to suck.....

Tags: