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:)

[MichaelCax]

Are you a music enthusiast looking to elevate your sound? Look no further! Our music gear store has everything you need to bring your musical dreams to life. From high-quality guitars to powerful amplifiers and all the accessories in between, we've got you covered.

Guitars for Every Taste and Style

Whether you're an acoustic aficionado or an electric guitar wizard, our store offers a diverse range of guitars to suit every player. We carry top brands like Fender, Gibson, Ibanez, and more. Each guitar is meticulously crafted to deliver exceptional sound and playability.

- Acoustic Guitars: Perfect for singer-songwriters and those who love the raw, unplugged sound.
- Electric Guitars: Ideal for rock, blues, and jazz enthusiasts looking to add some flair to their performances.
- Bass Guitars: Providing the deep, resonant tones crucial for any band’s rhythm section.

Amplifiers That Elevate Your Sound

A great guitar deserves an equally great amplifier. Our collection features a variety of amps that cater to different genres and playing environments. From practice amps to stage-ready powerhouses, you'll find the perfect match for your needs.

- Tube Amps: Known for their warm and rich tones, perfect for achieving that classic rock sound.
- Solid State Amps: Reliable and versatile, they offer a consistent performance ideal for any gig.
- Modeling Amps: Advanced technology that mimics the sound of various amp types, giving you a wide range of tones from a single unit.

Essential Accessories

No musician's arsenal is complete without the right accessories. We stock everything from strings and picks to pedalboards and effects pedals. Our knowledgeable staff can help you find exactly what you need to enhance your playing experience.

- Strings and Picks: High-quality materials for durability and superior sound.
- Effects Pedals: From distortion to delay, our pedals can help you craft the perfect tone Bb Cornets
- Pedalboards: Keep your effects organized and ready to use during performances.

Why Shop With Us?

- Expert Advice: Our team of musicians is passionate about helping you find the right gear to achieve your goals.
- Quality Guarantee: We only stock products from trusted brands known for their reliability and superior craftsmanship.
- Customer Satisfaction: Your happiness is our top priority. We offer hassle-free returns and excellent customer service.

Visit our store today and experience the difference quality music gear can make. Elevate your sound and take your music to the next level. Whether you’re a beginner or a seasoned pro, we have the right equipment to help you shine.