Humanlike autotalker

hardC0re · Oct 21, 2007

...i was looking around here, found some autotalkers, all of them were using "sendkeys" whats very detectable, so the SRLone used "typesend" is much more humanlike... and also this script got form... and no time talking, it says only when button is pressed, btw every time you reload or change client you need to drag crosshair to window, else it fucks up

EDIT: It was my 1st form script, and you need to have Scar 3.00+ and SRL

program talker;
// learned and copy-pasted from widget// so credits to widget, but i got brains too ffs
{.include SRL/SRL.scar}
var
frmDesign : TForm;
Type1 : TButton;
Type2 : TButton;
Type3 : TButton;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;

procedure talk1(Sender:TObject);
begin
activateclient;
sleep(100);
typesend(Edit1.Text);
end;

procedure talk2(Sender:TObject);
begin
activateclient;
sleep(100);
typesend(Edit2.Text);
end;

procedure talk3(Sender:TObject);
begin
activateclient;
sleep(100);
typesend(Edit3.Text);
end;

procedure initform;
begin
frmDesign := CreateForm;
frmDesign.Left := 345;
frmDesign.Top := 162;
frmDesign.Width := 486;
frmDesign.Height := 127;
frmDesign.Caption := 'Autotalker';
frmDesign.Color := clBackground;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
Type1 := TButton.Create(frmDesign);
Type1.Parent := frmDesign;
Type1.Left := 397;
Type1.Top := 6;
Type1.Width := 75;
Type1.Height := 25;
Type1.Caption := 'Type';
Type1.TabOrder := 8;
type1.OnClick := @talk1;
Type2 := TButton.Create(frmDesign);
Type2.Parent := frmDesign;
Type2.Left := 397;
Type2.Top := 33;
Type2.Width := 75;
Type2.Height := 25;
Type2.Caption := 'Type2';
Type2.TabOrder := 9;
type2.OnClick := @talk2;
Type3 := TButton.Create(frmDesign);
Type3.Parent := frmDesign;
Type3.Left := 398;
Type3.Top := 60;
Type3.Width := 75;
Type3.Height := 25;
Type3.Caption := 'Type3';
Type3.TabOrder := 10;
type3.OnClick := @talk3;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 5;
Edit1.Top := 8;
Edit1.Width := 383;
Edit1.Height := 21;
Edit1.TabOrder := 11;
Edit1.Text := 'Type Your message here';
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 5;
Edit2.Top := 35;
Edit2.Width := 384;
Edit2.Height := 21;
Edit2.TabOrder := 12;
Edit2.Text := 'Type Your message here';
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 5;
Edit3.Top := 62;
Edit3.Width := 383;
Edit3.Height := 21;
Edit3.TabOrder := 13;
Edit3.Text := 'Type Your message here';
end;

procedure SafeInitForm;
var tva:TVariantArray;
begin
setarraylength(tva, 0);
ThreadSafeCall('InitForm', tva);
end;

Function showformmodal:Boolean; // Make it visible
begin
if (frmdesign.ShowModal = mrOk) then
Result := True else Result := False;
end;

Function safeshowformmodal:Boolean; // Makes it visible without crashing
var tva:TVariantArray;
begin
setarraylength(tva, 0);
Result := ThreadSafeCall('showformmodal', tva) ;
end;

Procedure Form;
Begin
safeinitform;
WriteLn(' ');
GetSelf.Visible := False;
if not safeshowformmodal then begin
WriteLn('Script terminated by user.');
FreeForm(frmdesign)
WriteLn(' ')
GetSelf.Visible := True;
TerminateScript;
end;
end;

Begin
SetupSRL;
form;
GetSelf.Visible := True;
end.
Click to expand...

Doom Shop · Oct 26, 2007

Nice!

Log in or Sign up

Humanlike autotalker

hardC0re Member

Doom Shop Active Member

Log in or Sign up

Humanlike autotalker

Thread Tools

hardC0re Member

Doom Shop Active Member