Hey guys, running new StealthUO.

Everytime I leave the program unattended for 10 minutes or so it will become unresponsive.

I've ran in admin mode, tried all compatibility modes. Any thoughts?

I wasn't sure if there was an API to compare two objects distances from one another, I know you can search an objects range from your self with FindDistance; ...

Either way I came up with my own version so I would like to share it with you guys if you ever find you need to compare the distance between two objects.

Example:

Check if Chest2 is within 2 tiles of Chest1...

Program Example;

Type
    TileCord = record
        x, y : Integer
    end;

Var
   TileRange : Array of TileCord;

Function SeekRange(ObjOne, ObjTwo : Cardinal; Range : Integer) : Boolean;

Var

x, y, i : Integer;

begin

Result:= False;
SetLength(TileRange, 0);
 for x := (-1 * Range) to Range do      
  for y := (-1 * Range) to Range do
  begin
   SetLength(TileRange, Length(TileRange) + 1);
   TileRange[High(TileRange)].x := (GetX(ObjOne) + x);
   TileRange[High(TileRange)].y := (GetY(ObjOne) + y);
  end;
for i := Low(TileRange) to High(TileRange) do  
 if TileRange[i].x = (GetX(ObjTwo)) then
  for i := Low(TileRange) to High(TileRange) do
   if TileRange[i].y = (GetY(ObjTwo)) then
    Result := True;
            
end;

//Main Body
begin
 if SeekRange(Chest1, Chest2, 2) = True then
 // what you want it to do =)
end.


Yah, I was thinking add Stealing? To use a disguise kit!

Hey man, nice reply.

I had question though is there a way to make a loop and check the integers in the arrays rather then type them all out lengthy?

example in uosteam a list would be created and you would check the list and if you found a item matching in the list it would set it as target IE:

//create list of 4 items 1-4
@createlist! 'example'
@pushlist! 'example' 1
@pushlist! 'example' 2
@pushlist! 'example' 3
@pushlist! 'example' 4
//search if item matches any value in list
for 0 to 'example'
if findtype (example[], backpack)
moveitem 'found'
endif
endfor

right now I have this:

Program Miner;

Const
    Swing = 1;
    Shovel = $0F39;
    Tool = $1EB8;
    Ingot = $1BF2;
    
Var
    TotalSwing : Integer;
    x, y, z : Integer;    
    Ore : Array[0..3] of Integer;
    Gem : Array[0..5] of Integer;
Procedure OreType();
var
k : Integer
begin
     Ore[0] := $19B9; //large pile
     Ore[1] := $19B8; //medium pile
     Ore[2] := $19BA; //small pile 1
     Ore[3] := $19B7; //small pile 2    
     for k := 1 to 6 do
     if FindType(Ore[0], Backpack) > 0 then  
     UOSay('test');
end;  
Procedure GemType();
begin
     Gem[0] := $3197; //fire ruby
     Gem[1] := $3195; //ecru citrine
     Gem[2] := $3193; //turquoise
     Gem[3] := $3192; //dark sapphire
     Gem[4] := $3198; //blue diamond
     Gem[5] := $3194; //perfect emerald  
end;  
right now Ik it will always say 'test' if it finds Ore[0] or maybe this is fix is as easy as just typing:

 if FindType(Ore[0..3], Backpack) > 0 then  

^^ Does not work but will leave unedited for any noobies that come across this.

Hey guys, I made a easy procedure although probably could be improved so much, but I'm just making things simple atm.. keeping it easy not going over my head lol.

{mine to west}   
Procedure MineOre ( VAR x, y, z : Integer );
begin
   x:= (GetX(Self)) - 1;   
   y:= (GetY(Self));
   z:= (GetZ(Self));
end;
basically this is a target by relative in hindsight. the issue I've noticed with it'll target to the west but some mountainsides have a higher Z value, so I'm guessing I'll have to create an array of some sort 0-10 and attempt to determie where I can mine.

Hey guys,

