SRL Archive - RS3 Outdated / Broken Scripts

ULTIMATE Auto Talker

Features:
- Form
- anti-ban
- With Colors and Effects

How to Use?
- Fill out the form correctly
- Press Run.
- ENJOY!

Credits:
Quickmarch.

Note : This script still works but i will NOT update it or something like that…

You worked hard, gratz on the release my friend.

Well done, replace your start click with this, becuase my one also works with the close/cancel button

Procedure StartClick(sender: TObject);
Begin
  Case Sender Of
     Ok : frmDesign.ModalResult:= mrOk;
     Cancel : if (not(frmDesign.ModalResult = 1)) then
                 TerminateScript;
   end;  
    
  Times1:= StrToInt(STamount2.text)
end;

Also add to the cancel features in the form : Cancel.OnClick := @StartClick;

Good script btw, competition for me :p.

Rep++

From: Nava2
You worked hard, gratz on the release my friend.

Thanks :p… i hope you like it :D

From: NaumanAkhlaQ
Well done, replace your start click with this, becuase my one also works with the close/cancel button

Procedure StartClick(sender: TObject);
Begin
  Case Sender Of
     Ok : frmDesign.ModalResult:= mrOk;
     Cancel : if (not(frmDesign.ModalResult = 1)) then
                 TerminateScript;
   end;  
    
  Times1:= StrToInt(STamount2.text)
end;

Also add to the cancel features in the form : Cancel.OnClick := @StartClick;

Good script btw, competition for me :p.

Rep++

yay, glad to see that you like it :), by the way i keep getting an error with "Cancel.OnClick := @StartClick"… so i won't touch it. :redface: :rolleyes:
oh and thanks for the Rep :)

Excellent, Thanks!
Keep up the good work

From: lol_monkyy
Excellent, Thanks!
Keep up the good work

ENJOY…

Please Post Proggies and if you find any bug let me know :)

- - - - - - ULTIMATE AUTO TALKER - - - - - -
Talked 1 Messages
Performed 0 Antibans
Ran for 2 Minutes and 32 Seconds
Please Post your Proggie at the Forums.
- - - - - - - - - - - - - - - – - - - - - - - - -

Very good i like it :) but the progress report only says talked 1 messages but apart from that great:)

From: Quickmarch
- - - - - - ULTIMATE AUTO TALKER - - - - - -
Talked 1 Messages
Performed 0 Antibans
Ran for 2 Minutes and 32 Seconds
Please Post your Proggie at the Forums.
- - - - - - - - - - - - - - - – - - - - - - - - -

Very good i like it :) but the progress report only says talked 1 messages but apart from that great:)

huh…:eek: ? i will take a look for that …

and thx for the prog :)

Fixed.

Please re-download the script for the little fix i did.
Rep++ For you Quickmarch

Here, take out

  Case Sender Of
     Ok : frmDesign.ModalResult:= mrOk;
     Cancel : if (not(frmDesign.ModalResult = 1)) then
                 TerminateScript;
   end;

in StartClick so that it's only Times1:= StrToInt(STamount2.text);

Then, in InitForm take out

Ok.ONCLICK := @StartClick;
Ok.ModalResult := 1;
Cancel.ONCLICK := @CancelSelected;
Cancel.ModalResult := 2;

and add back in

Ok.ModalResult := mrOk;
Cancel.ModalResult := mrCancel;

(They might be the same numbers, but the constants actually show what they mean then :))

Then redo the showing of the form modal:

function ShowFormModal: boolean;
begin
  result := (frmDesign.ShowModal = mrOk);
end;

function SafeShowFormModal:boolean;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  Result := ThreadSafeCall('ShowFormModal', v);
end;

so that in the mainloop, you can end up with

  if (not SafeShowFormModal) then
    TerminateScript;

It all accomplishes the same thing in the end, but it's easier to follow.

I also have a piece of code I made awhile back that would let you move the form

procedure MoveForm(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  ox, oy, mx, my: integer;
begin
  GetMousePos(ox, oy);
  repeat
    sleep(50);
    GetMousePos(mx, my);
    frmDesign.Left := frmDesign.Left + mx - ox;
    frmDesign.Top := frmDesign.Top + my - oy;
    ox := mx;
    oy := my;
  until not IsMouseButtonDown(True);
end;

frmDesign.onMouseDown := @MoveForm;

but then it paints over SCAR as if lagging really badly (because SCAR is frozen while a form is open), so you should add GetSelf.WindowState := wsMinimized; at the beginning of the mainloop and wsNormal; afterwards.

Hope it helps :)

Wow, thx edited everything ..
Rep+

Download V3 Please =).

You forgot to change SafeShowFormModal); to

  if (not SafeShowFormModal) then
    TerminateScript;

It runs the script even if you click cancel :p

i keep getting an error can you please explain in wich line i should insert it ?

You should replace line 438 ( SafeShowFormModal; ) with that

Oh, okey.

Everybody re-download Please :)

Nice man, it looks like you spent a lots of work on this, especially on the form.

I won't be able to get a progress report because i use my own auto talker but, really neat coded script!_2 Thumbs Up_:p

- - - - - - ULTIMATE AUTO TALKER - - - - - -
Talked 27 Times
Performed 0 Antibans
Ran for 1 Minutes and 42 Seconds
Please Post your Proggie at the Forums.
- - - - - - - - - - - - - - - – - - - - - - - - -

i like it, keep up the good work :)
i'm gonna use this one for my merchanting :D

ooh lol… i made this script 2 months ago… i was a nub lol… well i toke a look on it and found something :duh: it never performed any Antiban… now there is a 50% chance to perform a Antiban.

Download V3.1 Please :)

Sorry to be a noob - can I use an autotalker whilst i use an autofletcher or cooker or firemaker etc? 2 scripts at once?

Thanks! Will.

From: wig44
Sorry to be a noob - can I use an autotalker whilst i use an autofletcher or cooker or firemaker etc? 2 scripts at once?

Thanks! Will.

hmmmm… yeah i think you can do that… first open the Fletcher or whatever your going to open then the auto talker…

and then set the auto talker… and press CTRL + ALT + R to start the Fletcher.

From: Tickyy
hmmmm… yeah i think you can do that… first open the Fletcher or whatever your going to open then the auto talker…

and then set the auto talker… and press CTRL + ALT + R to start the Fletcher.

Thanks I'll give that a try soon. I'll post the results of running 2 + a proggie here soon.

From: wig44
Thanks I'll give that a try soon. I'll post the results of running 2 + a proggie here soon.

btw delete everything that haves to do with antiban… because that will stop the other running script.

- - - - - - ULTIMATE AUTO TALKER - - - - - -
Talked 214 Times
Performed 106 Antibans
Ran for 30 Minutes and 34 Seconds