i tried makeing money but it just got messed uop can some1 healp me plz
i tried makeing money but it just got messed uop can some1 healp me plz
help u with what?
SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
Programming Projects: NotePad | Tetris | Chess
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]
Varrock gTanner
Previously known as England155.
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
SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
Programming Projects: NotePad | Tetris | Chess



theres functions that do the counting for you...
SCAR Code: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;
He still needs to get the amount of feathers the store has.
Hope this helps!![]()
rep+
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' +
'0FFB2B5BDAEAD000000000000002800BDAEADBDAEADB5AEAD B5AA' +
'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
SCAR Code:{.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
SCAR Code: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
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.



SCAR Code: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..
There are currently 1 users browsing this thread. (0 members and 1 guests)