SRL Archive - First Scripts

I cant fix it I realy need help
(yes i know its sad that i cant fix my own script)
:(

What errors are you getting?

it would be easier if you just downloaded it

program AutoTalker;
{.include SRL/SRL.scar}
//___________________________
//by.Dr.QuantumPhysics
//version -3.1415926535 alpha
Var
loops :integer;

const
WaitTime= 1000; //how many seconds between each message multiplyed by 1000
message1= ('put it here');
message2= ('none'); //If none write none
message3= ('M3'); //If none write none
message4= ('M4'); //If none write none
message5= ('none'); //If none write none
forever= 'no';//do you want it to repeat forever? if yes put yes,if no put no
loopTimes=1; //if not forever how many times do you want your messages?

procedure Send1;
begin
 Wait((WaitTime)+random(1000));
 typesend(message1);
end;

procedure Send2;
begin
  if (message2='none') Then;
    Exit;
  if not(message2='none') Then;
  Wait((WaitTime)+random(1000));
  typesend(message2);
end;

procedure Send3;
begin
  if (message3='none') Then;
    Exit;
  if not(message3='none') Then;
  Wait((WaitTime)+random(1000));
  typesend(message3);
end;

procedure Send4;
begin
  if (message4= 'none') Then;
    Exit;
  if not (message4= 'none') Then;
  Wait((WaitTime)+random(1000));
  typesend(message4);
end;

procedure Send5;
begin
  if (message5='none') Then;
    Exit;
  if not(message5= 'none') Then;
  Wait((WaitTime)+random(1000));
  typesend(message5);
end;

begin
 loops:=0;
 repeat
  loops:= loops+1;
  send1;
  send2;
  send3;
  send3;
  send5;
  if (forever='yes') then;
    loops:=0;
  if not(forever='yes') then;
 until (loops>=looptimes)
End.

It compiles now. Doesn't work correctly though, I don't know why… Good luck and great idea :D

~Stupedspam