• Log in or sign up for an account here: https://www.sythe.org/login

Bitmap Help please =)

  • Thread starter Thread starter Mr GigGles
  • Start date Start date
M

Mr GigGles

Guest
This is what ive got so far, its expose to buy feathers. Any ideas on where I might have had a typo..ETC?

Code: 
program feather buyer;

var
feather: Integer;
x,y: Integer;

procedure LoadBmps;
begin
    feather := BitmapFromString(32, 30, 'z78DAD598EB9283200C855' +
       'F89825AFC99C4FAFE8FB4914B1B8A69D5E2760A336776A9958F33' +
       '878835E6D13AEF6ECE7DA463675C779E9A976D37E74FF01B33734' +
       'B975CE24854F5BBE3F34471E499E75D6BE5BFE0AFD692D728478A' +
       '6BC2BCF548FC873A24441A70C6595E13D519CBFDCBFCCA8A12FF4' +
       '8967B50394B33FE67F71AF00B3584D4918BDA805FD9356DF92743' +
       'DC133FF1DF4C65CB3BA7F6397FBC6754B9078BF18A5F32D7CED34' +
       'C9EAE34D1903F8D8A1E269834E73FF15FCE2E2B67313EB8C959C9' +
       '5FA525F313F58BE7C1F4EA5334C0BD98EB63FE15957BC43862F2C' +
       '82F569168C50E65DF97ECF8981F7B65CF0166B8E11508107BE026' +
       '93D32AFF6FF8257950794F32DE7ACBCA3D564B26EFCB7D5A93B4C' +
       'DCF8A56CC82FC921D0EFCA1B6B34E38DDF917E70D7B3E4AE7A5FF' +
       'DAD3FC3C7E495E30D7E4619F26F2E7E4E49DAB9C49CEE04F3E57E' +
       '46945823F91D7FC4173964EE0D7F6A9E4573C27F61B213053228F' +
       'C931E0C1DF75047F3ABFB267B59C0BF249CB0C760FF2989CC6FCD' +
       'AF9B9AA93755A98C4DED32EF933B92FC973F297EA73F0FC7C9C3F' +
       'F99F5621EAE48AE78AF3F9FE8DF837BFCB48E6A48E730305FF3A7' +
       '9F99CDAF006D4ECFDABE6376891F3624392963A593DA12EEBB35A' +
       'F385F7476515A9C247CF43C2D1C200035EA0875E3BD57C975F920' +
       'BE7574E6EDAA9E60BFC2BA79D07B9E4ACF54CFFC3DE6FC4FFBA92' +
       'EC392B46AA4537D59F83C9D957C98F9D75DBD64F8DBFF16F41C7F' +
       '8373CCB54FEB6BF5CB5E27F9B49BBBB9E1F72AC05FFFFE84EFE5F' +
       '6C7F01A29FE1');
end;

procedure UseBitmap;
begin
if(FindBitmap(feather,x,y,354,63,395,104)) then
 begin
  MoveMouseSmoothEx(x,y+random(0),20,40,45,25,20);
  Wait(200+random(200));
  ClickMouse(x,y,false);
  MoveMouseSmoothEx(482,289,20,40,45,25,20);
  Wait(200+random(200));
  ClickMouse(482,289,false);
 end;
end;

Code: 
User specified a new RS window
Failed when compiling
Line 2: [Error] (2:17): Semicolon (';') expected in script
 
Program FeatherBuyer;

Lol... Cant be two words
Also... FindBitmap(Feather, x, y)
Try using SRL. Clickmouse = Ban
 
ok ill see, but right now im just trying to get use to scar (only been doing it for 2 days)
 
Code: 
program featherbuyer;

var
feather: Integer;
x,y: Integer;

