SRL Archive - SRL Archives

Here. It doesn't use DTM's or anything, so that makes it way faster. It just counts the black pixels around the Ore. If it find the right amount of black pixels, +1.

Here. Rate, hate, love, comments, concerns?

program New;
{.include srl/srl.scar}

{*****************************************************
Function CountOre: Integer;
By: noidea
Description: Counts any ore except clay you can mine.
Use/Example: Ore := Ore + CountOre;
             writeln(IntToStr(CountOre));
*****************************************************}
Function CountOre: Integer;
var
  k, I: Integer;
  p : TBox;
begin
  I := 1
  While I < 29 do
  begin
    GetInvItemBounds(I, p);
    if countcolor(65536, p.x1, p.y1, p.x1+34, p.y1+27) = 171 then
    inc(k);
    inc(I);
  end;
  Result := k;
end;


begin
  setupsrl;
  writeln(inttostr(CountOre));
end.

My only question is are you sure that there is no other item that might have the same number of pixels?

Probably wouldn't be much of a problem, but wouldn't hurt to make sure.

Nice, but when not Use a for loop?

Function CountOre: Integer;
var
  I: Integer;
  p : TBox;
begin
  for I:= 1 to 28 do
  begin
    P:= InvBox(I);
    if countcolor(65536, p.x1, p.y1, p.x1+34, p.y1+27) = 171 then
      Result:= Result + 1;
  end;
end;

From: NiCbaZ
Nice, but when not Use a for loop?

Function CountOre: Integer;
var
  I: Integer;
  p : TBox;
begin
  for I:= 1 to 28 do
  begin
    P:= InvBox(I);
    if countcolor(65536, p.x1, p.y1, p.x1+34, p.y1+27) = 171 then
      Result:= Result + 1;
  end;
end;

what? lol

From: N C D S
what? lol

Something like this. I got the idea from him and made it into a log counting procedure. It counts black vambraces (not sure about other types) as well though lol.

Function CountLogs : Integer;
Var
 I : Integer;
 P : Tbox;
Begin
  For I := 0 To 28 Do
    Begin
      GetInvItemBounds(I, p);
      If CountColor(65536, p.x1, p.y1, p.x1+34, p.y1+27) = 85 Then
      Inc(Result);
    End;
End;

From: Sandstorm
Something like this. I got the idea from him and made it into a log counting procedure. It counts black vambraces (not sure about other types) as well though lol.

Function CountLogs : Integer;
Var
 I : Integer;
 P : Tbox;
Begin
  For I := 0 To 28 Do
    Begin
      GetInvItemBounds(I, p);
      If CountColor(65536, p.x1, p.y1, p.x1+34, p.y1+27) = 85 Then
      Inc(Result);
    End;
End;

Just so you know, If you have an If or For then a begin you dont do 2 spaces like

begin
  for I:= p to 20(high) do
    begin
    end;
end;

its

begin
  for I:= p to 20(high) do
  begin
  end;
end;

thus making your function like..

Function CountLogs : Integer;
Var
 I : Integer;
 P : Tbox;
Begin
  For I := 0 To 28 Do
   Begin
     GetInvItemBounds(I, p);
     If CountColor(65536, p.x1, p.y1, p.x1+34, p.y1+27) = 85 Then
     Inc(Result);
   End;
End;
 

Since when is there an Inventory Spot with the index of 0?
Anyway, finding all the black outlines in one FindColors, then Split the Points, followed by a length check for each TPA should also be very fast. :)

From: Wizzup?
Since when is there an Inventory Spot with the index of 0?
Anyway, finding all the black outlines in one FindColors, then Split the Points, followed by a length check for each TPA should also be very fast. :)

Yea, so it should be like

For I := 1 to 28 do

Correct?

From: Wizzup?
Since when is there an Inventory Spot with the index of 0?
Anyway, finding all the black outlines in one FindColors, then Split the Points, followed by a length check for each TPA should also be very fast. :)

So that's why I kept getting an unknown inv box error. Lol, I wasn't thinking at the time. I normally start at 0 for a for..to..do, so I just did what I normally do lol.

At first I tried a For To Do loop, but failed because I would inc(I) even though the loop did itself, so it only did the even inv spots. rawr!

From: noidea
At first I tried a For To Do loop, but failed because I would inc(I) even though the loop did itself, so it only did the even inv spots. rawr!

Then why didn't you just remove the Inc(I) that you had? That would've worked properly.

From: senrath
Then why didn't you just remove the Inc(I) that you had? That would've worked properly.

I haddent realized that it auto matically inc(I)

Result := 0; at the beginning to make sure it starts counting at 0, for the result.

I believe the result is a local variable, so it should be dropped after it's done being used. I may be wrong though.

yea, thats what I thought, so I include that.