first script help "indentifier expected..."
alright well this isnt meant to be a real cool big super helpful script, just something to get me into it. but it wont compile.
this is the error i get.
"Line 90: [Error] (16304:1): Identifier expected in script"
this is the script so far:
program talk;
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;
procedure MainLoop;
begin
SmartSetup(World, False, True, False);
SetTargetDC(SmartGetDC);
SetupSRL;
DeclarePlayers;
lolz;
repeat;
TellDemHoes;
DontGetBanned;
StayLoggedIn;
until(false);
end;
end.
help is much appreciated if you can do it pleasse.
i also want to make this so it can auto trade if anyone wants to help with that!