Results 1 to 13 of 13

Thread: Comma Error

  1. #1
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Comma Error

    title says it all heres my script (the relevent part)

    SCAR Code:
    if (InvFull or (ChooseOption('ontinue'117,204,887,709)) then
    Click here for Rora's Power Woodcutter!
    Testers needed!
    |
    |
    |
    |
    V



    http://www.fenjer.com/adnan/SRL//100...Woodcutter.png

    http://photos33.flickr.com/38918814_8370ddb570_m.jpg




    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.

  2. #2
    Join Date
    Jun 2007
    Location
    Greenville, SC
    Posts
    1,149
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ... you forgot a ")" after invfull

    SCAR Code:
    if (InvFull) or (ChooseOption('ontinue'117,204,887,709)) then

  3. #3
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I still get a error
    Click here for Rora's Power Woodcutter!
    Testers needed!
    |
    |
    |
    |
    V



    http://www.fenjer.com/adnan/SRL//100...Woodcutter.png

    http://photos33.flickr.com/38918814_8370ddb570_m.jpg




    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.

  4. #4
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    if InvFull or ChooseOption('ontinue', 117,204,887,709) then

    the comma after 'ontuneu'

  5. #5
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ill try that
    Click here for Rora's Power Woodcutter!
    Testers needed!
    |
    |
    |
    |
    V



    http://www.fenjer.com/adnan/SRL//100...Woodcutter.png

    http://photos33.flickr.com/38918814_8370ddb570_m.jpg




    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.

  6. #6
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmm i get a new error saying invalid number of pareameters on the same 2 lines... some help there?
    Click here for Rora's Power Woodcutter!
    Testers needed!
    |
    |
    |
    |
    V



    http://www.fenjer.com/adnan/SRL//100...Woodcutter.png

    http://photos33.flickr.com/38918814_8370ddb570_m.jpg




    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.

  7. #7
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    if InvFull or ChooseOption('ontinue') then

    didn't you mean:

    SCAR Code:
    if InvFull or Findnpctext('ontinue') then

  8. #8
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok ill try that thankyou
    Click here for Rora's Power Woodcutter!
    Testers needed!
    |
    |
    |
    |
    V



    http://www.fenjer.com/adnan/SRL//100...Woodcutter.png

    http://photos33.flickr.com/38918814_8370ddb570_m.jpg




    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.

  9. #9
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    unknown identifer... what include should I call for... text?
    Click here for Rora's Power Woodcutter!
    Testers needed!
    |
    |
    |
    |
    V



    http://www.fenjer.com/adnan/SRL//100...Woodcutter.png

    http://photos33.flickr.com/38918814_8370ddb570_m.jpg




    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.

  10. #10
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Rora View Post
    unknown identifer... what include should I call for... text?
    only
    SCAR Code:
    {.include srl/srl.scar}

    Would it be better to post all your script?

    So you don't have to post bugs one by one...
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  11. #11
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh ok sorry... here it is

    SCAR Code:
    {=========================================================================]
    [ Rora tree chopper by your truly:                                        ]
    [              ______  ________  ______                                   ]
    [              | __  | | ___   | | __  |      /\                          ]
    [              | |_| | | |  |  | | |_| |     /  \                         ]
    [              |    /  | |  |  | |    /     / /\ \                        ]
    [              | |\ \  | |  |  | | |\ \    / /__\ \                       ]
    [              | | \ \ | |__|  | | | \ \  / /____\ \                      ]
    [              |_|  \_\|_______| |_|  \_\/_/      \_\                     ]
    [             ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    ]                                                                          ]
    [                                                                         ]
    [      |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|  ]
    [      | NAME        : Rora's Power Chopper                            |  ]
    [      | WRITER      : Rora                                            |  ]
    [      | CATEGORY    : Woodcutting                                     |  ]
    [      | DESCRIPTION : Cuts Normal Trees and Drops Them                |  ]
    [      | USAGE       : To Raise Your WoodCutting Level                 |  ]
    [      | OTHER       : Anti random, anti ban, finds ents, proggie + sig|  ]
    [      |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|  ]
    [=========================================================================]
    [                           Instructions.                                 ]
    [=========================================================================]
    [ * USE Runescape with Low Detail, Very Bright.                          ]
    [ * Set your Screen to 32 bit TRUE color.                                ]
    [ * Position Players In Woodcutting Spots (Lumbridge)                    ]
    [ * Set Playernames and Passwords and DeclarePlayers                     ]
    [ * Drag Cross Hair Over Client                                          ]
    [ * Start script Logged Out / In!                                        ]
    [ * Set the 'DidYouReadTheInstructions' to 'yes'                         ]
    [ * Read the green comments before you press play.                       ]
    {=========================================================================}


    ////////////////////////////////////////////////////////////////////////////////
    ////////////////////////////PROGRAM NAME, VAR'S AND CONST'S/////////////////////
    ////////////////////////////////////////////////////////////////////////////////

    Program PowerWoodCutter;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/WoodCutting.scar}



    Var
    DidRandomHappen: Boolean;
    x,y,EncounteredDeath: integer;

    Const

      DirTorun = 'N';
      Loads = 10; //Loads to do before switching players.

      TreeColor1=1463619;
      TreeColor2=1125670;
      TreeColor3=1516323;
      TreeColor4=2058335;
      TreeColor5=1718832;
      TreeColor6=3108192;
     
    ////////////////////////////////////////////////////////////////////////////////
    /////////////////////////////////////DELCARE PLAYERS////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////


    Procedure DeclarePlayers;
     begin
      HowManyPlayers := 2; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.

        //set all user names, passwords and nicks correctly please.

      Players[0].Name := 'skills r me5';
      Players[0].Pass := '';
      Players[0].Nick := 'ills';
      Players[0].Active := True;

      Players[1].Name := 'Yo the skl';
      Players[1].Pass := '';
      Players[1].Nick := 'o th';
      Players[1].Active := False;
     end;
     
    ////////////////////////////////////////////////////////////////////////////////
    //////////////////////////////////////SIGNATURE/////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    Procedure Signature;
    begin
      ClearDebug;
      writeln('Rora tree chopper by your truly:');
      writeln(' ______  ________  ______        ');
      writeln(' |     | | ___   | |     |      /\');
      writeln(' |     | | |  |  | |     |     /  \');
      writeln(' |    /  | |  |  | |    /     / /\ \');
      writeln(' | |\ \  | |  |  | | |\ \    / /__\ \');
      writeln(' | | \ \ | |__|  | | | \ \  / /____\ \');
      writeln(' |_|  \_\|_______| |_|  \_\/_/      \_\');
      wait(3000+random(750));
    end;





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

    ////////////////////////////////////////////////////////////////////////////////
    ///////////////////////////////////OTHER ANTI RANDOM////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    Procedure FindRandoms;
     begin
      FindFastRandoms;
      FindNormalRandoms;
      if (FindNormalRandoms) then
        DidRandomHappen := true;
    end;

    ////////////////////////////////////////////////////////////////////////////////
    ///////////////////////////////////ANTI BAN/////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    Procedure AntiBanMe;

    Var
      TalkBack, TalkBack1, TalkBack2, TalkBack3, TalkBack4, TalkBack5 : Integer;

         Begin
    If (InChat('hello')) or (InChat('Hi')) or (InChat('hey')) or (InChat('yo')) then
      TalkBack := Random(5);
        case TalkBack of

        1: TypeSend('hello');
        2: TypeSend('hey');
        3: TypeSend('yo');
        4: TypeSend('Hello, how are you?');
        5: TypeSend('ummm hi...');
      end;
     begin
    if (InChat('noob')) or (InChat('nooblet')) then
      begin
      TalkBack1 := Random(5);
        case TalkBack1 of
        0: TypeSend('you the noob');
        1: TypeSend('your face is a noob.');
        2: TypeSend('look in the mirror noob.');
        3: TypeSend('choob');
        4: TypeSend('you fail.');
        5: TypeSend('well, your garbage.');
    end;
     begin
    if (InChat('auto')) or (InChat('autoer')) then
    TalkBack2 := Random(5);
     case TalkBack2 of
        1: TypeSend('??? i do not do that ???');
        2: TypeSend('you wish');
        3: TypeSend('i never cheated in my life');
        4: TypeSend('go away noob.');
        5: TypeSend('you auto');
    end;
     begin
    if (InChat('report')) or (InChat('reported')) or (InChat('reporting')) then
    TalkBack3 := Random(5)
      case TalkBack3 of
      1: TypeSend('Lol ok youll get repoted then');
      2: TypeSend('*Cough Cough* Im no autoer *Cough Cough*');
      3: TypeSend('ill report u then');
      4: TypeSend('ur loss.. youll see');
      5: TypeSend('ehemm?!?!?!?!');
    end;
     begin
    if (InChat('lol')) or (InChat('rofl')) or (InChat('lmao')) then
    TalkBack4 := Random(5)
      case TalkBack4 of
      1: TypeSend('-laughs-');
      2: TypeSend('pretty funny');
      3: TypeSend('ooo');
      4: TypeSend('whats so funny?');
      5: TypeSend('funny...');
    end;
      begin
    if (InChat('wc lev?')) or (InChat('woodcutting lev?')) or (InChat('wc level?')) or (InChat('woodcutting level')) then
    TalkBack5 := Random(5)
       case TalkBack5 of
       1: TypeSend('Je suis français.');
       2: TypeSend('Sono Italiano.');
       3: TypeSend('Jeg er Norsk.');
       4: TypeSend('Sou russo.');
       5: TypeSend('Ik ben Nederlands.');
                 end;
               end;
             end;
           end;
         end;
       end;
     end;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    ///////////////////////////////////ANTI BAN 2///////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////

    procedure AntiBannage;
    begin
      case random(30) of
        1: Boredhuman
        3: hoverskill('Random',false)
        5: begin
             RandomRClick
             clickoption('Cancel',1)
           end;
        9: pickupmouse
       13: begin
              gametab(1+random(11))
              wait(3000+random(1000))
              gametab(4)
            end;
       15:Typesend('ughh')
        29:AlmostLogout;
    end;
    end;


    procedure AntiDeath;
    begin
      if FindFight then
       begin
        MakeCompass('E');
        RunTo('N',True);
        EncounteredDeath:=EncounteredDeath+1;
       end;
    end;





    ////////////////////////////////////////////////////////////////////////////////
    /////////////////////////////////////PROGGY/////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    Procedure RoraProggy;

    var
      H, M, S, EntCount, DroppedLoads, ChopRate, Chopped, ExpGained : integer;

    begin
      ClearDebug;
      Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ');
      Writeln('||  Rora Progress report. Please remember to post');
      Writeln('||  proggies/bugs wherever you got this script :)');
      Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= ');
      Writeln('|| Gained ' + InttoStr(ExpGained) + ' exp in woodcutting ');
      Writeln('||  Worked for ' + InttoStr(H) + ' hours, ' + IntToStr(M) + ' minutes and '+ IntToStr(S) + ' seconds ');
      Writeln('|| Total # of Logs Cut '+inttostr(Chopped)+' at the rate of '+IntToStr(ChopRate)+' per hour');
      Writeln('||  Dropped '+IntToStr(DroppedLoads)+' loads     ');
      Writeln('||  Avoided ' + IntToStr(EntCount) + ' ents      ');
      Writeln('||  Ran Away to Save your life '+IntToStr(EncounteredDeath)+(' times.'));
      Writeln('||=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ');
      Writeln('||Thanks for using Rora Tree chopper, happy autoing');
      Writeln('||=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ');
      SRLRandomsReport;
    end;

    ////////////////////////////////////////////////////////////////////////////////
    //////////////////////////////////CHOPPING//////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    function ChopIt: Boolean;
    begin
      repeat
        if (not (LoggedIn)) then
          Exit;
        if (findcolortolerance(x,y,treecolor1,117,204,887,709,3)) or
           (findcolortolerance(x,y,treecolor2,117,204,887,709,3)) or
           (findcolortolerance(x,y,treecolor3,117,204,887,709,3)) or
           (findcolortolerance(x,y,treecolor4,117,204,887,709,3)) or
           (findcolortolerance(x,y,treecolor5,117,204,887,709,3)) or
           (findcolortolerance(x,y,treecolor6,117,204,887,709,3)) then
        begin
          MMouse(x, y, 3, 3);
          if (IsUpText('ree')) then
          begin
            Mouse(x, y, 2, 2, true);
            repeat
            case Random(10) of
          1: typesend('this is boring')
            2: typesend('i cant take any more!!!')
            3: typesend('')
            4: typesend('')
            5: typesend('zzzz...zzzz...')
            6: typesend('This is so not fun')
            7: typesend('when does it end!')
            8: typesend('This is 3 hours straight!!!')
            9: typesend('')
            10: typesend('')
        end;
              if InvFull or Findnpctext('ontinue') then
                Exit;
                if(DidRandomHappen = true) then
                begin
                  DidRandomHappen:=False;
                  Mouse(x, y, 2, 2, true);
                end;
              SleepAndMoveMouse(9671 + random(1709));
              FindRandoms;
              FindFastRandoms;

           repeat
               if InvFull or Findnpctext('ontinue') then
                Exit;
                if(DidRandomHappen = true) then
                begin
                  DidRandomHappen:=False;
                  Mouse(x, y, 2, 2, true);
                end;
              wait(750+random(250));
              FindRandoms;
            until (findcolortolerance(x,y,treecolor1,117,204,887,709,3)) or
                  (findcolortolerance(x,y,treecolor2,117,204,887,709,3)) or
                  (findcolortolerance(x,y,treecolor3,117,204,887,709,3)) or
                  (findcolortolerance(x,y,treecolor4,117,204,887,709,3)) or
                  (findcolortolerance(x,y,treecolor5,117,204,887,709,3)) or
                  (findcolortolerance(x,y,treecolor6,117,204,887,709,3));
         Result := True;
      until (InvFull);
    end;

    ////////////////////////////////////////////////////////////////////////////////
    /////////////////////////////////////DROPPING///////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////

    Function Dropping;
    begin
       if (not (LoggedIn)) then
          Exit;
       if InvFull then
    begin
      if InvCount = 28 then
      DropToPosition(2, 28);
      mousespeed:=100;
      wait(1500+random(100));
    end;

    {/////////NOTE. THIS IS THE PART YOU DONT TOUCH UNLESS YOU ARE A EXPERIENCED SCRIPTER... DON'T COME CRYING TO ME IF IT DOESN'T WORK BECAUSE IT HAS SOME ERROR IN IT.////////}

    ////////////////////////////////////////////////////////////////////////////////
    //////////////////////////////////MAIN LOOP/////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////

    Begin
      SetupSrl;
      DelcarePlayers;
      Signature;
    Repeat
          Anti Random;
          Other Anti Random;
          Anti Ban;
          Anti Ban 2;
          Proggy;
          Chopping;
          Dropping;
        Until(Loads)
          If HowMany=Loads then
           Begin
            NextPlayer(true);
        If HowMany=Loads then
         Begin
          Writeln('Done!')
          Proggie;
          Logout;
        If (not(loggedin)) then
          Begin
           TerminateScript
           Writeln('For Updates go to srl forums!! :)')
       end;
      end;
     end;
    end.
    Click here for Rora's Power Woodcutter!
    Testers needed!
    |
    |
    |
    |
    V



    http://www.fenjer.com/adnan/SRL//100...Woodcutter.png

    http://photos33.flickr.com/38918814_8370ddb570_m.jpg




    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.

  12. #12
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It still doesnt register and Ive called SetupSrl in the main loop
    Click here for Rora's Power Woodcutter!
    Testers needed!
    |
    |
    |
    |
    V



    http://www.fenjer.com/adnan/SRL//100...Woodcutter.png

    http://photos33.flickr.com/38918814_8370ddb570_m.jpg




    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.

  13. #13
    Join Date
    Jul 2007
    Location
    St. Louis, Missouri, USA.
    Posts
    575
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    1: Please don't double post... When no one has posted below you just use the edit button.
    2: Its FindNpcChatText not FindNpcText
    3: Work on your standards, its really hard to try to fix things when your script jumps all over the place.

    Also you don't need to have the FindFastRandoms procedure because FindNormalRandoms now does everything except findfight.

    I'll post your script redone with good standards in a little bit when I get done doing that.

    You forgot an until in there also.

    Edit:

    Here you go, its not perfect and I did some things you might not know but it compiles until the mainloop, but I don't think you're done with that yet.

    SCAR Code:
    {=========================================================================]
    [ Rora tree chopper by your truly:                                        ]
    [              ______  ________  ______                                   ]
    [              | __  | | ___   | | __  |      /\                          ]
    [              | |_| | | |  |  | | |_| |     /  \                         ]
    [              |    /  | |  |  | |    /     / /\ \                        ]
    [              | |\ \  | |  |  | | |\ \    / /__\ \                       ]
    [              | | \ \ | |__|  | | | \ \  / /____\ \                      ]
    [              |_|  \_\|_______| |_|  \_\/_/      \_\                     ]
    [             ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                    ]                                                                          ]
    [                                                                         ]
    [      |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|  ]
    [      | NAME        : Rora's Power Chopper                            |  ]
    [      | WRITER      : Rora                                            |  ]
    [      | CATEGORY    : Woodcutting                                     |  ]
    [      | DESCRIPTION : Cuts Normal Trees and Drops Them                |  ]
    [      | USAGE       : To Raise Your WoodCutting Level                 |  ]
    [      | OTHER       : Anti random, anti ban, finds ents, proggie + sig|  ]
    [      |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|  ]
    [=========================================================================]
    [                           Instructions.                                 ]
    [=========================================================================]
    [ * USE Runescape with Low Detail, Very Bright.                          ]
    [ * Set your Screen to 32 bit TRUE color.                                ]
    [ * Position Players In Woodcutting Spots (Lumbridge)                    ]
    [ * Set Playernames and Passwords and DeclarePlayers                     ]
    [ * Drag Cross Hair Over Client                                          ]
    [ * Start script Logged Out / In!                                        ]
    [ * Set the 'DidYouReadTheInstructions' to 'yes'                         ]
    [ * Read the green comments before you press play.                       ]
    {=========================================================================}


    ////////////////////////////////////////////////////////////////////////////////
    ////////////////////////////PROGRAM NAME, VAR'S AND CONST'S/////////////////////
    ////////////////////////////////////////////////////////////////////////////////

    Program PowerWoodCutter;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/WoodCutting.scar}

    Var
    DidRandomHappen: Boolean;
    x, y, EncounteredDeath: integer;

    Const

      DirTorun = 'N';
      Loads = 10; //Loads to do before switching players.

      TreeColor1 = 1463619;
      TreeColor2 = 1125670;
      TreeColor3 = 1516323;
      TreeColor4 = 2058335;
      TreeColor5 = 1718832;
      TreeColor6 = 3108192;

    ////////////////////////////////////////////////////////////////////////////////
    /////////////////////////////////////DELCARE PLAYERS////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////


    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 2; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.

        //set all user names, passwords and nicks correctly please.

      Players[0].Name := 'skills r me5';
      Players[0].Pass := '';
      Players[0].Nick := 'ills';
      Players[0].Active := True;

      Players[1].Name := 'Yo the skl';
      Players[1].Pass := '';
      Players[1].Nick := 'the';
      Players[1].Active := False;
    end;

    ////////////////////////////////////////////////////////////////////////////////
    //////////////////////////////////////SIGNATURE/////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    Procedure Signature;
    begin
      ClearDebug;
      writeln('Rora tree chopper by your truly:');
      writeln(' ______  ________  ______        ');
      writeln(' |     | | ___   | |     |      /\');
      writeln(' |     | | |  |  | |     |     /  \');
      writeln(' |    /  | |  |  | |    /     / /\ \');
      writeln(' | |\ \  | |  |  | | |\ \    / /__\ \');
      writeln(' | | \ \ | |__|  | | | \ \  / /____\ \');
      writeln(' |_|  \_\|_______| |_|  \_\/_/      \_\');
      wait(3000+random(750));
    end;
    ////////////////////////////////////////////////////////////////////////////////
    ///////////////////////////////////OTHER ANTI RANDOM////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    Procedure FindRandoms;
    begin
      if FindNormalRandoms then DidRandomHappen := True;   //automatically calls findnormalrandoms
      {if FindFight then          //you can add this here if you want
      begin
        RunTo('N', True);
        Wait(15000 + random(5000));
        RunBack;
        EncounteredDeath := True;
      end;}

    end;

    ////////////////////////////////////////////////////////////////////////////////
    ///////////////////////////////////ANTI BAN/////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    Procedure AntiBanMe;
    Begin
      If (InChat('hello')) or (InChat('Hi')) or (InChat('hey')) or (InChat('yo')) then
      case Random(5) of             //talkback var isn't needed.
        0: TypeSend('hello');   //have to start on 0
        1: TypeSend('hey');
        2: TypeSend('yo');
        3: TypeSend('Hello, how are you?');
        4: TypeSend('ummm hi...');
      end;
      if (InChat('noob')) or (InChat('nooblet')) then
      case Random(6) of
        0: TypeSend('you the noob');
        1: TypeSend('your face is a noob.');
        2: TypeSend('look in the mirror noob.');
        3: TypeSend('choob');
        4: TypeSend('you fail.');
        5: TypeSend('well, your garbage.');
      end;
      if (InChat('auto')) or (InChat('autoer')) then
      case Random(5) of
        0: TypeSend('??? i do not do that ???');
        1: TypeSend('you wish');
        2: TypeSend('i never cheated in my life');
        3: TypeSend('go away noob.');
        4: TypeSend('you auto');
      end;
      if (InChat('report')) or (InChat('reported')) or (InChat('reporting')) then
      case Random(5) of
        0: TypeSend('Lol ok youll get repoted then');
        1: TypeSend('*Cough Cough* Im no autoer *Cough Cough*');
        2: TypeSend('ill report u then');
        3: TypeSend('ur loss.. youll see');
        4: TypeSend('ehemm?!?!?!?!');
      end;
      if (InChat('lol')) or (InChat('rofl')) or (InChat('lmao')) then
      case Random(5) of
        0: TypeSend('-laughs-');
        1: TypeSend('pretty funny');
        2: TypeSend('ooo');
        3: TypeSend('whats so funny?');
        4: TypeSend('funny...');
      end;
      if (InChat('wc lev?')) or (InChat('woodcutting lev?')) or (InChat('wc level?')) or (InChat('woodcutting level')) then
      case Random(6) of
        0: TypeSend('Je suis français.');   //lol
        1: TypeSend('Sono Italiano.');
        2: TypeSend('Jeg er Norsk.');
        3: TypeSend('Sou russo.');
        4: TypeSend('Ik ben Nederlands.');
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    ///////////////////////////////////ANTI BAN 2///////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    procedure AntiBannage;
    begin
      case random(30) of
        0: Boredhuman         //Might as well do them in order
        1: hoverskill('Random',false)
        2: begin
             RandomRClick;
             clickoption('Cancel',1)
           end;
        3: pickupmouse
        4: begin
              gametab(1+random(11))
              wait(3000+random(1000))
              gametab(4)
           end;
        5:Typesend('ughh')
        6:AlmostLogout;
      end;
    end;


    procedure AntiDeath;
    begin
      if FindFight then
      begin
        MakeCompass('E');   //not sure why you made it east.
        RunTo('N',True);
        EncounteredDeath:=EncounteredDeath+1;
        RunBack;  //you forgot this.
      end;
    end;

    ////////////////////////////////////////////////////////////////////////////////
    /////////////////////////////////////PROGGY/////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    Procedure RoraProggy;
    var
      H, M, S, EntCount, DroppedLoads, ChopRate, Chopped, ExpGained : integer;
    begin
      ClearDebug;
      Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ');
      Writeln('||  Rora Progress report. Please remember to post');
      Writeln('||  proggies/bugs wherever you got this script :)');
      Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= ');
      Writeln('|| Gained ' + InttoStr(ExpGained) + ' exp in woodcutting ');
      Writeln('||  Worked for ' + InttoStr(H) + ' hours, ' + IntToStr(M) + ' minutes and '+ IntToStr(S) + ' seconds ');
      Writeln('|| Total # of Logs Cut '+inttostr(Chopped)+' at the rate of '+IntToStr(ChopRate)+' per hour');
      Writeln('||  Dropped '+IntToStr(DroppedLoads)+' loads     ');
      Writeln('||  Avoided ' + IntToStr(EntCount) + ' ents      ');
      Writeln('||  Ran Away to Save your life '+IntToStr(EncounteredDeath)+(' times.'));
      Writeln('||=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ');
      Writeln('||Thanks for using Rora Tree chopper, happy autoing');
      Writeln('||=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ');
      SRLRandomsReport;
    end;

    ////////////////////////////////////////////////////////////////////////////////
    //////////////////////////////////CHOPPING//////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    function ChopIt: Boolean;
    var
      TreeColor: Array [0..5] of Integer;
      i: integer;
    begin
      TreeColor[0] := TreeColor1;     //sorry this will confuse you
      TreeColor[1] := TreeColor2;     //look up some stuff on arrays
      TreeColor[2] := TreeColor3;
      TreeColor[3] := TreeColor4;
      TreeColor[4] := TreeColor5;
      TreeColor[5] := TreeColor6;
      repeat
        if (not (LoggedIn)) then Exit;
        for i := 0 to 5 do         //and for to do loops too
        if FindColorTolerance(x, y, TreeColor[i], 117, 204, 887, 709, 3) then
        begin
          MMouse(x, y, 3, 3);
          if (IsUpText('ree')) then
          begin
            Mouse(x, y, 2, 2, true);
            repeat
              case Random(11) of
                1: typesend('this is boring');
                2: typesend('i cant take any more!!!');
                3: typesend('');
                4: typesend('');
                5: typesend('zzzz...zzzz...');
                6: typesend('This is so not fun');
                7: typesend('when does it end!');
                8: typesend('This is 3 hours straight!!!');
                9: typesend('');
                10: typesend('');
              end;
              if InvFull or FindnpcChattext('ontinue') then Exit;
              if(DidRandomHappen = true) then
              begin
                DidRandomHappen := False;
                Mouse(x, y, 2, 2, true);
              end;
              SleepAndMoveMouse(9671 + random(1709));
              FindRandoms;
              repeat
                if InvFull or FindNPCChattext('ontinue') then Exit;
                if(DidRandomHappen = true) then
                begin
                  DidRandomHappen := False;
                  Mouse(x, y, 2, 2, true);
                end;
                Wait(750 + Random(250));
                FindRandoms;
              until(False)//change this. you forgot it.
            until (findcolortolerance(x, y, TreeColor[i], 117, 204, 887, 709, 3))
            Result := True;
          end;
        end;
      until (InvFull);
    end;

    ////////////////////////////////////////////////////////////////////////////////
    /////////////////////////////////////DROPPING///////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////

    procedure Dropping;  //changed this to a procedure...
    begin
      if (not (LoggedIn)) then Exit;
      if InvFull then
      begin
        if InvCount = 28 then
        DropToPosition(2, 28);
        mousespeed:=100;
        wait(1500+random(100));
      end;
    end;

    {/////////NOTE. THIS IS THE PART YOU DONT TOUCH UNLESS YOU ARE A EXPERIENCED SCRIPTER... DON'T COME CRYING TO ME IF IT DOESN'T WORK BECAUSE IT HAS SOME ERROR IN IT.////////}

    ////////////////////////////////////////////////////////////////////////////////
    //////////////////////////////////MAIN LOOP/////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////

    begin
      SetupSrl;
      DeclarePlayers;
      Signature;
      repeat
        //Anti Random;                  //you'll have to add or change these.
        //Other Anti Random;
        //Anti Ban;
        //Anti Ban 2;
        RoraProggy;
        ChopIt;
        Dropping;
      until(Loads) //problem here.
      if HowMany = Loads then
      begin
        NextPlayer(true);
        If HowMany = Loads then
        begin
          Writeln('Done!')
          Proggie;
          Logout;
          if (not(LoggedIn)) then
          begin
            TerminateScript
            Writeln('For Updates go to srl forums!! :)')
          end;
        end;
      end;
    end.
    -You can call me Mick-



Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [Error]: comma (',') expected in script
    By AbsTrACt'^.| in forum OSR Help
    Replies: 20
    Last Post: 05-22-2008, 12:27 AM
  2. comma expected in script
    By Awkwardsaw in forum OSR Help
    Replies: 16
    Last Post: 05-03-2008, 02:48 PM
  3. comma ',' expected? :S
    By svarrio in forum OSR Help
    Replies: 4
    Last Post: 10-24-2007, 05:59 AM
  4. Replies: 4
    Last Post: 05-30-2007, 04:01 PM
  5. Replies: 9
    Last Post: 04-16-2007, 08:46 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
  •