[V4 , Pascal] [UO:R FS] Automatic Item ID and Sorter

[dxrom]

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.

Code: [Select]

(*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.

Code: [Select]

T1:=[$1412,$13BB,$140E,$1408,$140C,$13D6,$140A,$1413];
Use DefineItem procedure to sort items.

Code: [Select]

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.

[dxrom]

Here's a list of pre-aos armors. Ringmail, Platemail, Chainmail, Studded, Leather (Female and male variants)

Code: [Select]

    T1:=[$1408,$1409,$140A,$140B,$140C,$140D,$140E,$140F,$1412,$1419,
        $13BB,$13C0,$13C7,$13D6,$1DB9,$1DBA,$1413]; //Helms,Necks
    T2:=[$1410,$1414,$1417,$1418,
        $13C5,$13C6,$13CD,$13CE,$13D4,$13D5,$13DC,$13DD,$13EB,$13EE,
        $13EF,$13F2]; //Hands,Arms;
    T3:=[$1411,$1415,$1416,$1417,
        $13BE,$13BF,$13C3,$13C4,$13CB,$13CC,$13D2,$13D3,$13DA,$13DB,
        $13E1,$13E2,$13EC,$13ED,$13F0,$13F1,$1C00,$1C01,$1C02,$1C03,
        $1C04,$1C05,$1C06,$1C07,$1C08,$1C09,$1C0A,$1C0B,$1C0C,$1C0D]; //Chest,Legs
Wont bother updating code with it as it's preference to what to filter.