SRL Archive - SRL Archives

function countInvStack(slot:integer):integer;
var
  i:integer;
  str:string;
  tpa:TpointArray;
  cols:TintegerArray;
  slotBox,textBox:Tbox;
begin
  if not loggedIn then exit;
  if existsItem(slot) then
  begin
    cols:=[65535,16777215,8453888];
    slotBox:=invBox(slot);
    for i:=low(cols) to high(cols) do
    begin
      findColorsTolerance(tpa,cols[i],slotBox.x1,slotBox.y1,slotBox.x2,slotBox.y2,0);
      if length(tpa)<1 then continue;
      textBox:=getTPAbounds(tpa);
      str:=trim(getTextAtEx(textBox.x1-1,textBox.y1-1,0,statChars,false,false,0,2,cols[i],7,true,tr_AlphaNumericChars));
      if str<>'' then
      begin
        case uppercase(getLetters(str)) of
          'K': result:=strToInt(trimLetters(str))*1000;
          'M': result:=strToInt(trimLetters(str))*1000000;
          else result:=strToInt(str);
        end;
        exit;
      end;
    end;
  end;
end;

Nice and useful function, but what about the ones that are in SRL already? Don't they work? If not, I think this should be the replacement function.

From: EvilChicken!
Nice and useful function, but what about the ones that are in SRL already? Don't they work? If not, I think this should be the replacement function.

amount.scar has so many bugs for me :( and I think at one time there was one in inventory.scar, but its definately not there now. I think this idea (taken from GetMMLevels :) ) is a much better alternative to coord sets.

yeah this is really usefull so the srl 1 is buggy?

nice function, i was wondering why Low() and High() if its a static Array? and i'm guessing that's the free different colors that the number of items might have…

~RM

I think this function should get more attention from the devs.. Get on the SRL chat and talk to one of the devs and link him/her to this function.

Wait, yo've been there already. Just remembered you. Anyway, link one of the devs here.

Nice function munk, but you only need one FindColor of the digit/text color in the InvBox of the item, and do a GetTextAtEx at the coords.

From: n3ss3s
Nice function munk, but you only need one FindColor of the digit/text color in the InvBox of the item, and do a GetTextAtEx at the coords.

uhh…that wouldnt work….