You can call me playforfun! I'm looking for someone who would be willing to help me learn Pascal and how to code in Stealth. I really enjoy learning macro/script like tools for UO I consider it a hobby/passion something about it is so ADDICTIVE! To get a game play itself for you is somewhat MAGICAL lol. Anyways I'm a AVID learner I would say and I'm a curious cat, I would say I mastered UOSteam ( not saying much ) but now I want to learn how to ACTUALLY code and learn languages that I can use outside of UO! I'm not just some guy who hops on the forums and asks for free scripts I prefer to make my own things and share them it's more fun that way, I just need some guidance on how to become an efficient coder. I've already dived into trying to learn the StealthAPI but there is much to learn as well as going to websites to learn Pascal. Not trying to bash the creators of stealth but UOSteam documentation was easier to learn and read because of all the examples, maybe cause they weren't Russian? haha!

Here are some things I've accomplished in UOSteam:

Runebook Recaller: Will scan a runebook determine how many runes are in it regardless of name and will recall to them accordingly.
Leather Suit Creator: Will create 125 sets of leather armor, dye them and store them in designated containers.
Stool Macro: Will place stools around a player according to position they are from you.

lol and plenty more but my favorite!

AFK Tamer Macro: Will recall to spots, kill designated monsters, loot corpses, heal pets, run from any incoming damage and heal, recall out if and dangerous players are nearby, play sound file if a GM is shown, automatically restocks, drops off items that want to be kept, sells remaining items to vendors, take break times ( user set )!

haha I'm just sharing some scripts that I've made to show you that I'm serious and want to succeed in stealth the same way I succeeded in UOSteam, will take more effort but I'm willing to give my all! Anyways I'm not allowed to PM and nor do I want to put my Skype publicly for everyone to see but I would like to communicate to whomever is willing to be my teaching buddy hopefully not just via forums!


TLDR;

Looking for someone willing to teach a dedicated student how to code in Pascal efficiently!

thanks for the read guys.

PS: or if your a new learner to pascal and would love to learn with me!

---

Post Merge: July 31, 2016, 02:45:26 AM

---

Hey guys update need help with a mining script I'm trying to make..

I need to learn how to create a list of integers that way I can recall down a list of runes, and always have it bookmarked last place I visited. I'm really confused how to do this I see a way to make a list off strings from cromo tutorial... also was  going to make a list for coordinates to mine but I thought is there a way to target by relative tile? ie: always target 1 tile to east.

Anyways this is what I'm at right now, you can tell I use UOSteam alot based off ths script! ( no it's not complete )

{
Author: playforfun
Date: 7/30/2106
Version: 1.0
Desription:
Will mine ore until depletion
}

    {start of structure}
 {000FEE46 // You have worn out your tool!
  0007AD00 // There is nothing to mine here.
 }

Program Miner;

Const
    Swing = 1;
    Shovel = $0F39;
    Tool = $1EB8;
    Ingot = $1BF2;
Var
    TotalSwing : Integer;    
    MineSpots : TIntegerList;  

    {end of structure}
                          
    {start of script}    
    
begin
      {create mine spot locations}
      MineSpots := TIntegerList.Create();
        
        {check if depleted vein}
        ClearJournal;
        while InJournal('0007AD00') < 0 do
        begin  
            {look for shovel}
             if FindType(Shovel,Backpack) > 1 then
             begin
                {use shovel}            
                UseObject(FindItem);
                WaitTargetTile(0,1175,1882,4);  
                Wait(1000);                                                
             {look for required ingots}                        
             end else if FindType(Ingot,Backpack) > 6 then
             begin                  
                UseType(Tool,$0000);
                WaitGump('38920ABD');  
                {make tool}
                while Count(Tool) < 2 do
                begin      
                    WaitGump('23');
                    WaitGump('38920ABD');
                    Wait(300);
                end;
                {make shovel}  
                 while Count(Shovel) < 2 do
                begin      
                    WaitGump('72');
                    WaitGump('38920ABD');
                    Wait(300);
                end;
             end;
        end;          
end.