SRL Archive - OSR Help

Does anyone know how to count the amount of a specific item in the inventory?

All help appreciated!

GetAmountBox(InvBox(i))
i = inventory slot number

Do u mean this?

From: jordantotty
Does anyone know how to count the amount of a specific item in the inventory?

All help appreciated!

I use this:

GetAmountBox(InvBox(i));

Where 'i' is the inventory slot.

E: :ninja: Aw man, third time today

GetAmountBox(InvBox(25)); // Gets the amount of an item in the specified inventory slot

I'm not sure if there is an 07Scape adaptation in DannyRS's include, worth a try(: If not look up reading text with a bitmap

function GetAmountBox(box: TBox): integer;
var
  Col: TIntegerArray;
  X, Y, I: Integer;
  B: TBox;
  TPA: TPointArray;
  S: String;
begin
  Result := 0;

  If Not FindColor(X, Y, srl_outline_black, box.x1, box.y1, box.x2, box.y2) then
    Exit;
  Inc(Result);
  Col := [65535, 65278, 16777215, 8453888];

  For I := 0 to High(Col) do
   If FindColor(X, Y, Col[I], box.x1, box.y1, box.x2, box.y2)then
   begin
     FindColors(TPA, Col[i], box.x1, box.y1, box.x2, box.y2);
     B := GetTPABounds(TPA);
     //SMART_DrawBoxEx(False, b, clYellow);
     B := IntToBox(b.x1-2, b.y1-2, b.x2+2, b.y2+2);
     S := GetTextAtExWrap(b.x1, b.y1, b.x2, b.y2, 0, 1, 1, Col[i], 0, StatChars);
     Result := StrToIntDef(GetNumbers(S), 1);
     Case I of
       2: Result := Result * 1000;
       3: Result := Result * 1000000;
     end;
     Exit;
   end;
end;

^This is the function from SRL

:ninja:'d me while typing guys :P

From: -daazndagger-
I use this:

GetAmountBox(InvBox(i));

Where 'i' is the inventory slot.

E: :ninja: Aw man, third time today

From: SRLKing

GetAmountBox(InvBox(25)); // Gets the amount of an item in the specified inventory slot

:ninja:'d me while typing guys :P

I DOUBLE NINJA'd u guys ;)

there must be some kind of award for this :p

From: Sjoekeloe
I DOUBLE NINJA'd u guys ;)

Happened twice so far XD

You are the helping :ninja:

E* The :ninja: Helping cup XD

Thanks!

From: Sjoekeloe
I DOUBLE NINJA'd u guys ;)

Fine, you win.

But, just realised, that this is in the 'old school' section. I too, am not sure if it's in Danny's include. It'd just be a matter of changing the font though I think. And if that's done then, all sweet :)

w1:=GetAmountBox(InvBox(2));
Returns 0, instead of 973!?

Do you know where I can get p07 Stat chars?

From: jordantotty
Do you know where I can get p07 Stat chars?

I don't know but try and make your own box. The coords could be off, since they are for RS2

From: jordantotty
Do you know where I can get p07 Stat chars?

Just edit the boxes, are you using @DannyRS's include?

Yes, please inform me on how to do that, :)!

From: jordantotty
Yes, please inform me on how to do that, :)!

var
Itemslot2: Tbox;

ItemSlot2 := IntToBox(156,78,180,90); // those are random coords, just make your own box :)

GetAmountBox(Itemslot2);

Thanks, One more question, how does inttobox work?

From: jordantotty
Thanks, One more question, how does inttobox work?

Turns a group of 4 integers into a box:

var
  B: TBox;

B := IntToBox(x1, y1, x2, y2);

x1, y1: coordinate of top left corner
x1, y2: coordinate of bottom right corner

I've tried:

ItemSlot2 := IntToBox(601,209,635,243);
w1:=GetAmountBox(InvBox(2));
WriteLn(w1);

Returns 0

_______________

ItemSlot2 := IntToBox(601,209,635,243);
w1:=GetAmountBox(Itemslot2);
WriteLn(w1);

Returns 0

From: jordantotty
I've tried:

ItemSlot2 := IntToBox(601,209,635,243);
w1:=GetAmountBox(InvBox(2));
WriteLn(w1);

Returns 0

_______________

ItemSlot2 := IntToBox(601,209,635,243);
w1:=GetAmountBox(Itemslot2);
WriteLn(w1);

Returns 0

Looks like it's not finding the black outline of the item in your inventory. Try colour-picking the black outline of the item and putting that into the function:

If Not FindColor(X, Y, srl_outline_black, box.x1, box.y1, box.x2, box.y2) then
    Exit;

//Change to:

If Not FindColor(X, Y, {PUT YOU COLOR HERE}, box.x1, box.y1, box.x2, box.y2) then
    Exit;

