What am I doing wrong?

[Darth Nihilus]

I'm trying to make an auto-talking script. I guess. It just isn't working I keep getting errors. this is what I have.

--------------------------------------------------------------------------


program Spam;



procedure Spam;
begin;
case random (9) of
0: type('Random text' + char (13));
1: type('Random text' + char (13));
2: type('Random text' + char (13));
3: type('Random text' + char (13));
4: type('Random text' + char (13));
5: type('Random text' + char (13));
6: type('Random text' + char (13));
7: type('Random text' + char (13));
8: type('Random text' + char (13));
end;
end;

begin;
repeat;
SpamSpam;
wait(2000);
Until(false);
end;

end.

[mat_de_b]

What errors are you getting?


Try this

program Spammer;
{.include srl/srl.scar}

procedure Spam;
begin;
case random (9) of
0: TypeSend('Random text' + char (13))
1: TypeSend('Random text' + char (13));
2: TypeSend('Random text' + char (13));
3: TypeSend('Random text' + char (13));
4: TypeSend('Random text' + char (13));
5: TypeSend('Random text' + char (13));
6: TypeSend('Random text' + char (13));
7: TypeSend('Random text' + char (13));
8: TypeSend('Random text' + char (13));
end;
end;

begin;
repeat;
Spam;
wait(2000);
Until(false);
end.

[lolpie]

You have

begin;
repeat;
SpamSpam;
wait(2000);
Until(false);
end;

It should only say Spam once, so it's Spam;