Well, I re-downloaded SCAR and re-downloaded SRL, but I still get the error. Here's the script that I'm trying to run (I know there are errors, but the compiler won't get past line 2).
SCAR Code:
program PowerMiner;
{.include SRL\SRL\SKILL\MINING.SCAR}
{.include SRL\SRL\MISC\SMART.SCAR}
{.include SRL\SRL.SCAR}
var
WaitTime : Integer;
Mining : string;
Place : string;
ore : string;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '99wcing 4eva'; //your runescape account
Players[0].Pass := 'wassup'; // your runescape password of your account
Players[0].Nick := 'cing'; // 2-4 letters to use for antirandoms
Players[0].Active := True; // use this character?
Mining := copper; //What to mine? Choice of: Clay, Copper, Tin, Iron, Coal, Gold, Mithril, Adamant
Place := rimmington; //Where to mine? Choice of: rimmington, lumbridge or varrock
ore := place+' '+mining
end;
Procedure Login;
begin
LoginPlayer;
end;
Procedure AntiBan;
begin
if(not(LoggedIn))then Exit;
case Random(25) of
0: begin
HoverSkill('Mining', false);
wait(2453+Random(432));
end;
1: begin
pickupmouse;
end;
2: begin
MakeCompass('N');
MakeCompass(IntToStr(Random(360)));
wait(500+random(500));
end;
3: begin
GameTab(1 + Random(12));
wait(800 + random(500));
GameTab(4);
end;
4: begin
BoredHuman;
end;
5: begin
case Random(3) of
0: Typesend('Lagg');
end;
end;
6: begin
MMouse(Random(750), Random(750), Random(100), Random(100));
end;
7: begin
case Random(5) of
0: begin If(LoggedIn)then Logout;
WaitTime := 120000+(random(60000));
Wait(WaitTime);
WriteLn('Taking a break for: '+inttostr(WaitTime));
end;
1: begin If(LoggedIn)then Logout;
WaitTime := 600000+(random(120000));
Wait(WaitTime);
WriteLn('Taking a break for: '+inttostr(WaitTime));
end;
end;
end;
8: begin
wait(10000+random(5000));
end;
end;
end;
Procedure AntiRandom;
Begin
If(FindFight)then
RunAway('N', True,1,15000);
FindNormalRandoms;
FindLamp('Mining');
end;
Procedure getOre;
begin
SetupMining;
if(not(findpick)) then Logout;
if(findgas) then
begin
PrintLn('Gas was found, waiting...');
Wait(3000+random(50000));
end;
if(not(findgas)and(
end;
begin
Disguise('iTunes');
DeclarePlayers;
SMARTSetUpEX(55, False, True, False);
SetTargetDC(SMARTGetDC);
SetupSRL;
ActivateClient;
Login;
if(Logged in)then Repeat
AntiBan;
AntiRandom;
getOre;
Until(not(Logged in));
end.