SCAR Code:
program FirstReflectionWalkerEver;
{.Include SRL\SRL\Misc\Smart.Scar}
{.Include SRL\SRL.Scar}
{.Include SRL\SRL\Reflection\Reflection.Scar}
// reminder for my self that i need that to make it run
//------------------------Instructions----------------------//
// This is my first script ever from walking with reflection.
// Ive followed this tutorial and i hope it workks, and no
// i dont got any failsafe in it, so if it dont find track
// it will fuck you and logg out :O
{--------------------------Smart---------------------------}
Procedure SetupSmart;
Begin
SmartSetupex(16, False, True, False);//Change the number in 'world84'
Wait(1000); //to whichever world you want.
SetTargetDC(SmartGetDC);
end;
{---------------------Setup player(s)------------------------}
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=''; //Your Username
Players[0].Pass :=''; // Your password
Players[0].Nick :='rgep'; //3-4 letters of your username.
Players[0].Active:=True;
end;
{-------------------------------Path-----------------------}
function LoadPath: TPointArray;
begin
SetLength(Result, 21);
Result[0] := Point(3220, 3218);
Result[1] := Point(3232, 3219);
Result[2] := Point(3241, 3226);
Result[3] := Point(3255, 3227);
Result[4] := Point(3260, 3240);
Result[5] := Point(3253, 3251);
Result[6] := Point(3251, 3265);
Result[7] := Point(3244, 3276);
Result[8] := Point(3238, 3289);
Result[9] := Point(3239, 3301);
Result[10] := Point(3229, 3309);
Result[11] := Point(3221, 3320);
Result[12] := Point(3212, 3330);
Result[13] := Point(3205, 3341);
Result[14] := Point(3205, 3354);
Result[15] := Point(3211, 3368);
Result[16] := Point(3211, 3382);
Result[17] := Point(3211, 3396);
Result[18] := Point(3210, 3411);
Result[19] := Point(3212, 3424);
Result[20] := Point(3213, 3428);
end;
{------------------------------Walkpath-----------------------}
Procedure WalkThePath;
Var
I: Integer;
Path: TPointArray;
Begin
Path := LoadPath;
for i := 1 to High(Path) do
Begin
TileToMM(Path[i]); // line i added
WalkToTile(Path[i], 3, 0);
end;
Wait(500+Random(300));
end;
{-------------------------------Loop-----------------------}
begin
SetupSRL;
SetupSmart;
DeclarePlayers;//Calls the DeclarePlayers procedure
LoginPlayer;// This one logs you in xD
GetAllLevels;
SetChat('on',1);
SetChat('friends',2);
SetChat('on',3);
SetAngle(True);
Wait(1000+Random(300));
WalkThePath;
Logout; //This will log your player out!
end.