SCAR Code:
program New;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/Reflection/Reflection.scar}
{.include SRL/SRL/Skill/Magic.scar}
var
i, m : integer;
procedure DeclarePlayers;
begin
CurrentPlayer := 0;
NumberOfPlayers(1);
Players[0].Name :=
Players[0].Nick :=
Players[0].Pass :=
Players[0].Active := True;
end;
function LoadPath: TPointArray;
begin
SetLength(Result, 28);
Result[0] := Point(3222, 3217);
Result[1] := Point(3228, 3216);
Result[2] := Point(3234, 3220);
Result[3] := Point(3230, 3226);
Result[4] := Point(3225, 3232);
Result[5] := Point(3220, 3235);
Result[6] := Point(3214, 3236);
Result[7] := Point(3204, 3236);
Result[8] := Point(3198, 3236);
Result[9] := Point(3188, 3235);
Result[10] := Point(3179, 3233);
Result[11] := Point(3171, 3236);
Result[12] := Point(3165, 3235);
Result[13] := Point(3160, 3233);
Result[14] := Point(3153, 3232);
Result[15] := Point(3145, 3229);
Result[16] := Point(3136, 3226);
Result[17] := Point(3131, 3224);
Result[18] := Point(3120, 3217);
Result[19] := Point(3113, 3221);
Result[20] := Point(3109, 3226);
Result[21] := Point(3104, 3228);
Result[22] := Point(3102, 3234);
Result[23] := Point(3099, 3238);
Result[24] := Point(3099, 3244);
Result[25] := Point(3095, 3246);
Result[26] := Point(3093, 3245);
Result[27] := Point(3093, 3243);
end;
begin
SetupSRL;
DeclarePlayers;
SmartSetupEx(113, True, True, False);
SetTargetDC(SmartGetDC);
LoginPlayer;
Cast('1');
m := High(LoadPath);
for i := 0 to m do
WalkToTile(LoadPath[i], 3, 3)
end.
Failed when compiling
Line 310: [Hint] (5289:1): Variable 'T' never used in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Login.scar
Line 32: [Hint] (16131:25): Variable '' never used in script C:\Program Files\SCAR 3.15\includes\SRL\SRL\Reflection\Walking.Scar
Line 64: [Error] (17271:20): Semicolon (';') expected in script
Help please.