I am having a problem getting my suits with all 70 resists but leaving enough mod room to add the mods I want, especially if I want to reforge.

Anyone have any tips or advice to share by chance?

I pretty much play on Chessy but I am looking to check out some other shards. I have played on LA and Cats so I am good there. I want to try somewhere different and need some help getting started. Looking for a couple of LRC suits and stuff like that. Any suggestions?

I am working on a munitions script and want to make a check tool sub that would check for different tools instead of a separate one for each tool. I would then hope to be able to do the same thing to create the different tools.

I would think it would be something like

%set_tool_to_make_1 JTL_GTL_KTL ;tinker tool
%set_tool_to_make_2 RQF ;alchemy tool
%set_tool_to_make_3 OBG ;blacksmith tool
I am not sure how to put that into a check or tool crafting and how to make it differentiate between which I need at that time.

Is this possible?

Does anyone have the final version? I have one that is a little bit older but they have removed the downloads so I can not get the final one.

I am trying to learn from some of DX's stealth scripts since he is writing them in Pascal which is what I am starting with to learn.

First off this is listed as a freeshard script. Is there as much of a difference between freeshards and osi shards when using stealth like there is when using euo?

Here is his code, and so far I am liking that it seems a lot simpler and cleaner than what goes into euo.

Program SpellbookFiller;
(*Written by dxrom for ScriptUO.com
  Script to fill spellbooks with scrolls that have
  been sorted via my spell sorter script.
  
  Like before:
  
  Chest - the main container hold the 8 containers for each circle of spell
  EmptyBooks - the container holding empty spellbooks to be filled
  CxBAG - Bags representing spell circles, contained within Chest.
  
  NOTES: I have not implemented a feature to put spellbooks back after
  being filled.*)

const
  C1BAG = $405AE12D; C5BAG = $405AE123;
  C2BAG = $405AE12B; C6BAG = $405AE101;
  C3BAG = $405AE138; C7BAG = $405AE13F;
  C4BAG = $405AE137; C8BAG = $405AE12E;
  G1BAG = $4073F9B2;
  
  Chest = $405AE140;
  EmptyBooks = $401AF5A9;
  
var
  spellBook : Cardinal;
  k : Integer;
  
  C1 : Array of Cardinal; C5 : Array of Cardinal;
  C2 : Array of Cardinal; C6 : Array of Cardinal;
  C3 : Array of Cardinal; C7 : Array of Cardinal;
  C4 : Array of Cardinal; C8 : Array of Cardinal;

procedure GetItem(Item:Cardinal; Source:Cardinal; Amount:Integer; Dest:Cardinal);
begin
  UseObject(Source);
  wait(1200);
  MoveItem(FindType(Item,Source),Amount,Dest,0,0,0);
  wait(1200);
  if (Item = $0EFA) then
    spellBook := FindItem;
end;

procedure FillBook(Circle:Array of Cardinal;Book:Cardinal;Source:Cardinal);
var
  i : Integer;
begin
  UseObject(Chest);
  wait(1200);
  UseObject(Source);
  wait(1200);
  
  for i := 0 to (Length(Circle)-1) do
    GetItem(Circle[i],Source,1,spellBook);
end;

begin
  C1:=[$1F2D,$1F2E,$1F2F,$1F30,$1F31,$1F32,$1F33,$1F34];
  C2:=[$1F35,$1F36,$1F37,$1F38,$1F39,$1F3A,$1F3B,$1F3C];
  C3:=[$1F3D,$1F3E,$1F3F,$1F40,$1F41,$1F42,$1F43,$1F44];
  C4:=[$1F45,$1F46,$1F47,$1F48,$1F49,$1F4A,$1F4B,$1F4C];
  C5:=[$1F4D,$1F4E,$1F4F,$1F50,$1F51,$1F52,$1F53,$1F54];
  C6:=[$1F55,$1F56,$1F57,$1F58,$1F59,$1F5A,$1F5B,$1F5C];
  C7:=[$1F5D,$1F5E,$1F5F,$1F60,$1F61,$1F62,$1F63,$1F64];
  C8:=[$1F65,$1F66,$1F67,$1F68,$1F69,$1F6A,$1F6B,$1F6C];
  
  for k := 0 to (CountEx($0EFA,$FFFF,EmptyBooks)-1) do
  begin
    GetItem($0EFA,EmptyBooks,0,Backpack);
    FillBook(C1,spellBook,C1BAG);
    FillBook(C2,spellBook,C2BAG);
    FillBook(C3,spellBook,C3BAG);
    FillBook(C4,spellBook,C4BAG);
    FillBook(C5,spellBook,C5BAG);
    FillBook(C6,spellBook,C6BAG);
    FillBook(C7,spellBook,C7BAG);
    FillBook(C8,spellBook,C8BAG);
  end;
end.
To make sure that I understand what is going on, I will break it up into sections.

This part here is labeled const and is a command letting stealth know that these are not going to change. Looks like secure bags separated by circle, then the secure holding them and the empty books. It matches up with the little preview thing he put up.

