Results 1 to 5 of 5

Thread: quick question

  1. #1
    Join Date
    Jun 2007
    Location
    Indiana
    Posts
    153
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default quick question

    ok heres my script so far:

    SCAR Code:
    program PowerChopper;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Extended/xAntiban.scar}
    {.include SRL/SRL/Extended/xAntiRandoms.scar}

    //////////////////////////////////////////////////
    //              Instructions                    //
    // 1.Start anywhere by trees.                   //
    // 2.Set the color of the tree.                 //
    // 3.Equip the axe of your choice.              //
    // 4.Set the new RS window.                     //
    // 5.Move the scar window over clear to the left//
    // 6.Hit RUN!!!                                 //
    //////////////////////////////////////////////////

       ///////  //////      //           ////      ////
         //     //         // //        //  //    //  //
         //     ////      //   //      //    //  //    //
         //     //       /////////    //      ////      //
         //     //////  //       //  //        //        //

    ///////////////////Setup/////////////
    var
    Load:Integer;
    cut:Integer;

    const
    Normal=798760;  //change if it doesnt find the tree
    Loads=1; //How many loads to do.

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

      Players[0].Name :='username';  //Fill in your username.
      Players[0].Pass :='password';  //Fill in your password.
      Players[0].Nick :='nick';      //2-3 letters of your username.
      Players[0].Active :=True;      //Dont touch.

      NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
    end;

    ///////////////Don't Touch Below This//////////////////////

    procedure FindTree;
    var
     i:Integer;
    begin
    repeat
    if(FindObj(x,y,'hop',Normal,10))then
     begin
      Mouse(x,y,5,5,True)
       repeat
       Wait(2000)
       i:=i+1
       until(InChat('logs'))or(I>=5);
     i:=0
     cut:=cut+1
     until cut:>=28 or InvFull
     Loads:=Loads+1
    end;

    procedure Drop;
    begin
    DropAll;
    end;

    ///////////////Anti-Randoms//////////////////

    procedure Randoms;
    begin
    Findnormalrandoms;
    end;


    ///////////////////Main Loop////////////////////
    begin
     ClearDebug;
     SetupSRL;
     DeclarePlayers;
     If(not(LoggedIn)) then
     LoginPlayer;
      repeat
       repeat
       Randoms;
       AntiBan;
       FindTree;
       until(invfull);
      DropAll;
     until Loads=<Load
    end.

  2. #2
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes, if im correct.

  3. #3
    Join Date
    Jun 2007
    Location
    Indiana
    Posts
    153
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how then cuz when i do it says Invalid number of parameters in script
    i mean it makes sense that i do and i cant find a tut that explains it

  4. #4
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    im not sure about your problem...but you dont need your Drop procedure, and if someone wrote 'logs' in the chat then it would stop
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  5. #5
    Join Date
    Jun 2007
    Location
    Indiana
    Posts
    153
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Just a quick question? Did I say quick?
    By SeanJohn in forum OSR Help
    Replies: 3
    Last Post: 01-28-2009, 12:03 AM
  2. Quick question
    By GinFoxface in forum OSR Help
    Replies: 2
    Last Post: 04-07-2007, 04:25 AM
  3. Quick Question
    By mage of begu in forum OSR Help
    Replies: 10
    Last Post: 01-12-2007, 10:48 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
  •