I'm working on a project and currently I am looking at gathering data on commonly used weapons.

Personally I use the Black Staff for AoE and Hammer Pick for Single Target. That keeps both specials on one key (Primary Ability) and you can get awesome damage + mana return with Hammer picks.

So, I came across some older pets I have on my old Atl tamer. I don't really know anything about pets anymore so I figured I would ask here.

Here are the relative stats, it's an old WW, but not like... eats fish/fruit old.





Is this good for a white wyrm?

PS: Please don't link UOCraft's *bleep* pet calculator. I've had friends who posted perfect statted dreads and bugged stamina stat cu's have it tell them their pets are only 2 star. :X
PPS: Yes I know it's not a greater dragon. It's a white wyrm. Yes I know nobody uses White Wyrms anymore.

So as some of you will most likely notice when making your scripts to train characters, when you utilize GetSkillValue(SkillName); that any +/-skill items aren't taken into consideration. This is a problem for things like Magery training with -Magery items or Ninjitsu training to get into Death Strike training sooner. There is a solution however.

What you will need:
1. A CliLoc ID.
2. A Parameter within that CliLoc.
3. A Programmer Calculator (hint: Windows has one)
4. UOFiddler.
5. Common sense.

So, how do we get a CliLocID and Parameter? Easy. With this script.
Program New;
var
  aa : TClilocRec;
  bb : TClilocItemRec;
  i,k : Integer;

begin
  aa := GetToolTipRec($0);
  AddToSystemJournal('Total lines in Toolptip: ' + IntToStr(aa.Count));
  if aa.count > 0 then
  for i := 0 to aa.Count - 1 do
  begin
    AddToSystemJournal('Line ' + IntToStr(i) + ': ');
    bb := aa.Items[i];
    AddToSystemJournal('Cliloc: $' + IntToHex(bb.ClilocID,8));
    AddToSystemJournal('Cliloc text: ' + GetClilocByID(bb.ClilocID));
    for k := 0 to Length(bb.Params) - 1 do
      AddToSystemJournal('Param-' + IntToStr(k) + ': "' + bb.Params[k] + '"');
  end;
end.
Where aa := GetToolTipRec($0); is you need to toss in the ItemID of the Item with +/-Skill on it. This is only if you don't have the CliLocID and Parameter of the skill you want to check.

Let's say Magery. When running this script on a Scrapper's Compendium we get this output:

15:43:59:905 [dxrom]: Compiling
15:43:59:918 [dxrom]: Compiled succesfully
15:43:59:919 [dxrom]: Total lines in Toolptip: 8
15:43:59:920 [dxrom]: Line 0:
15:43:59:920 [dxrom]: Cliloc: $00105F2C
15:43:59:921 [dxrom]: Cliloc text: Scrapper's Compendium
15:43:59:922 [dxrom]: Line 1:
15:43:59:923 [dxrom]: Cliloc: $000FD6C5
15:43:59:924 [dxrom]: Cliloc text: Blessed
15:43:59:925 [dxrom]: Line 2:
15:43:59:926 [dxrom]: Cliloc: $00102E63
15:43:59:927 [dxrom]: Cliloc text: ~1_skillname~ +~2_val~
15:43:59:928 [dxrom]: Param-0: "#1042372"
15:43:59:929 [dxrom]: Param-1: "10"
15:43:59:930 [dxrom]: Line 3:
15:43:59:931 [dxrom]: Cliloc: $00102E83
15:43:59:932 [dxrom]: Cliloc text: spell damage increase ~1_val~%
15:43:59:934 [dxrom]: Param-0: "25"
15:43:59:935 [dxrom]: Line 4:
15:43:59:936 [dxrom]: Cliloc: $00102E3C
15:43:59:937 [dxrom]: Cliloc text: faster cast recovery ~1_val~
15:43:59:938 [dxrom]: Param-0: "1"
15:43:59:939 [dxrom]: Line 5:
15:43:59:940 [dxrom]: Cliloc: $00102E3D
15:43:59:942 [dxrom]: Cliloc text: faster casting ~1_val~
15:43:59:944 [dxrom]: Param-0: "1"
15:43:59:945 [dxrom]: Line 6:
15:43:59:946 [dxrom]: Cliloc: $00102E51
15:43:59:948 [dxrom]: Cliloc text: lower mana cost ~1_val~%
15:43:59:949 [dxrom]: Param-0: "10"
15:43:59:950 [dxrom]: Line 7:
15:43:59:951 [dxrom]: Cliloc: $000FE9C6
15:43:59:952 [dxrom]: Cliloc text: ~1_NUMBERS_OF_SPELLS~ Spells
15:43:59:953 [dxrom]: Param-0: "3"
15:43:59:954 [dxrom]: Succesfully executed
15:43:59:955 [dxrom]: Script GumpSearch.sc stopped successfuly

