Results 1 to 8 of 8

Thread: Out of Range Error

  1. #1
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default Out of Range Error

    So this is my script, but I get an Out of Range error. The script cuts as it should, then drops, but then doesn't do anything after dropping, it just says

    SCAR Code:
    [Runtime Error] : Out Of Range in line 364 in script

    My script is;
    SCAR Code:
    {//////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
      This is my first publicly released script since last year. I have been out of
       SRL for about a year, and have decided to come back. I had this powercutter
     before but never got it to work, I am hoping it will do now. Thanks for taking
     the time to use my script. Please post any problems or progress reports on the
    thread you got this from, as if you don't post, I dont know what to update. SRL
    stats are NEEDED for this script to work, so you have to have them otherwise the
                                   script will not run!
                                                                 ~ Torrent of Flame
    ///////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

    ///////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    Credits to;

    - Cazax; Fixed my EntFinder troubles.
    - Camo¤Kyle; I learnt alot on TPA's from his PowerCutter script.

    ///////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}


    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\///
    |Title:                       The Anywhere Power Cutter                        |
    |By:                             Torrent of Flame                              |
    |Scar/Revision:           Scar 3.15b        SRL 4.0 Rev 29/30                  |
    |Version:                          Version 0.1b                                |
    |Description: The Anywhere Power Cutter will cut any tree from the following   |
    |             and will drop them:                                              |
    |                  - Normal                                                    |
    |                  - Oak                                                       |
    |                  - Willow                                                    |
    |                  - Maple                                                     |
    |                  - Yew                                                       |
    |                                                                              |
    |Setup: Enter your SRL ID and Password at lines 26 and 27,                     |
    |       Then Declare your players at lines 45 - 57  |                          |
    |       (More players can be added if necessary)Make sure you enter your tree  |
    |       type all LOWER CASE. Make sure your character is  logged out and in a  |
    |       place near to where your trees are. There are several areas good for   |
    |       trees:                                                                 |
    |       'Normal' - South of Seers Village Bank, past the Maple Trees(P2P)      |
    |                  Lumbridge Swamp(F2P)                                        |
    |       'Oak' - Not quite sure of a good Oak area                              |
    |       'Willows' - Draynor or Port Sarim (Recommend Draynor - More Trees)     |
    |       'Maples' - The Sinclar Mansion, or behind Seers Bank. (P2P)            |
    |                                                                              |
    |            //You probably wont set it to run and drop Yews but...\\          |
    |       'Yews' - North of Varrock Castle (F2P)                                 |
    |                Catherby Trees (West of Candle Salesman)(P2P)                 |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
    |Version 0.1 Includes:                                                         |
    |     - TPA Tree Finding                                                       |
    |     - AntiRandoms                                                            |
    |     - AntiBan                                                                |
    |     - Broken Axe Finder                                                      |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
    |Version 0.2 Includes:                                                         |
    |     - Improved Tree Finding                                                  |
    |     - EntFinder                                                              |                                                         |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}


                                Program AnyWherePowerChopper;
                                  {.include SRL/SRL.scar}
                          {.include SRL/SRL/Skill/WoodCutting.scar}
                         
    const
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
                                        YourSRLId = '';
                                     YourSRLPassword = '';
    {/\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}



    procedure DeclarePlayers;
    begin
       HowManyPlayers := 1; //How many Players
       NumberOfPlayers(HowManyPlayers);
       CurrentPlayer :=0; //Starting Player

       Players[0].Name := '';
       Players[0].Pass := '';
       Players[0].Nick := '';
       Players[0].Active := True;
       Players[0].Integers[0]:= 10; //Loads to Do;
       Players[0].Strings[0] := 'willow';

    {  Players[1].Name := '';
       Players[1].Pass := '';
       Players[1].Nick := '';
       Players[1].Active := False;
       Players[1].Integers[0]:= 10; //Loads to Do;
       Players[1].Strings[0] := 'oak';

       Players[2].Name := '';
       Players[2].Pass := '';
       Players[2].Nick := '';
       Players[2].Active := True;
       Players[2].Integers[0]:= 10; //Loads to Do;
       Players[2].Strings[0] := 'willow';

       Players[3].Name := '';
       Players[3].Pass := '';
       Players[3].Nick := '';
       Players[3].Active := True;
       Players[3].Integers[0]:= 10; //Loads to Do;
       Players[3].Strings[0] := 'maple';

       Players[4].Name := '';
       Players[4].Pass := '';
       Players[4].Nick := '';
       Players[4].Active := True;
       Players[4].Integers[0]:= 10; //Loads to Do;
       Players[4].Strings[0] := 'yew';                                            }

    end;

    //---------------------------- DO NOT EDIT BELOW HERE ------------------------\\
    //------------------------ Unless you know what your doing -------------------\\

    var x, y, i, Dropped, BrokenAxe, BrokenAxes, Loads, WcLvl, EndWcLvl, LoadsCompleted, LoadsUntilSwitch: integer;

    procedure LoadDTMs; forward;
    procedure ProgressReport; forward;
    procedure PowerDrop; forward;

                                //-----Anti-Ban!!-----\\
    procedure AntiBan;
    begin
      case Random(7) of
      0 : MMouse(0, 0, 700, 500);
      1 : Hoverskill('Woodcutting', false);
      2 : BoredHuman;
      3 : RandomMovement;
      4 : GameTab(1);
      5 : PickupMouse;
      end;
    end;


                             //-----Anti-Randoms!!-----\\

    procedure Fight;
    begin
    if (FindFight) then
      begin
        RunAway('E', False, 1, 1000 + Random(500));
      end;
    end;

    procedure FindRandoms;
    begin
      FindNormalRandoms;
      FindLamp('Woodcutting');
      Fight;
    end;

                            //-----IsAxeBroken?-----\\

    Procedure IsAxeBroke;
    begin
      if FindDTM(BrokenAxe, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
        BrokenAxes := BrokenAxes +1;
        ReportVars[0] := ReportVars[0] + 1;
        LogOut;
        NextPlayer(False);
        Writeln('Players Switched successfully')
      end;
    end;

                            //-----Tree Cutting-----\\

    procedure CutTree;
    var Failed: integer;
        TreeColors: array [0..3] of integer;
    begin
      if (not LoggedIn) then Exit;
      MakeCompass('W');
      case lowercase(Players[CurrentPlayer].strings[0]) of

        'normal': begin
                    TreeColors[0] := 332817;
                    TreeColors[1] := 3765091;
                    TreeColors[2] := 2179633;
                    TreeColors[3] := 3230282;
                    for i := 0 to 3 do
                    if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree']) then
                    begin
                    repeat
                      FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])
                      Wait(100 + Random(300));
                      MMouse(x, y, 2, 2);
                      begin
                        Wait(100 + Random(200));
                        Wait(100 + Random(200));
                      case Random(2) of
                      0: begin
                           Mouse(x, y, 4, 4, False);
                           Wait(100 + Random(200));
                           ChooseOption('hop');
                           WriteLn('Chopping Tree');;
                         end;
                      1: begin
                           Mouse(x, y, 4, 4, True);
                           WriteLn('Chopping Tree');
                         end;
                      end;
                      Wait(200 + Random(200));
                      FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])
                      MMouse(x, y, 2, 2);
                      AntiBan;
                      FindRandoms;
                      if not (LoggedIn) then
                        NextPlayer(False);
                        LoginPlayer;
                  end;
                  until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree']);
                  if Invfull then
                  begin
                    PowerDrop;
                    FindRandoms;
                    Inc(Loads);
                  end;
                  while (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])) do
                  repeat
                    MakeCompass('S');
                    Wait(1000 + Random(300));
                    if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])) then
                      MakeCompass('N');
                      Wait(1000 + Random(300));
                      if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])) then
                        MakeCompass('E');
                        Wait(1000 + Random(300));
                        if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])) then
                          MakeCompass('W');
                          Wait(1000 + Random(300));
                          if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])) then
                            Inc(Failed);
                  until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree']) or (Failed = 5);
                  if (Failed = 5) then
                  begin
                    WriteLn('Tree Finding Failed :(');
                    ProgressReport;
                    NextPlayer(False);
                    LoginPlayer;
                  end;
                end;
             end;
             
        'oak':    begin
                  TreeColors[0] := 2584416;
                  TreeColors[1] := 3305828;
                  TreeColors[2] := 4162678;
                  TreeColors[3] := 5544845;
                  for i := 0 to 3 do
                  if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak']) then
                    begin
                    repeat
                      FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])
                      Wait(100 + Random(300));
                      MMouse(x, y, 2, 2);
                      begin
                        Wait(100 + Random(200));
                        Wait(100 + Random(200));
                      case Random(2) of
                      0: begin
                           Mouse(x, y, 4, 4, False);
                           Wait(100 + Random(200));
                           ChooseOption('hop');
                           WriteLn('Chopping Tree');;
                         end;
                      1: begin
                           Mouse(x, y, 4, 4, True);
                           WriteLn('Chopping Tree');
                         end;
                      end;
                      Wait(2000 + Random(400));
                      FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])
                      MMouse(x, y, 2, 2);
                      AntiBan;
                      FindRandoms;
                      if not (LoggedIn) then
                        NextPlayer(False);
                        LoginPlayer;
                  end;
                  until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak']);
                  if Invfull then
                  begin
                    PowerDrop;
                    FindRandoms;
                    Inc(Loads);
                  end;
                  while(not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) do
                  repeat
                    if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
                      MakeCompass('N');
                      Wait(1000 + Random(300));
                      if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
                        MakeCompass('E');
                        Wait(1000 + Random(300));
                        if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
                          MakeCompass('W');
                          Wait(1000 + Random(300));
                          if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
                            Inc(Failed);
                    MakeCompass('S');
                    Wait(3000 + Random(1500));
                    if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
                      MakeCompass('N');
                      Wait(3000 + Random(1500));
                      if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
                        Inc(Failed);
                  until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak']) or (Failed = 5);
                  if (Failed = 5) then
                  begin
                    WriteLn('Tree Finding Failed :(');
                    ProgressReport;
                    NextPlayer(False);
                    LoginPlayer;
                  end;
                end;
             end;
             
        'willow': begin
                  TreeColors[0] := 2181686;
                  TreeColors[1] := 6193521;
                  TreeColors[2] := 3755332;
                  TreeColors[3] := 3234376;
                  for i := 0 to 3 do
                  if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow']) then
                    begin
                    repeat
                      FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])
                      Wait(100 + Random(300));
                      MMouse(x, y, 2, 2);
                      begin
                        Wait(100 + Random(200));
                        Wait(100 + Random(200));
                      case Random(2) of
                      0: begin
                           Mouse(x, y, 4, 4, False);
                           Wait(100 + Random(200));
                           ChooseOption('hop');
                           WriteLn('Chopping Tree');;
                         end;
                      1: begin
                           Mouse(x, y, 4, 4, True);
                           WriteLn('Chopping Tree');
                         end;
                      end;
                      Wait(3000 + Random(400));
                      FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])
                      MMouse(x, y, 2, 2);
                      AntiBan;
                      FindRandoms;
                      if not (LoggedIn) then
                        NextPlayer(False);
                        LoginPlayer;
                  end;
                  until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow']);
                  if Invfull then
                  begin
                    PowerDrop;
                    FindRandoms;
                    Inc(Loads);
                  end;
                  while (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) do
                  repeat
                    if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
                      MakeCompass('N');
                      Wait(100 + Random(300));
                      if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
                        MakeCompass('E');
                        Wait(100 + Random(300));
                        if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
                          MakeCompass('W');
                          Wait(100 + Random(300));
                          if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
                            Inc(Failed);
                  until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow']) or (Failed = 5);
                  if (Failed = 5) then
                  begin
                    WriteLn('Tree Finding Failed :(');
                    ProgressReport;
                    NextPlayer(False);
                    LoginPlayer;
                  end;
                end;
             end;
             
        'maple':  begin
                  TreeColors[0] := 1319487;
                  TreeColors[1] := 725796;
                  TreeColors[2] := 2177124;
                  TreeColors[3] := 1385537;
                  for i := 0 to 3 do
                  if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple']) then
                    begin
                    repeat
                      FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])
                      Wait(100 + Random(300));
                      MMouse(x, y, 2, 2);
                      begin
                        Wait(100 + Random(200));
                        Wait(100 + Random(200));
                      case Random(2) of
                      0: begin
                           Mouse(x, y, 4, 4, False);
                           Wait(100 + Random(200));
                           ChooseOption('hop');
                           WriteLn('Chopping Tree');;
                         end;
                      1: begin
                           Mouse(x, y, 4, 4, True);
                           WriteLn('Chopping Tree');
                         end;
                      end;
                      Wait(2000 + Random(400));
                      FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])
                      MMouse(x, y, 2, 2);
                      AntiBan;
                      FindRandoms;
                      if not (LoggedIn) then
                        NextPlayer(False);
                        LoginPlayer;
                  end;
                  until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple']);
                  if Invfull then
                  begin
                    PowerDrop;
                    FindRandoms;
                    Inc(Loads);
                  end;
                  while (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])) do
                  repeat
                    if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])) then
                      MakeCompass('N');
                      Wait(1000 + Random(300));
                      if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])) then
                        MakeCompass('E');
                        Wait(1000 + Random(300));
                        if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])) then
                          MakeCompass('W');
                          Wait(1000 + Random(300));
                          if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])) then
                            Inc(Failed);
                  until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple']) or (Failed = 5);
                  if (Failed = 5) then
                  begin
                    WriteLn('Tree Finding Failed :(');
                    ProgressReport;
                    NextPlayer(False);
                    LoginPlayer;
                  end;
                end;
             end;
             
        'yew':    begin
                  TreeColors[0] := 3241318;
                  TreeColors[1] := 2119755;
                  TreeColors[2] := 2645844;
                  TreeColors[3] := 3240035;
                  for i := 0 to 3 do
                  if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew']) then
                    begin
                    repeat
                      FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])
                      Wait(100 + Random(300));
                      MMouse(x, y, 2, 2);
                      begin
                        Wait(100 + Random(200));
                        Wait(100 + Random(200));
                      case Random(2) of
                      0: begin
                           Mouse(x, y, 4, 4, False);
                           Wait(100 + Random(200));
                           ChooseOption('hop');
                           WriteLn('Chopping Tree');;
                         end;
                      1: begin
                           Mouse(x, y, 4, 4, True);
                           WriteLn('Chopping Tree');
                         end;
                      end;
                      Wait(2000 + Random(400));
                      FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])
                      MMouse(x, y, 2, 2);
                      AntiBan;
                      FindRandoms;
                      if not (LoggedIn) then
                        NextPlayer(False);
                        LoginPlayer;
                  end;
                  until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew']);
                  if Invfull then
                  begin
                    PowerDrop;
                    FindRandoms;
                    Inc(Loads);
                  end;
                  while (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])) do
                  repeat
                    if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])) then
                      MakeCompass('N');
                      Wait(1000 + Random(300));
                      if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])) then
                        MakeCompass('E');
                        Wait(1000 + Random(300));
                        if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])) then
                          MakeCompass('W');
                          Wait(1000 + Random(300));
                          if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])) then
                            Inc(Failed);
                  until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew']) or (Failed = 5);
                  if (Failed = 5) then
                  begin
                    WriteLn('Tree Finding Failed :(');
                    ProgressReport;
                    NextPlayer(False);
                    LoginPlayer;
                  end;
                end;
             end;
        end;
    end;
       

    procedure PowerDrop;
    begin
      MouseSpeed:= 16;
      begin
        for i:= 2 to 28 do
          begin
            DropItem(i);
            Inc(Dropped);
            ReportVars[1] := ReportVars[1]+ 1;
          end;
      end;
    end;

    procedure AntiLeech;
    begin
    if (SRLId = '') or (SRLPassword='')then
      begin
        Writeln('                              Dont Leech. Sign up at SRL.');
        Wait(500+ random (50));
        Writeln('                      This script wont work until you do sign up!');
        Wait(500+ random (50));
        Writeln('                                      Thank you.');
        Wait(600+ random (50));
        Writeln('                                                        ~ToF');
        Wait(600+ random (50));
        TerminateScript;
      end;
    end;

    procedure GetWoodcuttingLevel;
    begin
      GameTab(2);
      WcLvl := GetSkillLevel('Woodcutting');
    end;

    procedure GetTheEndWoodcuttingLevel;
    begin
      GameTab(2);
      EndWcLvl := GetSkillLevel('Woodcutting');
    end;

    procedure ProgressReport;
    begin
      ClearDebug;
      Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
      Writeln('/\ Please Post Progress Reports & Any problems /\');
      Writeln('/\     Torrent of Flames                       /\');
      Writeln('/\               Anywhere Powercutter          /\');
      Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
      Writeln('/\   Time Running : ' + TimeRunning + '   /\');
      Writeln('/\                   Done '+ IntToStr(Loads) +' loads             /\');
      Writeln('/\                   Broke '+ IntToStr(BrokenAxes) +' axes             /\');
      Writeln('/\                  Dropped '+ IntToStr(Dropped) +' logs           /\');
      Writeln('/\               Current WC Level: '+ IntToStr(EndWcLvl) +'          /\');
      Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\\');
      Writeln('//\\       Thanks for Using my Script :D     //\\');
      Writeln('`````````````````````````````````````````````````');
    end;


                                   //Load DTMs\\

    procedure LoadDTMs;
    begin
           BrokenAxe := DTMFromString('78DA636C616260E0636440061D697C601A26C' +
                      'AD80354C38FAA06260B57D30754C34D404D2F508D080135CD4035' +
                      '5C04D4D400D5A8E05703008C0604B4');
    end;

                                   //Signature\\

    procedure Signature;
     begin
       ClearDebug;
       wait(250 + random(30));
       writeln('-------Torrents AnyWhere Power Chopper-------');
       wait(250 + random(30));
       writeln('       ______                      __        ');
       wait(250 + random(30));
       writeln('      /_  __/__  ___________ ___  / /_       ');
       wait(250 + random(30));
       writeln('       / / / _ \/ __/ __/ -_) _ \/ __/       ');
       wait(250 + random(30));
       writeln('      /_/  \___/_/ /_/  \__/_//_/\__/        ');
       wait(250 + random(30));
       writeln('                                             ');
       writeln('---------------------------------------------');
       wait(500 + random(30));
     end;





                                  //Setup Script\\

    procedure DoOnce;
    begin
      ClearDebug;
      {AntiLeech;}
      SetupSRL;
      SRLId := YourSRLId;
      SRLPassword:= YourSRLPassword;
      ScriptID:= '1122';
      DeclarePlayers;
      LoadDTMs;
      LoginPlayer;
    end;

                                    //Main Loop\\

    procedure MainLoop;
    begin
      LoadsCompleted:= 0;
      MakeCompass('N');
      SetAngle(True);
      Wait(1000);
      SetRun(True);
      repeat
        repeat
          LoadsUntilSwitch := Players[CurrentPlayer].integers[0];
          CutTree;
          Inc(LoadsCompleted);
          GetTheEndWoodcuttingLevel;
          ProgressReport;
        until (LoadsCompleted = LoadsUntilSwitch) or (not LoggedIn)
        if LoadsCompleted = LoadsUntilSwitch then
           NextPlayer(True);
        if (not LoggedIn) then
           NextPlayer(False);
        ProgressReport;
        LoginPlayer;
      until (AllPlayersInactive);
      ProgressReport;
      TerminateScript;
    end;


    begin
      DoOnce;
      Signature;
      MainLoop;
      ProgressReport;
    end.

                               //--- End of Script ---\\
                               
                               
    Thanks for using.
                                AnyWhere Power Cutter 0.1b
                                                                    Torrent of Flame

    Any help greatley appreciated.
    Jus' Lurkin'

  2. #2
    Join Date
    Dec 2007
    Posts
    2,766
    Mentioned
    2 Post(s)
    Quoted
    37 Post(s)

    Default

    Can you indicate which line is 364 plz ? ^^

  3. #3
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    Yeah, no problems.

    SCAR Code:
    while (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) do;
    Jus' Lurkin'

  4. #4
    Join Date
    Dec 2007
    Posts
    2,766
    Mentioned
    2 Post(s)
    Quoted
    37 Post(s)

    Default

    Sorry, you're going to have to ask the more experienced guys ^^

    I can't find anything wrong there :/

  5. #5
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    SCAR Code:
    while (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) do
                  repeat
                    if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
                      MakeCompass('N');
                      Wait(100 + Random(300));
                      if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
                        MakeCompass('E');
                        Wait(100 + Random(300));
                        if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
                          MakeCompass('W');
                          Wait(100 + Random(300));
                          if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
                            Inc(Failed);
                  until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow']) or (Failed = 5);
                  if (Failed = 5) then
                  begin
                    WriteLn('Tree Finding Failed :(');
                    ProgressReport;
                    NextPlayer(False);
                    LoginPlayer;
                  end else
                 
                  if Invfull then
                  begin
                    PowerDrop;
                    FindRandoms;
                    Inc(Loads);
                  end;


    I think it should be like that, as after dropping it says basically 'wtf?'

    I'm testing it now that way.
    Jus' Lurkin'

  6. #6
    Join Date
    Dec 2007
    Posts
    2,766
    Mentioned
    2 Post(s)
    Quoted
    37 Post(s)

    Default

    Just a notice :

    It is now against the rules to Terminate a script for the lack of SRL STATS

  7. #7
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    It is? Ok, I'll remove the AntiLeech then, its in {} anyways but ok then, Ill remove it.

    And that switchero thing I did worked perfectly xD
    Jus' Lurkin'

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

    Default

    Left your name and pass in the script. Just changed it, pm'ing you.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Out of range error still...=(
    By oakley123 in forum OSR Help
    Replies: 2
    Last Post: 10-22-2008, 05:48 AM
  2. Out Of Range Error
    By decide in forum OSR Help
    Replies: 8
    Last Post: 08-02-2008, 10:29 AM
  3. Odd out of range error..
    By JAD in forum OSR Help
    Replies: 7
    Last Post: 05-09-2007, 09:28 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
  •