procedure LoadBmps;
begin
    feather := BitmapFromString(32, 30, 'z78DAD598EB9283200C855' +
       'F89825AFC99C4FAFE8FB4914B1B8A69D5E2760A336776A9958F33' +
       '878835E6D13AEF6ECE7DA463675C779E9A976D37E74FF01B33734' +
       'B975CE24854F5BBE3F34471E499E75D6BE5BFE0AFD692D728478A' +
       '6BC2BCF548FC873A24441A70C6595E13D519CBFDCBFCCA8A12FF4' +
       '8967B50394B33FE67F71AF00B3584D4918BDA805FD9356DF92743' +
       'DC133FF1DF4C65CB3BA7F6397FBC6754B9078BF18A5F32D7CED34' +
       'C9EAE34D1903F8D8A1E269834E73FF15FCE2E2B67313EB8C959C9' +
       '5FA525F313F58BE7C1F4EA5334C0BD98EB63FE15957BC43862F2C' +
       '82F569168C50E65DF97ECF8981F7B65CF0166B8E11508107BE026' +
       '93D32AFF6FF8257950794F32DE7ACBCA3D564B26EFCB7D5A93B4C' +
       'DCF8A56CC82FC921D0EFCA1B6B34E38DDF917E70D7B3E4AE7A5FF' +
       'DAD3FC3C7E495E30D7E4619F26F2E7E4E49DAB9C49CEE04F3E57E' +
       '46945823F91D7FC4173964EE0D7F6A9E4573C27F61B213053228F' +
       'C931E0C1DF75047F3ABFB267B59C0BF249CB0C760FF2989CC6FCD' +
       'AF9B9AA93755A98C4DED32EF933B92FC973F297EA73F0FC7C9C3F' +
       'F99F5621EAE48AE78AF3F9FE8DF837BFCB48E6A48E730305FF3A7' +
       '9F99CDAF006D4ECFDABE6376891F3624392963A593DA12EEBB35A' +
       'F385F7476515A9C247CF43C2D1C200035EA0875E3BD57C975F920' +
       'BE7574E6EDAA9E60BFC2BA79D07B9E4ACF54CFFC3DE6FC4FFBA92' +
       'EC392B46AA4537D59F83C9D957C98F9D75DBD64F8DBFF16F41C7F' +
       '8373CCB54FEB6BF5CB5E27F9B49BBBB9E1F72AC05FFFFE84EFE5F' +
       '6C7F01A29FE1');
end;

procedure UseBitmap;
begin
if(FindBitmap(feather,x,y,354,63,395,104)) then
 begin
  MoveMouseSmoothEx(x,y+random(0),20,40,45,25,20);
  Wait(200+random(200));
  ClickMouse(x,y,false);
  MoveMouseSmoothEx(482,289,20,40,45,25,20);
  Wait(200+random(200));
  ClickMouse(482,289,false);
 end;

begin
  LoadBmps;
  UseBitmap;
end.

You just forgot to add the main loop (where scar looks to do stuff). Scar will only do the procedures if you say their name in the main loop (the last begin end.)
 
Ok it did not work
Code: 
program featherbuyer;

var
feather: Integer;
x,y: Integer;

procedure LoadBmps;
begin
    feather := BitmapFromString(32, 30, 'z78DAD598EB9283200C855' +
       'F89825AFC99C4FAFE8FB4914B1B8A69D5E2760A336776A9958F33' +
       '878835E6D13AEF6ECE7DA463675C779E9A976D37E74FF01B33734' +
       'B975CE24854F5BBE3F34471E499E75D6BE5BFE0AFD692D728478A' +
       '6BC2BCF548FC873A24441A70C6595E13D519CBFDCBFCCA8A12FF4' +
       '8967B50394B33FE67F71AF00B3584D4918BDA805FD9356DF92743' +
       'DC133FF1DF4C65CB3BA7F6397FBC6754B9078BF18A5F32D7CED34' +
       'C9EAE34D1903F8D8A1E269834E73FF15FCE2E2B67313EB8C959C9' +
       '5FA525F313F58BE7C1F4EA5334C0BD98EB63FE15957BC43862F2C' +
       '82F569168C50E65DF97ECF8981F7B65CF0166B8E11508107BE026' +
       '93D32AFF6FF8257950794F32DE7ACBCA3D564B26EFCB7D5A93B4C' +
       'DCF8A56CC82FC921D0EFCA1B6B34E38DDF917E70D7B3E4AE7A5FF' +
       'DAD3FC3C7E495E30D7E4619F26F2E7E4E49DAB9C49CEE04F3E57E' +
       '46945823F91D7FC4173964EE0D7F6A9E4573C27F61B213053228F' +
       'C931E0C1DF75047F3ABFB267B59C0BF249CB0C760FF2989CC6FCD' +
       'AF9B9AA93755A98C4DED32EF933B92FC973F297EA73F0FC7C9C3F' +
       'F99F5621EAE48AE78AF3F9FE8DF837BFCB48E6A48E730305FF3A7' +
       '9F99CDAF006D4ECFDABE6376891F3624392963A593DA12EEBB35A' +
       'F385F7476515A9C247CF43C2D1C200035EA0875E3BD57C975F920' +
       'BE7574E6EDAA9E60BFC2BA79D07B9E4ACF54CFFC3DE6FC4FFBA92' +
       'EC392B46AA4537D59F83C9D957C98F9D75DBD64F8DBFF16F41C7F' +
       '8373CCB54FEB6BF5CB5E27F9B49BBBB9E1F72AC05FFFFE84EFE5F' +
       '6C7F01A29FE1');
