SRL Archive - RS3 Outdated / Broken Scripts

i tried makeing money but it just got messed uop can some1 healp me plz

help u with what?

the way i was playing on doing it was have all bitmaps for 960 961 962 -1000 and when the program found one it would buy would that work?

So,

let me see if i get you here you want a script that will find 1000-960 feather's in the store and stop the log out switch world.

i think there is a script that already does that in the free section.

[off topic]watch out for that double post i'd edit to say sorry or something[/off topic]

well imma try to make my own if i need any help will u help me?
and 1 more question how do u urm well when i declare a bitmap how can i get it to click liek randomly around it u no what i mean so its always not clicking same spot

u dont need bitmaps to buy stuff at stores….if it has a set spot…like at rune stores and stuff..there are procedures for that

theres functions that do the counting for you…

function AmountColor(area: String; color, tol: Integer): Integer; 
By: masquerader 
Description:
     Counts the number of items found with a color in a certain area. (Counts stacks)

function AmountBmp(area: String; itembmp, tol: Integer): Integer; 
By: masquerader 
Description:
     Counts the number of items found with a bitmap in a certain area. (Counts stacks)

function AmountDtm(area: String; dtm: Integer): Integer; 
By: masquerader 
Description:
     Counts the number of items found with a dtm in a certain area. (Counts stacks)

usage:
FeatherBitmap = A Feather Bitmap? (without the 960-100) Just take a 5x5 BMP of the center of the feather.

if AmountBmp('shop', FeatherBitmap, 15) >= 960 then
buyfeathers;

From: dan cardin
u dont need bitmaps to buy stuff at stores….if it has a set spot…like at rune stores and stuff..there are procedures for that

He still needs to get the amount of feathers the store has.

Hope this helps! :)

rep+

There's one in members section.

plz help me



{.include SRL/SRL.Scar}
FeatherBmp : Integer;
function AmountBmp(area: String; itembmp, tol: Integer): Integer;

procedure LoadBmps;
Begin
FeatherBmp := BitmapFromString(6, 2, 'CEC7C6FF0000FF280' +
'0FFB2B5BDAEAD000000000000002800BDAEADBDAEADB5AEADB5AA' +
'AD');

end;

procedure buyFeathers;
if AmountBmp('shop', FeatherBmp, 15) >= 960 then
Mouse(x, y, 1, 1, true);

end;


where did i mess up

alot of places… this

{.include SRL/SRL.Scar}
FeatherBmp : Integer;
function AmountBmp(area: String; itembmp, tol: Integer): Integer;

procedure LoadBmps;
Begin
FeatherBmp := BitmapFromString(6, 2, 'CEC7C6FF0000FF280' +
'0FFB2B5BDAEAD000000000000002800BDAEADBDAEADB5AEAD B5AA' +
'AD');

end;

procedure buyFeathers;
if AmountBmp('shop', FeatherBmp, 15) >= 960 then
Mouse(x, y, 1, 1, true);

end;

SHOULD BE!

this

program Buyer;
{.include SRL/SRL.Scar}
FeatherBmp : Integer;

procedure LoadBmps;
Begin
 FeatherBmp := BitmapFromString(6, 2, 'CEC7C6FF0000FF280' +
 '0FFB2B5BDAEAD000000000000002800BDAEADBDAEADB5AEAD B5AA' +
 'AD');
end;

procedure BuyFeathers;
begin
if AmountBmp('shop' , FeatherBmp, 15) >= 960 then
 begin
 Mouse(x, y, 1, 1, true);
 end;
end;

begin
SetupSRL;
 repeat
  BuyFeathers
 until AmountBmp('shop' , FeatherBmp, 15) < 960
end.

I guess. i think its right but im not sure, plus you need to have if findcolortolerance then, in there before the mouse part, or else it wont know where to click

Forgot your begin in buyFeathers ;)

crap! i hate you.. but now its fixed so im a winner

Line 4: [Error] (14405:1): 'BEGIN' expected in script
this is what i got with ur help


program Buyer;
{.include SRL/SRL.Scar}
FeatherBmp : Integer;

procedure LoadBmps;
Begin
FeatherBmp := BitmapFromString(6, 2, 'CEC7C6FF0000FF280' +
'0FFB2B5BDAEAD000000000000002800BDAEADBDAEADB5AEAD B5AA' +
'AD');
end;

procedure BuyFeathers;
begin
if AmountBmp('shop' , FeatherBmp, 15) >= 960 then
begin
if (findcolortolerance(x, y, : Integer; 12369093;)) then
wait(50+random(150));
Mouse(x, y, 1, 1, False);
ChooseOption(x, y, 'Buy 10');
end;
end;

begin
SetupSRL;
repeat
BuyFeathers
until AmountBmp('shop' , FeatherBmp, 15) < 960
end.

program Buyer;
{.include SRL/SRL.Scar}
{.include srl\srl\misc\amount.scar}
var //forgot this, need to declare a variable, in this case "featherBMP"
FeatherBmp : Integer;

procedure LoadBmps;
Begin
  FeatherBmp := BitmapFromString(6, 2, 'CEC7C6FF0000FF280' +
  '0FFB2B5BDAEAD000000000000002800BDAEADBDAEADB5AEAD B5AA' +
  'AD');
end;

procedure BuyFeathers;
begin
  if AmountBmp('shop' , FeatherBmp, 15) >= 960 then
  begin                                    //screen           \\  tolerance
    if findcolortolerance(x, y, 12369093, MSX1, MSY1, MSX2, MSY2, 10) then //why not use findbmp, u already have it loaded?  , and u didnt even fill out the function right
    begin                              //add begin
      wait(50+random(150));            // without begin it would only do this
      Mouse(x, y, 1, 1, False);        // and do these regardless of the
      ChooseOption(x, y, 'Buy 10');    // if statement
    end;                               //add end
  end;
end;

begin
  SetupSRL;
  repeat
    BuyFeathers
  until AmountBmp('shop' , FeatherBmp, 15) < 960
  //This will exit loop if theres less then 960 feathers
  //and end the script... needs changing...
end.

you need to learn a few basic things first:
1. Standards, if you dont no how,
2 spaces after begin, if, repeat, var
2 spaces back after end;, end of an if, until(false)

2. Learn to fill out procedures all the way,
u filled out FindColorTolerance and there was like 5 more params missing

3. Read a bit more tutorials.. and read my comments
4. Learn to use

tags


and idk if the AmountBMP are workin, mostlikely they are..