Results 1 to 9 of 9

Thread: Help with my rs MEMBERS script

  1. #1
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default Help with my rs MEMBERS script

    Ok this is my first script,

    its for the seers bank maples,


    It finds maples but then ckicks chop loads of times what do i do?


    SCAR Code:
    [COLOR=#0000ff][/COLOR]program ProjectS;


    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/WoodCutting.scar}



    const
    //-->Loads<--\\

    Loads = 10; //How many loads per player before switching

    //--->SRL ID<---\\
    YourSRLId = '5840';
    YourSRLPassword ='234324';

    //--->Pin - Make same for ALL chars. If no Pin, leave blank<---\\
    YourPin = '';



    {-------------------------------------------------------
                           Player Setup
    --------------------------------------------------------}


    procedure DeclarePlayers;
    begin

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

         Players[0].Name   := 'm';
         Players[0].Pass   := '';
         Players[0].Nick   := '';
         Players[0].Active := True;

    end;



    {----------------------------Do Not Edit Below This----------------------------}
    var x, y, LoadsNum, LoadsNum2: integer;



    //-----------------------------AntiRandoms/AntiBan----------------------------\\

    Procedure AntiRandoms;
    begin
      If(FindFight)then
      RunAway('N', True,1,15000);
      FindNormalRandoms;
      FindLamp('Woodcutting');
    end;

    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case Random(30) of
        1: RandomRClick;
        2: HoverSkill('Woodcutting', False);
        3: RandomMovement;
        4: BoredHuman;

        6: DoEmote(400 +Random(90));
      end;
    end;


      //---------------------------------ChopTree-----------------------------------\\

    procedure ChopTree;
    var CuttingTime: integer;
        Tries: integer;
    begin
      MarkTime(CuttingTime);
      MakeCompass('S');
      repeat
        if FindObjCustom(x, y, ['Map', 'le'], [2571369, 2510441, 2175574], 7) then
        begin
           Mouse(x,y,0,0,false);
           if(IsUpText('Chop'))then
             Wait(5000 + (random(150)));
             ChooseOption('hop')
             AntiBan;
             if (not (FindObjCustom(x, y, ['Map', 'le'], [2571369, 2510441, 2175574], 7))) then
               Wait(100+random(100));
               Tries := Tries + 1;
               if(Tries = 50)then
               begin
                 Writeln ('Maple Logs not found. Switching Players..');
                 Logout;
                 NextPlayer(False);
                 Exit;
               end;
           end;
      until(InvFull) or (TimeFromMark(CuttingTime) > 800000+random(60000));
    end;

       //----------------------Walking from maples to Bank--------------------------\\

    procedure WalkToBank;
    begin
      if (not(LoggedIn)) then
        Exit;
        SymbolAccuracy:= 0.2;
        MakeCompass('N');
        if (FindSymbol(x, y, 'bank')) then
        begin
          Mouse(x, y, 2, 2, true);
          FFlag(0);
          Writeln('Got to bank');
        end;
    end;

    //--------------------------------Banking-------------------------------------\\

    procedure Banking;
    begin
      if (InvFull) then
      begin
        MakeCompass('W')
        Wait (300 + random(160));
        OpenBankQuiet('Cy');
        if (PinScreen) then
        InPin(YourPin);
          if(FindColorSpiral(x, y, 2175574, 635, 72, 734, 464))then
        begin
         Mouse(x, y, 4, 3, false);
         ChooseOption('All');
         begin
           LoadsNum := LoadsNum + 1;
           LoadsNum2 := LoadsNum2 + 1;
           ReportVars[1] := ReportVars[1] + 1;
           SendSRLReport;
         end;
        end;
       CloseBank;
       Wait(150 + random (278));
       MakeCompass('S');
      end;
    end;

    //Willows to Bank\\

    procedure WalkToMaple;
    begin
      if (FindSymbol(x, y, 'tree')) then
      begin
        Mouse(x, y, 26, 150, true);
        FFlag(0);
        Writeln('Got to Maples');
      end;
    end;

    //SetupScript\\

    procedure SetupScript;
    begin
      SRLId := YourSRLId;
      SRLPassword:= YourSRLPassword;
      SetupSRL;
      ScriptID:= '687';
      DeclarePlayers;
    end;

    //THE MAIN LOOPAGE!\\

    begin
      SetupScript;
      repeat
       WalkToMaple;
       ChopTree;
       AntiBan;
       WalkToBank;
       Banking;
       if (LoadsNum2=Loads) then
        begin
           NextPlayer(True);
           LoadsNum2 := 0;
           MakeCompass('S')
           Writeln('Players Switched successfully')
        end;
      until (false)
    end.
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  2. #2
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I would help but the SCAR tags don't seem to be working for me....it shows up all jumbled together...

  3. #3
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    SAME here. Try making a download for it. Then we can see it way better.
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

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

    Default

    SCAR Code:
    lol...

    Nope...

    Hes an idiot and spent like 25252 hours making the colors right..

  5. #5
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Are you telling me that he formatted that himself and didn't use SCAR tags..? wtf? The SCAR tags color them automatically...

    Edit: I took like 5 years changing this and making it readable. I didn't add standards to it because I didn't want to waste more time. So here it is in code tags.

    SCAR Code:
    program ProjectS;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/WoodCutting.scar}

    const
    //-->Loads<--\\ Loads = 10; //How many loads per player before switching
    //--->SRL ID<---\\ YourSRLId = '5840';
    //--->SRL Password<---\\ YourSRLPassword ='234324';
    //--->Pin - Make same for ALL chars. If no Pin, leave blank<---\\ YourPin = '';
    {------------------------------------------------------- Player Setup --------------------------------------------------------}

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer:= 0
    Players[0].Name := 'm ';
    Players[0].Pass := ''; Players[0].Nick := '';
    Players[0].Active := True;
    end;

    {----------------------------Do Not Edit Below This----------------------------}

    var x, y, LoadsNum, LoadsNum2: integer;

    //-----------------------------AntiRandoms/AntiBan----------------------------\\

    Procedure AntiRandoms;
    begin If(FindFight)then RunAway('N', True,1,15000);
    FindNormalRandoms;
    FindLamp('Woodcutting');
    end;

    procedure AntiBan;
    begin if not LoggedIn then Exit;
    case Random(30) of
    1: RandomRClick;
    2: HoverSkill('Woodcutting', False);
    3: RandomMovement;
    4: BoredHuman;
    6: DoEmote(400 +Random(90));
    end;
    end;

     //---------------------------------ChopTree-----------------------------------\\

    procedure ChopTree;
    var CuttingTime: integer; Tries: integer;
    begin
    MarkTime(CuttingTime);
    MakeCompass('S');
    Repeat
    if FindObjCustom(x, y, ['ma', 'le'], [2379396, 2379396, 2379396], 7) then
    begin
    Mouse(x,y,0,0,false);
    if(IsUpText('Chop'))then Wait(5000 + (random(150)));
    ChooseOption('hop')
    AntiBan;
    if (not (FindObjCustom(x, y, ['Map', 'le'], [2379396, 2379396, 2379396], 7))) then Wait(100+random(100)); Tries := Tries + 1;
    if(Tries = 50)then
    begin
    Writeln ('Maple Logs not found. Switching Players..');
    Logout;
    NextPlayer(False);
    Exit;
    end;
    end;
    until(InvFull) or (TimeFromMark(CuttingTime) > 800000+random(60000));
    end;

    //----------------------Walking from maples to Bank--------------------------\\
     
    procedure WalkToBank;
    begin
    if (not(LoggedIn)) then Exit;
    SymbolAccuracy:= 0.2;
    MakeCompass('N');
    if (FindSymbol(x, y, 'bank')) then
    begin
    Mouse(x, y, 2, 2, true);
    FFlag(0);
    Writeln('Got to bank');
    end;
    end;

     //--------------------------------Banking-------------------------------------\\

    procedure Banking;
    begin
    if (InvFull) then
    begin
    MakeCompass('W');
    Wait (300 + random(160));
    OpenBankQuiet('db');
    if (PinScreen) then InPin(YourPin);
    if(FindColorSpiral(x, y, 195836, 635, 72, 734, 464))then
    begin
    Mouse(x, y, 4, 3, false);
    ChooseOption('All');
    begin
    LoadsNum := LoadsNum + 1;
    LoadsNum2 := LoadsNum2 + 1;
    ReportVars[1] := ReportVars[1] + 1;
    SendSRLReport;
    end;
    end;
    CloseBank;
    Wait(150 + random (278));
    MakeCompass('S');
    end;
    end;

    //Willows to Bank\\

    procedure WalkToMaple;
    begin
    if (FindSymbol(x, y, 'tree')) then
    begin
    Mouse(x, y, 26, 150, true);
    FFlag(0);
    Writeln('Got to Maples');
    end;
    end;

    //SetupScript\\
    procedure SetupScript;
    begin
     SRLId := YourSRLId;
    SRLPassword:= YourSRLPassword;
    SetupSRL;
    ScriptID:= '687';
    DeclarePlayers;
    end;

    //THE MAIN LOOPAGE!\\

    begin
    SetupScript;
    repeat
    WalkToMaple;
    ChopTree;
    AntiBan;
     WalkToBank;
    Banking;
    if (LoadsNum2=Loads) then
    begin
    NextPlayer(True); LoadsNum2 := 0;
    MakeCompass('S')
    Writeln('Players Switched successfully')
    end;
    until (false)
    end.

  6. #6
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default

    Lol no i dint colour myself!


    Thanks for re foramting it for the forum.
    (The scar tags dint seem to work for me)



    Anyway my problem is that it finds the trees then keeps cliking chop whilst i am cutting!







    ScarScript:By Drunkenoldma
    begin Mouse(x,y,0,0,false); if(IsUpText('Chop'))then Wait(5000 + (random(150))); ChooseOption('hop') AntiBan;
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  7. #7
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default

    If anyone cares here is a youtube clip of my prob!!

    http://www.youtube.com/watch?v=HWGMUeQMqhM
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  8. #8
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This should work? I haven't scripted in a long time but here

    SCAR Code:
    program ProjectS;


    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/WoodCutting.scar}



    const
    //-->Loads<--\\

    Loads = 10; //How many loads per player before switching

    //--->SRL ID<---\\
    YourSRLId = '5840';
    YourSRLPassword ='234324';

    //--->Pin - Make same for ALL chars. If no Pin, leave blank<---\\
    YourPin = '';



    {-------------------------------------------------------
                           Player Setup
    --------------------------------------------------------}


    procedure DeclarePlayers;
    begin

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

         Players[0].Name   := 'm';
         Players[0].Pass   := '';
         Players[0].Nick   := '';
         Players[0].Active := True;

    end;



    {----------------------------Do Not Edit Below This----------------------------}
    var x, y, LoadsNum, LoadsNum2: integer;



    //-----------------------------AntiRandoms/AntiBan----------------------------\\

    Procedure AntiRandoms;
    begin
      If(FindFight)then
      RunAway('N', True,1,15000);
      FindNormalRandoms;
      FindLamp('Woodcutting');
    end;

    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case Random(30) of
        1: RandomRClick;
        2: HoverSkill('Woodcutting', False);
        3: RandomMovement;
        4: BoredHuman;

        6: DoEmote(400 +Random(90));
      end;
    end;


      //---------------------------------ChopTree-----------------------------------\\

    procedure ChopTree;
    var CuttingTime: integer;
        Tries: integer;
        chopping : integer;
    begin
      MarkTime(CuttingTime);
      MakeCompass('S');
      repeat
        if FindObjCustom(x, y, ['Map', 'le'], [2571369, 2510441, 2175574], 7) then
        begin
           Mouse(x,y,0,0,false);
           if(IsUpText('Chop'))then
            begin
             Wait(1200 + (random(150)));
             ChooseOption('hop')
             AntiBan;
             MarkTime(Chopping);
             repeat
             wait(100 + random(150));
             until(timefrommark(chopping) > 60000));
        end;
             if (not (FindObjCustom(x, y, ['Map', 'le'], [2571369, 2510441, 2175574], 7))) then
               Wait(100+random(100));
               Tries := Tries + 1;
               if(Tries = 50)then
               begin
                 Writeln ('Maple Logs not found. Switching Players..');
                 Logout;
                 NextPlayer(False);
                 Exit;
               end;
           end;
      until(InvFull) or (TimeFromMark(CuttingTime) > 800000+random(60000));
    end;

       //----------------------Walking from maples to Bank--------------------------\\

    procedure WalkToBank;
    begin
      if (not(LoggedIn)) then
        Exit;
        SymbolAccuracy:= 0.2;
        MakeCompass('N');
        if (FindSymbol(x, y, 'bank')) then
        begin
          Mouse(x, y, 2, 2, true);
          FFlag(0);
          Writeln('Got to bank');
        end;
    end;

    //--------------------------------Banking-------------------------------------\\

    procedure Banking;
    begin
      if (InvFull) then
      begin
        MakeCompass('W')
        Wait (300 + random(160));
        OpenBankQuiet('Cy');
        if (PinScreen) then
        InPin(YourPin);
          if(FindColorSpiral(x, y, 2175574, 635, 72, 734, 464))then
        begin
         Mouse(x, y, 4, 3, false);
         ChooseOption('All');
         begin
           LoadsNum := LoadsNum + 1;
           LoadsNum2 := LoadsNum2 + 1;
           ReportVars[1] := ReportVars[1] + 1;
           SendSRLReport;
         end;
        end;
       CloseBank;
       Wait(150 + random (278));
       MakeCompass('S');
      end;
    end;

    //Willows to Bank\\

    procedure WalkToMaple;
    begin
      if (FindSymbol(x, y, 'tree')) then
      begin
        Mouse(x, y, 26, 150, true);
        FFlag(0);
        Writeln('Got to Maples');
      end;
    end;

    //SetupScript\\

    procedure SetupScript;
    begin
      SRLId := YourSRLId;
      SRLPassword:= YourSRLPassword;
      SetupSRL;
      ScriptID:= '687';
      DeclarePlayers;
    end;

    //THE MAIN LOOPAGE!\\

    begin
      SetupScript;
      repeat
       WalkToMaple;
       ChopTree;
       AntiBan;
       WalkToBank;
       Banking;
       if (LoadsNum2=Loads) then
        begin
           NextPlayer(True);
           LoadsNum2 := 0;
           MakeCompass('S')
           Writeln('Players Switched successfully')
        end;
      until (false)
    end.

  9. #9
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default

    Thanks its been sorted thanks to waddo and death!
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Members App. Script
    By mormonman in forum OSR Help
    Replies: 23
    Last Post: 02-08-2009, 12:43 AM
  2. My SRL Members script... 2
    By Tniffoc in forum Research & Development Lounge
    Replies: 22
    Last Post: 10-01-2008, 12:14 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
  •