E: Are you using DannyRS's 07 include?

From: jordantotty
I've tried:

ItemSlot2 := IntToBox(601,209,635,243);
w1:=GetAmountBox(InvBox(2));
WriteLn(w1);



Returns 0

_______________

ItemSlot2 := IntToBox(601,209,635,243);
w1:=GetAmountBox(Itemslot2); //Also I believe this should be IntoStr as it is a numerical variable
WriteLn(w1);

Returns 0

Appears to not be using the text reading properly, @pm DannyRS about it, I'm sure he'd be glad to help since it is his include(:

E* It doesnt look like he is using the include as it would say P07_ before the commands, correct?

Yeah, im using @DannyRs include

From: jordantotty
Yeah, im using @DannyRs include

Are there such functions as ?

P07_GetAmountBox();
P07_InvBox();

E: Maybe I should just download the dam include..

From: SRLKing
Appears to not be using the text reading properly, @pm DannyRS about it, I'm sure he'd be glad to help since it is his include(:

E* It doesnt look like he is using the include as it would say P07_ before the commands, correct?

Getamount nor invbox are not in the P07 Include

From: -daazndagger-
Are there such functions as ?

P07_GetAmountBox();
P07_InvBox();

AS far as I know, this is what he should be using(:

E* You are going to have to edit the functions yourself, I'd be happy to help you over pm

:ninja:'d me again Sjoe

From: SRLKing
AS far as I know, this is what he should be using(:

E* You are going to have to edit the functions yourself, I'd be happy to help you over pm

:ninja:'d me again Sjoe

Damn right I did!

Maybe they are other fonts also, u should compare them.

Okay, had a look at the include. Those functions don't exist ahah. Try this:

function P07_GetAmountBox(box: TBox): integer;
var
  Col: TIntegerArray;
  X, Y, I: Integer;
  B: TBox;
  TPA: TPointArray;
  S: String;
begin
  Result := 0;

  If Not FindColor(X, Y, P07_outline_black, box.x1, box.y1, box.x2, box.y2) then
    Exit;
  Inc(Result);
  Col := [65535, 65278, 16777215, 8453888];

  For I := 0 to High(Col) do
   If FindColor(X, Y, Col[I], box.x1, box.y1, box.x2, box.y2)then
   begin
     FindColors(TPA, Col[i], box.x1, box.y1, box.x2, box.y2);
     B := GetTPABounds(TPA);
     //SMART_DrawBoxEx(False, b, clYellow);
     B := IntToBox(b.x1-2, b.y1-2, b.x2+2, b.y2+2);
     S := GetTextAtExWrap(b.x1, b.y1, b.x2, b.y2, 0, 1, 1, Col[i], 0, StatChars);
     Result := StrToIntDef(GetNumbers(S), 1);
     Case I of
       2: Result := Result * 1000;
       3: Result := Result * 1000000;
     end;
     Exit;
   end;
end;

If the statChars are the same, then you should be sweet. Otherwise… we can play the waiting game :)

Thanks!! I'll give it a try

From: -daazndagger-
okay, had a look at the include. Those functions don't exist ahah. Try this:

function p07_getamountbox(box: Tbox): Integer;
var
  col: Tintegerarray;
  x, y, i: Integer;
  b: Tbox;
  tpa: Tpointarray;
  s: String;
begin
  result := 0;

  if not findcolor(x, y, p07_outline_black, box.x1, box.y1, box.x2, box.y2) then
    exit;
  inc(result);
  col := [65535, 65278, 16777215, 8453888];

  for i := 0 to high(col) do
   if findcolor(x, y, col[i], box.x1, box.y1, box.x2, box.y2)then
   begin
     findcolors(tpa, col[i], box.x1, box.y1, box.x2, box.y2);
     b := gettpabounds(tpa);
     //smart_drawboxex(false, b, clyellow);
     b := inttobox(b.x1-2, b.y1-2, b.x2+2, b.y2+2);
     s := gettextatexwrap(b.x1, b.y1, b.x2, b.y2, 0, 1, 1, col[i], 0, statchars);
     result := strtointdef(getnumbers(s), 1);
     case i of
       2: Result := result * 1000;
       3: Result := result * 1000000;
     end;
     exit;
   end;
end;

if the statchars are the same, then you should be sweet. Otherwise… We can play the waiting game :)

oh my god it worked!! Thankyou so much!!

From: jordantotty
oh my god it worked!! Thankyou so much!!

I'm pretty much a big deal.

Jokes, jokes :) Glad it worked - that means statChars haven't changed since then!

I have the statchar font, someone PM me and leave me a reminder to post them somewhere ;)

Not at home atm - on phone