Results 1 to 4 of 4

Thread: Why wont this work

  1. #1
    Join Date
    Jul 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Why wont this work

    Ok i know its very detectable, but thats ok since im not using it on RS . The code i have is

    SCAR Code:
    //Thief
    program Thief;
    {.include SRL\SRL.scar}

    var
    Pick: Integer;
    Pick2: Integer;


    Procedure LoadMyBitmap;
    begin
      Pick := BitmapFromString2(False, 'a4681F78DAED5ADB728' +
           '4200CFD25542EFA2875FDFF4F2AD0A9B64EB581242EEC8687CCCE' +
           '311B320C39B9A852AAF3930A7274416A1B8432FE11A59DA35CE60' +
           'DB75D7FC0CD181F583306392C3A223AFED70E1FF1F76A779D84F4' +
           '3EC931699A5DC7F6695F937659A33F761A82749DDF7067D6036E7' +
           'D7CE07CB4A6E764C7751199A239372CBB4E42061364AF93E7FD63' +
           '5C4F96625BF7ECF20E3E7F79732D65FD3E31B749B318ADDD4FA41' +
           '5CFA9EC40E4751470C78570059565E1047CACBD1B57C0EDFF851C' +
           'EFEA37DFD6181DC215C215B451265C013F9F5CAEC0478D7085708' +
           '570C56B7005F6F6FE37FDC8DD3177A2C2A1CFE733665E943BA380' +
           'EBE3359FE50F2D5740BA784C8F83B7CFCD3F675C911B5965F9B12' +
           'C8EEEC46BF099B6AE38D384E090F885237CFED072458B389C79F0' +
           '5C81A999317107DF2BB73FA2EAA7EEF499AF078167FFDCAA00CF1' +
           '5FB2995FAC3CD1590F726983AE1DA3E6D5D01B7561B57C073743D' +
           '5C91DB53E4D621F5D415DC5C5156C3DCC9156599BA8C55EEE9415' +
           'AE48A5C9B3570056D4FF12CAEC0E7718E1E84638ACB3167A09D03' +
           'DC39DBC4EC4B7BB7CBE6849078AC6DB609C7CBAA91D7EE4138FC2' +
           '98B11DAEC8FCBDA4EF17F0752E65B0B6FBBDA7BBB2AABEE1BD5D2' +
           'FD975312AE9025ABC5F50946B');
    end;


    Procedure LoadMyBitmap2;
    begin
      Pick2 := BitmapFromString2(False, 'a4717778DAB590C10EC' +
           '3200C437F290492C0114AF9FF4F1A0E5399BA5E761807CB7A2436' +
           '8288B8094D2D6D6AD22924ED846A85F67A710D7CE39271A192A7C' +
           '69E401276351EF043F78C93347CAB7DB454DEE4CC8F7CE5AF1C31' +
           'F7019EB337CAEE52F61CF1AD51A0254EB5D02E6E326E5CFD07AC2' +
           '12D55CFB100521067B1EF19274ABEE5AF7DB774BB88F1F1CC3D7F' +
           'E56875CF489682198AE79887E85BFF777E6D7901A27');
           end;


    Procedure FindMyBitmap;
    begin
    Mouse(252, 191, 0, 0, false);
      if(FindBitmap(Pick, x, y)) then
      begin
        Mouse(x, y, 0, 0, true);
    else;
    if(FindBitmap(Pick2, x, y)) then
    begin
    Mouse(x,y,0,0,true);
    end;
    end;
    end;




    begin
    SetupSRL;
    LoadMyBitmap;
    LoadMyBitmap2;
    repeat
    FindMyBitmap;
    until(false);
    end.


    But when i try to run it, i get the error
    Code:
    Line 52: [Error] (14501:1): Identifier expected in script

    Ive tried changing things around, but it just gives me different errors, can someone point me in the right direction and tell me whats wrong?


    Thanks in advance!

  2. #2
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Its me again! And it now compiles.
    Code:
    //Thief
    program Thief;
    {.include SRL\SRL.scar}
    
    var
    Pick: Integer;
    Pick2: Integer;
    
    
    Procedure LoadMyBitmap;
    begin
      Pick := BitmapFromString2(False, 'a4681F78DAED5ADB728' +
           '4200CFD25542EFA2875FDFF4F2AD0A9B64EB581242EEC8687CCCE' +
           '311B320C39B9A852AAF3930A7274416A1B8432FE11A59DA35CE60' +
           'DB75D7FC0CD181F583306392C3A223AFED70E1FF1F76A779D84F4' +
           '3EC931699A5DC7F6695F937659A33F761A82749DDF7067D6036E7' +
           'D7CE07CB4A6E764C7751199A239372CBB4E42061364AF93E7FD63' +
           '5C4F96625BF7ECF20E3E7F79732D65FD3E31B749B318ADDD4FA41' +
           '5CFA9EC40E4751470C78570059565E1047CACBD1B57C0EDFF851C' +
           'EFEA37DFD6181DC215C215B451265C013F9F5CAEC0478D7085708' +
           '570C56B7005F6F6FE37FDC8DD3177A2C2A1CFE733665E943BA380' +
           'EBE3359FE50F2D5740BA784C8F83B7CFCD3F675C911B5965F9B12' +
           'C8EEEC46BF099B6AE38D384E090F885237CFED072458B389C79F0' +
           '5C81A999317107DF2BB73FA2EAA7EEF499AF078167FFDCAA00CF1' +
           '5FB2995FAC3CD1590F726983AE1DA3E6D5D01B7561B57C073743D' +
           '5C91DB53E4D621F5D415DC5C5156C3DCC9156599BA8C55EEE9415' +
           'AE48A5C9B3570056D4FF12CAEC0E7718E1E84638ACB3167A09D03' +
           'DC39DBC4EC4B7BB7CBE6849078AC6DB609C7CBAA91D7EE4138FC2' +
           '98B11DAEC8FCBDA4EF17F0752E65B0B6FBBDA7BBB2AABEE1BD5D2' +
           'FD975312AE9025ABC5F50946B');
    end;
    
    
    Procedure LoadMyBitmap2;
    begin
      Pick2 := BitmapFromString2(False, 'a4717778DAB590C10EC' +
           '3200C437F290492C0114AF9FF4F1A0E5399BA5E761807CB7A2436' +
           '8288B8094D2D6D6AD22924ED846A85F67A710D7CE39271A192A7C' +
           '69E401276351EF043F78C93347CAB7DB454DEE4CC8F7CE5AF1C31' +
           'F7019EB337CAEE52F61CF1AD51A0254EB5D02E6E326E5CFD07AC2' +
           '12D55CFB100521067B1EF19274ABEE5AF7DB774BB88F1F1CC3D7F' +
           'E56875CF489682198AE79887E85BFF777E6D7901A27');
           end;
    
    
    Procedure FindMyBitmap;
    begin
    Mouse(252, 191, 0, 0, false);
      if(FindBitmap(Pick, x, y)) then
      begin
        Mouse(x, y, 0, 0, true);
      end
    else
    if(FindBitmap(Pick2, x, y)) then
    begin
    Mouse(x,y,0,0,true);
    end;
    end;
    
    
    
    
    
    begin
    SetupSRL;
    LoadMyBitmap;
    LoadMyBitmap2;
    repeat
    FindMyBitmap;
    until(false);
    end.

  3. #3
    Join Date
    Jul 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow Chris your're amazing lol

    Been trying ages to get this working *crys*


    h): h):

  4. #4
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol, no problem.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. why wont this work?
    By rogue poser in forum OSR Help
    Replies: 11
    Last Post: 01-01-2008, 08:28 PM
  2. Why wont this work
    By philowns in forum OSR Help
    Replies: 8
    Last Post: 07-28-2007, 07:12 PM
  3. Just wont work
    By reece844 in forum OSR Help
    Replies: 5
    Last Post: 04-24-2007, 09:01 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •