Simba Code:
program PortalToShop;
//{$i srl/srl/misc/smart.simba}
{$i srl/srl.simba}
var
x, y: Integer;
Q: Array [0..2] of Integer;//DTM Declaring procedure.
aFound: Extended;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
procedure SetDTM;//DTM Defining procedure.
begin
Q[0] := DTMFromString('mlwAAAHicY2dgYHjCyMBwCYgPAPE7IP4MxMeA+CwQ3wfKPwbiW0D8FIl+CMRF2dkMBZl2cLok14GhIBdC4wOMeDAUAAAzwhQ8');
Q[1] := DTMFromString('mggAAAHicY2NgYHjLyMBwHYgvAvEqIF4DxL+AeDNQbhcQrwXiDUC8E0oXZWczFGTaMZTkOsDZZfmODLgAIw4MAQCaNxAw');
Q[2] := DTMFromString('mlwAAAHicY2dgYLjNyMBwEYgPA/EFIL4LxPeA+BYIA+V3AvEdIL4ExI+g7PtAXBRnz1BTbMYQEKrGEJWgzdCa78XQXezLUJPuyoAPMOLBUAAA2pITXQ==');
end;
procedure FrDTM;//DTM Freeing procedure.
begin
FreeDTM(Q[0]);
FreeDTM(Q[1]);
FreeDTM(Q[2]);
end;
begin
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
SetDTM; //Set DTM's before code.
MouseSpeed := 18;//This makes it move faster but still undetectable, it makes DTM walking even more human-like.
MakeCompass('N');//We agreed we'd have camera facing North.
SetAngle(SRL_ANGLE_HIGH);//Does not matter but it looks cooler from above.
if FindDTMRotated(Q[0], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
begin
Mouse(x, y, 3, 3, true);
FFlag(6);
repeat
Wait(50 + Random(25));
until FindDTMRotated(Q[1], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound);
end;
if FindDTMRotated(Q[1], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
begin
Mouse(x, y, 3, 3, true);
FFlag(6);
repeat
Wait(50 + Random(25));
until FindDTMRotated(Q[2], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound);
end;
if FindDTMRotated(Q[2], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
begin
Mouse(x, y, 3, 3, True);
FFlag(6);
writeln('Path Successful');
end;
// No loop for the last point in the walk.
FrDTM; //Free DTM's after Code.
end.