//directions
//put what you want to say in lines 9-12
//press play to start
//press F11 to stop
program New;
{.include SRL\SRL.Scar}
const
ms1='cyan:wave2:selling full rune-your rs name here';//put ur rs name after the -
ms2='white:wave2:selling full rune-your rs name here';
ms3='flash2:wave2:selling full rune-your rs name here';
ms4='green:wave2:selling full rune-your rs name here';
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Image1 : TImage;
Image2 : TImage;
Memo1 : TMemo;
Memo2 : TMemo;
Memo3 : TMemo;
START : TButton;
ComboBox1 : TComboBox;
ComboBox2 : TComboBox;
ComboBox3 : TComboBox;
ComboBox4 : TComboBox;
ComboBox5 : TComboBox;
StartScript: Boolean;
procedure buttonclick(sender: TObject);
begin
Writeln('Button pressed!');
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
StartScript := True;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 278;
frmDesign.Top := 122;
frmDesign.Width := 314;
frmDesign.Height := 379;
frmDesign.Caption := 'Auto-talker by diamondhero6';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 153;
Label1.Top := 226;
Label1.Width := 32;
Label1.Height := 13;
Label1.Caption := 'Label1';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 129;
Label2.Top := 222;
Label2.Width := 32;
Label2.Height := 13;
Label2.Caption := 'Label2';
Image1 := TImage.Create(frmDesign);
Image1.Parent := frmDesign;
Image1.Left := 140;
Image1.Top := 178;
Image1.Width := 105;
Image1.Height := 105;
Image2 := TImage.Create(frmDesign);
Image2.Parent := frmDesign;
Image2.Left := 134;
Image2.Top := 133;
Image2.Width := 105;
Image2.Height := 105;
Memo1 := TMemo.Create(frmDesign);
Memo1.Parent := frmDesign;
Memo1.Left := 0;
Memo1.Top := 0;
Memo1.Width := 305;
Memo1.Height := 344;
Memo1.Color := clHighlight;
Memo1.Lines.Add('Memo1');
Memo1.TabOrder := 8;
Memo2 := TMemo.Create(frmDesign);
Memo2.Parent := frmDesign;
Memo2.Left := 16;
Memo2.Top := 16;
Memo2.Width := 271;
Memo2.Height := 307;
Memo2.Color := clWindowText;
Memo2.Lines.Add('Memo2');
Memo2.TabOrder := 9;
Memo3 := TMemo.Create(frmDesign);
Memo3.Parent := frmDesign;
Memo3.Left := 62;
Memo3.Top := 60;
Memo3.Width := 185;
Memo3.Height := 223;
Memo3.Color := clInactiveCaption;
Memo3.Lines.Add('Memo3');
Memo3.TabOrder := 10;
START := TButton.Create(frmDesign);
START.OnClick:= @buttonclick;
START.Parent := frmDesign;
START.Left := 120;
START.Top := 250;
START.Width := 75;
START.Height := 25;
START.Caption := 'START';
START.TabOrder := 11;
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 83;
ComboBox1.Top := 84;
ComboBox1.Width := 145;
ComboBox1.Height := 21;
ComboBox1.Enabled := False;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 12;
ComboBox1.Text := ' PRESS';
ComboBox2 := TComboBox.Create(frmDesign);
ComboBox2.Parent := frmDesign;
ComboBox2.Left := 83;
ComboBox2.Top := 118;
ComboBox2.Width := 145;
ComboBox2.Height := 21;
ComboBox2.Enabled := False;
ComboBox2.ItemHeight := 13;
ComboBox2.TabOrder := 13;
ComboBox2.Text := ' START';
ComboBox3 := TComboBox.Create(frmDesign);
ComboBox3.Parent := frmDesign;
ComboBox3.Left := 84;
ComboBox3.Top := 149;
ComboBox3.Width := 145;
ComboBox3.Height := 21;
ComboBox3.Enabled := False;
ComboBox3.ItemHeight := 13;
ComboBox3.TabOrder := 14;
ComboBox3.Text := ' TO';
ComboBox4 := TComboBox.Create(frmDesign);
ComboBox4.Parent := frmDesign;
ComboBox4.Left := 84;
ComboBox4.Top := 182;
ComboBox4.Width := 145;
ComboBox4.Height := 21;
ComboBox4.Enabled := False;
ComboBox4.ItemHeight := 13;
ComboBox4.TabOrder := 15;
ComboBox4.Text := ' START';
ComboBox5 := TComboBox.Create(frmDesign);
ComboBox5.Parent := frmDesign;
ComboBox5.Left := 84;
ComboBox5.Top := 214;
ComboBox5.Width := 145;
ComboBox5.Height := 21;
ComboBox5.Enabled := False;
ComboBox5.ItemHeight := 13;
ComboBox5.TabOrder := 16;
ComboBox5.Text := ' SCRIPT';
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure namechange(wstatus :String);
begin
status(wstatus);
GetApplication.Title:=wstatus;
GetSelf.Caption:=wstatus;
end;
procedure change;
begin
namechange('Auto-Talker by Diamondhero6')
wait(50);
end;
procedure ThankYou;
begin
writeln('-------Auto-Talker-------')
writeln('-----by Diamondhero6-----')
writeln('- I know u will like it -')
writeln('@@##$$ Thank you $$##@@')
writeln(' ENJOY ')
end;
procedure send;
begin
case random(4) of
0:TypeSend(ms1)
1:typesend(ms2)
2:typesend(ms3)
3:typesend(ms4)
end;
end;
BEGIN
try
SafeInitForm;
SafeShowFormModal;
finally
FreeForm(frmDesign);
except
Writeln('Error in InitForm!');
end;
If not(StartScript) then TerminateScript;
BEGIN
SetupSrl
cleardebug
Thankyou
change
SafeInitForm
repeat
send
wait(1000)
until(isfkeydown(11))
end;
end.