Results 1 to 7 of 7

Thread: Help make this smaller?

  1. #1
    Join Date
    Dec 2008
    Posts
    70
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help make this smaller?

    SCAR Code:
    Procedure TinProcess;// Runs the process that mines tin, then when your inventory is
    begin                                // full then it drops the tin depending on where your pickaxe is
    repeat                              //
      if not(LoggedIn) then LogInPlayer;
      FindNormalRandoms;
      TinMProcess;
      i:=i + 1;
    until(InvFull);
    begin
      MMouseItem(1);
      if (IsUpText('icka')) then
        begin
          DropItem(2);
          DropItem(3);
          DropItem(4);
          DropItem(5);
          RanWait(250+random(700));
          DropItem(6);
          DropItem(7);
          DropItem(8);
          DropItem(9);
          DropItem(10);
          DropItem(11);
          RanWait(250+random(700));
          DropItem(12);
          DropItem(13);
          DropItem(14);
          DropItem(15);
          DropItem(16);
          DropItem(17);
          RanWait(250+random(700));
          DropItem(18);
          DropItem(19);
          DropItem(20);
          DropItem(21);
          DropItem(22);
          DropItem(23);
          DropItem(24);
          DropItem(25);
          DropItem(26);
          DropItem(27);
          DropItem(28);
        end else
          begin
            RanWait(250+random(700));
            DropAll;
          end;
      end;
    end;

    if some one could lead me to a tutorial on how to make this smaller, that would be much apreciated =)
    BarbvilleCoalMinerAndBanker
    80% complete
    AutoPCTrainer
    60% complete

    Quote Originally Posted by whereyouat07 View Post
    [Runtime Error] : Out Of Range in line 68 in script C:\Users\Oliver\AppData\Local\Microsoft\Windows\Te mporary Internet Files\Low\Content.IE5\OB8J6FUC\LumbyNewbie%20V0.9[1].scar

    what the hell is this lol?
    Quote Originally Posted by TravisV10 View Post
    An error (h)

  2. #2
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    SCAR Code:
    {*******************************************************************************
    Procedure DropAllExcept(A : Array of Integer);
    By: Sand Storm
    Description: Drops everything except the user defined inventory spaces.
    *******************************************************************************}

     
    procedure DropAllExcept(A : Array of Integer);
    var
      i: Integer;
    begin
    For I:=1 To 28 Do
        if not(InIntArray(a, i)) then
          DropItem(i);
    end;

    usage:
    DropAllExcept([1,2,3]);//1,2,3 are inventory slot numbers

  3. #3
    Join Date
    Sep 2007
    Posts
    638
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The tutorials have said to use DropTo(Firstslot,SecondSlot);

    So DropTo(2,28);
    but it hasn't worked for me recently.

    you could also try

    SCAR Code:
    procedure New;
    var
    i : Integer;
    begin
    for i:=2 to 28 do
    DropItem(i);
    end.

  4. #4
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    someone told you what to do on your original thread

    check that

  5. #5
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yay! My procedure was posted .

    There's no space in my name though /glares.

    ^.^. But yea, I'd suggest using the procedure Mormonman posted, effective and useful.

    ~Sandstorm

  6. #6
    Join Date
    Dec 2008
    Posts
    70
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks much guys =)
    BarbvilleCoalMinerAndBanker
    80% complete
    AutoPCTrainer
    60% complete

    Quote Originally Posted by whereyouat07 View Post
    [Runtime Error] : Out Of Range in line 68 in script C:\Users\Oliver\AppData\Local\Microsoft\Windows\Te mporary Internet Files\Low\Content.IE5\OB8J6FUC\LumbyNewbie%20V0.9[1].scar

    what the hell is this lol?
    Quote Originally Posted by TravisV10 View Post
    An error (h)

  7. #7
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    Quote Originally Posted by Sandstorm View Post
    Yay! My procedure was posted .

    There's no space in my name though /glares.

    ^.^. But yea, I'd suggest using the procedure Mormonman posted, effective and useful.

    ~Sandstorm
    hey i just copied it from the thread you posted it on -.-

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. How can I make this better?
    By Ogre in forum OSR Help
    Replies: 9
    Last Post: 03-08-2009, 04:01 AM
  2. Challenge make a intermediate program, Tell me something to make.
    By ShowerThoughts in forum News and General
    Replies: 9
    Last Post: 09-22-2008, 08:04 PM
  3. this would own (plz make it)
    By owntun00b in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 08-01-2007, 06:42 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
  •