BigRedJapan
2013-02-23 15:23:38
So this is my code!
I found the banker and it right clicked but after that it just executes the script.
A little Help!
No Errors Found by Compiler
I found the banker and it right clicked but after that it just executes the script.
A little Help!
program Testbitmap;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
var
Bank:integer;
Procedure OpenB;
var
X,Y:Integer;
begin
if FindColorTolerance(X, Y, 7763583, 215, 97, 320, 121, 5) then
begin
WriteLn('Found Banker');
mmouse(x, y, 1, 1);
wait(250);
ClickMouse(X, Y, mouse_Right)
wait(450);
if FindBitmapToleranceIn(Bank, X, Y, 217, 91, 357, 200, 80) then
begin
WriteLn('Found Bitmap');
mmouse(x, y, 1, 1);
wait(250);
ClickMouse(X, Y, mouse_Left);
end;
end;
end;
Begin
MouseSpeed := 15;
Bank := BitmapFromString(77, 8, 'meJytVFsOwCAI43a7wH53/2Mwo5n' +
'hVUQz4gepFdvBZGYiuu6He4x8dy3PUtv9CDLfXcdnWQT18HhI9ng7' +
'a3Arby5xkcQR39tM+CE43UmFnOLeEfpWgTytcIE7R+G3qhSZw2YGz' +
'zTOcKZNiSOP+dD6RofKFR7OgysumaHN3A7K0cQWlSw5xQn3XR4KKx' +
'aKOXK6YaGWw8kHXUa/VT60y/zsCTqwnDxZiqxDaYu2dvO82o8X5UV' +
'eNAQrtg==');
OpenB;
FreeBitmap(Bank);
end. No Errors Found by Compiler