use scar 2.02
all scripts have autologin ( no sleeping )
nature rune thiever, stand between the 2 chests map facing south
SCAR Code:
program NatureChestThiever;
var
x, y, searchchest: integer;
const
username ='';
password ='';
procedure BitmapLoad;
begin
searchchest := BitmapFromString(41, 12,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'000000000000000000000000000000FFFFFF000000000000000000' +
'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'000000FFFFFF000000000000000000000000000000000000000000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF' +
'000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000FFFFFF000000000000000000FFFFFFFFFFFF000000' +
'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
'000000FFFFFFFFFFFF000000000000000000000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
'000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
'000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000000000000000000000000000FFFFFFFFFFFF' +
'000000FFFFFFFFFFFF000000000000000000000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000');
end;
procedure ThieveChest;
begin
if (FindColorSpiral (x, y, 13027014, 571, 147, 664, 194)) then
begin
ClickMouse (x, y, False);
wait(500);
if (FindBitmap (searchchest, 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
BitmapLoad;
repeat
ThieveChest;
Autologin;
until (False);
end.
airrunepickup
SCAR Code:
program AirRunePickup;
var
x, y, rune: integer;
const
username ='';
password ='';
procedure BitmapLoad;
begin
rune := BitmapFromString(14, 14,
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000FF9040FF9040FF9040FF9040FF9040000000000000000000' +
'000000000000000000000000000000000000FF9040000000000000' +
'000000FF9040FF9040000000000000000000000000000000000000' +
'000000000000FF9040000000000000000000FF9040FF9040000000' +
'FF9040FF9040000000000000FF9040FF9040000000FF9040000000' +
'000000000000FF9040FF9040000000FF9040FF9040000000000000' +
'FF9040FF9040000000FF9040FF9040FF9040FF9040FF9040000000' +
'000000FF9040FF9040000000000000FF9040FF9040000000FF9040' +
'000000000000FF9040FF9040000000000000FF9040FF9040000000' +
'000000FF9040FF9040000000FF9040000000000000000000FF9040' +
'FF9040000000FF9040FF9040000000000000FF9040FF9040000000' +
'FF9040000000000000000000FF9040FF9040000000FF9040FF9040' +
'000000FF9040FF9040FF9040000000FF9040000000000000000000' +
'000000FF9040FF9040000000FF9040FF9040000000FF9040FF9040' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000');
end;
procedure Pickup;
begin
if (FindColorSpiral (x, y, 11774111, 416, 11, 929, 331)) or
(FindColorSpiral (x, y, 8616047, 416, 11, 929, 331)) then
begin
wait(500);
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
BitmapLoad;
repeat
Pickup;
Autologin;
until (False);
end.
Cakestealer, stand between the wall and stall map facing north
SCAR Code:
program CakeStealer;
var
x, y, StealCake: integer;
const
username ='';
password ='';
procedure BitmapLoad;
begin
StealCake := BitmapFromString(20, 13,
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'00000000000000000000000000000000000000FFFF00FFFF00FFFF' +
'00FFFF00FFFF00FFFF000000000000000000000000000000000000' +
'00000000000000000000000000000000000000000000000000FFFF' +
'00FFFF00000000000000000000FFFF00FFFFFFFFFF000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
'00000000FFFF00FFFF00000000000000000000FFFF00FFFFFFFFFF' +
'FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
'00000000000000000000FFFF00FFFF00000000000000000000FFFF' +
'00FFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF00000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00FFFF000000FFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF00000000000000000000000000FFFF00FFFF' +
'00000000000000000000FFFF00FFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
'00FFFF00FFFF00000000000000000000FFFF00FFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'00000000000000FFFF00FFFF00000000000000000000FFFF00FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'00000000000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF' +
'00FFFF000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000');
end;
procedure StealCakes;
begin
if (FindColorSpiral (x, y, 11774111, 659, 159, 693, 188)) then
begin
ClickMouse (x, y, False);
wait(500);
if (FindBitmap (StealCake, 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
BitmapLoad;
repeat
StealCakes;
Autologin;
until (False);
end.
graveyard afk trainer face map north will run when needs to sleep
SCAR Code:
program GraveyardAFKtrainer;
var
x, y: integer;
const
username ='';
password ='';
procedure AttackMode;
begin
if (FindColorSpiral (x, y, 7850, 424, 37, 596, 51)) or
(FindColorSpiral (x, y, 6820, 424, 37, 596, 51)) then
begin
Wait(200);
ClickMouse (495,107, True);
Wait(5000);
end;
end;
procedure Run;
begin
if (FindColorSpiral (x, y, 65280, 424, 306, 567, 322)) or
(FindColorSpiral (x, y, 65280, 424, 306, 567, 322)) then
begin
ClickMouse (877,17, True);
Wait(100);
ClickMouse (910,100,True);
wait(500);
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
AttackMode;
Run;
AutoLogin;
until (False);
end.
Redspiders afk trainer on karamja, face map north, will run if need sleep
SCAR Code:
program RedSpidersAFKtrainer;
var
x, y: integer;
const
username ='';
password ='';
procedure AttackMode;
begin
if (FindColorSpiral (x, y, 197768, 424, 37, 596, 51)) or
(FindColorSpiral (x, y, 395409, 424, 37, 596, 51)) then
begin
Wait(200);
ClickMouse (495,107, True);
Wait(5000);
end;
end;
procedure Run;
begin
if (FindColorSpiral (x, y, 65280, 424, 306, 567, 322)) or
(FindColorSpiral (x, y, 65280, 424, 306, 567, 322)) then
begin
ClickMouse (876,18, True);
Wait(50);
ClickMouse (780,130,True);
wait(500);
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
AttackMode;
Run;
AutoLogin;
until (False);
end.
Thieves guards and picks up coins, runes and arrows
SCAR Code:
program ThieveGuard;
var
x, y, PPG, rune, coins, arrows: integer;
const
username ='';
password ='';
procedure BitmapLoad;
begin
PPG := BitmapFromString(36, 14,
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'FFFFFF000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000FFFFFF000000000000000000' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
'000000000000000000000000000000000000000000000000000000' +
'FFFFFF000000000000000000000000000000000000000000000000' +
'000000000000000000000000FFFFFFFFFFFF000000000000000000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000000000000000000000000000000000' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000' +
'000000000000FFFF00FFFF00000000000000000000000000000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000' +
'000000000000FFFF00FFFF00000000000000000000000000000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00' +
'FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00FFFF00' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF' +
'FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000' +
'000000000000FFFF00FFFF00000000000000000000FFFF00FFFF00' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000000000000000FFFFFFFFFFFF000000000000000000' +
'000000000000FFFF00FFFF00000000000000000000FFFF00FFFF00' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00' +
'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000FFFF00FFFF00000000FFFF00FFFF00FFFF00000000FFFF00' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'');
rune := BitmapFromString(14, 14,
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000FF9040FF9040FF9040FF9040FF9040000000000000000000' +
'000000000000000000000000000000000000FF9040000000000000' +
'000000FF9040FF9040000000000000000000000000000000000000' +
'000000000000FF9040000000000000000000FF9040FF9040000000' +
'FF9040FF9040000000000000FF9040FF9040000000FF9040000000' +
'000000000000FF9040FF9040000000FF9040FF9040000000000000' +
'FF9040FF9040000000FF9040FF9040FF9040FF9040FF9040000000' +
'000000FF9040FF9040000000000000FF9040FF9040000000FF9040' +
'000000000000FF9040FF9040000000000000FF9040FF9040000000' +
'000000FF9040FF9040000000FF9040000000000000000000FF9040' +
'FF9040000000FF9040FF9040000000000000FF9040FF9040000000' +
'FF9040000000000000000000FF9040FF9040000000FF9040FF9040' +
'000000FF9040FF9040FF9040000000FF9040000000000000000000' +
'000000FF9040FF9040000000FF9040FF9040000000FF9040FF9040' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000');
coins := BitmapFromString(27, 13,
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000FFFFFFFFFFFF000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000FF9040FF9040FF9040FF9040000000000000000000' +
'000000FFFFFFFFFFFF000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000FF9040FF9040000000000000FF9040FF9040000000000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000' +
'FF9040FF9040000000000000000000000000000000000000000000' +
'000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
'FF9040FF9040000000000000000000000000000000000000FF9040' +
'000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
'FF9040FF9040000000000000000000000000000000000000FF9040' +
'000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000' +
'FF9040FF9040000000000000000000000000000000000000FF9040' +
'000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000000000000000000000000000000000000000' +
'FF9040FF9040000000000000000000000000000000000000FF9040' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
'000000FF9040FF9040000000000000FF9040FF9040000000FF9040' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000' +
'000000000000FF9040FF9040FF9040FF9040000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'');
arrows := BitmapFromString(25, 15,
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000FF9040FF9040FF9040FF9040' +
'FF9040FF9040000000000000FFFFFFFFFFFF000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000FF9040FF9040000000000000000000FF9040' +
'FF9040000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000' +
'000000FF9040FF9040000000000000000000FF9040FF9040000000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000FF9040' +
'FF9040000000000000000000FF9040FF9040000000FFFFFFFFFFFF' +
'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000000000000000FF9040FF9040FF9040' +
'FF9040FF9040FF9040000000000000FFFFFFFFFFFFFFFFFFFFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
'000000000000000000000000FF9040FF9040000000000000000000' +
'FF9040FF9040000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000000000000000000000000000' +
'000000000000FF9040FF9040000000000000000000FF9040FF9040' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
'FF9040FF9040000000000000000000FF9040FF9040000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'FFFFFFFFFFFF000000000000000000000000000000FF9040FF9040' +
'FF9040FF9040FF9040FF9040000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000');
end;
procedure AttackMode;
begin
if (FindColorSpiral (x, y, 127, 425, 38, 595, 112)) then
begin
Wait(100);
ClickMouse (489, 104, True);
Wait(500);
end;
end;
procedure Menu;
begin
if (FindColorSpiral (x, y, 8585216, 728, 3, 925, 35)) then
begin
Wait(100);
ClickMouse (419, 2, False);
Wait(1000);
end;
end;
procedure Guard;
begin
if (FindColorSpiral (x, y, 8752875, 418, 10, 927, 333)) then
begin
Wait(500);
ClickMouse (x, y, False);
wait(1000);
if (FindBitmap (PPG, x, y)) then
begin
ClickMouse (x+2, y+2, True);
end;
end;
end;
procedure runes;
begin
if (FindColorSpiral (x, y, 10721423, 418, 10, 927, 333)) then
begin
Wait(100);
ClickMouse (x, y, False);
wait(1000);
if (FindBitmap (rune, x, y)) then
begin
ClickMouse (x+2, y+2, True);
end;
end;
end;
procedure BRunes;
begin
if (FindColorSpiral (x, y, 10721423, 418, 10, 927, 333)) or
(FindColorSpiral (x, y, 5393738, 418, 10, 927, 333)) then
begin
Wait(500);
ClickMouse (x, y, False);
wait(500);
if (FindBitmap (rune, x, y)) then
begin
ClickMouse (x+2, y+2, True);
end;
end;
end;
procedure Money;
begin
if (FindColorSpiral (x, y, 49404, 418, 10, 927, 333)) then
begin
Wait(500);
ClickMouse (x, y, False);
wait(500);
if (FindBitmap (coins, x, y)) then
begin
ClickMouse (x+2, y+2, True);
end;
end;
end;
procedure BArrows;
begin
if (FindColorSpiral (x, y, 3302317, 418, 10, 927, 333)) then
begin
Wait(500);
ClickMouse (x, y, False);
wait(500);
if (FindBitmap (arrows, x, y)) then
begin
ClickMouse (x+2, y+2, True);
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
BitmapLoad;
repeat
AttackMode;
Menu;
Guard;
BRunes;
Runes;
Money;
BArrows;
AutoLogin;
until (False);
end.