Printable View
Ok on runescape pro's suggestion I have changed the idea to a DTM database. DTM's aren't hard to make but when you are not on runescape or don't have the item you want a DTM of it can get a little frustrating.
Wouldn't it be nice to just jump on srl and be confronted with a database of tested DTM's ready for your use? This is my suggestion.
like
LoadDTMFromDB("Net");
and it loads a dtm from srl's database?
if so, wouldn't that become laggy to people on dial up or slow connections and cost SRL alot of money from people constantly downloading the dtm's and bmp's over and over because I believe alot of scripters release their resources right after their done.
I think he means just a database with bmp's of everything available for download. So you wont have to make one if one is already made. That's just my guess and i think this would be rejected due to the fact the bmp's aren't very reliable for item finding. A DTM database would be cool though.
Yeah that's what I meat. You're right, DTM's are more reliable, having a database of DTM's would mean that for those people who aren't on rs at the time or don't have the item they want a DTM of they could simply navigate through a few main categories to find the DTM's they want. The database would be filled very quickly too as those who didn't find the DTM they want could just make it themselves and post it once they are done.Quote:
Originally Posted by Runescape Pro
This would make script making just that little bit quicker, and scripters know that when you are on a roll you don't want to be stopping every time you need another DTM.
Wow... That's a great idea. Also, for a newcomer, you are very sophisticated. Having a DTM section under a sub forum such as scripting help would be a great idea IMO.Quote:
Originally Posted by tank phobia
There's already a bitmap database as part of the SRL include...
Yes there is but a bigger DTM one would be nice...
Thanks Runescape Pro. :DQuote:
Originally Posted by Runescape Pro
Sorry have edited my original post to make this clearer now, I have changed the idea to a database of DTMs instead. As far as there being a database of BMPs in the srl include I was completely oblivious to that so thanks for enlightening me!Quote:
Originally Posted by Santa_Clause
DTMs are a great idea, they would be easy to store in a database as you could have a max of say 20 points, so you would need 21 colums, quite easyly ahievable with mysql
Nice idea. Maybe it would be better to collect information like the items Outline pixels count. (Black outline), it's reference color, approximate tolerance and approximate colors that should be found to identify the item.
Also Width and Height based on outline. And what about the item's total pixel count?
Ooh I like the colors idea. I always just close rs and then find I need to find colors again!Quote:
Originally Posted by Wizzup?
EDIT: Make sure to state the standard brightness though...
Isn't there a way to get all the colors found in an area? Also couldn't we designate that area by using the Black color of the outline then you have the inner parts still?Quote:
Originally Posted by Wizzup?
Whats faster? Comparing colour count and colours at certain points or using a DTM?
Comparing outlines, then determine further is easier, faster and better than DTM's. DTM's are all encrypted, and this is just plain data.Quote:
Originally Posted by ZephyrsFury
Also, TPA's > DTM's. They are faster, more dynamic and you can principally do anything with it.
Rightio its a good idea then.
Oh what I thought of was make it link to a website to find the picture of the item then create a bitmap or dtm from it like
SCAR Code:Function CreateItems(Item : String; WhatType : String) : Integer;
Begin
Case Lowercase(WhatType) Of
'Bitmap' : Begin
//OpenWebPage ('www.runescapeitems.com/' + lowercase(Item));
//MakeBitmap 5*5 pixels
Result := //thing? bitmap
end;
'DTM' : //Same as bitmap except makedtm instead of makebitmap
Result := //thing? dtm
end;
Procedure FindNet;
Begin
If FindBitmap(CreateItems('net', 'dtm'),x, y) Then
WriteLn('Found');
end;
^ example..
What about runes or other common stacks?Quote:
Originally Posted by Wizzup?
Use a pixel or several pixels from the middle of the rune or something to identify them.Quote:
Originally Posted by nielsie95
EDIT: Or are you talking about the text covering part of the image?
Yes, it would be nice if the system also worked in a store or bank.
Ok guys, I've got a new idea. There should be a new section of the website where we have a database of 4-5 colors from every object in the game. Everyone would have to help in order to complete the project, and it would be incomplete almost always. For example, if you want to use willow logs in your script and it isn't in the database, then you could add it yourself! Sorry if I didn't explain it too well...
Logs would be a problem as well... Very close in color. TPA count of the black outline would be good. Problem is now identifying similar shapes that have same count? You think also having the color inside the item that is most abundant & best average?
Edit: TPA count of both colors. With near perfect color counts +-1?
A simple color (count) will be able to distinguish them. I'll make an example later. :)Quote:
Originally Posted by nielsie95
I meant the outline length differs also.
Wow guys you have really expanded the idea much further than I thought. I'm not going to lie and say I understand what you guys are talking about for the most part, will go and read up on TPA's etc now so I can be a little more helpful .
They're talking about using things that make the image of the item unquie such as the number of black pixels surrounding the item image, the maximum width and height of the item and colours that make similar images (such as logs, runes, cooked, uncooked and burnt fish) different.Quote:
Originally Posted by tank phobia
That clears it up, thanks Zephyr. That would be great to have in a database on SRL!Quote:
Originally Posted by ZephyrsFury
How would you go about doing that?Quote:
Originally Posted by Wizzup?
I am not as good with scar as you others are but at a guess you could get the dimensions and multiply them to get total area less the number of black pixels. This would give a pixel count less the outline obviously but this is the only way I can think of.Quote:
Originally Posted by bullzeye95
I agree. This is a great idea. And it could become a great community project.Quote:
Originally Posted by tniffoc
After reading through this thread there are actually alot of ideas people have come up with. I am not experienced enough with scar to know which ideas would be the most useful so could some experience scripters have a read through and say what they think would be the best project to implement and any other relevant details?
Split the TPA for each X, with SplitTPAEx(X = 1, Y = InvYBound). Then get the min and max Y for each line, then get the count for those lines. Add it all.Quote:
Originally Posted by bullzeye95
Anything like those for a first couple of item details? (No idea if it actually even compiles, but I would think/hope it does :))SCAR Code:function OutlineLength(slot: Integer): Integer;
var
inBx: TBox;
begin
inBx := InvBox(slot);
Result := CountColor(65536, inBx.x1, inBx.y1, inBx.x2, inBx.y2);
end;
function MainColor(slot: Integer): Integer;
var
inBx: TBox;
x, y, i, c: Integer;
s: Boolean;
cols, count: TIntegerArray;
begin
inBx := InvBox(slot);
for y := inBx.y1 to inBx.y2 do
begin
s := False;
for x := inBx.x1 to inBx.x2 do
begin
c := GetColor(x, y);
if not s then
s := c = 65536
else
s := c <> 65536
if not s then
Continue;
for i := 0 to High(cols) do
if c = cols[i] then
begin
Inc(count[i]);
Break;
end;
if c <> cols[i] then
begin
i := High(cols) + 1;
SetArrayLength(cols, c + 1);
cols[i] := c;
SetArrayLength(count, c + 1);
count[i] := 1;
end;
end;
end;
for i := 0 to High(cols) do
if count[i] > count[Result] then
Result := i;
Result := cols[Result];
end;
Wasn't boreas working on a project like this? Ol' times ^_^.
i would be happy to handle the web side of things if u guys need it LOL databases are my thing... :-)
Heres just something I quick made up:
SCAR Code:program New;
{.include SRL/SRL.scar}
var
I: Integer;
type
TItemDef = record
Name: string;
Count, W, H: Integer;
UniquePts: TPointArray;
UniqueCols: TIntegerArray;
end;
const
cTol = 10; //Tolerance for the unique colour points
function LoadItemDef(ItemNo: Integer): TItemDef;
begin
case ItemNo of
0: with Result do
begin
Name := 'Iron Scimitar';
Count := 71;
W := 26;
H := 29;
UniquePts := [Point(15, 12), Point(4, 23)];
UniqueCols := [5132116, 1818328];
end;
end;
end;
function FindItem(var x, y: Integer; Item: TItemDef; x1, y1, x2, y2: Integer): Boolean;
var
bPts: TPointArray;
bATPA: T2DPointArray;
II, G: Integer;
TB: TBox;
begin
x := 0; y := 0;
if (FindColorsTolerance(bPts, 65536, x1, y1, x2, y2, 0)) then
begin
bATPA := SplitTPAEx(bPts, 42, 36);
for II := 0 to High(bATPA) do
begin
if (Length(bATPA[II]) <> Item.Count) then Continue;
TB := GetTPABounds(bATPA[II]);
if (TB.x2 - TB.x1 <> Item.W) then Continue;
if (TB.y2 - TB.y1 <> Item.H) then Continue;
for G := 0 to High(Item.UniquePts) do
begin
try
Result := SimilarColors(GetColor(TB.x1 + Item.UniquePts[G].x, TB.y1 + Item.UniquePts[G].y), Item.UniqueCols[G], cTol);
except
WriteLn('No of Pts don''t match number of colours.');
end;
end;
if (Result) then
begin
x := (TB.x2 - TB.x1) shr 1;
y := (TB.x2 - TB.x1) shr 1;
Break;
end;
end;
end;
end;
function FindItems(var Points: TPointArray; Item: TItemDef; x1, y1, x2, y2: Integer): Boolean;
var
tBool: Boolean;
II, G: Integer;
bPts: TPointArray;
bATPA: T2DPointArray;
TB: TBox;
begin
SetLength(Points, 0);
if (FindColorsTolerance(bPts, 65536, x1, y1, x2, y2, 0)) then
begin
bATPA := SplitTPAEx(bPts, 50, 50);
for II := 0 to High(bATPA) do
begin
if (Length(bATPA[II]) <> Item.Count) then Continue;
TB := GetTPABounds(bATPA[II]);
if (TB.x2 - TB.x1 <> Item.W) then Continue;
if (TB.y2 - TB.y1 <> Item.H) then Continue;
for G := 0 to High(Item.UniquePts) do
begin
try
tBool := SimilarColors(GetColor(TB.x1 + Item.UniquePts[G].x, TB.y1 + Item.UniquePts[G].y), Item.UniqueCols[G], cTol);
except
WriteLn('No of Pts don''t match number of colours.');
end;
end;
if (tBool) then
begin
SetLength(Points, Length(Result) + 1);
Points[High(Points)] := Point((TB.x2 - TB.x1) shr 2, (TB.x2 - TB.x1) shr 2);
end;
end;
end;
Result := Length(Points) > 0;
end;
procedure CaptureImage(x1, y1, x2, y2: Integer);
var
Pts: TPointArray;
TB: Tbox;
BMP: INteger;
begin
if (FindColorsTolerance(Pts, 65536, x1, y1, x2, y2, 0)) then
begin
Tb := GetTPABounds(Pts);
BMP := BitmapFromString(TB.x2 - tb.x1, tb.y2 - tb.y1, '');
CopyCanvas(GetClientCanvas, GetBitmapCanvas(BMP), Tb.x1, tb.y1, tb.x2, tb.y2, 0, 0, tb.x2-tb.x1, tb.y2-tb.y1);
DisplayDebugImgWindow(tb.x2 - tb.x1, tb.y2 - tb.y1);
CopyCanvas(GetBitmapCanvas(BMP), GetDebugCanvas, 0, 0, tb.x2-tb.x1, tb.y2-tb.y1, 0, 0, tb.x2-tb.x1, tb.y2-tb.y1);
WriteLn('Count: ' + IntToStr(Length(Pts)));
Writeln('W: ' + Inttostr(tb.x2-tb.x1) + ', H: ' + inttostr(tb.y2-tb.y1));
end;
end;
var
AirRune: TItemDef;
x, y: integer;
begin
SetupSRL;
//ActivateClient;
Wait(100);
//CaptureIMage(562, 211, 599, 250);
AirRune := LoadItemDef(0);
i := getsystemtime;
if (FindItem(x, y, AirRune, 555, 211, 731, 458)) then
Writeln('woot');
writeln(inttostr(getsystemtime - i));
end.
I think thats the basic idea. Count and W and H might not work for stacks but we can still use points and colours. It works for Iron Scimmy at least.
Ehh, this may just become too messy and hard to handle if it's a community project.
Hey, I just thought of something, doesn't runehq have a database with pictures for all the items :eek:!
We can get the pictures from the GE site :)
yes, yes they do... that would make things so much easer a simple program tyo phrase there item section of the site for images a bit of processing and wallah
Wow, that just owned my idea. :)Quote:
Originally Posted by nielsie95