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