Jump to content

Search the Community

Showing results for tags '2007bot'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • General
    • Forum Rules
    • Announcements
    • General Discussion
    • Forum Discussion
  • Support
    • Download SCAR Divi
    • SCAR Divi Manual
    • General Help
    • Scripting Help
    • Script Help
    • Tutorials and FAQ
  • Scripts
    • Scripts For Games
    • Game Scripts
    • Other Scripts
    • Requests
  • Include Libraries
    • OSI
    • MSSL
    • GMRL
    • SSIL
    • Archive
  • Code Bin
    • Mouse & Keyboard
    • Screen & Client
    • Color, Bitmap, DTM & OCR
    • Points & Boxes
    • Files & Networking
    • Math
    • Other Snippets
  • Development
    • Development Roadmap
    • Bugtracker
    • Development Discussion
  • Games
    • RuneScape
    • Seafight
    • Other Games
  • Misc
    • Native Corner
    • Programming
    • Graphics
    • Music
    • Movies & TV

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


About Me


Location


Interests


Occupation


Studies


Skype

Found 1 result

  1. 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.
×
  • Create New...