Results 1 to 7 of 7

Thread: Dropping?

  1. #1
    Join Date
    Aug 2012
    Posts
    31
    Mentioned
    1 Post(s)
    Quoted
    14 Post(s)

    Default Dropping?

    Heres ye olde script, ive got "dropall" i want.. dropall except first inv. spot how would i do this?



    {$DEFINE SMART}
    {$i srl/srl.simba}

    Procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    Players[0].Name :='usernam';
    Players[0].Pass :='pasward';
    Players[0].Nick :='nicknam';
    Players[0].Active:=True;
    end;

    procedure AntiBan;
    begin
    if(not(LoggedIn))then
    Exit;
    case Random(8) of
    0:
    begin
    HoverSkill('Woodcutting', false);
    wait(2453+Random(432));
    end;
    1: PickUpMouse;
    2:
    begin
    MakeCompass('N');
    wait(100+random(133));
    MakeCompass('S');
    wait(50+random(133));
    MakeCompass('N');
    end;
    end;
    end;


    procedure ChopTree;
    var x, y: integer;
    begin
    repeat
    FindNormalRandoms;
    if FindObj(x, y, 'hop', 3757669, 35) then
    Mouse(x, y, 0, 0, false);
    ChooseOption('hop');
    repeat
    wait(1200+random(250));
    Until not IsUpText('ak') or (InvFull);
    until(InvFull);
    if InvFull then
    DropAll
    end;

    begin
    SetUpSRL;
    Smart_ForceNew := true;
    ActivateClient;
    DeclarePlayers;
    LoginPlayer;
    ChopTree;
    end.

  2. #2
    Join Date
    Mar 2006
    Location
    Belgium
    Posts
    3,564
    Mentioned
    111 Post(s)
    Quoted
    1475 Post(s)

    Default

    Try using
    Simba Code:
    (Text)
    Simba Brackets next time, it's more convenient

    and here you are, procedure DropAllExcept(DontDrop: TIntegerArray);

    you can find it in the function list

    Creds to DannyRS for this wonderful sig!

  3. #3
    Join Date
    Aug 2012
    Posts
    31
    Mentioned
    1 Post(s)
    Quoted
    14 Post(s)

    Default

    where do i add that? can you show me?

  4. #4
    Join Date
    Mar 2006
    Location
    Belgium
    Posts
    3,564
    Mentioned
    111 Post(s)
    Quoted
    1475 Post(s)

    Default

    Quote Originally Posted by HippestTrip View Post
    where do i add that? can you show me?
    Replace Dropall with DropAllExcept([1]);

    The Procedure is included in inventory.simba

    Creds to DannyRS for this wonderful sig!

  5. #5
    Join Date
    Aug 2012
    Posts
    31
    Mentioned
    1 Post(s)
    Quoted
    14 Post(s)

    Default

    how do i make this all repeat? like so it does a bunch of loads

  6. #6
    Join Date
    Mar 2006
    Location
    Belgium
    Posts
    3,564
    Mentioned
    111 Post(s)
    Quoted
    1475 Post(s)

    Default

    put this in your mainloop
    Simba Code:
    begin
    SetUpSRL;
    Smart_ForceNew := true;
    ActivateClient;
    DeclarePlayers;
    LoginPlayer;
    repeat    // goes into a cycle
      if not Loggedin then LoginPlayer;     // Making sure we're logged in
      ChopTree;
    until(false)     // Until(false) means it will repeat infinite, until you stop the script.
    end.

    if u wanna repeat it an amount of times u can use this:

    Simba Code:
    begin
    SetUpSRL;
    Smart_ForceNew := true;
    ActivateClient;
    DeclarePlayers;
    LoginPlayer;
    repeat
      if not Loggedin then LoginPlayer;  
      ChopTree;
    Inc(Loads)   // Inc adds 1 to loads done
    until(LoadsDoing =< Loads)     //If Loads is equal or more than LoadsDoing it will break out of the loop and continue with the mainloop.
    TerminateScript;   // Terminates the script after the loop.
    end.

    and put this above after {$i srl/srl.simba} and before procedure DeclarePlayers;:
    Simba Code:
    const
     LoadsDoing = 459;   // does 459 Loads

    var
      Loads: Integer;  // Need to declare the variable , variable is 0 by standard

    Creds to DannyRS for this wonderful sig!

  7. #7
    Join Date
    Jun 2012
    Posts
    4,867
    Mentioned
    74 Post(s)
    Quoted
    1663 Post(s)

    Default

    Repeat
    ChopTree;
    Until(InvFull) or (not LoggedIn);

    those last things can be different, those are just some good ones to use

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
  •