The point of interest here is:

Cliloc: $00102E63
Cliloc text: ~1_skillname~ +~2_val~
Param-0: "#1042372"
Param-1: "10"

Opening calculator I see that  $00102E63 HEX->DEC is 1060451. Opening UOFiddler and going to that address within the CliLoc tab I see that there are five similar CliLocs for +/-Skill.


Take note of those as we'll incorporate them all.

The second thing we want to take note of is Param-0: "#1042372". That is another CliLocID, except it's already in Decimal format. So let's check out what is at that ID shall we?

Okay, so we have now have the data that we need to start to write our function.

For simplicity sake we'll use jewelry. It should look something like this:
Function GetJewelrySkill(CliLocParam:String):Integer;
var
  a:TClilocRec;
  b:TClilocItemRec;
  i:Integer;
  R,BR:Integer;
begin
  if( GetType(ObjAtLayer(BraceLayer))=0 ) then
  begin
    BR:=0;
  end
  else begin
    a:=GetToolTipRec(ObjAtLayer(BraceLayer));
if( a.Count > 0 ) then
begin
  for i:=0 to a.Count-1 do
  begin
    b:=a.Items[i];
if( (b.ClilocID >= 1060451) AND (b.ClilocID <= 1060455) ) then
begin
  if( b.Params[0] = CliLocParam ) then
  begin
    BR:=StrToInt(b.Params[1]);
  end;
end;
  end;
end;
  end;
 
  if( GetType(ObjAtLayer(RingLayer))=0 ) then
  begin
    R:=0;
  end
  else begin
a:=GetToolTipRec(ObjAtLayer(RingLayer));
if( a.Count>0 ) then
begin
  for i:=0 to a.Count-1 do
  begin
b:=a.Items[i];
if( (b.ClilocID >= 1060451) AND (b.ClilocID <= 1060455) ) then
begin
  if( b.Params[0] = CliLocParam ) then
  begin
    R:=StrToInt(b.Params[1]);
  end;
end;
  end;
end;
  end;
 
  Result:=R+BR;
end;
Those with a keen eye will have noticed, this function returns an Integer, but GetSkillValue returns a Double. That's not a problem since we can truncate the double.

Using this command will get the effective value of magery with jewelry and assign it as an Integer to variable SKILL
SKILL:=GetJewelrySkill('#1042372')+Trunc(GetSkillValue('Magery'));
I hope that this helps people out in their stealthy adventures, where you're only limitation is your imagination!

For more info on what layers there are to play with, check out http://stealth.od.ua/Category:Layers

{Written by dxrom for release on ScriptUO.com

--Script will utilize public moongate to train stealth and hiding.
 
  Setup: It's your responsibility to make sure you put on additional
  armor for stealth to continue gaining. Check this link for info:
  http://www.uoguide.com/Stealth#Training
 
 
  Walk over to any Public moongate and hit Play.}
UPDATE: I have removed the additional skill functionality (Will replace it in future update). I have completely revamped the code altogether as I as very unhappy with it as a whole.

NOTE: If you do not train stealth in wraith form, then modify MoveThroughNPC:=0; to be MoveThroughNPC:=1; within the Init;

More practice in what I can do with loops, this time with clilocs and their parameters.

  Script will harvest all Trinsic Petal plants on the same floor
  of your house, moving to them as needed as well as moving to
  the deposit container and depositing them.
  
  Setup: One container to deposit petals into, and as many roses
  of trinsic you can lock down. Hit play!

Like always, hopefully someone has a use for this and/or learns something from it :>

