SRL Archive - SRL Snippets

I wrote this function to determine if a shop's screen was open. I didn't see anywhere in the include that this was already done. I'm not sure how well it works. It gets the job done for me.

function shopScreen(Wait: integer = 0): boolean;
var
  t: integer;
  b: TBox;
  TPA: TPointArray;
begin
  if not isLoggedIn() then
    exit;
  t := (getSystemTime() + Wait);
  repeat
    b := IntToBox(520, 39, 532, 51);                                             //may add another check
    if findColorsTolerance(TPA, 1072344, b, 24, colorSetting(2, 0.24, 0.53)) then  // red box top right
      writeln('Shopscreen is open');
      result := true;
      exit;
  until (getSystemTime() >= t);
end;  

What does the shopscreen look like :)

From: Ashaman88
What does the shopscreen look like :)

http://img4.wikia.nocookie.net/__cb20140128211242/runescape/images/thumb/e/e5/Brian%27s_Battleaxe_Bazaar_stock.png/180px-Brian%27s_Battleaxe_Bazaar_stock.png

From: Element17
http://img4.wikia.nocookie.net/__cb20140128211242/runescape/images/thumb/e/e5/Brian%27s_Battleaxe_Bazaar_stock.png/180px-Brian%27s_Battleaxe_Bazaar_stock.png

Oh my that is small.

Try this one.

[ATTACH=CONFIG]23651[/ATTACH]

From: Element17
Oh my that is small.

Try this one.

[ATTACH=CONFIG]23651[/ATTACH]

Oh my that is small.

Try this one.

[ATTACH=CONFIG]23652[/ATTACH]

From: Element17
Oh my that is small.

Try this one.

[ATTACH=CONFIG]23652[/ATTACH]

I see I see, cool thanks!

Yeah no problem! It should work for any shop in Runescape.

From: Element17
Oh my that is small.

Try this one.

[ATTACH=CONFIG]23652[/ATTACH]

i was expecting a small one again…

From: Turpinator
i was expecting a small one again…

Haha well sorry to disappoint.

LOL this thread made me laugh, and has a great snippet in it as well :)

From: Element17
Haha well sorry to disappoint.

I was actually incredibly disappointed, I laughed so hard when I saw the second small image and the same reply from Ashaman. XD

Nice, saves me from having to make one :)
Had to change it slightly though.

repeat
  b := IntToBox(520, 39, 532, 51);                                             //may add another check
  if findColorsTolerance(TPA, 1072344, b, 24, colorSetting(2, 0.24, 0.53)) then  // red box top right
  begin //added begin and end because it was just executing the writeln() part if it was true, but the rest would always execute making it always exit true without wait.
    writeln('Shopscreen is open');
    exit(true); //shorter, just saves a line, no real difference.
  end;
until (getSystemTime() >= t);