2007Bot's AutoTalk

[BryceTheCoder]

AutoTalk

 

This is not particularly the best bot to use, but I know now with the 2007 economy starting to start up. I HATE typing, and typing, and typing over and over again "buying/selling blah blah"

Soo i decided to make a simple bot to do so:)

 

 

All information and download at: 2007Bot - AutoTalk

 

 

 

 

 

 

Source:

{www.2007Bot.weebly.com}
{$DEFINE RS2}
{$DEFINE OSI_Color_Anti_Randoms}
{$I OSI\OSI.scar}








































var
 txt1,txt2,txt3,txt4: String;
 Form1: TForm;
 Button1: TButton;
 Edit1: TEdit;
 Edit2: TEdit;
 Edit3: TEdit;
 Edit4: TEdit;

procedure ScriptTerminate;
begin
 FreeOSI;
end;

procedure StartButton(sender: TObject);
begin
 txt1 := Edit1.text;
 txt2 := Edit2.text;
 txt3 := Edit3.text;
 txt4 := Edit4.text;
 Form1.Modalresult := mrOK;
end;

procedure ClosedForm;
begin
 ShowMessage('Dont close the GUI! Use the "Start" button to start the bot.');
 TerminateScript;
 ClearDebug;
end;

procedure Form1_Init;
begin
 Form1 := CreateForm;
 Button1 := TButton.Create(Form1);
 Edit1 := TEdit.Create(Form1);
 Edit2 := TEdit.Create(Form1);
 Edit3 := TEdit.Create(Form1);
 Edit4 := TEdit.Create(Form1);
 with Form1 do
 begin
   Left := 440;
   Top := 129;
   BorderStyle := bsSingle;
   Caption := 'AutoTalk - www.2007Bot.weebly.com';
   ClientHeight := 144;
   ClientWidth := 357;
   Color := clWhite;
   Font.Charset := DEFAULT_CHARSET;
   Font.Color := clWindowText;
   Font.Height := -11;
   Font.Name := 'Tahoma';
   Font.Style := [];
   OldCreateOrder := False;
   PixelsPerInch := 96;
 end;
 with Button1 do
 begin
   Parent := Form1;
   Left := 4;
   Top := 116;
   Width := 349;
   Height := 25;
   Caption := 'Start';
   TabOrder := 0;
   OnClick := @StartButton;
 end;
 with Edit1 do
 begin
   Parent := Form1;
   Left := 4;
   Top := 8;
   Width := 349;
   Height := 21;
   TabOrder := 1;
   Text := 'buying something 1gp!';
 end;
 with Edit2 do
 begin
   Parent := Form1;
   Left := 4;
   Top := 36;
   Width := 349;
   Height := 21;
   TabOrder := 2;
   Text := 'buy something 1gp!';
 end;
 with Edit3 do
 begin
   Parent := Form1;
   Left := 4;
   Top := 62;
   Width := 349;
   Height := 21;
   TabOrder := 3;
   Text := 'green:buyin sumtin for 1gp';
 end;
 with Edit4 do
 begin
   Parent := Form1;
   Left := 4;
   Top := 92;
   Width := 349;
   Height := 21;
   TabOrder := 4;
   Text := 'red:buying something 1gp';
 end;
end;

procedure Form1_SafeInit;
var
 v: TVariantArray;
begin
 SetLength(v, 0);
 ThreadSafeCall('Form1_Init', v);
end;

function Form1_ShowModal: Boolean;
begin
 Result := Form1.ShowModal = mrOk;
end;

function Form1_SafeShowModal: Boolean;
var
 v: TVariantArray;
begin
 SetLength(v, 0);
 Result := ThreadSafeCall('Form1_ShowModal', v);
end;

procedure StartForm;
begin
 Form1_SafeInit;
 if Form1_SafeShowModal then
 begin
   WriteLn('Form returned modalresult ok');
   FreeForm(Form1);
 end else
 begin
   ClosedForm;
   FreeForm(Form1);
 end;
end;

procedure Txt;
begin
 case random(4) of
   0: TypeSendEx(Txt1, true);
   1: TypeSendEx(Txt2, true);
   2: TypeSendEx(Txt3, true);
   3: TypeSendEx(Txt4, true);
 end;

end;

begin
 RS2_SkipSetupRSReady := True;
 SetUpOSI;
 StartForm;
 wait(2500);
 repeat
   Txt;
   waitRR(500, 7000);
 until false;
end.

[Wanted]

Why do you have a huge space between the includes and script body?

[BryceTheCoder]

Why do you have a huge space between the includes and script body?

 

Lmfao to try and make it hide my scripts so people to copy and steal it:P (lame way of doing it iknow) I just don't know how else to protect my scripts:/

[lazarbeam]

Hope to learn some things about GUI from this.. thanks!

I have been absent from here, scripting, and OS07 for a day or two now because I've become busy IRL with schoolwork (mathematics graduate student), but I hope to be back at it and release something shortly.

[BryceTheCoder]

Hope to learn some things about GUI from this.. thanks!

I have been absent from here, scripting, and OS07 for a day or two now because I've become busy IRL with schoolwork (mathematics graduate student), but I hope to be back at it and release something shortly.

 

Yeah I hope you can learn from it too:)