well actually the script goes like this
it logs in, picks up the runes when it gets logged out, it logs back in and then i get the error message
line 37 :
if (FindColorSpiral (x, y, 8616047, 416, 11, 929, 331)) then
SCAR Code:
program AirRunePickup;
var
x, y, rune: integer;
const
username ='';
password ='';
procedure BitmapLoad;
begin
rune := BitmapFromString(14, 14,
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000FF9040FF9040FF9040FF9040FF90400000000000000 00000' +
'000000000000000000000000000000000000FF90400000000 00000' +
'000000FF9040FF90400000000000000000000000000000000 00000' +
'000000000000FF9040000000000000000000FF9040FF90400 00000' +
'FF9040FF9040000000000000FF9040FF9040000000FF90400 00000' +
'000000000000FF9040FF9040000000FF9040FF90400000000 00000' +
'FF9040FF9040000000FF9040FF9040FF9040FF9040FF90400 00000' +
'000000FF9040FF9040000000000000FF9040FF9040000000F F9040' +
'000000000000FF9040FF9040000000000000FF9040FF90400 00000' +
'000000FF9040FF9040000000FF9040000000000000000000F F9040' +
'FF9040000000FF9040FF9040000000000000FF9040FF90400 00000' +
'FF9040000000000000000000FF9040FF9040000000FF9040F F9040' +
'000000FF9040FF9040FF9040000000FF90400000000000000 00000' +
'000000FF9040FF9040000000FF9040FF9040000000FF9040F F9040' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000000000000000000000000000');
end;
procedure Pickup;
begin
if (FindColorSpiral (x, y, 8616047, 416, 11, 929, 331)) then
begin
ClickMouse (x, y, False);
wait(500);
if (FindBitmap (rune, x, y)) then
begin
ClickMouse (x+2, y+2, True);
Wait(1000);
end;
end;
end;
procedure Autologin;
begin
if (FindColorSpiral (x,y, 3472636, 500, 142, 505, 148)) then
begin
ClickMouse(680, 290,true);
wait(500);
Sendkeys(username);
wait(500);
ClickMouse(602,307,true);
wait(500);
SendKeys(password);
wait(500);
ClickMouse(830,250,true);
wait(3000);
ClickMouse(661,246,true);
end;
end;
begin
repeat
BitmapLoad;
Pickup;
Autologin;
until (False);
end.