Code:
rocedure FindNest_old;
var
X, Y: Integer;
Begin
if not LoggedIn then
Exit;
FindNormalRandoms;
If FindObjCustom(x, y, ['Ne', 'st'], [3290938,3883332], 5) Then
begin
Mouse( x, y, 2, 2, True);
Writeln('Found a nest... Attempting to pickup');
MakeCompass(10 + random(50));
end;
End;
function ItemFind_Nest : boolean;
var
X, Y: Integer;
Begin
if not LoggedIn then
Exit;
FindNormalRandoms;
if (FindColorTolerance(x, y, NestColour, Msx1, Msy1, Msx2, Msy2, 10))
or (FindColorTolerance(x, y, NestColour1, Msx1, Msy1, Msx2, Msy2, 10)) then
begin
MMouse(x, y, 0, 0);
if (IsUpText('ake')) then
begin
Mouse(x, y, 2, 2, false);
Flag;
end;
end;
end;
Procedure X_FindNest;
var
X, Y, FindNest: Integer;
Begin
if not LoggedIn then
Exit;
FindNormalRandoms;
FindNest := DTMFromString('m6wAAAHic42ZgYOACYlEGCACxBaF8ISgfBFiAWBKIuaFsbqg6RiDmg7Jh6kB8diC2sdJgcLTXYfD1cWawtzMDs22sTSAYKOfibA3GIDYpgJEEjAQAXz4Ing==')
If FindDTM(FindNest, X, Y, MSX1, MSY1, MSX2, MSY2) Then
Begin
Writeln('Found a nest... Attempting to pickup');
MMouse (x, y, 5, 5);
MakeCompass(0 + random(50));
If IsUpText('nes') Then
Mouse(x, y, 2, 2, True);
End;
FreeDTM(FindNest);
End;
Procedure FindEmptyNest; //Probably not needed. It's a procedure incase the script drops a nest randomly?
var
X, Y, EmptyNest: Integer;
Begin
if not LoggedIn then
Exit;
FindNormalRandoms;
EmptyNest := DTMFromString('mlwAAAHicY2dgYMhmZGDIAuI4IE4B4nwgLgfiIiCew8TAsByIFwDxDCCeDsTzoGKeHhYMjo4WDN7ejkC2PYObmxmDjY0Gg56eBgM+wIgHQwEA+fEMeg==')
If FindDTM(EmptyNest, X, Y, MSX1, MSY1, MSX2, MSY2) Then
Begin
Writeln('Found a nest... Attempting to pickup');
MMouse (x, y, 5, 5);
MakeCompass(0 + random(50));
If IsUpText('nes') Then
Mouse(x, y, 0, 0, True);
End;
FreeDTM(EmptyNest);
End;
Procedure X_CrushNest;
var
X, Y, CrushNest: Integer;
Begin
if not LoggedIn then
Exit;
FindNormalRandoms;
CrushNest := DTMFromString('mggAAAHicY2NgYOADYiEgFgNiGSDmZYAATijNCGULQWkTAw0gyYSBuRiwA0YcGAIAboABOg==')
If FindDTM(CrushNest, X, Y, MIX1, MIY1, MIX2, MIY2) Then
Begin
Writeln('Found a nest inside Inventory, Attempting to crush');
MMouse (x, y, 5, 5);
If IsUpText('cru') Then
Mouse(x, y, 0, 0, True);
End;
FreeDTM(CrushNest);
End;