Results 1 to 12 of 12

Thread: Getting back into things...

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

    Default Getting back into things...

    Ok guys i have not even touched a script for about a year and i want to update my old power chopper can i get some help i dont know for sure what all has changed and i have dl the new scar and srl...

    heres the script..
    SCAR Code:
    program PowerChopper;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Extended/xAntiban.scar}
    {.include SRL/SRL/Skill/WoodCutting.scar}
    {.include SRL/SRL/Misc/Trade.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
    Loads: Integer;
    Logz: Integer;
    Exp: Integer;
    Tries: Integer;

    const
    TreeColor=3035208; //change if it doesnt find the tree

    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[0].Integer1 := 0;    //How many loads to do
     
      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 := True;     //Set true if you want to use this player
      Players[1].Integer1 := 0;

      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[2].Integer1 := 0;

      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[3].Integer1 := 0;

      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[4].Integer1 := 0;

      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
      Players[5].Integer1 := 0;
     
      NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
    end;

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

    procedure FindTree;
    var
     i:Integer;
    begin
    if(FindObj(x,y,'hop',TreeColor,10))then
     begin
     FindEnt(0);
     Mouse(x,y,5,5,True)
      repeat
      Wait(1000+random(200));
      i:=i+1
      until(InChat('logs.'))or(I>=8);
      if(not(FindObj(x,y,'hop',TreeColor,10)))then
      begin
      Tries:=Tries + 1
      if(Tries = 15)then
      begin
       Writeln('---------------------------------');
       Writeln('--------Teamepics Chopper--------');
       Writeln('Could not find trees, try moving your player.');
       TerminateScript;
       end;
       end;
      end;
     i:=0
    end;

    procedure Drop;
    begin
    DropTo (2,28);
    end;

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

    Function FindFastRandoms: Boolean;    // By WT-Fakawi.
    var
      i: Integer;
    begin
      for i:=1 to 10 do
      begin
        case I of
           1:  If FindDead then
                 Result := True;
           2:  If FindMod then
                 Result := True;
           3:  If FindMime then
                 Result := True;
           4:  If FindMaze then
                 Result := True;
           5:  If FindQuiz then
                 Result := True;
           6:  If FindDemon then
                 Result := True;
           7:  if NoGameTab then
                 begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 end;
           8 : If RC Then Result := True;

           9: If FindTalk Then Result := True;
        End;
        Wait(1);
      end;
    end;

    procedure Randoms;
    begin
    Findnormalrandoms;
    FindFastRandoms;
    AcceptTrade;
    Decline;
    FindHead;
    FindLamp('Woodcutting');
     if(not(loggedin)) then
     NextPlayer (False)
     if FindFight then //if finds that you're in a fight
      begin
       RunAwayDirection('N'); //runs north (s, w, e)
       Wait(9000+random(2000)); //waits
       RunBack;//Runs back
      end;
    end;

    procedure Talk;
    var
      LastMessage: String;
    begin
      GetLastChatText(LastMessage);
      if ((Pos('Hey', LastMessage) <> 0) or
      (Pos('Whats up', LastMessage) <> 0) or
      (Pos('Hows it going', LastMessage) <> 0) or
      (Pos('Hi', LastMessage) <> 0) or
      (Pos('Hey all', LastMessage) <> 0)) then
      Wait(2000 + random(1000));
      begin
        Case Random(4) of
        0: TypeSend('Hey whats going down.');
        1: TypeSend('Woodcutting lvls?');
        2: TypeSend('What time is it?');
        end;
      end;
    end;

    ////////////////////Progress Report/////////////////

    Procedure Progreport;
    begin
    Writeln('|---------------Teams Chopper-----------------|');
    Writeln('|---------------------------------------------|');
    Writeln('|Worked For : ' + TimeRunning)
    Writeln('|Chopped '+IntToStr(Loads) + ' Loads');
    Writeln('|Gained Approx. ' + IntToStr(Exp) + ' XP');
    Writeln('|---------------------------------------------|');
    end;


    //////////////////Loop's////////////////////

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

    ////////////////////Main Loop/////////////////////
     
     begin
      ScriptSetup;
      NEWLINE:='';
     If(not(LoggedIn)) then
     LoginPlayer;
     SetChat('Off',1)
     wait(40)
     HighestAngle;
     wait(40)
     SRLRandomsReport;
      repeat
       repeat
        repeat
        FindTree;
        Randoms;
        Talk;
        AntiBan;
        until(invfull);
       Loads:=Loads+1
       Drop;
       Until Loads >= Players[CurrentPlayer].Integer1
     if Loads >= Players[CurrentPlayer].Integer1 then
     Progreport;
     NextPlayer(True);
     Loads:=0
    Until False
    end.

  2. #2
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    use scar tags.

    I'm looking at it now.

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

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

  5. #5
    Join Date
    Feb 2007
    Location
    Massachusetts
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    20 Post(s)

    Default



    That is the button for scar tags, it makes your post look neater and puts your script in the proper colors.

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

  7. #7
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    Program PowerChopper;
    {.Include SRL/SRL.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
     Loads: Integer;
     Logz: Integer;
     Exp: Integer;
     Tries: Integer;
     x, y, fx, fy, i : integer;

    const
     TreeColor = 3035208; //change if it doesnt find the tree
     Loadz = 3;

    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 := True; //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

    end;

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

    procedure FindTree;
    var
     i:Integer;
    begin
      if(FindObj(x,y,'hop',TreeColor,10))then
      begin
        FindEnt(fx, fy, True);
        Mouse(x,y,5,5,True)
        repeat
          Wait(1000+random(200));
          i:=i+1
        until(InChat('logs.'))or(I>=8);
        if(not(FindObj(x,y,'hop',TreeColor,10)))then
        begin
          Tries:=Tries + 1
          if(Tries = 15)then
          begin
            Writeln('---------------------------------');
            Writeln('--------Teamepics Chopper--------');
            Writeln('Could not find trees, try moving your player.');
            TerminateScript;
          end;
        end;
        i:=0;
      end;
    end;

    procedure Drop;
    begin
      for i := 2 to 28 do
      DropItem(i);
    end;

    procedure Randoms;
    begin
      Findnormalrandoms;
      FindLamp('Woodcutting');
      if(not(loggedin)) then
      NextPlayer (False);
      if FindFight then //if finds that you're in a fight
      begin
        RunTo('N',false);
        Wait(10000 + random(2840));
        RunTo('S',false);
      end;
    end;

    procedure Talk;
    var
     LastMessage: String;
    begin
      GetLastChatText(LastMessage);
      if ((Pos('Hey', LastMessage) <> 0) or
      (Pos('Whats up', LastMessage) <> 0) or
      (Pos('Hows it going', LastMessage) <> 0) or
      (Pos('Hi', LastMessage) <> 0) or
      (Pos('Hey all', LastMessage) <> 0)) then
      Wait(2000 + random(1000));
      begin
        Case Random(4) of
          0: TypeSend('Hey whats going down.');
          1: TypeSend('Woodcutting lvls?');
          2: TypeSend('What time is it?');
        end;
      end;
    end;

    ////////////////////Progress Report/////////////////

    Procedure Progreport;
    begin
      Writeln('|---------------Teams Chopper-----------------|');
      Writeln('|---------------------------------------------|');
      Writeln('|Worked For : ' + TimeRunning)
      Writeln('|Chopped '+IntToStr(Loads) + ' Loads');
      Writeln('|Gained Approx. ' + IntToStr(Exp) + ' XP');
      Writeln('|---------------------------------------------|');
    end;


    //////////////////Loop's////////////////////

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

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

    begin
      ScriptSetup;
      If(not(LoggedIn)) then
      LoginPlayer;
      SetChat('Off',1);
      wait(40);
      KeyDown(VK_Up);
      Wait(2000 + random(250));
      KeyUp(VK_Up);
      Wait(2000 + random(250));
      SRLRandomsReport;
      repeat
        repeat
          repeat
            FindTree;
            Randoms;
            Talk;
          until(invfull);
        Loads:=Loads+1
        Drop;
        Until Loads >= Loadz;
        if Loads >= Loadz then
        Progreport;
        NextPlayer(True);
        Loads:=0
      Until False
    end.
    FindFastRandoms; and HighestAngle; died.

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

    Default

    ok now i get an error Unable to register function function FindGapsTPA(TPA : TPointArray; MinPixels: Interger) : T2DPointArray; in script...

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

    Default

    heres my script so far...

    SCAR Code:
    program PowerChopper;
    {.Include SRL/SRL.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
    Loads: Integer;
    Logz: Integer;
    Exp: Integer;
    Tries: Integer;
    x, y, fx, fy, i : Interger;

    const
    TreeColor=3035208; //change if it doesnt find the tree

    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[0].Integer1 := 0;    //How many loads to do
     
      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 := True;     //Set true if you want to use this player
      Players[1].Integer1 := 0;

      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[2].Integer1 := 0;

      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[3].Integer1 := 0;

      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[4].Integer1 := 0;

      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
      Players[5].Integer1 := 0;
     
    end;

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

    procedure FindTree;
    var
     i:Integer;
    begin
     if(FindObj(x,y,'hop',TreeColor,10))then
      begin
       FindEnt(fx, fy, True);
       Mouse(x,y,5,5,True)
       repeat
       Wait(1000+random(200));
       i:=i+1
       until(InChat('logs.'))or(I>=8);
       if(not(FindObj(x,y,'hop',TreeColor,10)))then
       begin
       Tries:=Tries + 1
       if(Tries = 15)then
       begin
        Writeln('---------------------------------');
        Writeln('--------Teamepics Chopper--------');
        Writeln('Could not find trees, try moving your player.');
        TerminateScript;
        end;
       end;
      i:=0
     end;
    end;

    procedure Drop;
    begin
     for i := 2 to 28 do
     DropItem(i);
    end;

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

    procedure Randoms;
    begin
    FindAxe;
    Findnormalrandoms;
    FindEnt;
    FindLamp('Woodcutting');
     if(not(loggedin)) then
     NextPlayer (False);
     if FindFight then //if finds that you're in a fight
      begin
       RunTo('N', False); //runs north (s, w, e)
       Wait(9000+random(2000)); //waits
       RunTo('S', False);//Runs back
      end;
    end;

    procedure Talk;
    var
      LastMessage: String;
    begin
      GetLastChatText(LastMessage);
      if ((Pos('Hey', LastMessage) <> 0) or
      (Pos('Whats up', LastMessage) <> 0) or
      (Pos('Hows it going', LastMessage) <> 0) or
      (Pos('Hi', LastMessage) <> 0) or
      (Pos('Hey all', LastMessage) <> 0)) then
      Wait(2000 + random(1000));
      begin
        Case Random(4) of
        0: TypeSend('Hey whats going down.');
        1: TypeSend('Woodcutting lvls?');
        2: TypeSend('What time is it?');
        end;
      end;
    end;

    ////////////////////Progress Report/////////////////

    Procedure Progreport;
    begin
    Writeln('|---------------Teams Chopper-----------------|');
    Writeln('|---------------------------------------------|');
    Writeln('|Worked For : ' + TimeRunning)
    Writeln('|Chopped '+IntToStr(Loads) + ' Loads');
    Writeln('|Gained Approx. ' + IntToStr(Exp) + ' XP');
    Writeln('|---------------------------------------------|');
    end;


    //////////////////Loop's////////////////////

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

    ////////////////////Main Loop/////////////////////
     
     begin
      ScriptSetup;
     If(not(LoggedIn)) then
     LoginPlayer;
     SetChat('Off',1)
     Wait(40)
     KeyDown(VK_Up);
     Wait(2000 + random(250));
     KeyUp(VK_Up);
     Wait(2000 + random(200));
     SRLRandomsReport;
      repeat
       repeat
        repeat
        FindTree;
        Randoms;
        Talk;
        until(invfull);
       Loads:=Loads+1
       Drop;
       Until Loads >= Players[CurrentPlayer].Integer1
     if Loads >= Players[CurrentPlayer].Integer1 then
     Progreport;
     NextPlayer(True);
     Loads:=0
     Until False
    end.

  10. #10
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Get Scar 3.14
    Move SRL Plugins.

  11. #11
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Team_epic, download scar 3.14 and srl rev. You can find a tutorial on how to do in in the tutorial island, when you do so, you wont have the error anymore.
    Woot woot.

  12. #12
    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. a lil help with 2 things
    By tazzin44 in forum OSR Help
    Replies: 4
    Last Post: 02-06-2009, 01:19 AM
  2. Things to do before you die
    By Squigglyo in forum Discussions & Debates
    Replies: 7
    Last Post: 05-20-2008, 12:00 PM
  3. Several things I need help on.
    By Torrent of Flame in forum OSR Help
    Replies: 4
    Last Post: 03-03-2008, 09:29 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
  •