Results 1 to 4 of 4

Thread: ALL The Scripts I've Done!

  1. #1
    Join Date
    Sep 2006
    Location
    Tampa, Florida
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    ALL The Scripts I've Done!

    Just to prove that I'm Not a leecher I'll put all Scripts I've made here.


    This is a little something I did yesterday cuz I was bored
    Code:
    //http://www.albinoblacksheep.com/flash/climb
    //Made By: Westside Rep
    //Fill Out The Setup (1 Line)
    
    program ClimbDemo;
    var Wins: integer;
    const
    //-----Setup-----//
    HowManyTimes = 2;    //Set This To How Many Times You Want To Win
    //------End------//
    Procedure poop1;
    begin
      MoveMouse(230,275)
      Wait(200)
      ClickMouse(230,275,true)
      Wait(1000)
    end;
    
    Procedure poop2;
    begin
      MoveMouse(275,275)
      Wait(200)
      ClickMouse(275,275,true)
      Wait(1000)
    end;
    
    Procedure poop3;
    begin
      MoveMouse(320,275)
      Wait(200)
      ClickMouse(320,275,true)
      Wait(1000)
    end;
    
    begin
      Wins:=0
      Status('Starting...')
      ActivateClient;
      repeat
        Wait(5000)
        MoveMouse(280,200)
        Wait(200)
        ClickMouse(280,200,true)
        Wait(500)
        poop3;
        poop2;
        poop3;
        poop1;
        poop2;
        poop2;
        poop3;
        poop1;
        Wins:=Wins+1
      until (Wins = HowManyTimes)
    WriteLn('You Have Won '+ inttostr(Wins) +' Times')
    WriteLn('Thank You For Using This Script')
    WriteLn('See Ya Later')
    end.
    This is an AutoLogin I made
    Code:
     //Westside Rep's HARDCORE AUTO LOGIN!!!!!!!  YEAAAAAAAAHHHHHHHHHH!!!!!
     //inspired by epedemacy's AutoLogger
     //***********YOU MUST DRAG THE CROSSHAIRS OVER THE RS SCREEN**************
    
    program AutoLoginStuff;
    const
    //------Setup------//
    username ='enter your username here' ;
    password ='enter your password here' ;
    //-----------------//
    
    begin
    activateclient;
    Status('Starting my genius script')
    wait(100)
    MoveMouseSmooth(468, 291)
    wait(100);
    ClickMouse(468, 291,true)
    wait(500);
    Status('Typing username')
    wait(200)
    SendkeysSilent(username)
    wait(500);
    SendkeysSilent(chr(13));
    wait(384)
    Status('Typing password')
    wait(200)
    SendKeysSilent(password)
    wait(500);
    MoveMouseSmooth(331, 320)
    wait(100);
    ClickMouse(331, 320,true)
    wait(600);
    end.
    This is an Autotyper some cred goes to Ron
    Code:
    // Written by Westside Rep.
    // Randomized Talk, beautified, & progress report by Ron.
    // Use with SRL v.3.0+
    // Press F12 to quit
    
    Program TypeSomeStuff;
    {.include srl\srl.scar}
    {.include srl\srl\extended\xtext.scar}
    
    Const
      Text1 = '';       // Place what you want to say here.
      Text2 = '';       // Place what you want to say here.
      Text3 = '';       // Place what you want to say here.
      Text4 = '';       // Place what you want to say here.
      Text5 = '';       // Place what you want to say here.
      HowManyTimes = 100000000; // How many times do you want to say all 5 things?
      WaitTime = 5;  // How long you want to wait in milliseconds.
    
    Var
      t : Integer;
      ROrder : Array[0..4] of String;
    
    // The way to make a random order being sent is to first setup an array
    // of the Const's Text and then further down below write in...
    // SendMyText(ROrder[Random(4)]);
    // That will use the SendMyText function and send out the the array
    // ROrder then make a Random of 4 each time.
    Procedure RandomOrder;
    Begin
      ROrder[0] := Text1;
      wait(waitTime*1000);
      ROrder[1] := Text2;
      wait(waitTime*1000);
      ROrder[2] := Text3;
      wait(waitTime*1000);
      ROrder[3] := Text4;
      wait(waitTime*1000);
      ROrder[4] := Text5;
      wait(waitTime*1000);
    End;
    
    Begin
      SetupSRL;
      ActivateClient;
      RandomOrder;
      Repeat;
        SendMyText(ROrder[Random(4)]);
        ClearDebug;
        t := t + 1;
        WriteLn('AutoTyped '+IntToStr(t)+' time(s).');
      Until (t = HowManyTimes)or(IsFKeyDown(12))
      WriteLn('Thank you for using AutoTalker by Westside Rep.');
    End.


    THats all I have right now, but I will be releasing a awesome EastVarrockYewCutter/Banker and it will be awesome.h):

  2. #2
    Join Date
    Oct 2006
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    c00l im a chicken

  3. #3
    Join Date
    Oct 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ezy to make scripts...

  4. #4
    Join Date
    Oct 2006
    Posts
    119
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm happy that you're capeable of scripting. The trick now is to get past the simple, click at this coord, wait this long, click again at this coord; and onto things like full scripts that are just click here and there. Look for bmp's dtm's find color[s] (tolerances), and loads of other crap. Once you get the basics for scripting down, you're ability for learning more in a short period of time is amazing. Look at examples and read up on some more advanced commands SRL/SCAR has and before you know it you'd be atleast an SRL Member (atleast thats my guess, I'm currently not one yet)...

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
  •