end;

procedure UseBitmap;
begin
if(FindBitmap(x,y,feather,354,63,395,104)) then
 begin
  MoveMouseSmoothEx(x,y+random(0),20,40,45,25,20);
  Wait(200+random(200));
  ClickMouse(x,y,false);
  MoveMouseSmoothEx(482,289,20,40,45,25,20);
  Wait(200+random(200));
  ClickMouse(482,289,false);
 end;

begin
  LoadBmps;
  UseBitmap;
end.

Code: 
User specified a new RS window
Failed when compiling
Line 37: [Error] (37:42): Invalid number of parameters in script
 
Err, once again is didn't work, Soo i simplified it and still didn't.. sorry if im wasting your time..
Code: 
program featherbuyer;

var
feather: Integer;
x,y: Integer;

procedure LoadBmps;
begin
    feather := BitmapFromString(32, 30, 'z78DAD598EB9283200C855' +
       'F89825AFC99C4FAFE8FB4914B1B8A69D5E2760A336776A9958F33' +
       '878835E6D13AEF6ECE7DA463675C779E9A976D37E74FF01B33734' +
       'B975CE24854F5BBE3F34471E499E75D6BE5BFE0AFD692D728478A' +
       '6BC2BCF548FC873A24441A70C6595E13D519CBFDCBFCCA8A12FF4' +
       '8967B50394B33FE67F71AF00B3584D4918BDA805FD9356DF92743' +
       'DC133FF1DF4C65CB3BA7F6397FBC6754B9078BF18A5F32D7CED34' +
       'C9EAE34D1903F8D8A1E269834E73FF15FCE2E2B67313EB8C959C9' +
       '5FA525F313F58BE7C1F4EA5334C0BD98EB63FE15957BC43862F2C' +
       '82F569168C50E65DF97ECF8981F7B65CF0166B8E11508107BE026' +
       '93D32AFF6FF8257950794F32DE7ACBCA3D564B26EFCB7D5A93B4C' +
       'DCF8A56CC82FC921D0EFCA1B6B34E38DDF917E70D7B3E4AE7A5FF' +
       'DAD3FC3C7E495E30D7E4619F26F2E7E4E49DAB9C49CEE04F3E57E' +
       '46945823F91D7FC4173964EE0D7F6A9E4573C27F61B213053228F' +
       'C931E0C1DF75047F3ABFB267B59C0BF249CB0C760FF2989CC6FCD' +
       'AF9B9AA93755A98C4DED32EF933B92FC973F297EA73F0FC7C9C3F' +
       'F99F5621EAE48AE78AF3F9FE8DF837BFCB48E6A48E730305FF3A7' +
       '9F99CDAF006D4ECFDABE6376891F3624392963A593DA12EEBB35A' +
       'F385F7476515A9C247CF43C2D1C200035EA0875E3BD57C975F920' +
       'BE7574E6EDAA9E60BFC2BA79D07B9E4ACF54CFFC3DE6FC4FFBA92' +
       'EC392B46AA4537D59F83C9D957C98F9D75DBD64F8DBFF16F41C7F' +
       '8373CCB54FEB6BF5CB5E27F9B49BBBB9E1F72AC05FFFFE84EFE5F' +
       '6C7F01A29FE1');
end;

