Auto Talking

program WestsideRepAutoTyper; //Copyright Westside Rep
(*
___ __ _____ ______________
__ | / /_____________ /__________(_)_____ /____
__ | /| / /_ _ \_ ___/ __/_ ___/_ /_ __ /_ _ \
__ |/ |/ / / __/(__ )/ /_ _(__ )_ / / /_/ / / __/
____/|__/ \___//____/ \__/ /____/ /_/ \__,_/ \___/
________
___ __ \____________
__ /_/ / _ \__ __ \
_ _, _// __/_ /_/ /
/_/ |_| \___/_ .___/
/_/
*)

var
// InitForm variables.
Form : TForm;
Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8 : TLabel;
Button1 : TButton;
Text1, Text2, Text3, Text4, Text5, seconds : TEdit;
TweenTime : Integer;
Form1 : TForm;
Memo1 : TMemo;
ClipBoard : String;
procedure InitForm2;
begin
Form1 := CreateForm;
Form1.Width := 0;
Form1.Height := 0;
Memo1 := TMemo.Create(Form1);
Memo1.Parent := Form1;
Memo1.Text := Clipboard;
Memo1.SelectAll;
Memo1.CopyToClipboard;
end;
procedure SafeInitForm2;
var
v : TVariantArray;
begin
SetArrayLength(v, 0);
ThreadSafeCall('InitForm2', v);
end;
procedure ShowFormDesign2;
begin
Form1.Show; // Uses Show instead of ShowForm to quickly show the form
// and then close it.
end;
procedure SafeShowFormDesign2;
var
v : TVariantArray;
begin
SetArrayLength(v, 0);
ThreadSafeCall('ShowFormDesign2', v);
end;
procedure MainInitForm2;
begin
try
SafeInitForm2;
SafeShowFormDesign2;
finally
FreeForm(Form1);
except
WriteLn('An error seems to have occurred in: InitForm2');
end;
end;
{Procedure Type1;
Begin
If(IsFKeyDown(9))Then Break;
Text1.CopyToClipboard;
KeyDown(17);
wait(50);
KeyDown(GetKeyCode('v'));
Wait(50);
KeyUp(GetKeyCode('v'));
wait(50);
KeyUp(17);
KeyDown(8);
Wait(50);
KeyUp(8);
If(IsFKeyDown(9))Then Break;
Sleep(TweenTime);
End;
Procedure Type2;
Begin
If(IsFKeyDown(9))Then Break;
Text2.CopyToClipboard;
KeyDown(17);
wait(50);
KeyDown(GetKeyCode('v'));
Wait(50);
KeyUp(GetKeyCode('v'));
wait(50);
KeyUp(17);
KeyDown(8);
Wait(50);
KeyUp(8);
If(IsFKeyDown(9))Then Break;
Sleep(TweenTime);
End;
Procedure Type3;
Begin
If(IsFKeyDown(9))Then Break;
Text3.CopyToClipboard;
KeyDown(17);
wait(50);
KeyDown(GetKeyCode('v'));
Wait(50);
KeyUp(GetKeyCode('v'));
wait(50);
KeyUp(17);
KeyDown(8);
Wait(50);
KeyUp(8);
If(IsFKeyDown(9))Then Break;
Sleep(TweenTime);
End;
Procedure Type4;
Begin
If(IsFKeyDown(9))Then Break;
Text4.CopyToClipboard;
KeyDown(17);
wait(50);
KeyDown(GetKeyCode('v'));
Wait(50);
KeyUp(GetKeyCode('v'));
wait(50);
KeyUp(17);
KeyDown(8);
Wait(50);
KeyUp(8);
If(IsFKeyDown(9))Then Break;
Sleep(TweenTime);
End;
Procedure Type5;
Begin
If(IsFKeyDown(9))Then Break;
Text5.CopyToClipboard;
KeyDown(17);
wait(50);
KeyDown(GetKeyCode('v'));
Wait(50);
KeyUp(GetKeyCode('v'));
wait(50);
KeyUp(17);
KeyDown(8);
Wait(50);
KeyUp(8);
If(IsFKeyDown(9))Then Break;
Sleep(TweenTime);
End;}
Procedure Typer;
Begin
Repeat
Repeat
If(Text1.text='')Then break;
If(IsFKeyDown(9))Then Exit;
ClipBoard:=Text1.Text
MainInitForm2;
KeyDown(17);
wait(50);
KeyDown(GetKeyCode('v'));
Wait(50);
KeyUp(GetKeyCode('v'));
wait(50);
KeyUp(17);
KeyDown(8);
Wait(50);
KeyUp(8);
KeyDown(13);
Wait(50);
KeyUp(13);
If(IsFKeyDown(9))Then Exit;
Sleep(TweenTime);
break;
Until(False)
Repeat
If(Text2.text='')Then break;
If(IsFKeyDown(9))Then Exit;
ClipBoard:=Text2.Text
MainInitForm2;
KeyDown(17);
wait(50);
KeyDown(GetKeyCode('v'));
Wait(50);
KeyUp(GetKeyCode('v'));
wait(50);
KeyUp(17);
KeyDown(8);
Wait(50);
KeyUp(8);
KeyDown(13);
Wait(50);
KeyUp(13);
If(IsFKeyDown(9))Then Exit;
Sleep(TweenTime);
break;
Until(False)
Repeat
If(Text3.text='')Then break;
If(IsFKeyDown(9))Then Break;
ClipBoard:=Text3.Text
MainInitForm2;
KeyDown(17);
wait(50);
KeyDown(GetKeyCode('v'));
Wait(50);
KeyUp(GetKeyCode('v'));
wait(50);
KeyUp(17);
KeyDown(8);
Wait(50);
KeyUp(8);
KeyDown(13);
Wait(50);
KeyUp(13);
If(IsFKeyDown(9))Then Exit;
Sleep(TweenTime);
Break;
Until(False)
Repeat
If(Text4.text='')Then Break;
If(IsFKeyDown(9))Then Exit;
ClipBoard:=Text4.Text
MainInitForm2;
KeyDown(17);
wait(50);
KeyDown(GetKeyCode('v'));
Wait(50);
KeyUp(GetKeyCode('v'));
wait(50);
KeyUp(17);
KeyDown(8);
Wait(50);
KeyUp(8);
KeyDown(13);
Wait(50);
KeyUp(13);
If(IsFKeyDown(9))Then break;
Sleep(TweenTime);
Break;
Until(False)
Repeat
If(Text5.text='')Then Break;
If(IsFKeyDown(9))Then break;
ClipBoard:=Text5.Text
MainInitForm2;
KeyDown(17);
wait(50);
KeyDown(GetKeyCode('v'));
Wait(50);
KeyUp(GetKeyCode('v'));
wait(50);
KeyUp(17);
KeyDown(8);
Wait(50);
KeyUp(8);
KeyDown(13);
Wait(50);
KeyUp(13);
If(IsFKeyDown(9))Then Exit;
Sleep(TweenTime);
Break;
Until(False)
Until(IsFKeyDown(9))
end;
procedure StartMeat(sender: TObject);
begin
TweenTime:=StrToInt(seconds.text)*1000;
Writeln('Starting Script.');
Form.Caption:= Form.Caption + '.';
Form.ModalResult:= mrOk;
FindWindow('Endless Online')
ActivateClient;
Wait(1000);
Typer;
end;
procedure InitForm;
begin
Form := CreateForm;
with Form do
begin
Position := poScreenCenter;
BorderStyle := bsSingle;
BorderIcons := [biMinimize,biSystemMenu];
Caption := 'Endless Online AutoTalker';
ClientHeight := 300;
ClientWidth := 289;
Color := clBlack;
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
Font.Style := [];
PixelsPerInch := 96;
end;
Label1 := TLabel.Create(Form);
with Label1 do
begin
Parent := Form;
Left := 73;
Top := 15;
Width := 133;
Height := 14;
Caption := 'Westside Rep'#39's Auto Talker';
Color := clWhite;
Font.Color := clWhite;
Font.Height := -11;
Font.Name := 'Arial';
Font.Style := [];
ParentColor := False;
ParentFont := False;
end;
Label2 := TLabel.Create(Form);
with Label2 do
begin
Parent := Form;
Left := 3;
Top := 40;
Width := 30;
Height := 14;
Caption := 'Text1:';
Font.Color := clWhite;
Font.Height := -11;
Font.Name := 'Arial';
Font.Style := [];
ParentFont := False;
end;
Label3 := TLabel.Create(Form);
with Label3 do
begin
Parent := Form;
Left := 2;
Top := 74;
Width := 30;
Height := 14;
Caption := 'Text2:';
Font.Color := clWhite;
Font.Height := -11;
Font.Name := 'Arial';
Font.Style := [];
ParentFont := False;
end;
Label4 := TLabel.Create(Form);
with Label4 do
begin
Parent := Form;
Left := 2;
Top := 108;
Width := 30;
Height := 14;
Caption := 'Text3:';
Font.Color := clWhite;
Font.Height := -11;
Font.Name := 'Arial';
Font.Style := [];
ParentFont := False;
end;
Label5 := TLabel.Create(Form);
with Label5 do
begin
Parent := Form;
Left := 2;
Top := 142;
Width := 30;
Height := 14;
Caption := 'Text4:';
Font.Color := clWhite;
Font.Height := -11;
Font.Name := 'Arial';
Font.Style := [];
ParentFont := False;
end;
Label6 := TLabel.Create(Form);
with Label6 do
begin
Parent := Form;
Left := 3;
Top := 176;
Width := 30;
Height := 14;
Caption := 'Text5:';
Font.Color := clWhite;
Font.Height := -11;
Font.Name := 'Arial';
Font.Style := [];
ParentFont := False;
end;
Label7 := TLabel.Create(Form);
with Label7 do
begin
Parent := Form;
Left := 26;
Top := 210;
Width := 144;
Height := 14;
Caption := 'Seconds Between each type:';
Font.Color := clWhite;
Font.Height := -11;
Font.Name := 'Arial';
Font.Style := [];
ParentFont := False;
end;
Label8 := TLabel.Create(Form);
with Label8 do
begin
Parent := Form;
Left := 65;
Top := 279;
Width := 158;
Height := 14;
Caption := 'Prees F9 To Make It Stop Talking.';
Font.Color := clWhite;
Font.Height := -11;
Font.Name := 'Arial';
Font.Style := [];
ParentFont := False;
end;
Button1 := TButton.Create(Form);
with Button1 do
begin
Parent := Form;
Left := 104;
Top := 236;
Width := 75;
Height := 25;
Caption := 'Start ';
TabOrder := 8;
onclick:=@StartMeat
end;
Text1 := TEdit.Create(Form);
with Text1 do
begin
Parent := Form;
Left := 37;
Top := 36;
Width := 245;
Height := 21;
MaxLength := 127;
TabOrder := 9;
end;
Text2 := TEdit.Create(Form);
with Text2 do
begin
Parent := Form;
Left := 37;
Top := 70;
Width := 245;
Height := 21;
MaxLength := 127;
TabOrder := 10;
end;
Text3 := TEdit.Create(Form);
with Text3 do
begin
Parent := Form;
Left := 37;
Top := 104;
Width := 245;
Height := 21;
MaxLength := 127;
TabOrder := 11;
end;
Text4 := TEdit.Create(Form);
with Text4 do
begin
Parent := Form;
Left := 37;
Top := 138;
Width := 245;
Height := 21;
MaxLength := 127;
TabOrder := 12;
end;
Text5 := TEdit.Create(Form);
with Text5 do
begin
Parent := Form;
Left := 37;
Top := 172;
Width := 245;
Height := 21;
MaxLength := 127;
TabOrder := 13;
end;
seconds := TEdit.Create(Form);
with seconds do
begin
Parent := Form;
Left := 176;
Top := 206;
Width := 39;
Height := 21;
MaxLength := 3;
TabOrder := 14;
end;
end;
procedure SafeInitForm;
var
V : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('InitForm', V);
end;
procedure ShowInitFormModal;
begin
Form.ShowModal;
end;
procedure SafeShowInitFormModal;
var
V : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowInitFormModal', V);
end;
procedure MainInitForm;
begin
try
SafeInitForm;
SafeShowInitFormModal;
finally
FreeForm(Form);
except
WriteLn('An error seems to have occurred in: InitForm2');
end;
end;

