Results 1 to 2 of 2

Thread: A few of my first scripts

  1. #1
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default A few of my first scripts

    My Auto-Talker

    Code:
    {.Script Info:
    # ScriptName  = Auto-Talker
    # Author      = Hey321
    # Description = Auto-Talks for ya for specified times
    # Version     = 3.0
    # Date        = Tues, Oct, 30
    # Comments    = Good script (i think)
    /Script Info}
    program MessageWriter;
    {.include Squig.txt}
    
    const
    Message1=('purple:shake:selling 20k nats 330 ea!!! colt!!!');// Message to repeat
    WaitTime=(3000);//how long to wait
    NumLoops=50;//how many times to repeat
    
    var
     MessagesTyped: Integer;
    
    procedure MessageSender;
    begin
    SendKeysHuman (Message1 + chr (13));
    end;
    
    procedure TimeToWait;
    begin
         wait (waittime + random (250));
    end;
    
    procedure Thanks;
    begin
    writeln('~~~Thanks for using ~~~Hey321s~~~ Talker~~~');
    writeln('~~~~~~Hey321~~~ thanks you for using this Auto-Talker');
    wait(WaitTime + random (50));
    end;
    
    procedure progressreport;
    begin
    MessagesTyped:= MessagesTyped + 1;wait(WaitTime + random (50));
    writeln('~~~Typed '+inttostr(MessagesTyped)+' Messages For You~~~');
    end;
    
    begin
         Thanks;
         repeat
         MessageSender;
         TimeToWait;
         progressreport;
         until(MessagesTyped = NumLoops);
         wait(WaitTime + random (50));
    end.
    My Auto-Logger (Non And Mem)

    Mozilla ONLY!

    Mem version

    Code:
    program Login;
    {.include Squig.txt}
    
    const
    Username=('');
    Password=('');
    
    procedure openrs;
    begin
    Getself;
    ;OpenWebPage('http://www.runescape.com/');
    end;
    
    procedure MainLogin;
    begin
    wait(1000);
    movemouse(729,457);
    wait(5000);
    Clickmouse(734,452,true);
    wait(1000);
    Clickmouse(734,452,true);
    movemouse(474, 393);
    wait(1000);
    Clickmouse(674, 368,true);
    wait(1000);
    Clickmouse(1012, 700,true);
    Clickmouse(1012, 700,true);
    Clickmouse(1012, 700,true);
    Clickmouse(1012, 700,true);
    Clickmouse(1012, 700,true);
    wait(10000);
    Clickmouse(584, 491,true);
    wait(1000);
    SendKeysHuman (Username + chr (13));
    SendKeysHuman (Password + chr (13));
    Clickmouse(392, 522,true);
    wait(5000)
    Clickmouse(449, 544,true);
    end;
    
    begin
         openrs;
         MainLogin;
    end.
    Non-Members version


    Code:
    program Login;
    {.include Squig.txt}
    
    const
    Username=('');
    Password=('');
    
    procedure openrs;
    begin
    Getself;
    ;OpenWebPage('http://www.runescape.com/');
    end;
    
    procedure MainLogin;
    begin
    wait(1000);
    movemouse(729,457);
    wait(5000);
    Clickmouse(734,452,true);
    wait(1000);
    Clickmouse(734,452,true);
    movemouse(474, 393);
    wait(1000);
    Clickmouse(463, 386,true);
    wait(1000);
    Clickmouse(1012, 700,true);
    Clickmouse(1012, 700,true);
    Clickmouse(1012, 700,true);
    Clickmouse(1012, 700,true);
    Clickmouse(1012, 700,true);
    wait(10000);
    Clickmouse(584, 491,true);
    wait(1000);
    SendKeysHuman (Username + chr (13));
    SendKeysHuman (Password + chr (13));
    Clickmouse(392, 522,true);
    wait(5000)
    Clickmouse(449, 544,true);
    end;
    
    begin
         openrs;
         MainLogin;
    end.

  2. #2
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Good start. Next step is to use SRL and remember to ident (I forget too).

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Add ranging to chicken killing scripts, or the cow killing scripts
    By canu44 in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 12-18-2007, 07:37 AM

Posting Permissions

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