Page 1 of 2 12 LastLast
Results 1 to 25 of 27

Thread: Need Help On My Script.

  1. #1
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need Help On My Script.

    I cna run it, but it says Access voliation. or seomthing. And could some1 also fix my script. h):

    SCAR Code:
    { //-------------------------------------------------------------\\
      ||                         INSTRUCTIONS                        ||
      ||-------------------------------------------------------------||
      ||        BY:  Kooldude                                        ||
      ||                                                             ||
      ||  1. Axe in first INV slot...                                ||
      ||  2. Drag Crosshair into RS window.                          ||
      ||  3. Hit play and fill out forms.                            ||
      ||  4. AXE HEAD FINDER WILL WORK, Normally :)                  ||
      ||-------------------------------------------------------------||
      ||                          INSTRUCTIONS                       ||
      \\-------------------------------------------------------------//
                                                                       }

    program Powercutter;
    {.include SRL\SRL.SCAR}
    {.include SRL\SRL\Skill\Woodcutting.SCAR}

    const
    TreeColor= 872520;  //Color of tree

    ///////////////Anti Randomz/////////////// Credits to fourscape :)
    Procedure TheAntiRandoms;
    Begin
     Status('Random Check')
      FindNormalRandoms;
       wait(10)
        FindTalk;
         wait(10)
      if (FindFight) then
      begin
     Status('Running From a fight.')
      RunAwayDirection('E');   // N, E , S, W, (North, East, South, West)
       Wait(8500 + random(3500));
        RunBack;
    end;
     Wait(10);
      FindTalk;
    end;

    ////////////////Finding Tree/////////////////

    Procedure FindTree;
    begin;
     if FindColor(x,y,TreeColor,0,0,765,500) then
      Wait(10000+random(234))
       Mouse(x,y,10,13,true)
    end;

    begin
    repeat
     FindTree;
      TheAntiRandoms;
    until (InventoryFull);
     if (InventoryFull) then
      DropTo(2,28)
      end.

    ///////////////Axe Head Colors//////////////
    Procedure FindAxeHeadColors;
    begin
     Gametab(4)
      FindAxeHeadColor;
       FindTree;
    end;
    begin
    procedure CloseWindow;

    /////////////////Progress///////////////////
    Procedure Progress;
     StartXP := GetXp('Woodcutting')
      StartDropping;
          EndXP := GetXp('Woodcutting')
          TotalLogs := TotalLogs + DroppedLogsCount
          TotalXP := (EndXP - StartXP) + (TotalXP)
          ProgressReport;
    end;


    //////////////////Progress Report////////////////////
    //->Progress Report<-//
    Procedure ProgressReport;
    Begin
      SRLRandomsReport;
      WriteLn('[>-----------------------Rayz Report-----------------------<]')
      WriteLn('[>Script Time: ' + (TimeRunning) + '')
      WriteLn('[>Logs Chopped: ' + IntToStr (TotalLogs) +  '')
      WriteLn('[>XP Gained: ' + IntToStr (TotalXP) +  '')
      WriteLn('[>----------------------------------------------------------<]')
    end.

  2. #2
    Join Date
    Feb 2007
    Location
    Yorkshire, England
    Posts
    180
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey mate you dont have a main loop

  3. #3
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Yes,

    No main loop, and from what I can see, no SetupSRL;

  4. #4
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thats what i mena by help , Could u add those thigns to my script, Lik eadd SetupSrl; And add a main loop, Will add credits kinda stuck on main loop

  5. #5
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Your main loop is where all your done-up procedures go, I'll give you an example, but I'm gonna let you do it on your script.

    SCAR Code:
    program New;

     procedure Procedure1;
      begin
      end;

     procedure Procedure2;
      begin
      end;

     procedure Procedure3;
      begin
      end;

    begin         // This
     Procedure1;  // Is
     Procedure2;  // Your
     Procedure3;  // Main
    end.          // Loop

    SetupSRL; goes at the top of your main loop.

  6. #6
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Is the main loop right? oo yea and try runnnin gmy script seems to be getting an Access voliation or something , if u can plz do

    SCAR Code:
    { //-------------------------------------------------------------\\
      ||                         INSTRUCTIONS                        ||
      ||-------------------------------------------------------------||
      ||        BY:  Kooldude                                        ||
      ||                                                             ||
      ||  1. Axe in first INV slot...                                ||
      ||  2. Drag Crosshair into RS window.                          ||
      ||  3. Hit play and fill out forms.                            ||
      ||  4. AXE HEAD FINDER WILL WORK, Normally :)                  ||
      ||-------------------------------------------------------------||
      ||                          INSTRUCTIONS                       ||
      \\-------------------------------------------------------------//
                                                                       }

    program Powercutter;
    {.include SRL\SRL.SCAR}
    {.include SRL\SRL\Skill\Woodcutting.SCAR}

    const
    TreeColor= 872520;  //Color of tree

    ///////////////Anti Randomz/////////////// Credits to fourscape :)
    Procedure TheAntiRandoms;
    Begin
     Status('Random Check')
      FindNormalRandoms;
       wait(10)
        FindTalk;
         wait(10)
      if (FindFight) then
      begin
     Status('Running From a fight.')
      RunAwayDirection('E');   // N, E , S, W, (North, East, South, West)
       Wait(8500 + random(3500));
        RunBack;
    end;
     Wait(10);
      FindTalk;
    end;

    ////////////////Finding Tree/////////////////

    Procedure FindTree;
    begin;
     if FindColor(x,y,TreeColor,0,0,765,500) then
      Wait(10000+random(234))
       Mouse(x,y,10,13,true)
    end;

    begin
    repeat
     FindTree;
      TheAntiRandoms;
    until (InventoryFull);
     if (InventoryFull) then
      DropTo(2,28)
      end.

    ///////////////Axe Head Colors//////////////
    Procedure FindAxeHeadColors;
    begin
     Gametab(4)
      FindAxeHeadColor;
       FindTree;
    end;

    //////////////Find AXe HEad/////////////////////////
    Procedure FindAxe;
    begin
     wait(50+random(33)
      Findaxe;
    end;

    /////////////////Progress///////////////////
    Procedure Progress;
     StartXP := GetXp('Woodcutting')
      StartDropping;
          EndXP := GetXp('Woodcutting')
          TotalLogs := TotalLogs + DroppedLogsCount
          TotalXP := (EndXP - StartXP) + (TotalXP)
          ProgressReport;
    end;


    //////////////////Progress Report////////////////////
    Procedure ProgressReport;
    Begin
      SRLRandomsReport;
      WriteLn('[>-----------------------Rayz Report-----------------------<]')
      WriteLn('[>Script Time: ' + (TimeRunning) + '')
      WriteLn('[>Logs Chopped: ' + IntToStr (TotalLogs) +  '')
      WriteLn('[>XP Gained: ' + IntToStr (TotalXP) +  '')
      WriteLn('[>----------------------------------------------------------<]')
    end;


    //////////////////MainLoop//////////////////////
    begin
    SetupSrl;
     FindAxeColors;
      Progress;
       Gametab(9)
        SetRun;
         Findtree;
          FindAxe;
          theAntiRandoms;
           Progress;
            ProgressReport;

    end.

  7. #7
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Yep, good job

    One thing, you have to put what you want repeated between the repeat...until() tags. As it is, it only goes through once.

  8. #8
    Join Date
    Jan 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    ||                         INSTRUCTIONS                        ||
      ||-------------------------------------------------------------||
      ||        BY:  Kooldude                                        ||
      ||                                                             ||
      ||  1. Axe in first INV slot...                                ||
      ||  2. Drag Crosshair into RS window.                          ||
      ||  3. Hit play and fill out forms.                            ||
      ||  4. AXE HEAD FINDER WILL WORK, Normally :)                  ||
      ||-------------------------------------------------------------||
      ||                          INSTRUCTIONS                       ||
      \\-------------------------------------------------------------//
                                                                       }
    program Powercutter;
    {.include SRL\SRL.SCAR}
    {.include SRL\SRL\Skill\Woodcutting.SCAR}
     
    const
    TreeColor= 872520;  //Color of tree
     
    ///////////////Anti Randomz/////////////// Credits to fourscape :)
    Procedure TheAntiRandoms;
    Begin
     Status('Random Check')
      FindNormalRandoms;
       wait(10)
        FindTalk;
         wait(10)
      if (FindFight) then
      begin
     Status('Running From a fight.')
      RunAwayDirection('E');   // N, E , S, W, (North, East, South, West)
       Wait(8500 + random(3500));
        RunBack;
    end;
     Wait(10);
      FindTalk;
    end;
     
    ////////////////Finding Tree/////////////////
     
    Procedure FindTree;
    begin;
     if FindColor(x,y,TreeColor,0,0,765,500) then
      Wait(10000+random(234))
       Mouse(x,y,10,13,true)
    end;
     
    begin
    repeat
     FindTree;
      TheAntiRandoms;
    until (InventoryFull);
     if (InventoryFull) then
      DropTo(2,28)
      end.
     
    ///////////////Axe Head Colors//////////////
    Procedure FindAxeHeadColors;
    begin
     Gametab(4)
      FindAxeHeadColor;
       FindTree;
    end;
    begin
    procedure CloseWindow;
     
    /////////////////Progress///////////////////
    Procedure Progress;
     StartXP := GetXp('Woodcutting')
      StartDropping;
          EndXP := GetXp('Woodcutting')
          TotalLogs := TotalLogs + DroppedLogsCount
          TotalXP := (EndXP - StartXP) + (TotalXP)
          ProgressReport;
    end;
     
     
    //////////////////Progress Report////////////////////
    //->Progress Report<-//
    Procedure ProgressReport;
    Begin
      SRLRandomsReport;
      WriteLn('[>-----------------------Rayz Report-----------------------<]')
      WriteLn('[>Script Time: ' + (TimeRunning) + '')
      WriteLn('[>Logs Chopped: ' + IntToStr (TotalLogs) +  '')
      WriteLn('[>XP Gained: ' + IntToStr (TotalXP) +  '')
      WriteLn('[>----------------------------------------------------------<]')
    end.

    begin                      ///Main Loop Should look more something like this.
    setupsrl;
    SetRun;
    repeat
    ProgressReport;
    FindTree;
    FindAxeHeadColors;
    until(false)
    end.

    Tell me if it dont work or something dont and ill try to help of the best of my ability

  9. #9
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Fixed it up


    SCAR Code:
    //////////////////MainLoop//////////////////////
    begin
     FindAxeColors;
      Progress;
       Gametab(9)
        SetRun;
    repeat
     Findtree;
      FindAxe;
       theAntiRandoms;
        Progress;
         ProgressReport;
    until false
    end.

  10. #10
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by fugate View Post
    SCAR Code:
    ||                         INSTRUCTIONS                        ||
      ||-------------------------------------------------------------||
      ||        BY:  Kooldude                                        ||
      ||                                                             ||
      ||  1. Axe in first INV slot...                                ||
      ||  2. Drag Crosshair into RS window.                          ||
      ||  3. Hit play and fill out forms.                            ||
      ||  4. AXE HEAD FINDER WILL WORK, Normally :)                  ||
      ||-------------------------------------------------------------||
      ||                          INSTRUCTIONS                       ||
      \\-------------------------------------------------------------//
                                                                       }
    program Powercutter;
    {.include SRL\SRL.SCAR}
    {.include SRL\SRL\Skill\Woodcutting.SCAR}
     
    const
    TreeColor= 872520;  //Color of tree
     
    ///////////////Anti Randomz/////////////// Credits to fourscape :)
    Procedure TheAntiRandoms;
    Begin
     Status('Random Check')
      FindNormalRandoms;
       wait(10)
        FindTalk;
         wait(10)
      if (FindFight) then
      begin
     Status('Running From a fight.')
      RunAwayDirection('E');   // N, E , S, W, (North, East, South, West)
       Wait(8500 + random(3500));
        RunBack;
    end;
     Wait(10);
      FindTalk;
    end;
     
    ////////////////Finding Tree/////////////////
     
    Procedure FindTree;
    begin;
     if FindColor(x,y,TreeColor,0,0,765,500) then
      Wait(10000+random(234))
       Mouse(x,y,10,13,true)
    end;
     
    begin
    repeat
     FindTree;
      TheAntiRandoms;
    until (InventoryFull);
     if (InventoryFull) then
      DropTo(2,28)
      end.
     
    ///////////////Axe Head Colors//////////////
    Procedure FindAxeHeadColors;
    begin
     Gametab(4)
      FindAxeHeadColor;
       FindTree;
    end;
    begin
    procedure CloseWindow;
     
    /////////////////Progress///////////////////
    Procedure Progress;
     StartXP := GetXp('Woodcutting')
      StartDropping;
          EndXP := GetXp('Woodcutting')
          TotalLogs := TotalLogs + DroppedLogsCount
          TotalXP := (EndXP - StartXP) + (TotalXP)
          ProgressReport;
    end;
     
     
    //////////////////Progress Report////////////////////
    //->Progress Report<-//
    Procedure ProgressReport;
    Begin
      SRLRandomsReport;
      WriteLn('[>-----------------------Rayz Report-----------------------<]')
      WriteLn('[>Script Time: ' + (TimeRunning) + '')
      WriteLn('[>Logs Chopped: ' + IntToStr (TotalLogs) +  '')
      WriteLn('[>XP Gained: ' + IntToStr (TotalXP) +  '')
      WriteLn('[>----------------------------------------------------------<]')
    end.

    begin                      ///Main Loop Should look more something like this.
    setupsrl;
    SetRun;
    repeat
    ProgressReport;
    FindTree;
    FindAxeHeadColors;
    until(false)
    end.

    Tell me if it dont work or something dont and ill try to help of the best of my ability

    fIndaxeheadcolors;

    That only finds the color of axes, FindAxe; Pcikss up the axe head


    let me try it out

  11. #11
    Join Date
    Jan 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good Job Glad your learning / tell me if it works

  12. #12
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wait shouldnt i also Put TheAntiRandom; In Repeat and in the main loop , so it checks For RAandoms as much as it can Well it dosent seem to set run at the start of script. And not sure if it gets the Axeheadcolors

  13. #13
    Join Date
    Jan 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    no cause i believe you put it in the find tree precedure so why would it wanna repeat twice if it dont work then put it...i dont think you need to.

  14. #14
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    O yea lol So ill just use ur original Main loop that u made, credits will be given

    Also dou think i should post to public yet, or is it bannable?

  15. #15
    Join Date
    Jan 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks, Hope You Have Fun


    edited: Dont wana rush you.

  16. #16
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oo ok , I also have to put an ent finder. Is there a command for ent, like FindEnt;?

  17. #17
    Join Date
    Jan 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah charms ent finder is good but you would have to give credits he wont mind the reason im saying this is because im not the best at ent precedures..


    or you could use uptext or something to find the ent then run back.

  18. #18
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dosent seem to be working..the entre script


    SCAR Code:
    { //-------------------------------------------------------------\\
      ||                         INSTRUCTIONS                        ||
      ||-------------------------------------------------------------||
      ||        BY:  Kooldude                                        ||
      ||                                                             ||
      ||  1. Axe in first INV slot...                                ||
      ||  2. Drag Crosshair into RS window.                          ||
      ||  3. Hit play and fill out forms.                            ||
      ||  4. AXE HEAD FINDER WILL WORK, Normally :)                  ||
      ||-------------------------------------------------------------||
      ||                          INSTRUCTIONS                       ||
      \\-------------------------------------------------------------//
                                                                       }

    program Powercutter;
    {.include SRL\SRL.SCAR}
    {.include SRL\SRL\Skill\Woodcutting.SCAR}

    const
    TreeColor= 4024416;  //Color of tree

    ////////////Declaring PLayers/////////////
    Procedure DeclarePlayers;
    Begin

         HowManyPlayers := 3;
         CurrentPlayer:= 0;
         NumberOfPlayers(HowManyPlayers);

         Players[0].Name     := '';
         Players[0].Pass     := '';
         Players[0].Nick     := '';     //3 Lowercase Letters of your username
         Players[0].Integer1 := 35;     //Loads For Player
         Players[0].Boolean1 := False;  //Equip Axe?
         Players[0].Active   := True;

         Players[1].Name     := '';
         Players[1].Pass     := '';
         Players[1].Nick     := '';
         Players[1].Integer1 := 35;
         Players[1].Boolean1 := False;
         Players[1].Active   := True;

         Players[2].Name     := '';
         Players[2].Pass     := '';
         Players[2].Nick     := '';
         Players[2].Integer1 := 35;
         Players[2].Boolean1 := False;
         Players[2].Active   := True;

    End;




    ///////////////Anti Randomz/////////////// Credits to fourscape :)
    Procedure TheAntiRandoms;
    Begin
     Status('Random Check')
      FindNormalRandoms;
       wait(10)
        FindTalk;
         wait(10)
      if (FindFight) then
      begin
     Status('Running From a fight.')
      RunAwayDirection('E');   // N, E , S, W, (North, East, South, West)
       Wait(8500 + random(3500));
        RunBack;
    end;
     Wait(10);
      FindTalk;
    end;

    ////////////////Finding Tree/////////////////

    Procedure FindTree;
    begin;
     if FindColor(x,y,TreeColor,0,0,765,500) then
      Wait(10000+random(234))
       Mouse(x,y,10,13,true)
    end;

    begin
    repeat
     FindTree;
      TheAntiRandoms;
    until (InventoryFull);
     if (InventoryFull) then
      DropTo(2,28)
      end.

    /////////////////Ent//////////////////// <--- Credits goto _Charm Willow raper
    Function CharmEnt(ex, ey: Integer): Boolean;
    Var
    Xe, Ye: Integer;
    Begin

     Status('FindEnt');

     If(FindColorSpiralTolerance(Xe, Ye, 5535856, ex - 20, ey - 20, ex + 20, ey + 20, 12))then
      Begin
       MMouse(Xe, Ye, 5, 5);
       Wait(100+Random(50));
      End else
      Begin
       Exit;
      End

     If(IsUpTextMulti('hop down Will', 'down Willow', 'own Wil')) or (IsUpTextMulti('illow', 'low', 'Will'))then
       Begin
        If(FindColorSpiralTolerance(Xe, Ye, 383705, 1, 1, 180, 39, 20))or
           (FindColorSpiralTolerance(Xe, Ye, 65535, 1, 1, 200, 40, 20))or
            (FindColorTolerance(Xe, Ye, 55769, 85, 15, 115, 15, 20))then
          Begin
            EntsAvoided:= EntsAvoided + 1;
            Result:= True;
          End else
            Result:= False;
            Exit;

      End

    End;

    ///////////////Axe Head Colors//////////////
    Procedure FindAxeHeadColors;
    begin
     Gametab(4)
      FindAxeHeadColor;
    end;

    //////////////Find AXe HEad/////////////////////////
    Procedure FindAxe;
    begin
     wait(50+random(33)
      Findaxe;
    end;

    /////////////////Progress///////////////////
    Procedure Progress;
     StartXP := GetXp('Woodcutting')
      StartDropping;
          EndXP := GetXp('Woodcutting')
          TotalLogs := TotalLogs + DroppedLogsCount
          TotalXP := (EndXP - StartXP) + (TotalXP)
          ProgressReport;
    end;


    //////////////////Progress Report////////////////////
    Procedure ProgressReport;
    Begin
      SRLRandomsReport;
      WriteLn('[>-----------------------Rayz Report-----------------------<]')
      WriteLn('[>Script Time: ' + (TimeRunning) + '')
      WriteLn('[>Logs Chopped: ' + IntToStr (TotalLogs) +  '')
      WriteLn('[>XP Gained: ' + IntToStr (TotalXP) +  '')
      WriteLn('[>----------------------------------------------------------<]')
    end;


    //////////////////MainLoop////////////////////// Credits To Fugate
    begin
    SetupSrl;
     DeclarePlayers;
      SetRun;
       FindAxeHeadcolors;
    repeat
    ProgressReport;
     FindTree;
       FindAxe;
    until(false)
    end.

  19. #19
    Join Date
    Jan 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what error you get?

  20. #20
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    not an error, Make smy mouse move to the upper left corner on login screen can u test it? anyone

  21. #21
    Join Date
    Jan 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    { //-------------------------------------------------------------\\
      ||                         INSTRUCTIONS                        ||
      ||-------------------------------------------------------------||
      ||        BY:  Kooldude                                        ||
      ||                                                             ||
      ||  1. Axe in first INV slot...                                ||
      ||  2. Drag Crosshair into RS window.                          ||
      ||  3. Hit play and fill out forms.                            ||
      ||  4. AXE HEAD FINDER WILL WORK, Normally :)                  ||
      ||-------------------------------------------------------------||
      ||                          INSTRUCTIONS                       ||
      \\-------------------------------------------------------------//
                                                                       }

    program Powercutter;
    {.include SRL\SRL.SCAR}
    {.include SRL\SRL\Skill\Woodcutting.SCAR}
     
    const
    TreeColor= 4024416;  //Color of tree
     
    ////////////Declaring PLayers/////////////
    Procedure DeclarePlayers;
    Begin
     
         HowManyPlayers := 3;
         CurrentPlayer:= 0;
         NumberOfPlayers(HowManyPlayers);
     
         Players[0].Name     := '';
         Players[0].Pass     := '';
         Players[0].Nick     := '';     //3 Lowercase Letters of your username
         Players[0].Integer1 := 35;     //Loads For Player
         Players[0].Boolean1 := False;  //Equip Axe?
         Players[0].Active   := True;
     
         Players[1].Name     := '';
         Players[1].Pass     := '';
         Players[1].Nick     := '';
         Players[1].Integer1 := 35;
         Players[1].Boolean1 := False;
         Players[1].Active   := True;
     
         Players[2].Name     := '';
         Players[2].Pass     := '';
         Players[2].Nick     := '';
         Players[2].Integer1 := 35;
         Players[2].Boolean1 := False;
         Players[2].Active   := True;
     
    End;
     
     
     
     
    ///////////////Anti Randomz/////////////// Credits to fourscape :)
    Procedure TheAntiRandoms;
    Begin
     Status('Random Check')
      FindNormalRandoms;
       wait(10)
        FindTalk;
         wait(10)
      if (FindFight) then
      begin
     Status('Running From a fight.')
      RunAwayDirection('E');   // N, E , S, W, (North, East, South, West)
       Wait(8500 + random(3500));
        RunBack;
    end;
     Wait(10);
      FindTalk;
    end;
     
    ////////////////Finding Tree/////////////////
     
    Procedure FindTree;
    begin;
     if FindColor(x,y,TreeColor,0,0,765,500) then
      Wait(10000+random(234))
       Mouse(x,y,10,13,true)
    end;
     
    begin
    repeat
     FindTree;
      TheAntiRandoms;
    until (InventoryFull);
     if (InventoryFull) then
      DropTo(2,28)
      end.
     
    /////////////////Ent//////////////////// <--- Credits goto _Charm Willow raper
    Function CharmEnt(ex, ey: Integer): Boolean;
    Var
    Xe, Ye: Integer;
    Begin
     
     Status('FindEnt');
     
     If(FindColorSpiralTolerance(Xe, Ye, 5535856, ex - 20, ey - 20, ex + 20, ey + 20, 12))then
      Begin
       MMouse(Xe, Ye, 5, 5);
       Wait(100+Random(50));
      End else
      Begin
       Exit;
      End
     
     If(IsUpTextMulti('hop down Will', 'down Willow', 'own Wil')) or (IsUpTextMulti('illow', 'low', 'Will'))then
       Begin
        If(FindColorSpiralTolerance(Xe, Ye, 383705, 1, 1, 180, 39, 20))or
           (FindColorSpiralTolerance(Xe, Ye, 65535, 1, 1, 200, 40, 20))or
            (FindColorTolerance(Xe, Ye, 55769, 85, 15, 115, 15, 20))then
          Begin
            EntsAvoided:= EntsAvoided + 1;
            Result:= True;
          End else
            Result:= False;
            Exit;
     
      End
     
    End;
     
    ///////////////Axe Head Colors//////////////
    Procedure FindAxeHeadColors;
    begin
     Gametab(4)
      FindAxeHeadColor;
    end;
     
    //////////////Find AXe HEad/////////////////////////
    Procedure FindAxe;
    begin
     wait(50+random(33)
      Findaxe;
    end;
     
    /////////////////Progress///////////////////
    Procedure Progress;
     StartXP := GetXp('Woodcutting')
      StartDropping;
          EndXP := GetXp('Woodcutting')
          TotalLogs := TotalLogs + DroppedLogsCount
          TotalXP := (EndXP - StartXP) + (TotalXP)
          ProgressReport;
    end;
     
     
    //////////////////Progress Report////////////////////
    Procedure ProgressReport;
    Begin
      SRLRandomsReport;
      WriteLn('[>-----------------------Rayz Report-----------------------<]')
      WriteLn('[>Script Time: ' + (TimeRunning) + '')
      WriteLn('[>Logs Chopped: ' + IntToStr (TotalLogs) +  '')
      WriteLn('[>XP Gained: ' + IntToStr (TotalXP) +  '')
      WriteLn('[>----------------------------------------------------------<]')
    end;
     
     
    //////////////////MainLoop////////////////////// Credits To Fugate
    begin
    SetupSrl;
     DeclarePlayers;
      SetRun;
       FindAxeHeadcolors;
    repeat
    ProgressReport;
     FindTree;
    loginplayer;
       FindAxe;
    until(false)
    end.

    Try that logged out see if it works.

  22. #22
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    did it work for u? didnt seem to work for me, mayb its my srl.

  23. #23
    Join Date
    Jan 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Might wanna ask a more advanced user of scar if that aint work...

  24. #24
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You got only 45 posts and u can do that!
    This isn't fair

    kooldude are u sure u used the Crosshair on RS Window?

    EDIT: Because atleast on my com if i forget the crosshair my mouses whole the time in the top-left corner

  25. #25
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Is it still the problem with it moving to the top left? I think it either something to do with finding an ent or an axe head i cant remember

    This doesnt make any sense.
    SCAR Code:
    Procedure FindTree;
    begin;
     if FindColor(x,y,TreeColor,0,0,765,500) then
      Wait(10000+random(234))
       Mouse(x,y,10,13,true)
    end;

    begin
    repeat
     FindTree;
      TheAntiRandoms;
    until (InventoryFull);
     if (InventoryFull) then
      DropTo(2,28)
      end.

    and also
    SCAR Code:
    //////////////Find AXe HEad/////////////////////////
    Procedure FindAxe;
    begin
     wait(50+random(33)
      Findaxe;
    end;


    I cleaned the script up alot, make sure to declare ur var's remember every procedure has a begin. There is findaxe missing cause i couldnt work out what u wanted
    SCAR Code:
    { //-------------------------------------------------------------\\
      ||                         INSTRUCTIONS                        ||
      ||-------------------------------------------------------------||
      ||        BY:  Kooldude                                        ||
      ||                                                             ||
      ||  1. Axe in first INV slot...                                ||
      ||  2. Drag Crosshair into RS window.                          ||
      ||  3. Hit play and fill out forms.                            ||
      ||  4. AXE HEAD FINDER WILL WORK, Normally :)                  ||
      ||-------------------------------------------------------------||
      ||                          INSTRUCTIONS                       ||
      \\-------------------------------------------------------------//
                                                                       }

    program Powercutter;
    {.include SRL\SRL.SCAR}
    {.include SRL\SRL\Skill\Woodcutting.SCAR}

    var
    Startxp, Totallogs, TotalXP,EndXP :integer;

    const
    TreeColor= 4024416;  //Color of tree

    ////////////Declaring PLayers/////////////
    Procedure DeclarePlayers;
    Begin

         HowManyPlayers := 3;
         CurrentPlayer:= 0;
         NumberOfPlayers(HowManyPlayers);

         Players[0].Name     := '';
         Players[0].Pass     := '';
         Players[0].Nick     := '';     //3 Lowercase Letters of your username
         Players[0].Integer1 := 35;     //Loads For Player
         Players[0].Boolean1 := False;  //Equip Axe?
         Players[0].Active   := True;

         Players[1].Name     := '';
         Players[1].Pass     := '';
         Players[1].Nick     := '';
         Players[1].Integer1 := 35;
         Players[1].Boolean1 := False;
         Players[1].Active   := True;

         Players[2].Name     := '';
         Players[2].Pass     := '';
         Players[2].Nick     := '';
         Players[2].Integer1 := 35;
         Players[2].Boolean1 := False;
         Players[2].Active   := True;

    End;




    ///////////////Anti Randomz/////////////// Credits to fourscape :)
    Procedure TheAntiRandoms;
    Begin
     Status('Random Check')
      FindNormalRandoms;
       wait(10)
        FindTalk;
         wait(10)
      if (FindFight) then
      begin
     Status('Running From a fight.')
      RunAwayDirection('E');   // N, E , S, W, (North, East, South, West)
       Wait(8500 + random(3500));
        RunBack;
    end;
     Wait(10);
      FindTalk;
    end;

    ////////////////Finding Tree/////////////////

    Procedure FindTree;
    begin;
     repeat
     if FindColor(x,y,TreeColor,0,0,765,500) then
       begin
         Wait(10000+random(234))
         Mouse(x,y,10,13,true)
         TheAntiRandoms;
       end else
         Writeln('Cant Find Willows')
     until (InventoryFull);
     if (InventoryFull) then
      DropTo(2,28)
      Totallogs := Totallogs + 27;
    end;

    /////////////////Ent//////////////////// <--- Credits goto _Charm Willow raper
    Function CharmEnt(ex, ey: Integer): Boolean;
    Var
    Xe, Ye: Integer;
    Begin

     Status('FindEnt');

     If(FindColorSpiralTolerance(Xe, Ye, 5535856, ex - 20, ey - 20, ex + 20, ey + 20, 12))then
      Begin
       MMouse(Xe, Ye, 5, 5);
       Wait(100+Random(50));
      End else
      Begin
       Exit;
      End

     If(IsUpTextMulti('hop down Will', 'down Willow', 'own Wil')) or (IsUpTextMulti('illow', 'low', 'Will'))then
       Begin
        If(FindColorSpiralTolerance(Xe, Ye, 383705, 1, 1, 180, 39, 20))or
           (FindColorSpiralTolerance(Xe, Ye, 65535, 1, 1, 200, 40, 20))or
            (FindColorTolerance(Xe, Ye, 55769, 85, 15, 115, 15, 20))then
          Begin
            EntsAvoided:= EntsAvoided + 1;
            Result:= True;
          End else
            Result:= False;
            Exit;

      End

    End;

    //////////////////Progress Report////////////////////
    Procedure ProgressReport;
    Begin
      SRLRandomsReport;
      WriteLn('[>-----------------------Rayz Report-----------------------<]')
      WriteLn('[>Script Time: ' + (TimeRunning) + '')
      WriteLn('[>Logs Chopped: ' + IntToStr (Totallogs) +  '')
      WriteLn('[>XP Gained: ' + IntToStr (TotalXP) +  '')
      WriteLn('[>----------------------------------------------------------<]')
    end;

    /////////////////Progress///////////////////
    Procedure Progress;
    begin
     StartXP := GetXp('Woodcutting')
          EndXP := GetXp('Woodcutting')
          TotalXP := (EndXP - StartXP) + (TotalXP)
          ProgressReport;
    end;

    //////////////////MainLoop////////////////////// Credits To Fugate
    begin
    SetupSrl;
     DeclarePlayers;
     Totallogs:= 0;
      If (Not(LoggedIn)) then LoginPlayer;
       FindAxeHeadColor;
    repeat
          If (Not(LoggedIn)) then LoginPlayer;
          ProgressReport;
          FindTree;
          loginplayer;
    until(false)
    end.

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •