I cant get my sript to work properly
SCAR Code:
program AutoTalker;
{.include SRL/SRL.scar}
//___________________________
//by.Dr.QuantumPhysics
//version -1.3 alpha
Var
loops :integer;
const
WaitTime= 1000; //how many seconds between each message multiplyed by 1000
message1= ('put it here');
message2= ('M2'); //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=2; //if not forever how many times do you want your messages?
begin
loops:=0;
repeat
repeat
Wait((WaitTime)+random(1000));
typesend(message1);
if (message2='none') Then;
Exit;
if not(message2='none') Then;
Wait((WaitTime)+random(1000));
typesend(message2);
if (message3='none') Then;
Exit;
if not(message3='none') Then;
Wait((WaitTime)+random(1000));
typesend(message3);
if (message4= 'none') Then;
Exit;
if not (message4= 'none') Then;
Wait((WaitTime)+random(1000));
typesend(message4);
if (message5='none') Then;
Exit;
if not(message5= 'none') Then;
Wait((WaitTime)+random(1000));
typesend(message5);
if (forever='yes') then;
until (false);
if not(forever='yes') then;
loops:= loops+1;
until(loops>=looptimes);
end.
It wont do what i want it to