Code:
program jadinkotracker;
/////////////////////WRITTEN BY Imscaredtolosemymain////////////////////////
/////templates and ideas borrowed from ryguys ape atoll//////
////////////////////////////VERSION 1.01////////////////////////////////
{$DEFINE SMART}
{$DEFINE SRL5}
{$i SRL/srl.simba}
var
x, y, Lightpatch1, Jungleplant1, dungeonarrow, hole, lightpatch2, jungleplant2,
lightpatch3, lightpatch4, bush, startburrow, timebegan, startingxp: integer;
aFound: extended;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active:=True;
end;
////////////////////DO NOT TOUCH BELOW THIS LINE/////////////////////////
procedure SetDTMs;
begin
lightpatch1 := DTMFromString('mggAAAHicY2NgYKhhYmAogeIJQNwExGVAnAOUSwLidCDOA+IKKH3t3CIGvxIThjY/DobuKbPAeNPqNgZ+oBw2zIgDQwAAykcPVQ==');
JunglePlant1 := DTMFromString('mlwAAAHicY2dgYHBnZGDwAGJfIHYEYmcgDgRifyC+BpQ/BcS3GCDsy1D6ChAHlAoyBFUKMYTVCTH4FQsyxHWKgHFSvygDP1AeF2bEg6EAAIn7DrM=');
DungeonArrow := DTMFromString('mlwAAAHicY2dgYDBjYmCwB2IbILYCYhMgNoLiIqB8DhAXAHE5FMPE/rpKA0lGFBwDJMV4ORn4gTQuzIgHQwEA3BYHDA==');
hole := DTMFromString('mlwAAAHicY2dgYJAAYh4gFgRiDSDWBGJJqPhJIL4ExHuh+CoQXwTifUDs46LE4OeuzJAQrs3QPjGIoXNSMIOtKSeDpjIbAz9QHhdmxIOhAACY6gyZ');
Lightpatch2 := DTMFromString('mwQAAAHic42RgYJjAxMDQxQShpwHxDCieBMR9QNwBxF5AdS5A7AzFnkDsB8RBUOwNxCeOFzKs3hXCsGiFD8Pa1X4MZ491MqxdXgKmV64sZJg1P4qBH6iOEGYkAsMBAG2ZGKk=');
JunglePlant2 := DTMFromString('mKgEAAHic42NgYNBhhGBjIDYAYiMg1gViDSBWgYprQ8VAbH0gVgLiJqDeOiBuAeJ2IO6B4m4g7gDiLiCuguI+KG4G4pTJogypU0QZ4ntEGJImijAEVQoy+BULMHjnCzB45fIzzF7ozuCeyQ/GEU1CDKG1QgzpM0QZ+IF6ycGMZGJUAAAo7RgH');
Lightpatch3 := DTMFromString('mbQAAAHicY2VgYChiYmAoAOIKIE5ggvCjgeIRQBwLxTlAXNNjzdA0VYfBPkmSoQpIV3VZM/ADxdExIxYMBgC0Zwof');
Bush := DTMFromString('m6wAAAHic42ZgYNjFyMCwCYi3MULYe4F4BxDvAeLDQHwEiI8C8QEg7gGq7wLiNijuAOJmIG6FsicA8TQgng2SnxzK4OynyGDtIs9gZCXFoG4gyGBoKcVg46LKYGAhwWBkLcFg4SjLYO4oxcAPVE8sZiQBIwEAQyUV3Q==');
StartBurrow := DTMFromString('mwQAAAHic42RgYPBkZGDwgWIQ2wWIbYDYA4iDoNiYAYLNoNgOiPWAWAeIDYDYAoh5eXlRcE+1H0NvuT/DxIZAhtJ0R4aWEi8GfqA6QpiRCAwHAH0LDBA=');
Lightpatch4 := DTMFromString('mggAAAHicY2NgYJjGxMAwC4jnAXE/E4Q/EYjDgHKhSDgNiL1A6mcFM+gnCTPYJ0mC6XVrSxi6FoQx8APlsGFGHBgCAC8HDNA=');
end;
procedure FreeDTMs;
begin
FreeDTM(lightpatch1);
FreeDTM(JunglePlant1);
FreeDTM(DungeonArrow);
FreeDTM(hole);
FreeDTM(Lightpatch2);
FreeDTM(Jungleplant2);
FreeDTM(Lightpatch3);
FreeDTM(lightpatch4);
FreeDTM(Bush);
FreeDTM(StartBurrow);
end;
procedure Report;
var
Exp, ExpHr, TimeRan: integer;
begin
TimeRan := (1+((GetSystemTime - TimeBegan) / 1000));
Exp := (GetXPBarTotal - StartingXP);
ExpHr := Round((Exp * 3600) / (TimeRan));
WriteLn('Time: ' + TimeRunning);
WriteLn('We have gained ' + IntToStr(Exp) + ' Hunter Experience!');
WriteLn('We are gaining ' + IntToStr(ExpHr) + ' Hunter Experience per Hour!');
end;
Function Antiban: Boolean;
var
i: Integer;
begin
if not LoggedIn then Exit;
//AreaCheck;
i := Random(150);
case i of
1:
begin
RandomRClick;
Result := True;
end;
2:
begin
RandomMovement;
Result := True;
end;
3:
begin
HoverSkill('Hunter', False);
Result := True;
end;
end;
Wait(RandomRange(250,350));
end;
procedure Findstartburrow;
begin
if FindDTM(startburrow, x, y, MSX1, MSY1, MSX2, MSY2)then
Mouse(x, y, 5, 5, True);
Wait(4500 + random(550));
end;
procedure movetofirstplant;
begin
if FindDTMRotated(lightpatch1, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
Mouse(x, y, 5, 5, True);
Wait(6000 + random(1000));
end;
procedure clickonfirstplant;
begin
if FindDTM(jungleplant1, x, y, 133, 124, 355, 227)then //trying x,y co-ords
// if FindDTM(jungleplant1, x, y, MSX1, MSY1, MSX2, MSY2)then
Mouse(x, y, 5, 5, True);
Wait(3000 + random(500));
end;
procedure clickonarrow;
begin
if FindDTMRotated(dungeonarrow, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
Mouse(x, y, 5, 5, True);
Wait(5000 + random(300));
end;
procedure clickonhole;
begin
if FindDTM(hole, x, y, MSX1, MSY1, MSX2, MSY2)then
Mouse(x, y, 5, 5, True);
Wait(5000 + random(400));
end;
procedure clickonlightpatch2;
begin
if FindDTM(lightpatch2, x, y, MMX1, MMY1, MMX2, MMY2)then
Mouse(x, y, 5, 5, True);
Wait(5000 + random(500));
end;
procedure clickonsecondplant;
begin
// if FindDTM(jungleplant2, x, y, 50, 50, 357, 240)then
if FindDTM(jungleplant2, x, y, MSX1, MSY1, MSX2, MSY2)then
Mouse(x, y, 5, 5, True);
Wait(3000 + random(500));
end;
procedure clickonlightpatch3;
begin
if FindDTM(lightpatch3, x, y, MMX1, MMY1, MMX2, MMY2)then
Mouse(x, y, 5, 5, True);
Wait(6000 + random(100));
end;
procedure clickonbush; //needs rightclick
begin
// if FindDTM(bush, x, y, MSX1, MSY1, MSX2, MSY2)then
if FindDTM(bush, x, y, 142, 58, 390, 280)then
MMouse(x, y, 5, 5);
Wait(200 + random(100));
if IsUpText('arch')then
begin
Mouse(x,y,3,3,False);
Wait(750);
ChooseOption('tack');
AntiBan;
Wait(5000 + random(500));
end;
end;
Procedure movetostart;
begin
if FindDTM(lightpatch4, x, y, MMX1, MMY1, MMX2, MMY2)then
Mouse(x, y, 5, 5, True);
Wait(4000 + random(1000));
end;
procedure doestuff;
begin
findstartburrow;
Writeln('looking to move to first plant');
movetofirstplant;
clickonfirstplant;
WriteLn('trying to find arrow');
clickonlightpatch2;
clickonarrow;
clickonhole;
antiban;
clickonlightpatch2;
clickonsecondplant;
clickonlightpatch3;
clickonbush;
movetostart;
antiban;
// Logout;
// TerminateScript;
End;
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
TimeBegan := GetSystemTime;
ToggleXPBar(True);
StartingXP := (GetXPBarTotal);
repeat
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('N');
SetDTMs;
doestuff;
report;
freedtms;
until(AllPlayersInactive);
end.
Only occasionally it doesnt find a dtm, then loops through the entire script going to all the other bushes in the loop, then comes back and recovers.