const
  C1BAG = $405AE12D; C5BAG = $405AE123;
  C2BAG = $405AE12B; C6BAG = $405AE101;
  C3BAG = $405AE138; C7BAG = $405AE13F;
  C4BAG = $405AE137; C8BAG = $405AE12E;
  G1BAG = $4073F9B2;
  
  Chest = $405AE140;
  EmptyBooks = $401AF5A9;
Here are the variables. I am not sure what the cardinal stands for other than the spellbook. Is it a specific name used in pascal language or just what DX wanted to name the spellbook? The integer tells stealth the number for each circle bag and then it tells stealth that the array will go to each bag?

var
  spellBook : Cardinal;
  k : Integer;
  
  C1 : Array of Cardinal; C5 : Array of Cardinal;
  C2 : Array of Cardinal; C6 : Array of Cardinal;
  C3 : Array of Cardinal; C7 : Array of Cardinal;
  C4 : Array of Cardinal; C8 : Array of Cardinal;

This next part tells stealth to find the spellbook notated as cardinal and grab it out of the secure, then it tells stealth to look into the chest and then into the bags separated by circle for the spell scrolls?

procedure GetItem(Item:Cardinal; Source:Cardinal; Amount:Integer; Dest:Cardinal);
begin
  UseObject(Source);
  wait(1200);
  MoveItem(FindType(Item,Source),Amount,Dest,0,0,0);
  wait(1200);
  if (Item = $0EFA) then
    spellBook := FindItem;
end;

procedure FillBook(Circle:Array of Cardinal;Book:Cardinal;Source:Cardinal);
var
  i : Integer;
begin
  UseObject(Chest);
  wait(1200);
  UseObject(Source);
  wait(1200);
  
  for i := 0 to (Length(Circle)-1) do
    GetItem(Circle[i],Source,1,spellBook);
end;
Finally it is telling stealth to grab out each scroll and drop it onto the spellbook?

begin
  C1:=[$1F2D,$1F2E,$1F2F,$1F30,$1F31,$1F32,$1F33,$1F34];
  C2:=[$1F35,$1F36,$1F37,$1F38,$1F39,$1F3A,$1F3B,$1F3C];
  C3:=[$1F3D,$1F3E,$1F3F,$1F40,$1F41,$1F42,$1F43,$1F44];
  C4:=[$1F45,$1F46,$1F47,$1F48,$1F49,$1F4A,$1F4B,$1F4C];
  C5:=[$1F4D,$1F4E,$1F4F,$1F50,$1F51,$1F52,$1F53,$1F54];
  C6:=[$1F55,$1F56,$1F57,$1F58,$1F59,$1F5A,$1F5B,$1F5C];
  C7:=[$1F5D,$1F5E,$1F5F,$1F60,$1F61,$1F62,$1F63,$1F64];
  C8:=[$1F65,$1F66,$1F67,$1F68,$1F69,$1F6A,$1F6B,$1F6C];
  
  for k := 0 to (CountEx($0EFA,$FFFF,EmptyBooks)-1) do
  begin
    GetItem($0EFA,EmptyBooks,0,Backpack);
    FillBook(C1,spellBook,C1BAG);
    FillBook(C2,spellBook,C2BAG);
    FillBook(C3,spellBook,C3BAG);
    FillBook(C4,spellBook,C4BAG);
    FillBook(C5,spellBook,C5BAG);
    FillBook(C6,spellBook,C6BAG);
    FillBook(C7,spellBook,C7BAG);
    FillBook(C8,spellBook,C8BAG);
  end;
end.
It seems pretty simple and straight forward which kind of scares me that I have mistakenly come to think that certain scripts could really be this easy. Would it be written differently for OSI?

Yes, I admit it 100% and admit it proudly. I am a NEWB! I am starting to understand how to code in EUO and I read that Stealth is supposed to be better. I want to start looking at Stealth and figure out if I want to continue learning EUO or give Stealth a shot. I have ZERO coding knowledge other than playing around with RunUO scripts and EUO scripts. I looked OpenEUO over but did not care much for it. Where do I start? 

Greetings! I will make the introduction short. I made a carpentry crafting script a while back based off of another crafting script that a friend helped me with. He plays runuo and helped me get it working but I did not understand a lot of the tweaks and timings that he added. My goal here is to remake the carpentry script from scratch and to dissect each sub so that I understand (or hopefully understand) everything that goes into it. My scripting skills are on the lower end while my knowledge has been gaining. I invite everyone from the most novice scripter to the most legendary scripter to follow along, learn, encourage, and explain. I am sure that there will be a lot of "aha' moments along with a lot of "DOH" moments as well. This will hopefully help everyone whether you are just learning to write, whethere you are not planning on writing scripts but want to learn to tweak them, or even more advanced scripters that might learn something new.

Since this is for my learning benefit, I will ask one thing. Please do not be negative. If you don't have something constructive to say, please don't post. I have never had that problem here at SUO but I do want to say it. I know that I will make a lot of newbie mistakes and might completely miss the most obvious things but I want to learn. I know that this could benefit others as well. With that being said, thank you for reading and hopefully this will be a great learning tool for some and entertaining for others!  



EDIT: This will be an ongoing work in progress and how quickly it goes will depend on my free time and how quickly I understand a step before moving on the next step. Please have patience.