Bitmap Help please =)

Discussion in 'Archives' started by Mr GigGles, May 19, 2007.

Sign in to Post
Thread Tools

Thread Tools

Bitmap Help please =)
  1. Unread #1 - May 19, 2007 at 9:03 PM
  2. Mr GigGles
    Referrals:
    0

    Mr GigGles Guest

    Bitmap Help please =)
    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
     
    Share
  3. Unread #2 - May 19, 2007 at 9:06 PM
  4. crapkiller
    Joined:
    Jul 19, 2006
    Posts:
    426
    Referrals:
    0
    Sythe Gold:
    0

    crapkiller Forum Addict

    Bitmap Help please =)
    Program FeatherBuyer;

    Lol... Cant be two words
    Also... FindBitmap(Feather, x, y)
    Try using SRL. Clickmouse = Ban
     
    Share
  5. Unread #3 - May 19, 2007 at 9:15 PM
  6. Mr GigGles
    Referrals:
    0

    Mr GigGles Guest

    Bitmap Help please =)
    ok ill see, but right now im just trying to get use to scar (only been doing it for 2 days)
     
    Share
  7. Unread #4 - May 19, 2007 at 9:30 PM
  8. WhoCares357
    Joined:
    Jan 21, 2007
    Posts:
    608
    Referrals:
    1
    Sythe Gold:
    0

    WhoCares357 Forum Addict

    Bitmap Help please =)
    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.)
     
    Share
  9. Unread #5 - May 19, 2007 at 9:33 PM
  10. Mr GigGles
    Referrals:
    0

    Mr GigGles Guest

    Bitmap Help please =)
    Ok thanks man, ill test it in a sec. :)
     
    Share
  11. Unread #6 - May 19, 2007 at 9:36 PM
  12. Mr GigGles
    Referrals:
    0

    Mr GigGles Guest

    Bitmap Help please =)
    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
     
    Share
  13. Unread #7 - May 19, 2007 at 9:39 PM
  14. WhoCares357
    Joined:
    Jan 21, 2007
    Posts:
    608
    Referrals:
    1
    Sythe Gold:
    0

    WhoCares357 Forum Addict

    Bitmap Help please =)
    You forgot the (0) in one of the MoveMouseSmoothEx.
     
    Share
  15. Unread #8 - May 19, 2007 at 9:50 PM
  16. Mr GigGles
    Referrals:
    0

    Mr GigGles Guest

    Bitmap Help please =)
    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?
     
    Share
  17. Unread #9 - May 19, 2007 at 10:01 PM
  18. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    Bitmap Help please =)
    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.
     
    Share
  19. Unread #10 - May 19, 2007 at 10:05 PM
  20. Mr GigGles
    Referrals:
    0

    Mr GigGles Guest

    Bitmap Help please =)
    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
     
    Share
  21. Unread #11 - May 19, 2007 at 10:07 PM
  22. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    Bitmap Help please =)
    Try adding some waits to make it run more smoothly. Also, things like Wait(200+Random(800)) would help.
     
    Share
  23. Unread #12 - May 19, 2007 at 10:09 PM
  24. Mr GigGles
    Referrals:
    0

    Mr GigGles Guest

    Bitmap Help please =)
    Yes I will add them back now.
     
    Share
< lvl 36 mage range pure | selling ranger/2h very very cheap...lvl 30cb >

Users viewing this thread
1 guest


 
 
Adblock breaks this site