procedure UseBitmap;
begin
if(FindBitmap(x,y,feather,354,63,395,104)) then
 begin
  MoveMouseSmoothEx(x,y+random(0),20,40,45,25,20);
  Wait(200);
  ClickMouse(x,y,false);
  MoveMouseSmooth(482,289);
  Wait(200);
  ClickMouse(482,289,false);
 end;

begin
  LoadBmps;
  UseBitmap;
end.

Might something with my .Bmp?
 
Code: 
program featherbuyer;

var
feather: Integer;
x,y: Integer;

procedure LoadBmps;
begin
    feather := BitmapFromString(32, 30, 'z78DAD598EB9283200C855' +
       'F89825AFC99C4FAFE8FB4914B1B8A69D5E2760A336776A9958F33' +
       '878835E6D13AEF6ECE7DA463675C779E9A976D37E74FF01B33734' +
       'B975CE24854F5BBE3F34471E499E75D6BE5BFE0AFD692D728478A' +
       '6BC2BCF548FC873A24441A70C6595E13D519CBFDCBFCCA8A12FF4' +
       '8967B50394B33FE67F71AF00B3584D4918BDA805FD9356DF92743' +
       'DC133FF1DF4C65CB3BA7F6397FBC6754B9078BF18A5F32D7CED34' +
       'C9EAE34D1903F8D8A1E269834E73FF15FCE2E2B67313EB8C959C9' +
       '5FA525F313F58BE7C1F4EA5334C0BD98EB63FE15957BC43862F2C' +
       '82F569168C50E65DF97ECF8981F7B65CF0166B8E11508107BE026' +
       '93D32AFF6FF8257950794F32DE7ACBCA3D564B26EFCB7D5A93B4C' +
       'DCF8A56CC82FC921D0EFCA1B6B34E38DDF917E70D7B3E4AE7A5FF' +
       'DAD3FC3C7E495E30D7E4619F26F2E7E4E49DAB9C49CEE04F3E57E' +
       '46945823F91D7FC4173964EE0D7F6A9E4573C27F61B213053228F' +
       'C931E0C1DF75047F3ABFB267B59C0BF249CB0C760FF2989CC6FCD' +
       'AF9B9AA93755A98C4DED32EF933B92FC973F297EA73F0FC7C9C3F' +
       'F99F5621EAE48AE78AF3F9FE8DF837BFCB48E6A48E730305FF3A7' +
       '9F99CDAF006D4ECFDABE6376891F3624392963A593DA12EEBB35A' +
       'F385F7476515A9C247CF43C2D1C200035EA0875E3BD57C975F920' +
       'BE7574E6EDAA9E60BFC2BA79D07B9E4ACF54CFFC3DE6FC4FFBA92' +
       'EC392B46AA4537D59F83C9D957C98F9D75DBD64F8DBFF16F41C7F' +
       '8373CCB54FEB6BF5CB5E27F9B49BBBB9E1F72AC05FFFFE84EFE5F' +
       '6C7F01A29FE1');
end;

procedure UseBitmap;
begin
if(FindBitmapIn(feather,x,y,354,63,395,104)) then
 begin
  MoveMouseSmoothEx(x,y+random(0),20,40,45,25,20);
  Wait(200);
  ClickMouse(x,y,false);
  MoveMouseSmooth(482,289);
  Wait(200);
  ClickMouse(482,289,false);
 end;
end;

begin
  LoadBmps;
  UseBitmap;
end.

Changed to FindBitmapIn. And added another end; that you needed.
 
Ok seemed to not have any errors, Woo Hoo! So i just need to find out why it wont find my Bmp, ill try uploading a new one.. Thank you
 
Try adding some waits to make it run more smoothly. Also, things like Wait(200+Random(800)) would help.
 
You must log in or register to reply here.

Similar threads

lichkinq
Post
Gaia Online: Script For Slots Game
Replies
0
Views
1,706
lichkinq
lichkinq
O
 
Need help with bitmap and SCAR banking!
Replies
0
Views
639
Ownedlikenoob
O
V
 
Scar not recognizing bitmap?
Replies
2
Views
1,480
vincamous
V
B
 
BumFighter SRL 1.0.0 [CURRENTLY WORKING]
Replies
3
Views
374
Bumis
B
P
 
Need help with script
Replies
1
Views
440
Jethr0x
Jethr0x
Runescape Gamblingrunescape gambling
Back
Top