Adblock breaks this site

Bitmap Help please =)

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

Thread Tools

Thread Tools

  1. Mr GigGles

    Mr GigGles Guest

    Referrals:
    0
    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
     
    Mr GigGles, May 19, 2007
    #1
  2. crapkiller

    crapkiller Forum Addict

    Joined:
    Jul 19, 2006
    Posts:
    426
    Referrals:
    0
    Sythe Gold:
    0
    Bitmap Help please =)
    Program FeatherBuyer;

    Lol... Cant be two words
    Also... FindBitmap(Feather, x, y)
    Try using SRL. Clickmouse = Ban
     
    crapkiller, May 19, 2007
    #2
  3. Mr GigGles

    Mr GigGles Guest

    Referrals:
    0
    Bitmap Help please =)
    ok ill see, but right now im just trying to get use to scar (only been doing it for 2 days)
     
    Mr GigGles, May 19, 2007
    #3
  4. WhoCares357

    WhoCares357 Forum Addict

    Joined:
    Jan 21, 2007
    Posts:
    608
    Referrals:
    1
    Sythe Gold:
    0
    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.)
     
    WhoCares357, May 19, 2007
    #4
  5. Mr GigGles

    Mr GigGles Guest

    Referrals:
    0
    Bitmap Help please =)
    Ok thanks man, ill test it in a sec. :)
     
    Mr GigGles, May 19, 2007
    #5
  6. Mr GigGles

    Mr GigGles Guest

    Referrals:
    0
    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
     
    Mr GigGles, May 19, 2007
    #6
  7. WhoCares357

    WhoCares357 Forum Addict

    Joined:
    Jan 21, 2007
    Posts:
    608
    Referrals:
    1
    Sythe Gold:
    0
    Bitmap Help please =)
    You forgot the (0) in one of the MoveMouseSmoothEx.
     
    WhoCares357, May 19, 2007
    #7
  8. Mr GigGles

    Mr GigGles Guest

    Referrals:
    0
    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?
     
    Mr GigGles, May 19, 2007
    #8
  9. Town

    Town Grand Master
    Scar Programmers

    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5
    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.
     
    Town, May 19, 2007
    #9
  10. Mr GigGles

    Mr GigGles Guest

    Referrals:
    0
    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
     
    Mr GigGles, May 19, 2007
    #10
  11. Town

    Town Grand Master
    Scar Programmers

    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5
    Bitmap Help please =)
    Try adding some waits to make it run more smoothly. Also, things like Wait(200+Random(800)) would help.
     
    Town, May 19, 2007
    #11
  12. Mr GigGles

    Mr GigGles Guest

    Referrals:
    0
    Bitmap Help please =)
    Yes I will add them back now.
     
    Mr GigGles, May 19, 2007
    #12
< lvl 36 mage range pure | selling ranger/2h very very cheap...lvl 30cb >


 
 
Adblock breaks this site