Hi,
Here is my script, there seems to be a problem:
SCAR Code:
///////////////////////////////////////////////////////////////////////////////
{ CamdoTYper By CamdoClark
Have Fun! [url]www.srl-forums.com[/url] Thanks to Santa_Clause and floor66 for helping me.}
program CamdoTyper;
{.include SRL/SRL.scar}
var
HowManyTypes,Time: integer;
const
HowManyMessages=1; //Would you like there to be two messages in a row?
Message1='Hi!'; //Type the message that will be put in.
Message2=''; //Type the next message that will appear. If there is only one, leave blank.
Cyan=True; //True for Cyan
Red=False; //True for red
Scroll=False; //True for scroll
Purple=False; //True for purple
Green=False; //True for green
{Don't mess with anything down here.}
procedure TypeIt;
begin
HowManyTypes:=0;
Time:=7000;
SetupSRL;
repeat
if (Cyan=True) and (HowManyMessages=1) then
begin
TypeSend('cyan:' + Message1);
Wait(Time);
HowManyTypes:=HowManyTypes+1;
if (Red=True) and (HowManyMessages=1) then
begin
TypeSend('red:' + Message1);
Wait(Time);
HowManyTypes:=HowManyTypes+1;
if (Scroll=True) and (HowManyMessages=1) then
begin
TypeSend('scroll:' + Message1);
Wait(Time);
HowManyTypes:=HowManyTypes+1;
if (Purple=True) and (HowManyMessages=1) then
begin
TypeSend('purple:' + Message1);
Wait(Time);
HowManyTypes:=HowManyTypes+1;
if (Green=True) and (HowManyMessages=1) then
begin
TypeSend('green:' + Message1);
Wait(Time);
HowManyTypes:=HowManyTypes+1;
if (Cyan=True) and (HowManyMessages=2) then
begin
TypeSend('cyan:' + Message1);
Wait(Time);
TypeSend('cyan:' + Message2);
Wait(Time);
HowManyTypes:=HowManyTypes+1;
if (Red=True) and (HowManyMessages=2) then
begin
TypeSend('red:' + Message1);
Wait(Time);
TypeSend('red:' + Message2);
Wait(Time);
HowManyTypes:=HowManyTypes+1;
if (Scroll=True) and (HowManyMessages=2) then
begin
TypeSend('scroll:' + Message1);
Wait(Time);
TypeSend('scroll' + Message2);
Wait(Time);
HowManyTypes:=HowManyTypes+1;
if (Purple=True) and (HowManyMessages=2) then
begin
TypeSend('purple:' + Message1);
Wait(Time);
TypeSend('purple:' + Message2);
Wait(Time);
HowManyTypes:=HowManyTypes+1;
if (Green=True) and (HowManyMessages=2) then
begin
TypeSend('green:'+ Message1);
Wait(Time);
TypeSend('green:'+ Message2);
Wait(Time);
HowManyTypes:=HowManyTypes+1;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
until(false);
end;
procedure Display;
begin
Writeln('Typed '+IntToStr(HowManyTypes)+' phrases');
end;
begin
SetupSRL;
TypeIt;
Display;
end.
Here's what keeps showing up:
Line 97: [Error] (14778:1): Identifier expected in script C:\Program Files\SCAR 3.12\Scripts\CamdoTyper.scar
Thanks,
Camdo Clark