Results 1 to 23 of 23

Thread: ULTIMATE Auto Talker ~ By Tickyy

  1. #1
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default ULTIMATE Auto Talker ~ By Tickyy

    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

  2. #2
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    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

  3. #3
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    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++

  4. #4
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

    Quote Originally Posted by Nava2 View Post
    You worked hard, gratz on the release my friend.
    Thanks ... i hope you like it

    Quote Originally Posted by NaumanAkhlaQ View Post
    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++
    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.
    oh and thanks for the Rep
    Hi

  5. #5
    Join Date
    Sep 2007
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Excellent, Thanks!
    Keep up the good work

  6. #6
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

    Quote Originally Posted by lol_monkyy View Post
    Excellent, Thanks!
    Keep up the good work
    ENJOY...

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

  7. #7
    Join Date
    Jul 2008
    Location
    England
    Posts
    763
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    - - - - - - 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
    lol

  8. #8
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

    Quote Originally Posted by Quickmarch View Post
    - - - - - - 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... ? i will take a look for that ...

    and thx for the prog
    Hi

  9. #9
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

    Fixed.

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

  10. #10
    Join Date
    Mar 2007
    Location
    Players[-1].Loc
    Posts
    962
    Mentioned
    4 Post(s)
    Quoted
    5 Post(s)

    Default

    Here, take out
    SCAR Code:
    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
    SCAR Code:
    Ok.ONCLICK := @StartClick;
    Ok.ModalResult := 1;
    Cancel.ONCLICK := @CancelSelected;
    Cancel.ModalResult := 2;
    and add back in
    SCAR Code:
    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:
    SCAR 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;
    so that in the mainloop, you can end up with
    SCAR Code:
    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
    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;
    SCAR Code:
    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

  11. #11
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

    Wow, thx edited everything ..
    Rep+

    Download V3 Please =).
    Hi

  12. #12
    Join Date
    Mar 2007
    Location
    Players[-1].Loc
    Posts
    962
    Mentioned
    4 Post(s)
    Quoted
    5 Post(s)

    Default

    You forgot to change SafeShowFormModal); to
    SCAR Code:
    if (not SafeShowFormModal) then
        TerminateScript;
    It runs the script even if you click cancel

  13. #13
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

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

  14. #14
    Join Date
    Mar 2007
    Location
    Players[-1].Loc
    Posts
    962
    Mentioned
    4 Post(s)
    Quoted
    5 Post(s)

    Default

    You should replace line 438 ( SafeShowFormModal; ) with that

  15. #15
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

    Oh, okey.

    Everybody re-download Please
    Hi

  16. #16
    Join Date
    Jul 2008
    Location
    Canada
    Posts
    1,612
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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_

  17. #17
    Join Date
    Jan 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  18. #18
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

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

    Download V3.1 Please
    Hi

  19. #19
    Join Date
    Jan 2009
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  20. #20
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

    Quote Originally Posted by wig44 View Post
    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.
    Hi

  21. #21
    Join Date
    Jan 2009
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Tickyy View Post
    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.

  22. #22
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

    Quote Originally Posted by wig44 View Post
    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.
    Hi

  23. #23
    Join Date
    Nov 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Replies: 5
    Last Post: 11-23-2007, 08:45 PM
  2. Help with auto trade/ auto talker script
    By logik in forum OSR Help
    Replies: 5
    Last Post: 03-16-2007, 11:16 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •