SRL Archive - RS has been updated.

Just today i noticed my mills numbers have changed colors :P
Here i attach picture below : Millions are light green and Thousands are white.
I didnt notice anything else for now.

I have just noticed it too… this will be good agains scams, but it is ugly :(

Please run this on RS with something in your inventory for each color and post resulting bmp. (will be in your scar folder)

program New;
{.include srl/srl.scar}
var BankBmp,w,h:integer;
begin
  //+3 for paint
  GetClientDimensions(w,h);
  BankBmp:=BitmapfromString(w,h,'');
  CopyClientToBitmap(BankBmp,3,3,w+3,h+3);
  SaveBitmap(BankBmp,apppath+'perfectscreenie2.bmp');
end.

Heres my image, took some stuff of it :P i hope it doesnt matter :D
http://img64.imageshack.us/img64/2343/perfectscreenie2ik2.png

I just need the nats, airs, and money, either in inventory or in top of bank (top 48) with bank scrolled up please.

http://img511.imageshack.us/img511/3645/thereyagoys9.png

But with the script I posted above. (I need the coords to be right)

From: Boreas
But with the script I posted above. (I need the coords to be right)

is this a test for new colors?

Ok, sry :P
http://www.sourimage.com/img/5c5a2d1ed4865b016cc9a13aa6e7e7ed/3333333.bmp

Yay! Perfect thank you!

hugo: yes


Edit:
Fixed it:
In SRL/SRL/misc/amount.scar

function GetAmount(itemx, itemy: Integer): Integer;
//uses font cropped to work with "Opponent's Offer"
//font is identical except 2 pixels shorter
//coords are ones from istextinarea
//'K' and 'M' work :)
//non-stackable =1
//blank = 0
var
  amountstr: string;
  tempx, tempy,color: Integer;
begin
  if findcolor(tempx,tempy,65535,itemx,itemy,itemx+10,itemy+10) then
    color:=65535;
  if color=0 then
    if findcolor(tempx,tempy,16777215,itemx,itemy,itemx+10,itemy+10) then
      color:=16777215;
  if color=0 then
    if findcolor(tempx,tempy,8453888,itemx,itemy,itemx+10,itemy+10) then
      color:=8453888;
  amountstr := Trim(GetTextAtEx(itemx+1, itemy + 3, 0, tradeChars, False, False,
    0, 2, color, 5, True, tr_AlphaNumericChars));
  if (Length(amountstr) > 0) then
  begin
    if (Pos('K', amountstr) > 0) then
    begin
      Delete(amountstr, Length(amountstr), Length(amountstr));
      Result := StrToInt(amountstr) * 1000;
    end else
      if (Pos('M', amountstr) > 0) then
      begin
        Delete(amountstr, Length(amountstr), Length(amountstr));
        Result := StrToInt(amountstr) * 1000000;
      end else
        Result := StrToInt(amountstr);
  end else
    if (FindColor(tempx, tempy, 65536, itemx, itemy, itemx + 30, itemy + 30))
      then
      Result := 1;
end;

As far as I know that's it.

Ty, boreas.

Dang your good Boreas :p
New update looks incredibly ugly though…*sigh*

Boreas you rock! Thank youuu! :)

Yeah, I was surpriced at that noobie update aswell.