Results 1 to 11 of 11

Thread: just need somone to double check...

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

    Default just need somone to double check...

    ok heres my script i just need somone to make sure its all ok and im really worried about the multi player stuff and all the load number stuff so...

    SCAR Code:
    program PowerChopper;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Extended/xAntiban.scar}
    {.include SRL/SRL/Extended/xAntiRandoms.scar}
    {.include SRL/SRL/Skill/WoodCutting.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
    LoadsNumb: Integer;

    const
    Normal=798760; //change if it doesnt find the tree
    Loads=1; //Number of loads to do

    procedure DeclarePlayers;
    begin
     HowManyPlayers:=6; //Don't Change if you want more players just fill in their info and set their active to: True
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer := 0; //Player to start on

      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;      //Set true if you want to use this player

      Players[1].Name := 'UserName'; //Fill in your username
      Players[1].Pass := 'Password';  //Fill in your password
      Players[1].Nick := 'Nick';      //2-3 letters of your username
      Players[1].Active := False;     //Set true if you want to use this player

      Players[2].Name := 'UserName';  //Fill in your username
      Players[2].Pass := 'Password';  //Fill in your password
      Players[2].Nick := 'Nick';      //2-3 letters of your username
      Players[2].Active := False;     //Set true if you want to use this player

      Players[3].Name := 'UserName';  //Fill in your username
      Players[3].Pass := 'Password';  //Fill in your password
      Players[3].Nick := 'Nick';      //2-3 letters of your username
      Players[3].Active := False;     //Set true if you want to use this player

      Players[4].Name := 'UserName';  //Fill in your username
      Players[4].Pass := 'Password';  //Fill in your password
      Players[4].Nick := 'Nick';      //2-3 letters of your username
      Players[4].Active := False;     //Set true if you want to use this player

      Players[5].Name := 'UserName';   //Fill in your username
      Players[5].Pass := 'Password';   //Fill in your password
      Players[5].Nick := 'Nick';       //2-3 letters of your username
      Players[5].Active := False;      //Set true if you want to use this player

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

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

    procedure FindTree;
    var
     i:Integer;
    begin
    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);
     end;
    i:=0
    end;

    procedure Drop;
    begin
    DropAll;
    end;

      function InventoryCount1: Integer;
    {var
      used, i, e: Integer;
    begin
      e := 0;
      i := 0;
      used := 0;
      GameTab(4);
      while (i < 6) do
      begin
        if (i = 5) and (e < 8) then
        begin
          i := 0;
          e := e + 1;
        end;
        if (FindColor(x, y, 65536, (571 + 47 * i), (215 + 36 * e), (601 + 47 * i), (245 + 36 * e))) then
          used := used + 1;
        i := i + 1;
      end;
      Result := used;
    end; }

    var
      Mx, My, e, i: Integer;
    begin
      GameTab(4);
      for e := 0 to 6 do
      begin
        for i := 0 to 4 do
        begin
          Mx := (561 + (i * 43));
          My := (209 + (e * 37));
          if (FindColorSpiral(x, y, 65536, Mx, My, Mx + 40, My + 35)) then
            Result := Result + 1;
            LoadsNumb := LoadsNumb + 1;
        end;
      end;
    end;

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

    procedure Randoms;
    begin
    Findnormalrandoms;
    end;


    procedure ScriptSetup;
    begin
     ClearDebug;
     SetupSRL;
     DeclarePlayers;
     end;

    ////////////////////Main Loop/////////////////////

     begin
      ScriptSetup;
     If(not(LoggedIn)) then
     LoginPlayer;
      repeat
       repeat
       Randoms;
       AntiBan;
       FindTree;
       until(invfull);
      DropAll;
      if(LoadsNumB=Loads)then
      begin
       NextPlayer(True);
       LoadsNumB:=0;
       HighestAngle;
       MakeCompass('N');
       Writeln('You switched players.');
       end;
     until(false)
    end.

  2. #2
    Join Date
    Jun 2007
    Location
    Kentucky, United States of America
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It looks good to me. Not that that's saying much since I'm pretty new to this, but I don't see any obvious errors.

    Best thing you could do would be to just try it out.

  3. #3
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Test it yourself?

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

  5. #5
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Set the same account to many spots So it'll log out and switch to the same account if it works.

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

    Default

    Quote Originally Posted by GoF View Post
    Set the same account to many spots So it'll log out and switch to the same account if it works.
    Lol thats what i do =)
    and you may wan't to check out the SRL/scripts/SRL Template.scar
    =p

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

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

    Default

    i just want to make sure it all looks like it should work correctly
    edit:does it look like the multiplayer and loads counter will work?

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

    Default

    btw it looks, yes.

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

  11. #11
    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. Can Somone Fix My Script?
    By Ultra in forum OSR Help
    Replies: 5
    Last Post: 03-14-2008, 08:43 PM
  2. Please somone help me!
    By avex77 in forum OSR Help
    Replies: 2
    Last Post: 12-11-2007, 09:03 PM
  3. double check!
    By ShowerThoughts in forum OSR Help
    Replies: 7
    Last Post: 09-23-2007, 10:59 AM
  4. Can Some1 double check this
    By psychoson in forum OSR Help
    Replies: 6
    Last Post: 06-24-2007, 02:32 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
  •