SCAR Code:
program Looter;
{.include SRL\SRL.Scar}
Var
lob,tuna,salmon,pike,trout,cake,x,y : Integer;
Procedure Eat; //A function returns a variable, a procedure just does something
begin
GameTab(4);
lob:= BitmapFromString(8, 8, 'beNpLlNibKlHsKLA1UQKIjmVKXCs' +
'EoeeVEgIiAj2+IHGgAoj481oQWhopsDQUXfx7myJQHMgFCkLEsy04' +
'gOIMDAxALlDNvUqoONBYCAKygYLvwXqByno8BaYECgANASpDCPoKz' +
'AELbo0VYICBFleBOaFgQaCbASPcQw0=');
if FindBitmapSpiralTolerance(lob,x,y,563,219,729,457,10) then
begin
Mouse(x,y,5,5,true)
Writeln('Ate A Lobster')
FreeDTM(lob);
end;
tuna:= BitmapFromString(11, 10, 'beNp9jTsKgDAQRPconkuwkGAh' +
'YiGLhYR0qSRYSEpbS+/ofswiCMIrlnmTCcDQ1P+g0TJxHJR37junp' +
'OmxljC9i4TkWqCQlin0guZEDphm1JttJ696d66RMGXYJtm8IBPwCJ' +
'6bc5mS49q4ABW8eZ4I15a0kIP/Wi7spVB26C+zcAPD/IfJ');
if FindBitmapSpiralTolerance(tuna,x,y,563,219,729,457,10)then
begin
Mouse(x,y,5,5,true)
Writeln('Ate A Tuna');
FreeDTM(Tuna);
end;
salmon:= BitmapFromString(8, 10, 'beNpjYACCFh2BHgOBKUBkIjD' +
'HRGCphcBWRwlkkbVgkWOuEudcJRBqbAQgItc8QWgtWGSvI1Tkni8I' +
'PQ+U2AvWCBF5DhZ5D0ShilARCDdQ4nuoIhD9TzQ811YMFIQjiOz/Q' +
'i+gOFA9UNex2uxjtcUg1FQMdPy1tmqIXXsrs/eWZoPIymyQeFc1RC' +
'9QGVBka2n21sJkBgDcBGC9');
if FindBitmapSpiralTolerance(salmon,x,y,563,219,729,457,10)then
begin
Mouse(x,y,5,5,true)
Writeln('Ate A Salmon')
FreeDTM(salmon);
end;
pike:= BitmapFromString(11, 7, 'beNp1jq0OwzAMhPN8g4GhRpNRd' +
'WgKm6KCKSoYKCgIKAgoKBjY883XtNMGan3s/uyc7y7h5uXutQ86CE' +
'aJRVNFWpBW5BWn0ivmN9GnkJEGTEr1y9aAq2JWFDWVhgrr2VMt2NQ' +
'DTlTYojy4y+nyZ8hbrQXp6YPBhlmjUdG+cr/3AVuvatI=');
if FindBitmapSpiralTolerance(trout,x,y,563,219,729,457,10)then
begin
Mouse(x,y,5,5,true)
Writeln('Ate A Trout')
FreeDTM(trout);
end;
trout:= BitmapFromString(12, 6, 'beNorLWZgYIjy9UoODMqODCqO' +
'jSpOjKpOTW7Jze4pzO4pLQaiKZXFyaFQWaBUdSZCFigFQrXVcyCoC' +
'Yzaqpe2tQARRDvcECACqinOzF7b17O0qwWCgOYATUPWC2QjK4CoAS' +
'KgLWC7QNYBFazta0FGUPPbqoGyIBsBK8FqGg==');
if FindBitmapSpiralTolerance(pike,x,y,563,219,729,457,10)then
begin
Mouse(x,y,5,5,true)
Writeln('Ate A Pike');
FreeDTM(pike);
end;
cake:= BitmapFromString(13, 10, 'beNrLFTg3S+LaIol7yySer0NC' +
'q6Do3DyJvX0Sa5sQyu6tAqNlUAQUBKoByu6dBFY2D6oMSIIQWOrYN' +
'BACKgAatbVNAIiOaUgc05EAkRoSe2Foq4bAVhWBtSoCS8FojoLA/9' +
'//QeD3/+9A8Pn7eyB4/f754+fP79+7d/vevevX7l2+du38OSKVQdx' +
'2DtNJXSBXAR2/tFZgaaXANQxlx9CUVQrMKYUqg3gQohLuQYhRQDVT' +
'ClGUIYxCVTMFAGsv1sA=');
if FindBitmapSpiralTolerance(cake,x,y,563,219,729,457,10)then
begin
Mouse(x,y,5,5,true)
Writeln('Ate Some Cake')
FreeDTM(cake);
end;
Writeln('Dont think I have any food.');
end;
Procedure HealthCheck;
begin
if FindColor(x,y,65535,737,26,741,37)then
begin
Writeln('Health is yellow. Trying To Eat Something.');
Mouse(660,141,10,10, true);
Eat;
Mouse(640,122,10,10, true);
end;
if FindColor(x,y,255,737,26,741,37)then
begin
Writeln('Im about to die! Running.');
Mouse(660,141,10,10, true);
Wait(1000+random(3000));
end;
end;
procedure Loot;
begin
if(FindObjCustom(x, y, ['mul', 'oin', 'une', 'rrow', 'rout', 'ike', 'ice', 'word', 'itar', 'xe', 'ace', 'ow', 'hield', 'taf', 'obst', 'mon', 'ion', 'ial'],[9705488,530539,1055884,1076661,1605070,14032920,3258037,2213871,1610421,7568788,14079966,1080741,1091237,11909821,1075596,9712689,1597877,6515067,8096470,6510914,7052923,3756345,7040388,1583293], 10))then
begin
Mouse(x, y, 5, 5, false);
ChooseOption('ake');
Writeln('Looting Something')
Wait(RandomRange(100, 400));
end;
end;
Procedure Look;
begin
wait(1000+ random(800));
HealthCheck;
Loot;
end;
begin
Repeat
Wait(1000);
if IsFKeyDown(2)then
begin
Writeln('Looting.');
Look;
end;
Until(IsFkeyDown(4));
end.