Results 1 to 6 of 6

Thread: TEst my script.

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

    Default TEst my script.

    It wont login , dont know if its a mistake in script or my Scar, or srl.


    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.

  2. #2
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    try putting this after declareplayers

    SCAR Code:
    if(not(LoggedIn))then LoginPlayer;
    Interested in C# and Electrical Engineering? This might interest you.

  3. #3
    Join Date
    Oct 2006
    Location
    ithurtsithurtsithurtsithurts
    Posts
    2,930
    Mentioned
    7 Post(s)
    Quoted
    135 Post(s)

    Default

    Not sure if it's your problem, but try putting your LoginPlayer before you SetRun.

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

    Default

    Do u mean place it after declarplayers; in the main loop?


    EDIT: Also Could some1 tell me if my scirp is anti bannable and able to use?

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

    Default

    You have random finding but u need to make the script random to stop bans. Add some anti-ban into it.

    Heres the logged in pocedure fixed
    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;
    if(not(LoggedIn))then LoginPlayer;
      SetRun;
       FindAxeHeadcolors;
    repeat
    ProgressReport;
     FindTree;
       FindAxe;
    until(false)
    end.

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

    Default

    You , should post in first script section it came along nice..unless you any more help.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Test this script.
    By NCDS in forum Research & Development Lounge
    Replies: 0
    Last Post: 02-07-2009, 06:32 PM
  2. Test Script Help?
    By xGarrett21 in forum OSR Help
    Replies: 7
    Last Post: 02-01-2009, 07:00 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
  •