SRL Archive - Test corner

Hey all,

New Function from me, could be pretty useful :)

[php]
{ ——————————————————————— ]
[ >> Part of Find DTM ]
[ >> Function CreateItemDTM(InvSlot, NoOfPoints, Tolerance: Integer): ]
[ Integer; ]
[ >> Creates a Dynamic DTM of an Item in the Defined InvSlot, with ]
[ "NoOfPoints" SubPoints and "Tolerance" Tolerance ]
[ >> By Starblaster100 ]
[ ——————————————————————— }
[/php]

and here is the function itself:

[php]
program New;
{.include SRL/SRL.scar}

Var
Test: Integer;

{ ——————————————————————— ]
[ >> Part of Find DTM ]
[ >> Function CreateItemDTM(InvSlot, NoOfPoints, Tolerance: Integer): ]
[ Integer; ]
[ >> Creates a Dynamic DTM of an Item in the Defined InvSlot, with ]
[ "NoOfPoints" SubPoints and "Tolerance" Tolerance ]
[ >> By Starblaster100 ]
[ ——————————————————————— }

Function CreateItemDTM(InvSlot, NoOfPoints, Tolerance: Integer): Integer;
Var
DTM: TDTM;
Start: TPoint;
i, X1, Y1, CurrentAngle, Radius, SubPointsFound: Integer;
Begin
If not(Loggedin) then Exit;
GameTab(4);
If(ExistsItem(InvSlot)) then
Begin
Start := ItemCoords(InvSlot);

SetArrayLength(DTM.SubPoints, NoOfPoints);
DTM.MainPoint.x := Start.x;
DTM.MainPoint.y := Start.y;
DTM.MainPoint.color := GetColor(Start.x, Start.y);
DTM.MainPoint.tolerance := Tolerance;
DTM.MainPoint.areasize := 1;
DTM.MainPoint.areashape := shpRectangle;

For i := 0 to NoOfPoints-1 do
Begin
CurrentAngle := (360/NoOfPoints) * i;
For Radius := 1 to 20 do
Begin
X1 := Round ( Radius * Sin (CurrentAngle * Pi / 180)) + Start.x;
Y1 := Round (- Radius * Cos (CurrentAngle * Pi / 180)) + Start.y;
If (GetColor(X1, Y1) = 65536) then
Begin
DTM.SubPoints.x := X1;
DTM.SubPoints.y := Y1;
DTM.SubPoints.color := GetColor(X1, Y1);
DTM.SubPoints.tolerance := 0;
DTM.SubPoints.areasize := 1;
DTM.SubPoints.areashape := shpRectangle;
SubPointsFound := SubPointsFound + 1;
Writeln('Subpoint '+IntToStr(i)+' Found');
Break;
end;
end;
end;
If (SubPointsFound >= NoOfPoints) then
Result := AddDTM(DTM);
end;
end;

begin
Test := CreateItemDTM(1, 3, 0);
try
If(FindDTM(Test, x, y, 555, 374, 742, 471))then
Begin
Writeln('Found');
MMouse(x, y, 0, 0);
end else
Writeln('NotFound');
except
Writeln('All Sub Points Not Found');
Writeln('DTM Could not be Created!');
end;
end.
[/php]

Put something like a cowhide in the first inventory spot, and then put another in the bottom row somewhere. It should create a DTM of the first cowhide, find the second and move the mouse there.

I know its not perfect, I'm still working on it, hence the post in the Test Corner.

Tell me what you think

Thanks

Star

Holy moly, a lot of nice work there.

Very nice work Star!

Nice. Almost as nice as BlackLists :p

What and where is blacklists?

EDIT: Ok found a link in ur sig ill check it out

Nice work :D! Hmm I'll check out blacklists too.

Very nice work Star. This could be useful in scripts.

z0mg! pwn0rz fuunct000n.
Wow…

I like it!

Maybe if you could make an option to put points only on the black outline of the item?

From: Smartzkid
I like it!

Maybe if you could make an option to put points only on the black outline of the item?

Thats what it will only do lol.

Depending on how many subpoints you choose to make, it create a circle and split it into equal parts then it will start from the center of the item, and work its way outwards until it finds the black outline

Oops!

I guess I should have read over the code a bit more thoroughly….

If (GetColor(X1, Y1) = 65536) then... 

Awesome idea! I'm gonna mess around with it some

Smartz check out BlackLists too :p

edit: o you did lol

why don't u make it print the DTM string in the dubug box? :D

From: rkroxpunk
why don't u make it print the DTM string in the dubug box? :D

what would be the point of that?
The point is you want to create a DTM whilst the script is running automatically, and then use it later on in the script.

So is this like the dynamic DTM thing people wanted in divi?

That would be it, yes

Why do you use Pi to get the black colors, can't you do FindColorsTolerance() with zero tol, take some random points out the array, and create a dtm out of that?

This makes sure that the points are all equally spread out.

2 Points          3 Points           4 Points
       X           X      X             X
       |            \    /              |
       |             \  /               |
       X              X          X----- X ----X
       |              |                 |
       |              |                 |
       X              X                 X

You get the point

From: Starblaster100

You get the point

No pun intended…

This looks sick. Went over the code, dont understand much but good job anway… How do you guys get so good with this? This meaning SCAR.

Nice work :)

Practice?

From: Starblaster100
This makes sure that the points are all equally spread out.

2 Points          3 Points           4 Points
       X           X      X             X
       |            \    /              |
       |             \  /               |
       X              X          X----- X ----X
       |              |                 |
       |              |                 |
       X              X                 X

You get the point

What about sorting the x?

Sorting the X…?

Wizz, everyone has their own ways of scripting, this is just my own personal way to do things. It works, and I am happy with it

Could I use this in my fletcher, maybe?

yea sure

This could be really handy for people that don't know how to make dynamic DTM's, Thanks star :)

This is going into SRL 4.0 right?

-Ashur

From: Starblaster100
yea sure

Awesome, awesome, awesome!!!

Thanks loads!

I had no clue SCAR had a TDTM variable. =D I'll look into that.

Good work Star.

i understand the function except these two key lines:
[php]X1 := Round ( Radius * Sin (CurrentAngle * Pi / 180)) + Start.x;
Y1 := Round (- Radius * Cos (CurrentAngle * Pi / 180)) + Start.y;[/php]
not the best thing to not know, since i have an exam on this tomorrow ;)
i only understand ur converting the angle to rads in the sin/cos, but why * radius and how did u get sin/cos? mind making a tiny triangle diagram on how this math works?

EDIT: mind if i copy a little of this to make a function with color-selecting for the dtm and make it make a dtm on the minimap. i'm up for it ;) (ps, i still really want to learn about what u did with trig there)

It turns the radius point into a coordinate.

We know the middle of the circle in the radius (Thats "Start.x" in this case), we know the radius ("Radius") and we know the angle that we want the script to look at ("CurrentAngle"). Using these 3 variables, we are able to turn that point on a circle into a coordinate.

Same for Y

Sure, this is for learning purposes, go ahead and use it

hmm… is this past gr 11 math, cuz im clued out :S

mmm, Grade 11 and 12 i would say