This version compiles and it should work. I fixed it up in two minutes, study it 
Btw, what all of those spaces are, they are called standards. They make it easier to read the script.
SCAR Code:
Program Talker;
{.include srl/srl.scar}
const
TimeForPlayer = 10; // time each player spams everyone (+ random 5)
World = 'world1'; // world you want to play on
Message1 = 'your text here';
Message2 = 'your text here';
Message3 = 'your text here';
Time1 = 2000; //time between each message sent
Time2 = 1500; // random time added
procedure DeclarePlayers;
begin
CurrentPlayer := 0;
NumberOfPlayers(1); // Must be correct .
Players[0].Name := ''; //your username between ''
Players[0].Pass := ''; //your password between''
Players[0].Nick := ''; //put 3 to 4 letters from you username between the ' ' (no caps or numbers)
Players[0].Active := True; //active->True or False.
end;
procedure lolz;
begin
ClearDeBug;
Writeln('Ayyeee!');
Wait(1000 + random(500));
Writeln('Thank you very much for trying my script');
Writeln('and for supporting srl-forums.com');
Wait(1000 + random(500));
Writeln('be sure to post suggestion for this or');
Writeln('anyother script back on the forums');
Wait(1000 + random(500));
Writeln('thanks again');
Writeln('enjoy!');
Wait(4000 + random(500));
ClearDebug;
end;
procedure TellDemHoes;
begin
SetAngle(true);
MakeCompass('n');
Setrun(True);
Wait (1000);
if (not (LoggedIn)) then Exit;
case Random(3) of
0: Typesend(Message1);
1: Typesend(Message2);
2: Typesend(Message3);
end;
end;
procedure DontGetBanned;
begin
Wait(Time1 + random(Time2));
end;
procedure StayLoggedIn;
begin
case Random(6) of
0: RandomMovement;
1: BoredHuman;
2: HoverSkill('crafting', False);
3: HoverSkill('random', False);
4: MMouse(50 + random(25), 40 + random(30), 5, 5);
5: RandomRClick;
end;
end;
begin
setupsrl;
SmartSetup(World, False, True, False);
SetTargetDC(SmartGetDC);
SetupSRL;
DeclarePlayers;
lolz;
repeat;
TellDemHoes;
DontGetBanned;
StayLoggedIn;
until(false);
end.