SRL Archive - Outdated / Broken

Here You Go……..I Know It is shit but hey it works

Credit to phatom for srling it for me since i wrote it with out(and dont know how)

program GeneralStoreSeller; //JiveTonto@Gmail.com
{.include SRL\SRL.scar}
var bitmap: integer;

///////Start at any general store and have the item in NOTES
//////Notes in first inv slot
//////General store window open

procedure LoadBmps;
begin
  bitmap := BitmapFromString(15, 7,
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D5447FFFFFF' +
       'FFFFFF5D54475D54475D54475D54475D5447FFFFFFFFFFFFFFFFFF' +
       '5D54475D54475D54475D5447FFFFFFFFFFFFFFFFFF0000005D5447' +
       '5D54475D5447FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447' +
       'FFFFFFFFFFFFFFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF' +
       '0000000000005D5447FFFFFFFFFFFF5D54475D5447000000FFFFFF' +
       'FFFFFF0000005D54475D5447FFFFFFFFFFFF0000005D54475D5447' +
       'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF0000005D5447' +
       '5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF000000' +
       '5D54475D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF' +
       '0000005D54475D5447FFFFFFFFFFFF000000');
end;

procedure Sell;
begin
  if(FindColorTolerance(x,y,7839919,572,218,598,239,100))then
    Mouse(x,y,5,5,false)
  SleepAndMoveMouse(100+random(500))
  if(FindBitmap(bitmap,x,y))then
    Mouse(x+5,y+2,5,2,true)
  SleepAndMoveMouse(100+random(500))
end;

begin
  LoadBmps;
  repeat
     Sell;
  until(not(LoggedIn));
end.

procedure Sell(i, amount : Integer); // by RSN

;)

thanx i shoudl have tryed but ehhh maby next time

1. I've said it enough times, everyone should know it :rolleyes: :p

2. use if (not ((FindColorTolerance(x, y, 7839919, 572, 218, 598, 239, 100))) then loggout

3. Good script ;D

thanx im working of a stringer now

program GeneralStoreSeller; //JiveTonto@Gmail.com
{.include SRL\SRL.scar}
var
  bitmap: integer;

///////Start at any general store and have the item in NOTES
//////Notes in first inv slot
//////General store window open

procedure LoadBmps;
begin
  bitmap := BitmapFromString(15, 7,
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D5447FFFFFF' +
       'FFFFFF5D54475D54475D54475D54475D5447FFFFFFFFFFFFFFFFFF' +
       '5D54475D54475D54475D5447FFFFFFFFFFFFFFFFFF0000005D5447' +
       '5D54475D5447FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447' +
       'FFFFFFFFFFFFFFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF' +
       '0000000000005D5447FFFFFFFFFFFF5D54475D5447000000FFFFFF' +
       'FFFFFF0000005D54475D5447FFFFFFFFFFFF0000005D54475D5447' +
       'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF0000005D5447' +
       '5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF000000' +
       '5D54475D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF' +
       '0000005D54475D5447FFFFFFFFFFFF000000');
end;

procedure Sell;
begin
  if (FindColorTolerance(x, y, 7839919, 572, 218, 598, 239, 100)) then
    begin
      Mouse(x, y, 5, 5, false);
      SleepAndMoveMouse(100+random(500));
    end;
  if (FindBitmap(bitmap, x, y)) then
    begin
      Mouse(x+5,y+2,5,2,true);
      SleepAndMoveMouse(100+random(500));
    end;
end;

begin
  LoadBmps;
  repeat
    Sell;
    if (not (FindColorTolerance(x, y, 7839919, 572, 218, 598, 239, 100))) then logout;
  until (not (LoggedIn));
end.

So,mething like its suppose to look like

ehhh no need to change

You've only got 1 bmp, so don't be afraid to put it before the loop and save yourself a procedure. On the other hand, it does look like a very nice script :) Good to see you helping out ^.^

thanx and me doing a procedure lol ill fuck it up some where or something