SCAR Code:
program falconry;
// BY Fre
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}
var
x, y, kebbit: Integer;
procedure Declareplayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'nickname';
Players[0].Pass := 'pass';
Players[0].Nick := 'part of nick';
Players[0].Active := True;
end;
procedure AntiBan;
begin
FindNormalRandoms;
end;
procedure Drop24; //By Lorax (edited by Fre)
var
i: Integer;
begin
for i := 1 to 24 do
DropItem(i);
end;
procedure Catch;
begin
if not FindColorSpiralTolerance(x, y, 4679038, MSX1, MSY1, MSX2, MSY2, 5) then
begin
if FindSymbol(x, y, 'hunter training') then
begin
Mouse(x-20, y+20, 40, 10, True);
Flag;
end else
begin
Mouse(648, 66, 15, 15, True);
Flag;
end;
end;
if FindColorSpiralTolerance(x, y, 4679038, MSX1, MSY1, MSX2, MSY2, 5) then
begin
MMouse(x, y, 5, 5)
if IsUpText('atch Spotted') then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
Flag;
end;
Wait(100 + Random(20));
end;
end;
procedure GetFalcon;
begin
if not FindcolorSpiralTolerance(x, y, 1626879, MSX1, MSY1, MSX2, MSY2, 5) then
begin
if FindColorSpiralTolerance(x, y, 4632542, MSX1, MSY1, MSX2, MSY2, 2) then
begin
Mouse(x, y, 10, 10, True);
Flag;
end;
end;
if FindcolorSpiralTolerance(x, y, 1626879, MSX1, MSY1, MSX2, MSY2, 5) then
begin
Mouse(x-5, y+10, 15, 15,true);
Flag;
Wait(500 + Random(500));
end;
Wait(100 + Random(20));
end;
procedure DropCrap;
begin
Mouse(621, 25, 10, 10, True)
Flag;
AntiBan;
Mouse(621, 25, 10, 10, True)
Drop24;
Mouse(625, 131, 10, 10, True);
Flag;
Mouse(625, 131, 10, 10, True);
AntiBan;
Flag;
mouse(625, 131, 10, 10, True);
end;
procedure Proggy;
begin
WriteLn('I caught '+ IntToStr(kebbit) +' Spotted Kebbits!');
end;
begin
SetupSRL;
SmartSetupEx(69, True, True, false);
Wait(1000);
SetTargetDC(SmartGetDC);
DeclarePlayers;
LoginPlayer;
SetRun(true);
SetAngle(true);
repeat
Catch;
AntiBan;
Wait(Random(100));
GetFalcon;
AntiBan;
Wait(Random(100));
if (InvCount > 26) then
begin
DropCrap;
IncEx(kebbit, 12);
end;
ClearDebug;
Proggy;
until(False)
end.