Hi-
I'm DrStealth's friend...I've been able to make a somewhat basic script...trying to add a form, but it doesn't work...something about TEdit something or other.
Well here it is:
SCAR Code:
program LoFAutoTalker;
//////////////////////By://////////////////////////////
// //
//SSSS N N U UW WOOOOOO|OOOOOODDDDDD SSSS//
//SSS N N N U U W W W OO OO|OO OOD DDSSS //
// SS N NN U U W W W W OO OO|OO OOD DD SS//
//SSSS N N UUUUU W W OOOOOO|OOOOOODDDDDD SSSS//
///////////////////////////////////////////////////////
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Title : TLabel;
Button1 : TButton;
: TEdit;
Dialogue2 : TEdit;
Dialogue3 : TEdit;
Dialogue4 : TEdit;
procedure buttonclick(sender: TObject);
begin
Writeln('Button pressed!');
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
end;
Procedure Form;
Begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 400;
frmDesign.Height := 390;
frmDesign.Caption := 'frmDesign';
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 := 70;
Label1.Top := 38;
Label1.Width := 51;
Label1.Height := 13;
Label1.Caption := 'Dialogue 1';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 259;
Label2.Top := 40;
Label2.Width := 51;
Label2.Height := 13;
Label2.Caption := 'Dialogue 2';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 77;
Label3.Top := 164;
Label3.Width := 51;
Label3.Height := 13;
Label3.Caption := 'Dialogue 3';
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 263;
Label4.Top := 165;
Label4.Width := 51;
Label4.Height := 13;
Label4.Caption := 'Dialogue 4';
Title := TLabel.Create(frmDesign);
Title.Parent := frmDesign;
Title.Left := 111;
Title.Top := 10;
Title.Width := 155;
Title.Height := 29;
Title.Caption := 'LoF Autotalker';
Title.Font.Color := clWindowText;
Title.Font.Height := -24;
Title.Font.Name := 'MS Sans Serif';
Title.Font.Style := [];
Title.ParentFont := False;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.OnClick:= @buttonclick
Button1.Left := 154;
Button1.Top := 303;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Start!';
Button1.TabOrder := 8;
:= TEdit.Create(frmDesign);
.Parent := frmDesign;
.Left := 26;
.Top := 62;
.Width := 150;
.Height := 80;
.TabOrder := 9;
Dialogue2 := TEdit.Create(frmDesign);
Dialogue2.Parent := frmDesign;
Dialogue2.Left := 204;
Dialogue2.Top := 61;
Dialogue2.Width := 150;
Dialogue2.Height := 80;
Dialogue2.TabOrder := 10;
Dialogue3 := TEdit.Create(frmDesign);
Dialogue3.Parent := frmDesign;
Dialogue3.Left := 27;
Dialogue3.Top := 182;
Dialogue3.Width := 150;
Dialogue3.Height := 80;
Dialogue3.TabOrder := 11;
Dialogue4 := TEdit.Create(frmDesign);
Dialogue4.Parent := frmDesign;
Dialogue4.Left := 209;
Dialogue4.Top := 183;
Dialogue4.Width := 150;
Dialogue4.Height := 80;
Dialogue4.TabOrder := 12;
End;
Procedure SendKeysHuman(text:String);
Var
a1 : Integer;
Begin
a1:= 1;
Repeat
wait(random(220) + 15);
sendkeys(copy(text, a1, 1));
a1:= a1 + 1;
Until a1 > length(text);
End;
Procedure Talk;
Begin
SendKeysHuman('Hello!');
SendKeysVb('{ENTER}',false)
End;
Function CheckChatMsg(Text: String) : Boolean;
Begin
Result:= IsTextAtEx(20, 415, Text, 40, ChrChatChars, False, True, 0, 1, 0);
End;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('Form', v);
//Replace Form1 with the Procedure name you put the stuff between.
end;
procedure ShowFormModal;
begin
Form.ShowModal;
//Replace frmDesign with the name of your form
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
Begin
SafeInitForm;
SafeShowFormModal;
ActivateClient;
Wait(1250)
Talk;
CheckChatMsg('Hi')
End.
Ty Guys, Much Appreciated