I tried searching the forums, but couldn't find anything that would solve this.
I keep getting an error saying that an identifier is expected in line 38. Not sure what it needs.
Here's the script. Let me know if you see anything else that's extremely wrong.
Edit: Here's the updated script without the identifier error. Read below for the new problem :\
SCAR Code:
{====================================================================|
| CrossBack7's Autotalker 0.1 - First Script |
| -Can Enter Up to Four Messages. |
| -If No Message Is Entered, It Will Not Type Anything for It. |
| -Just Fill In Form and Press Start. |
| -Hope to Include Autotrader in Later Version. |
| Suggestions are appreciated. This is basically a little of a |
|variation on Bebemycat2's tut. Thanks to her for her help. |
|I'd like to add more to this. |
|====================================================================|
}
program Gab;
{.include srl/srl.scar}
var
Autotalker : TForm;
FirstMessage : TLabel;
SecondMessage : TLabel;
ThirdMessage : TLabel;
FourthMessage : TLabel;
Label1 : TLabel;
Button1 : TButton;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
Message1, Message2, Message3, Message4: String;
procedure ButtonClick(Sender: TObject);
begin
Button1.ModalResult:=MrOk;
end;
procedure InitForm;
begin
Autotalker := CreateForm;
Autotalker.Left := 250;
Autotalker.Top := 114;
Autotalker.Width := 696;
Autotalker.Height := 480;
Autotalker.Caption := 'Autotalker';
Autotalker.Color := cl3DLight;
Autotalker.Font.Color := clWindowText;
Autotalker.Font.Height := -11;
Autotalker.Font.Name := 'MS Sans Serif';
Autotalker.Font.Style := [];
Autotalker.ShowHint := True;
Autotalker.Visible := False;
Autotalker.PixelsPerInch := 96;
FirstMessage := TLabel.Create(Autotalker);
FirstMessage.Parent := Autotalker;
FirstMessage.Left := 82;
FirstMessage.Top := 29;
FirstMessage.Width := 80;
FirstMessage.Height := 18;
FirstMessage.Caption := 'First Message';
FirstMessage.Font.Color := clMaroon;
FirstMessage.Font.Height := -16;
FirstMessage.Font.Name := 'Perpetua';
FirstMessage.Font.Style := [];
FirstMessage.ParentFont := False;
SecondMessage := TLabel.Create(Autotalker);
SecondMessage.Parent := Autotalker;
SecondMessage.Left := 82;
SecondMessage.Top := 105;
SecondMessage.Width := 102;
SecondMessage.Height := 18;
SecondMessage.Caption := 'Second Message';
SecondMessage.Font.Color := clNavy;
SecondMessage.Font.Height := -16;
SecondMessage.Font.Name := 'Perpetua';
SecondMessage.Font.Style := [];
SecondMessage.ParentFont := False;
ThirdMessage := TLabel.Create(Autotalker);
ThirdMessage.Parent := Autotalker;
ThirdMessage.Left := 82;
ThirdMessage.Top := 171;
ThirdMessage.Width := 264;
ThirdMessage.Height := 18;
ThirdMessage.Caption := 'Third Message';
ThirdMessage.Font.Color := clPurple;
ThirdMessage.Font.Height := -16;
ThirdMessage.Font.Name := 'Perpetua';
ThirdMessage.Font.Style := [];
ThirdMessage.ParentFont := False;
FourthMessage := TLabel.Create(Autotalker);
FourthMessage.Parent := Autotalker;
FourthMessage.Left := 82;
FourthMessage.Top := 241;
FourthMessage.Width := 112;
FourthMessage.Height := 18;
FourthMessage.Caption := 'Fourth Message';
FourthMessage.Font.Color := clAqua;
FourthMessage.Font.Height := -16;
FourthMessage.Font.Name := 'Perpetua';
FourthMessage.Font.Style := [];
FourthMessage.ParentFont := False;
Label1 := TLabel.Create(Autotalker);
Label1.Parent := Autotalker;
Label1.Left := 205;
Label1.Top := 11;
Label1.Width := 219;
Label1.Height := 28;
Label1.Caption := 'Crossback7'#39's Autotalker!';
Label1.Font.Color := clLime;
Label1.Font.Height := -24;
Label1.Font.Name := 'Perpetua';
Label1.Font.Style := [];
Label1.ParentFont := False;
Button1 := TButton.Create(Autotalker);
Button1.Parent := Autotalker;
Button1.Left := 310;
Button1.Top := 372;
Button1.Width := 75;
Button1.Height := 25;
Button1.Cursor := crHandPoint;
Button1.Caption := 'Start';
Button1.Font.Color := clRed;
Button1.Font.Height := -16;
Button1.Font.Name := 'Papyrus';
Button1.Font.Style := [fsBold];
Button1.ParentFont := False;
Button1.TabOrder := 8;
Edit1 := TEdit.Create(Autotalker);
Edit1.Parent := Autotalker;
Edit1.Left := 77;
Edit1.Top := 55;
Edit1.Width := 480;
Edit1.Height := 21;
Edit1.TabOrder := 9;
Edit2 := TEdit.Create(Autotalker);
Edit2.Parent := Autotalker;
Edit2.Left := 77;
Edit2.Top := 129;
Edit2.Width := 480;
Edit2.Height := 21;
Edit2.TabOrder := 10;
Edit3 := TEdit.Create(Autotalker);
Edit3.Parent := Autotalker;
Edit3.Left := 77;
Edit3.Top := 196;
Edit3.Width := 480;
Edit3.Height := 21;
Edit3.TabOrder := 11;
Edit4 := TEdit.Create(Autotalker);
Edit4.Parent := Autotalker;
Edit4.Left := 77;
Edit4.Top := 267;
Edit4.Width := 480;
Edit4.Height := 21;
Edit4.TabOrder := 12;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
AutoTalker.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure DefineMessages;
begin
Message1:=Edit1.Text;
Message2:=Edit2.Text;
Message3:=Edit3.Text;
Message4:=Edit4.Text;
end;
procedure Speak;
begin
TypeSend(Message1);
Wait(1500 + random(500));
TypeSend(Message2);
Wait(1500 + random(500));
TypeSend(Message3);
Wait(1500 + random(500));
TypeSend(Message4);
Wait(1500 + random(500));
end;
begin
SetupSRL;
SafeInitForm;
SafeShowFormModal;
ActivateClient;
DefineMessages;
repeat
Speak
until(false)
end.