Results 1 to 4 of 4

Thread: Bitmap Finding Help

  1. #1
    Join Date
    Aug 2006
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default First Easy Script Help

    Help would be much appreciated, I know this is a simple mistake.

    ERROR
    Code:
    Failed when compiling
    Line 35: [Error] (35:21): Invalid number of parameters in script
    Program
    Code:
    program FirstProgram;
    
    var
    RefreshButton: integer;
    rx,ry: integer;
    
    procedure LoadBMP;
    begin
      RefreshButton := BitmapFromString(17, 15, 'beNo1UgtP01AU5ie' +
           'RIaJiNFFjZGSyMQSW4AMUAQkqY4ARBJnyWIUEmsyBvJXXBqgQSJzI' +
           'W4ERCEEUNASmQUPCxsbWdu1672087bA5+XLu7fed542Kgi8UJrxIw' +
           'GFDImDPuzkF51c33HATxlIYSX6G7xqaBWbEgB9GZH7lR6bJqs58oc' +
           'luSsqzavNsgLnlr5fWdgKMAEFK6wZELPPBFxCxjy2osyjNXTr5fnu' +
           'KsTfNNJAKVtQPvv5hx52ybvhVQY8jIoVEOcXq919XbtZezbWmm3pt' +
           'juUtt2ffE9zaPWh2uDIeD6UV268Z+0Brbp7CWJKrQpKhoEmTTacUv' +
           'lla3yNEQlgSsYyHAe6e2ZFq7E8vGTaUDj9rmUWK5Mvqz8s3ajW5La' +
           '+GloEPnfJKan+Qzyq2Jdxu1BZ0JRf2640DlS8nESasQFr6Ji5dt6h' +
           'zWt1/fRCEEwkXls0xvlhWb7e0Ohs6Zxq65sAGnevQPiNgqvn9hQyL' +
           'Nr99/yAgKHyWJ8EQ4gQSFglSKoyYiI53YetxnjPUXsy07u55jyUCh' +
           'JIR/Mh8wMCR73kcCOEZ12Z8ivl8RlNj9xRsB7pjFRUbWVmY0B1jD5' +
           '62dTqmGZ4A/4jDEEp9y3ImnYo3NHxa2IRE/H8yBB/56IpRF8Vpnzy' +
           'i7HA8CmEfh6GdxbXtk7qq06nU2TSLmX67srHj/uMBrKjvjU00ndCU' +
           'xelrVr79htb8HDpkEeRiBdwxOB2nrz6pr4tNfq7SlKsSS6ITTNEJJ' +
           'eCf0tf0jLiUWREfK0tgApAO+pr4vJGUQ8foamJ01SqtWaWtAtTl22' +
           'aXtzG8E4H4WXzIIG9QlkB5oAryeN/LjE6uUa0fKulRqs05Nv3Vd8T' +
           'BS2Dl+NjLIA+Dov4BqpkheQ==');
    end;
    
    
    procedure FindRefreshButton;
    
    begin
      if FindBitmapToleranceIn(RefreshButton, rx, ry, 3, 28, 102, 58, 25) then
          ClickMouse(rx,ry,4,4);
        else
          Writeln('Could Not Find Refresh Button');
    end;
    
    
    begin
    LoadBMP;
    FindRefreshButton;
    end.
    Last edited by arash; 07-04-2009 at 03:09 AM.

  2. #2
    Join Date
    May 2009
    Posts
    799
    Mentioned
    2 Post(s)
    Quoted
    16 Post(s)

    Default

    ClickMouse(rx,ry,True);...
    was your problem ;P

    program FirstProgram;

    var
    RefreshButton: integer;
    rx,ry: integer;

    procedure LoadBMP;
    begin
    RefreshButton := BitmapFromString(17, 15, 'beNo1UgtP01AU5ie' +
    'RIaJiNFFjZGSyMQSW4AMUAQkqY4ARBJnyWIUEmsyBvJXXBqgQ SJzI' +
    'W4ERCEEUNASmQUPCxsbWdu1672087bA5+XLu7fed542Kgi8UJ rxIw' +
    'GFDImDPuzkF51c33HATxlIYSX6G7xqaBWbEgB9GZH7lR6bJqs 58oc' +
    'luSsqzavNsgLnlr5fWdgKMAEFK6wZELPPBFxCxjy2osyjNXTr 5fnu' +
    'KsTfNNJAKVtQPvv5hx52ybvhVQY8jIoVEOcXq919XbtZezbWm m3pt' +
    'juUtt2ffE9zaPWh2uDIeD6UV268Z+0Brbp7CWJKrQpKhoEmTT acUv' +
    'lla3yNEQlgSsYyHAe6e2ZFq7E8vGTaUDj9rmUWK5Mvqz8s3aj W5La' +
    '+GloEPnfJKan+Qzyq2Jdxu1BZ0JRf2640DlS8nESasQFr6Ji5 dt6h' +
    'zWt1/fRCEEwkXls0xvlhWb7e0Ohs6Zxq65sAGnevQPiNgqvn9hQyL' +
    'Nr99/yAgKHyWJ8EQ4gQSFglSKoyYiI53YetxnjPUXsy07u55jyUCh' +
    'JIR/Mh8wMCR73kcCOEZ12Z8ivl8RlNj9xRsB7pjFRUbWVmY0B1jD5' +
    '62dTqmGZ4A/4jDEEp9y3ImnYo3NHxa2IRE/H8yBB/56IpRF8Vpnzy' +
    'i7HA8CmEfh6GdxbXtk7qq06nU2TSLmX67srHj/uMBrKjvjU00ndCU' +
    'xelrVr79htb8HDpkEeRiBdwxOB2nrz6pr4tNfq7SlKsSS6ITT NEJJ' +
    'eCf0tf0jLiUWREfK0tgApAO+pr4vJGUQ8foamJ01SqtWaWtAt Tl22' +
    'aXtzG8E4H4WXzIIG9QlkB5oAryeN/LjE6uUa0fKulRqs05Nv3Vd8T' +
    'BS2Dl+NjLIA+Dov4BqpkheQ==');
    end;


    procedure FindRefreshButton;

    begin
    if FindBitmapToleranceIn(RefreshButton, rx, ry, 3, 28, 102, 58, 25) then
    begin
    ClickMouse(rx,ry,True);
    end else
    begin
    Writeln('Could Not Find Refresh Button');
    end;
    end;


    begin
    LoadBMP;
    FindRefreshButton;
    end.

  3. #3
    Join Date
    Aug 2006
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for the help, but I still get an error after that
    Code:
    Line 35: [Error] (35:1): Identifier expected in script C:\Program Files\SCAR 3.20\Scripts\Scripts\First Sciprt.scar
    Last edited by arash; 07-04-2009 at 02:49 AM.

  4. #4
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    SCAR Code:
    program FirstProgram;

    var
    RefreshButton: integer;
    rx,ry: integer;

    procedure LoadBMP;
    begin
    RefreshButton := BitmapFromString(17, 15, 'beNo1UgtP01AU5ie' +
    'RIaJiNFFjZGSyMQSW4AMUAQkqY4ARBJnyWIUEmsyBvJXXBqgQ SJzI' +
    'W4ERCEEUNASmQUPCxsbWdu1672087bA5+XLu7fed542Kgi8UJ rxIw' +
    'GFDImDPuzkF51c33HATxlIYSX6G7xqaBWbEgB9GZH7lR6bJqs 58oc' +
    'luSsqzavNsgLnlr5fWdgKMAEFK6wZELPPBFxCxjy2osyjNXTr 5fnu' +
    'KsTfNNJAKVtQPvv5hx52ybvhVQY8jIoVEOcXq919XbtZezbWm m3pt' +
    'juUtt2ffE9zaPWh2uDIeD6UV268Z+0Brbp7CWJKrQpKhoEmTT acUv' +
    'lla3yNEQlgSsYyHAe6e2ZFq7E8vGTaUDj9rmUWK5Mvqz8s3aj W5La' +
    '+GloEPnfJKan+Qzyq2Jdxu1BZ0JRf2640DlS8nESasQFr6Ji5 dt6h' +
    'zWt1/fRCEEwkXls0xvlhWb7e0Ohs6Zxq65sAGnevQPiNgqvn9hQyL' +
    'Nr99/yAgKHyWJ8EQ4gQSFglSKoyYiI53YetxnjPUXsy07u55jyUCh' +
    'JIR/Mh8wMCR73kcCOEZ12Z8ivl8RlNj9xRsB7pjFRUbWVmY0B1jD5' +
    '62dTqmGZ4A/4jDEEp9y3ImnYo3NHxa2IRE/H8yBB/56IpRF8Vpnzy' +
    'i7HA8CmEfh6GdxbXtk7qq06nU2TSLmX67srHj/uMBrKjvjU00ndCU' +
    'xelrVr79htb8HDpkEeRiBdwxOB2nrz6pr4tNfq7SlKsSS6ITT NEJJ' +
    'eCf0tf0jLiUWREfK0tgApAO+pr4vJGUQ8foamJ01SqtWaWtAt Tl22' +
    'aXtzG8E4H4WXzIIG9QlkB5oAryeN/LjE6uUa0fKulRqs05Nv3Vd8T' +
    'BS2Dl+NjLIA+Dov4BqpkheQ==');
    end;


    procedure FindRefreshButton;

    begin
      if FindBitmapToleranceIn(RefreshButton, rx, ry, 3, 28, 102, 58, 25) then
        ClickMouse(rx,ry,True) //<--Don't put a semi colon before and 'else'
      end else
      Writeln('Could Not Find Refresh Button');
    end;


    begin
    LoadBMP;
    FindRefreshButton;
    end.
    Those other Begin..end; nests were unnecessary as well.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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