begin
ClearDebug;
MainInitForm;
end.

const
text = 'blah blah blah';// what do you want to say put in the ' '
times = 9999; // how many times you want to say it

var
v:integer;

procedure TypeByte(k: Byte);
begin
  KeyDown(k);
  Wait(10 + Random(50));
  KeyUp(k);
end;

procedure TypeSend(Text: string);
var
  S: string;
  I: Integer;
  C: Byte;
  Shift: Boolean;
begin
  S:= 'ABCDEFGHIJKLMNOPQRSTUVWXZ' + '~!@#$%^&*()_+{}|:"<>?';
  for I:= 1 to Length(Text) do
  begin
    Shift:= (Pos(Text[i], S) > 0);
    if(Shift)then
    begin
      KeyDown(VK_SHIFT) Wait(40 + Random(40));
      while(Pos(Text[i], S) > 0)and(I <= Length(Text))do
      begin
        C := GetKeyCode(StrGet(Text, I));
        TypeByte(c);
        I:= I + 1;
        if(I > Length(Text))then Break;
      end;
    end;
    if(Shift)then
      KeyUp(VK_SHIFT);
    Wait(40 + Random(40));
    if(I <= Length(Text))then
    begin
      C:= GetKeyCode(StrGet(Text, I));
      TypeByte(C);
      Wait(40 + Random(40));
    end;
  end;
  C := GetKeyCode(Chr(13));
  TypeByte(C);
end;

begin
  findwindowtitlepart('Endless Online', false); // you can even change the game name here
  wait(50);
  v:=0;
  activateclient;
  wait(1000);
repeat
typesend(text);
wait(1000);inc(v);    // you can set the delay time here :P
until(v=times);
end.