Page 1 of 2 12 LastLast
Results 1 to 25 of 49

Thread: Making Any Script

  1. #1
    Join Date
    Jan 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Making Any Script

    cant think of any good script to make which i havnt already done.

    ive just finished my mort myre fungi script, but will only work on my account, unless you have the exact same house(rugs alter teleportal etc)

    making amazing moneys and thinking of releasing it in a few weeks, with screenshots how to set up house etc.

    But back to topic, Going for SRL members, throw me a good script and ill make it for my app membership

    BTW ive been scripting now for only a few WEEKS on simba, but ive made rune miners, summoners, Runecrafter so any script i should be able to make.

    post ideas, even if the script is stupid!

  2. #2
    Join Date
    Feb 2011
    Location
    Earth
    Posts
    1,784
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    I would like to see some more people tackle combat scripts, there's a whole frontier left untouched.

    There are plenty of places to make a fighter, looter, and banker.

    Currently: Working on Defending&Attacking in my Castle-Wars Script
    Project Rebuild: 90M/170M

  3. #3
    Join Date
    Jan 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    loot can be quiet hard to pick up, and detecting to see if others are attacking monsters. basic fighting scripts are quiet easy, fight eat bank repeat.

    but looting can be very buggy of what ive seen. i will make a simple druid killer and herb collector and bank in fally of something, see how the looting on herbs works.

    ill post on progress

  4. #4
    Join Date
    Dec 2011
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    a iron platebody maker on varrock

  5. #5
    Join Date
    Dec 2011
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    public pest control

  6. #6
    Join Date
    Dec 2011
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Soul wars.

  7. #7
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Lol I love the feeling about how you can script ANYTHING after you've scripted something
    It's like the afterglow of sex xD

  8. #8
    Join Date
    Dec 2011
    Location
    Nj
    Posts
    2,341
    Mentioned
    1 Post(s)
    Quoted
    18 Post(s)

    Default

    How about you make a lobster fisher, none of the msi fishers are working properly...

    For the basics of the basics of pascal, try my TuT. ||Photoshop Editing ||MapleResourceDung Script || Book a flight! BuySellTrip

  9. #9
    Join Date
    Jan 2012
    Location
    I live in Australia.
    Posts
    137
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Stealing Creation Script!! ... and i would send you lots of virtual kisses, MWAH no homo

  10. #10
    Join Date
    Dec 2011
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    A Salamander hunter would be great project and not too difficult to script.

  11. #11
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Experiment killer, with bone pickup and usage of bones to peaches tabs.

  12. #12
    Join Date
    Jan 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    some more runecrafting scripts would be nice theres hardly any in there that are public and that work

  13. #13
    Join Date
    Dec 2011
    Posts
    77
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    pest control please

  14. #14
    Join Date
    Jan 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    make a ranging guild script
    undoubtly highly wanted here

  15. #15
    Join Date
    Jan 2012
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    An Abyssal Runecrafter

  16. #16
    Join Date
    Jan 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    mini-game scripts like soul wars isnt an easy script, would take along time of scripting to get it perfect, i dont think i got that sort of time. pest control wouldnt be too hard. i might mess around with it tonight.

    abyssal runecrafter, ive looked into it, and had a play, but the only way i could get it to work is so slow. it needs to bascially run a whole lap around the abyssal to detect its location, unless some1 could give me any tips on locating in abyssal.


    currently working on Nature Rune Crafter. which de-notes ess and runs. it currently works. but cant always find the trader and goes abit crazy and starts having sex with the barrels, and running around the ladder :S

  17. #17
    Join Date
    Jan 2012
    Location
    Sweden
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I would like a script that anti afk, changes weapon at 60% HP(Then back again att 90-100%) and eats food at 20% HP.. yeah thats about it
    Last edited by Smetig; 01-28-2012 at 07:05 PM.

  18. #18
    Join Date
    Dec 2011
    Posts
    142
    Mentioned
    0 Post(s)
    Quoted
    12 Post(s)

    Default

    I know you said you were going to try a druid script for banking/looting, but what if you made a flesh crawler script ? Also if could make it loot fire runes that would be great, thanks

  19. #19
    Join Date
    Jan 2012
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default


    The area circled in red has a 3 iron spot where you can literally just mine and drop. You don't have to move so that should be simple but there are two more rocks at the top right of the area circled so if you're going by color, that would mean the script would probably find the other two.

    You could make it so it just stays in the spot by the three rocks and drops while it's waiting to find another rock or walk to the other rocks and mine those.

  20. #20
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by joehartwig View Post
    some more runecrafting scripts would be nice theres hardly any in there that are public and that work
    For a good reason too.(Over used by lechers who don't want to learn code..)
    Mat



    ^^

  21. #21
    Join Date
    Dec 2011
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    a swamp toad picker would be nice

  22. #22
    Join Date
    Dec 2011
    Posts
    496
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Another hunter script would be nice, don't like seeing 5 gold farming scripts and only 1 script for leveling! Maybe the salamander script someone suggested, or if you're up for a challenge, give jadinko hunting a go!
    Nearly maxed, woowweee.

  23. #23
    Join Date
    Dec 2011
    Posts
    109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    astral rcer.

  24. #24
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    People requesting SW/PC; The script would become members only if it was actually made. Both those mini-games depend on the players performance, and too many bots would ruin it.

  25. #25
    Join Date
    Jan 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    REPLY TO KABLE.

    i made a script a while back. mines the coal and iron and banks in that ardy spot. here thes script

    been a while since i used it. post here if it with any bugs, i think sometimes there was a bank bug or something, but i just ran it for 5mins to check it out and its still working.

    Simba Code:
    program ArdyMiner;
    // Includes...
    {$i srl/srl/misc/smart.simba}
    {$loadlib sps}
    {$i srl/srl.simba}
    {$i sps/sps.simba}

    const
      SRLStats_User = ''; // Your SRL Stats ID (If you dont have one then just leave it as it is)
      SRLStats_Password = ''; // Your SRL Stats Password (If you dont have one then just leave it as it is)
    Var
    X, Y, T, W, Flax, Breaks, Loads: Integer;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // This is set to the total amount of players,  for now, just keep it set as 1
      NumberOfPlayers(HowManyPlayers); // Don't touch
      CurrentPlayer := 0; // This is the player to start with; the first player will always be 0

      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True; // Set to true if you want to use Player 0
      Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
      Players[0].Integers[1] := 200;//# of loads to do.
      Players[0].Integers[2] := 720; // Time before breaking ( In minutes)
    end;

    procedure SetupLogin;
    begin
      ClearDebug;
      // Setting up SMART;
      Smart_Server := 9;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
      SetupSRLStats(295, SRLStats_User, SRLStats_Password);
      DeclarePlayers;
      LoginPlayer; //  Logging in...
    end;

    procedure BreakTime;
    var
    s, i: Integer;
    begin
      if (s = 0) then
        s := Players[0].Integers[2] * 60000; //+ RandomRange(300000, 600000);
      if T = 1 then
      begin
        W:= GetTimeRunning;
        if (W > s) then
        begin
          Logout;
          i:= RandomRange(10, 15);
          Writeln('Taking a break for ' + IntToStr(i) + ' minutes');
          i:= i * 60000;
          Wait(i);
          T := 0;
          s:= W + s;
          Inc(Breaks);
          LoginPlayer;
        end;
      end else
      if T = 0 then
      begin
        T := T + 1;
      end;

    end;

    procedure SetupSps;

    begin
      SPS_Setup(RUNESCAPE_SURFACE,  ['6_8']);
      SPS_Continue := false;
    end;

    procedure Antiban; //idea taken from Coh3n's tutorial.
    begin
      if not (LoggedIn) then
        Exit;
      begin
        case Random(100) of // Random(100) generates a random integer from 0 to 59
          10: RandomRClick;
          30: HoverSkill('Mining', False);
          40: PickUpMouse;
          50: RandomMovement;
          70: BoredHuman;
          89: ExamineInv;
        end;
      end;
    end;

    procedure RestUp;
    begin
      if not (LoggedIn) then
        Exit;
      begin
        SetRest;
        while not RunEnergy(95) do
        begin
          Antiban;
          Wait(Random(1000));
        end;
      end;
    end;

    function DepositAllCus: Boolean; //Credit to Kyle Undefined for the fix
    var
      T, X, Y: Integer;
      BScreen, DScreen: Boolean;
    begin
      Result := false;
      BScreen := BankScreen;
      if (not(BScreen)) then
        DScreen := DepositScreen;
      if (BScreen) or (DScreen) then
        if (InvCount > 0) or (FindColor(X, Y, srl_outline_black, 98, 68, 436, 257) and (DSCreen)) then
        begin
          Mouse(360 - 50 * Integer(DScreen), 305 - 30 * Integer(DScreen), 15, 10, True);
          Wait(200 + Random(300));
          T := GetSystemTime;
          while (InvCount > 0) or (FindColor(X, Y, srl_outline_black, 98, 68, 436, 257) and (DSCreen)) and (GetSystemTime - T < 2000) do
            Wait(100);
          Result := (InvEmpty) or (not(FindColor(X, Y, srl_outline_black, 98, 68, 436, 257)) and (DScreen));
        end else begin
          srl_Warn('DepositAll', 'No items to deposit ', warn_AllVersions);
          result := true;
        end;
    end;

    function Banking: Boolean;
    var
    p, t: Integer;

    begin
    if not (LoggedIn) then
      Exit;
      if (InvCount < 1) then
        Exit;
      while (IsMoving) do
      begin
        Wait(RandomRange(900, 1200));
      end;
    t := 0; //Tries starts at zero
      repeat
        Inc(t);
        Writeln('Trying to open the bank, this is the ' + IntToStr(t) + ' try out of 5');
        MakeCompass('n');
        Wait(RandomRange(700, 1000));
        if not(OpenBankNPC) then
          OpenBank('clt', True, True);
      until BankScreen or PinScreen or (t = 5);

      if PinScreen then
      begin
      p := 0;
        repeat
          InPin(Players[0].Pin);
          Inc(p)
        until BankScreen or (p > 0) or not (LoggedIn);
      end;

      if BankScreen then
      begin
        Writeln('Opened the bank...');
        if not DepositAllCus then
          DepositAll;
        Wait(RandomRange(500, 1500));
        CloseBank;
      end;

      if (t = 5) then
      begin
        Writeln('failed to find bank.');
        Writeln('Terminating...');
        TerminateScript;
      end;
    end;

    function Walking(Color, Tolerance: Integer; SortFrom: tpoint): Boolean;// credit to Camaro' for the tutorial and function!
    var
      i, x, y, rx, ry: Integer;
      TPA: TPointArray;
    begin
      if not LoggedIn then Exit;
      FindNormalRandoms;
      FindColorsSpiralTolerance(MMCX, MMCY, TPA, Color, MMX1, MMY1, MMX2, MMY2, Tolerance);
      SortTPAFrom(TPA, SortFrom);

      for i := 0 to High(TPA) do
      begin
        x := TPA[i].x;
        y := TPA[i].y;

        rx := RandomRange(-6, 6);
        ry := RandomRange(-6, 6);
        if (not rs_OnMinimap(x + rx, y + ry)) then
          Continue;

        Mouse(x + rx, y + ry, 0, 0, true);
        FFlag(0);
        Wait(200 + Random(500));
        Result := True;
        Break;
      end;
    end;

    procedure WalkToOre;
    var
    BankToOre: TPointArray;

    begin
      if not (LoggedIn) then
        Exit;
      if not FindNormalRandoms then
      begin
        if not RunEnergy(25) then
          RestUp;
        MakeCompass('n');
        Writeln('Going to Ore');
        Wait(Random(1000));
        BankToOre :=[Point(2448, 3525), Point(2424, 3525), Point(2406, 3519), Point(2414, 3496), Point(2433, 3485), Point(2451, 3472), Point(2466, 3466), Point(2487, 3458), Point(2502, 3450), Point(2523, 3439), Point(2553, 3439), Point(2577, 3435), Point(2600, 3425), Point(2609, 3400), Point(2619, 3382), Point(2630, 3361), Point(2629, 3340)];

        if SPS_WalkPath(BankToOre) then
          Writeln('Near the Ore');
        Wait(RandomRange(1200, 1500));
      end;
    end;

    procedure GetOre;
    var x, y: integer;
    begin
        repeat
        SetAngle(SRL_ANGLE_HIGH);
        if FindObj(x, y, 'ine', 16709107, 35) then
        begin
          Mouse(x, y, 0, 0, false);
          ChooseOption('ine');
        end;
          repeat
            wait(1000+random(1000));
            AntiBan;
          Until not IsUpText('mine') or (InvFull);
      until(InvFull);
    end;
    procedure WalkToBank;
    var
    FlaxToBank: TPointArray;

    begin
      if not (LoggedIn) then
        Exit;
      if not FindNormalRandoms then
      begin
        if not RunEnergy(25) then
          RestUp;
        MakeCompass('E');
        Writeln('Walking to Bank...');
        Wait(Random(1000));
        FlaxToBank :=[Point(2636, 3336), Point(2629, 3375), Point(2614, 3399), Point(2603, 3423), Point(2574, 3453), Point(2538, 3479), Point(2525, 3506), Point(2488, 3524), Point(2462, 3552), Point(2417, 3555), Point(2405, 3535), Point(2455, 3526)];
        if SPS_WalkPath(FlaxToBank) then
          Writeln('Banking Your Ore!! You Didnt Get Killed?..');
        Wait(RandomRange(200, 400));
      end;
    end;

    procedure MainLoop;
    begin
      SetupLogin;
      SetupSps;
      T := 0;
      for Loads := 0 to Players[0].Integers[1] do
      begin
        if not (LoggedIn) then
          Break;
        BreakTime;
        Banking;
        WalkToFlax;
        GetOre;
        WalkToBank;
      end;
    end;

    begin
      MainLoop;
    end.

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Posting Permissions

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