Updated. Will no longer Attempt to harvest at least once on plants with no petals (IE: From stopping and starting the script for whatever reason) Nor walk to an empty plant. Also wont try and pick plants you don't have access to.

o7

So the people who live across the street are commercial fisherman (Pretty common thing where I live) and they just moved in about 4 months ago, they previous owners are the parent's of the current owners, they were also commercial fishers and they were pretty chill. When the kids took over the place I noticed some things, they are far less cleaner with their fishing gear than their parents. They don't clean their pods at the docks like the rest of the commercial fishers, they seem to be a lot lazier.

Now most people would think "Hey, so what, they bring their pods homes and wash them, they is probably a charge at the docks." And that could be the case, I honestly don't know, however what I do know is that since they moved in, the entire block smells like *bleep*, literally... You know, that smell of something left at the bottom of the ocean for a week? Multiplied by about 400 since that's about how many pods they have out there, packed into their little alley next to their garage. Two years we lived across the street of the parent's, no smell, no swarm of racoons and cats every night feeding off what's left on the pods, no nothing. 4 months of the kids, crapola. (I'll have to take a picture of the swarms sometime, or perhaps upload a capture from our security feed.)

Honestly the smell wasn't too horrible, however what I just discovered absolutely sets me off... In my household, we converted our garage into a computer room because honestly we didn't have much use for anything else in there since it connects to the back yard, the access from the house is always open so our dogs can get to the back yard. I just went out there to close the back door and I see some stuff jumping around on the carpet, lo and behold, SAND FLEAS. Sand fleas that have migrated across the road from the mess of pods that isn't properly cleaned, into our yard and garage.

What a mess -.-

I'm going to start updating this thread with various subs that I utilize with stealth, hopefully other people find uses for them as well.

Skill training sub:
Program SkillTrainingSub;

VAR
  SKILLTIMER : Cardinal;

procedure Skill(Name:String; Level:Double; Delay:Integer; Target:Cardinal);
begin
  if( GetSkillValue(Name) <= Level ) AND ( GetTickCount>SKILLTIMER ) then
  begin
    if( Target=0 ) then
    begin
      UseSkill(Name);
      SKILLTIMER:=GetTickCount()+(Delay*1000);
    end
    else begin
      CancelTarget();
      UseSkill(Name);
      if( WaitForTarget(1000) ) then
      begin
        TargetToObject(Target);
        SKILLTIMER:=GetTickCount()+(Delay*1000);
      end;
    end;
  end;
  Wait(125);
end;
Example of Skill training sub:
Skill('Tracking',100,12,0);
Skill('Detect Hidden',100,12,Self);

Been wanting to do this for awhile and finally got around to it last night.

This sorting method is intended for Pre-AOS servers where Gumps and Clilocs aren't currently seen by stealth or even tooltips.

(*Written by dxrom for ScriptUO.com
as a working concept on sorting items
without the use of clicocs and gump ids
or tooltips

Like always, the CONST list is user specific
and is where you setup your sort OUT containers.

The user must define item types withing the
cardinal arrays of T1-3, add more as needed.
For this example I use armor and the array
contents are hardly finished, it just contains
what I had at the time of testing.*)
Declare any item types here you wish to sort.
T1:=[$1412,$13BB,$140E,$1408,$140C,$13D6,$140A,$1413];
Use DefineItem procedure to sort items.
procedure DefineItem(Item:Array of Cardinal;Source:Cardinal;Dest:Cardinal;Name:String);

Example:
DefineItem(T1,SortBag,I1Cont,'invuln');
That example sifts through all the item types withing the T1 array (helms and gorgets) within the sorting bag for items that have "invuln" in the name, if it finds any it will deposit it into the container I1Cont, set in the initial CONSTs.

Another example could be, if you wanted to sort maps you would setup a container for each map at the top in CONST, BlankMapCont, SeaChartCont. Then input the type that a map is into the cardinal arrays where T1-2 are currently, M1. Then lastly you would call the DefineItem procedure, DefineItem(M1,SortBag,BlankMapCont,'map'); , DefineItem(M1,SortBag,SeaChartCont,'sea chart');.

And it's that simple.