Gaderian's Refinement Amalgamator

[Gaderian]

Here is my armor refinement amalgamator script.
Oracle and I had been collecting lots of refinements to apply to some armor. I don't really like doing all the combining manually, so I wrote this to help us. He generously gave of his time to test and provide feedback. In the end I feel it is worthy of sharing here.

Along the way The Ghost also ran it through testing and confirmed it worked for him.

What you need to do to run this?
1) stand within reach of a secure container with your refinements.
2) have an amalgamator either in your backpack or in the secure that is not partially combining refinements.

Run the script and target your container.
It takes some time to run, so be patient.

It will put the amalgamator tool back into the secure when it's done.
It asks you to target the container to get the refinements. That limits the usefulness to about 120 or so refinements. A future enhancement could add a menu and make the container selection allow more than 1 container.

Please report any issues and I'll see what I can do.

Gaderian

[Oracle]

I hated doing this manually as well. Thank you for helping to make a tedious task much less tedious. Appreciate the effort! Glad to have helped out and tested this with you.


A couple of suggestions:

1. The script needs to recount after pulling the refinements to double-check and
2. Remove the Quantity checker prompt. It slows the script way down and changes this to an attended hands-on script.
3. Open all sub-containers in the secure container to make sure you have all of the correct ones packed together.

2 defense = 1 protection
3 protection  = 1 hardening
4 hardening = 1 fortification
5 fortification = 1 invulnerability

Oracle

[The Ghost]

Here what I did to remove that check Qty Correct?
 comment out 4 line of code. 

Code: easyuo

1. sub CombineInventory
2.  for %CIType 1 6
3.   {
4.   for %CIArmor 1 12 ; Want armor of the same type processed at one time
5.    {
6.    for %CILevel 1 4 ; do not need to try to combine invulnerable
7.     {
8.     set %CICombineQvar Refinement , %CIType , %CILevel , %CIArmor ; this order allows 2 digit armor, but does the same type of armor together
9.     gosub q_count %CICombineQvar
10.     while #Result > %CILevel
11.      {
12.      set %CICombineQuantity %CILevel + 1
13.      for %CIPullQty 1 %CICombineQuantity
14.       {
15.       gosub q_pop %CICombineQvar
16.       if #Result <> _NoValue_
17.        {
18.        finditem #Result C
19.        set %CILastBagid #findbagid ; we will put the new on back in the bag we got the last one from
20.        exevent drag #Result
21.        wait 5
22.        exevent dropc #Backpackid
23.        wait 20
24.        }
25.       }
26.    ;  display yesno Is the Pulled Qty Correct?
27.    ;  if #dispres = yes
28.   ;    {
29.       finditem %Refinements C_ , #backpackid
30.         if #findcnt = %CICombineQuantity
31.          {
32.             for #findindex 1 #findcnt
33.               {
34.                 set #lobjectid %AmalgamatorID
35.                 event macro 17
36.                 target 2s
37.                 set #ltargetid #findid
38.                 set #ltargetkind 1
39.                 event macro 22
40.                 wait 20
41.               }
42.          finditem %Refinements C_ , #backpackid
43.            if #findcnt = 1
44.             {
45.             ; add new to queue
46.             event property #findid
47.             wait 5
48.             gosub SumInventory
49.             wait 20
50.             exevent drag #findid
51.             wait 5
52.             exevent dropc %CILastBagID %X %Y ; put new refinement into bag the last one was pulled from
53.             wait 20
54.             }
55.          else
56.             {
57.             display ok I am confused by a miscount on refinements - expected 1 but found #findcnt
58.             pause
59.             }
60.          }
61.     ;  }
62.      else
63.       {
64.       pause
65.       }
66.      gosub q_count %CICombineQvar
67.      } ; end while
68.     }
69.    }
70.   }
71.  

And if you want to place them in specific location in pack.

Code: easyuo

1. sub SumInventory
2.  if Defense in #property 3
3.   set %SILevel 1
4.     set %x 45
5.     set %y 60
6.  if Protection in #property 3
7.   set %SILevel 2
8.      set %x 135
9.      set %y 60
10.  if Hardening in #property 3
11.   set %SILevel 3
12.      set %x 45
13.      set %y 140
14.  if Fortification in #property 3
15.   set %SILevel 4
16.       set %x 135
17.       set %y 140
18.  if Invulnerability in #property 3
19.   set %SILevel 5
20.       set %x 90
21.       set %y 100
22.  
23.  if Bone in #property                       ; Bone
24.   set %SIArmor 1
25.  

Edit (TM): EUO coloring - DOH!

[CityKitty]

Wow! I had been throwing out my refinements because I was fed up spending all my time in game trying to figure out what I have and what to do next. I had given up. This script took no time at all and just got busy doing the job. Now, I really feel awful about throwing the old stuff out!

Good job, well done as usual!

[Gaderian]

Refinements are also good for cleaning points.
I do that with all the ones I will never use.