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...
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...
Last edited by Sir R. M8gic1an; 10-11-2009 at 07:35 PM.
Hi
You worked hard, gratz on the release my friend.
Writing an SRL Member Application | [Updated] Pascal Scripting Statements
My GitHub
Progress Report:13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you have serious physchological problems 13:46 <@BenLand100> HE GETS IT! 13:46 <@BenLand100> HE FINALLY GETS IT!!!!1
Well done, replace your start click with this, becuase my one also works with the close/cancel button
SCAR Code: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.
Rep++
- - - - - - 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 itbut the progress report only says talked 1 messages but apart from that great
![]()
lol
Fixed.
Please re-download the script for the little fix i did.
Rep++ For you Quickmarch
Hi
Here, take out
in StartClick so that it's only Times1:= StrToInt(STamount2.text);SCAR Code:Case Sender Of
Ok : frmDesign.ModalResult:= mrOk;
Cancel : if (not(frmDesign.ModalResult = 1)) then
TerminateScript;
end;
Then, in InitForm take out
and add back inSCAR Code:Ok.ONCLICK := @StartClick;
Ok.ModalResult := 1;
Cancel.ONCLICK := @CancelSelected;
Cancel.ModalResult := 2;(They might be the same numbers, but the constants actually show what they mean thenSCAR Code:Ok.ModalResult := mrOk;
Cancel.ModalResult := mrCancel;)
Then redo the showing of the form modal:
so that in the mainloop, you can end up withSCAR Code:function ShowFormModal: boolean;
begin
result := (frmDesign.ShowModal = mrOk);
end;
function SafeShowFormModal:boolean;
var
v: TVariantArray;
begin
setarraylength(V, 0);
Result := ThreadSafeCall('ShowFormModal', v);
end;It all accomplishes the same thing in the end, but it's easier to follow.SCAR Code:if (not SafeShowFormModal) then
TerminateScript;
I also have a piece of code I made awhile back that would let you move the form
SCAR Code: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;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.SCAR Code:frmDesign.onMouseDown := @MoveForm;
Hope it helps![]()
Wow, thx edited everything ..
Rep+
Download V3 Please =).
Hi
You forgot to change SafeShowFormModal); toIt runs the script even if you click cancelSCAR Code:if (not SafeShowFormModal) then
TerminateScript;![]()
i keep getting an error can you please explain in wich line i should insert it ?
Hi
You should replace line 438 ( SafeShowFormModal; ) with that
Oh, okey.
Everybody re-download Please![]()
Hi
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_![]()
- - - - - - 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![]()
ooh lol... i made this script 2 months ago... i was a nub lol... well i toke a look on it and found somethingit never performed any Antiban... now there is a 50% chance to perform a Antiban.
Download V3.1 Please![]()
Hi
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.
- - - - - - ULTIMATE AUTO TALKER - - - - - -
Talked 214 Times
Performed 106 Antibans
Ran for 30 Minutes and 34 Seconds
There are currently 1 users browsing this thread. (0 members and 1 guests)