Results 1 to 6 of 6

Thread: My first bitmap finder (It has lots of errors :P)

  1. #1
    Join Date
    Sep 2007
    Location
    Finland
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My first bitmap finder (It has lots of errors :P)

    SCAR Code:
    program BitmapFinder;

    var;
    x, y: integer;
     copper: integer;

    procedure LoadBitmap;
    begin
     copper := BitmapFromString(32, 30, 'beNrllvFn1GEcx/f8FRGnOe' +
           'ecc865c+5sZtllsx3NXNq41qbOVleW1daaTTNKv6QfIiIiIiIREYl' +
           'IJJGIJPpbet3eu889z92Ju7afOh9fz909z+t5f9+fz/P5fgcG/o+P' +
           'a8ahwMsjydnxTHUy523hwugfXirEK6U08OsLJb5mBge5PjgVe1xNP' +
           'D2beDQXvzcT+4ctGuIFF5+4XY4Cf7aQfL+S+XWzwBbNffvhG1z8a2' +
           'MRxAN/W0//2Mr/3C4wtvvq3THnK5d4bHm9nP66kfu+mScY6y9ytFw' +
           'ZWpkbWa2O9uhYK62If1lLfbqa/XYjT7ALLvH7cCbKnULePHdiuzbO' +
           'Xt22cN0imCDbv6zn/FAZyMmdpYk7l8teMbTWFlIRZIzmYhNDCdI6f' +
           'Ty1JyPgv7mY/ryWU/gymAxfcGL3wmTId9nEUepQdT5fztdmily9mn' +
           'cbpcjzxaTPZLlC5uO84OLjkm8s4lXnYBdPFsgUV8Y2Z3fqGKlEP/k' +
           '1uC1nJsBb9SngXLkRT38jO4TEg0U8YrgyNv7d6Sh8zP9wJfNqKRWm' +
           'ximzyBY/FODwnDDx9dPDa/Nj3AJbGIfKgY/tJJSyeXfJrxCHHnIqf' +
           'mj+PpwCMGdMDGODcGbF17EiqFKvxhoD5bdNPGQVjDkjJQQ3YvwX55' +
           'NoRvnvnSJtAT5jtlD9M8GOcFtqVIokV+JxBhkK9jJ5iMd5mMAJ7oL' +
           'xx9Vs22EJ4Y2FVpYSTxkIziA86U4nCzJ8OoNOFh2JFnq/EiNBXc+s' +
           'n1ZsF1nBvbT1fAyBjDlc+VorHtkajzycjZMd/dLRSJ1sJ7BdWHaxM' +
           'H/kHgNsga/tOHSI50SQd37vymeVCtIn+64qNcxppqNVMxyKJ2cS+A' +
           'ZcHaOTzyrCIwcN0+DkoqPxOuCcNcHJNQXQ2RJRHmpu/UVdGdx7ELQ' +
           'm8JQx5d2K8++vB43U63mh1HjpaF9rva6XB2Wja/n8sCXuf3rHBqVl' +
           'fB2KvRQc2JuPTpwSBFyN6wD5el6rdIGr8R7Om2Ff2D8kdpEB');
    end;

    procedure FBitmap;
    begin
    FindBitmapToleranceIn(copper, x, y, 560, 214, 734, 457, 25);

    end.

    So something must be wrong beacause I'm gettin this kind of error: Line 6: [Error] (5:1): Identifier expected in script

    Edit: http://www.villavu.com/forum/showthread.php?t=19992 theres my first problem

  2. #2
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    You don't have a main loop:
    SCAR Code:
    begin
      LoadBitmap;
      FBitmap;
      FreeBitmap(copper)
    end.
    This would be the main loop for your first script.

    -Knives

  3. #3
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    your problem is on line 3. remove the semicolon
    ~ Metagen

  4. #4
    Join Date
    Sep 2007
    Location
    Finland
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    So this is what my script looks now:

    SCAR Code:
    program BitmapFinder;

    begin
      LoadBitmap;
      FBitmap;
      FreeBitmap(copper)
    end.

    procedure LoadBitmap;
    begin
     copper := BitmapFromString(32, 30, 'beNrllvFn1GEcx/f8FRGnOe' +
           'ecc865c+5sZtllsx3NXNq41qbOVleW1daaTTNKv6QfIiIiIiIREYl' +
           'IJJGIJPpbet3eu889z92Ju7afOh9fz909z+t5f9+fz/P5fgcG/o+P' +
           'a8ahwMsjydnxTHUy523hwugfXirEK6U08OsLJb5mBge5PjgVe1xNP' +
           'D2beDQXvzcT+4ctGuIFF5+4XY4Cf7aQfL+S+XWzwBbNffvhG1z8a2' +
           'MRxAN/W0//2Mr/3C4wtvvq3THnK5d4bHm9nP66kfu+mScY6y9ytFw' +
           'ZWpkbWa2O9uhYK62If1lLfbqa/XYjT7ALLvH7cCbKnULePHdiuzbO' +
           'Xt22cN0imCDbv6zn/FAZyMmdpYk7l8teMbTWFlIRZIzmYhNDCdI6f' +
           'Ty1JyPgv7mY/ryWU/gymAxfcGL3wmTId9nEUepQdT5fztdmily9mn' +
           'cbpcjzxaTPZLlC5uO84OLjkm8s4lXnYBdPFsgUV8Y2Z3fqGKlEP/k' +
           '1uC1nJsBb9SngXLkRT38jO4TEg0U8YrgyNv7d6Sh8zP9wJfNqKRWm' +
           'ximzyBY/FODwnDDx9dPDa/Nj3AJbGIfKgY/tJJSyeXfJrxCHHnIqf' +
           'mj+PpwCMGdMDGODcGbF17EiqFKvxhoD5bdNPGQVjDkjJQQ3YvwX55' +
           'NoRvnvnSJtAT5jtlD9M8GOcFtqVIokV+JxBhkK9jJ5iMd5mMAJ7oL' +
           'xx9Vs22EJ4Y2FVpYSTxkIziA86U4nCzJ8OoNOFh2JFnq/EiNBXc+s' +
           'n1ZsF1nBvbT1fAyBjDlc+VorHtkajzycjZMd/dLRSJ1sJ7BdWHaxM' +
           'H/kHgNsga/tOHSI50SQd37vymeVCtIn+64qNcxppqNVMxyKJ2cS+A' +
           'ZcHaOTzyrCIwcN0+DkoqPxOuCcNcHJNQXQ2RJRHmpu/UVdGdx7ELQ' +
           'm8JQx5d2K8++vB43U63mh1HjpaF9rva6XB2Wja/n8sCXuf3rHBqVl' +
           'fB2KvRQc2JuPTpwSBFyN6wD5el6rdIGr8R7Om2Ff2D8kdpEB');
    end;

    procedure FBitmap;
    begin
    FindBitmapToleranceIn(copper, x, y, 560, 214, 734, 457, 25);

    end.

    and I got a new error:
    Line 5: [Error] (4:11): Invalid number of parameters in script

  5. #5
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    The mainloop is the last part of your script. It's supposed to be the part in the bottom. Furthest down.

    -Knives

  6. #6
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    SCAR Code:
    program BitmapFinder;
     
    procedure LoadBitmap;
    begin
     copper := BitmapFromString(32, 30, 'beNrllvFn1GEcx/f8FRGnOe' +
           'ecc865c+5sZtllsx3NXNq41qbOVleW1daaTTNKv6QfIiIiIiIREYl' +
           'IJJGIJPpbet3eu889z92Ju7afOh9fz909z+t5f9+fz/P5fgcG/o+P' +
           'a8ahwMsjydnxTHUy523hwugfXirEK6U08OsLJb5mBge5PjgVe1xNP' +
           'D2beDQXvzcT+4ctGuIFF5+4XY4Cf7aQfL+S+XWzwBbNffvhG1z8a2' +
           'MRxAN/W0//2Mr/3C4wtvvq3THnK5d4bHm9nP66kfu+mScY6y9ytFw' +
           'ZWpkbWa2O9uhYK62If1lLfbqa/XYjT7ALLvH7cCbKnULePHdiuzbO' +
           'Xt22cN0imCDbv6zn/FAZyMmdpYk7l8teMbTWFlIRZIzmYhNDCdI6f' +
           'Ty1JyPgv7mY/ryWU/gymAxfcGL3wmTId9nEUepQdT5fztdmily9mn' +
           'cbpcjzxaTPZLlC5uO84OLjkm8s4lXnYBdPFsgUV8Y2Z3fqGKlEP/k' +
           '1uC1nJsBb9SngXLkRT38jO4TEg0U8YrgyNv7d6Sh8zP9wJfNqKRWm' +
           'ximzyBY/FODwnDDx9dPDa/Nj3AJbGIfKgY/tJJSyeXfJrxCHHnIqf' +
           'mj+PpwCMGdMDGODcGbF17EiqFKvxhoD5bdNPGQVjDkjJQQ3YvwX55' +
           'NoRvnvnSJtAT5jtlD9M8GOcFtqVIokV+JxBhkK9jJ5iMd5mMAJ7oL' +
           'xx9Vs22EJ4Y2FVpYSTxkIziA86U4nCzJ8OoNOFh2JFnq/EiNBXc+s' +
           'n1ZsF1nBvbT1fAyBjDlc+VorHtkajzycjZMd/dLRSJ1sJ7BdWHaxM' +
           'H/kHgNsga/tOHSI50SQd37vymeVCtIn+64qNcxppqNVMxyKJ2cS+A' +
           'ZcHaOTzyrCIwcN0+DkoqPxOuCcNcHJNQXQ2RJRHmpu/UVdGdx7ELQ' +
           'm8JQx5d2K8++vB43U63mh1HjpaF9rva6XB2Wja/n8sCXuf3rHBqVl' +
           'fB2KvRQc2JuPTpwSBFyN6wD5el6rdIGr8R7Om2Ff2D8kdpEB');
    end;
    {
    procedure FBitmap;
    begin
    FindBitmapToleranceIn(copper, x, y, 560, 214, 734, 457, 25);
     
    end;
    }


    begin
      LoadBitmap;
      FindBitmapToleranceIn(copper, x, y, 560, 214, 734, 457, 25);
      FreeBitmap(copper)
    end.

    this way around. also you don't really need a procedure if it's only 1 command.

    and end always has ";" --> it only has "." at the end of the mainloop. when it comes before an else it doesn't have anything at all "end else"

    RMagician

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Creating a pick head finder, and gas finder
    By Tom_Gower in forum OSR Help
    Replies: 7
    Last Post: 11-07-2008, 07:06 AM
  2. Bitmap finder
    By 6RoHmU9 in forum OSR Help
    Replies: 16
    Last Post: 10-31-2007, 05:36 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
  •