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;