Results 1 to 9 of 9

Thread: Runtime error on diff tab?

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

    Default Runtime error on diff tab?

    Well when ever I run my script, the sig comes up (good) and then it waits (good) and then it comes up with a new tab and says run time error (bad) can someone fix that for me please?

    Heres my script...

    SCAR Code:
    {=========================================================================]
    [ Rora tree chopper by your truly:                                        ]
    [               ______    ________   ______      _                        ]
    [              /| __  |  /| ___   | /| __  |    //\                       ]
    [              || |_| |  || |  |  | || |_| |   //  \                      ]
    [              ||    /   || |  |  | ||    /   // /\ \                     ]
    [              || |\ \   || |  |  | || |\ \  // /__\ \                    ]
    [              || | \ \  || |__|  | || | \ \// /____\ \                   ]
    [              \|_|  \_\ \|_______| \|_|  \_/_/      \_\                  ]
    [             ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  ]                                                                          ]
    [                             ___________                                 ]
    [                             | Details |                                 ]
    [      |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|  ]
    [      | NAME        : Rora's Power Chopper                            |  ]
    [      | WRITER      : Rora                                            |  ]
    [      | CATEGORY    : Woodcutting                                     |  ]
    [      | DESCRIPTION : Cuts Normal Trees and Drops Them                |  ]
    [      | USAGE       : To Raise Your WoodCutting Level                 |  ]
    [      | Note.       : 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}

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


    Const

      Loads = 10;
      DidYouReadInstructions = 'no';// did you read the instuctions up there ^^ ?

      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 := 2; //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;
     
      Writeln('Using '+ IntToStr(HowManyPlayers) +' Players.');
     
    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//////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    Procedure FindRandoms;
    Begin
      If (Not (LoggedIn)) Then LoginPlayer;
      If FindNormalRandoms Then DidRandomHappen := True;
      If FindFight Then
      Begin
        RunTo('N', True);
        Wait(15000 + random(5000));
        RunBack;
        EncounteredDeath:=EncounteredDeath+1;
      End;
    End;

    Procedure RunFromRandoms;
    Begin
       If(FindnpcChattext('ontinue')) Then
       RunTo('N', True);
       Wait(15000 + random(5000));
       RunBack;
     End;



    ////////////////////////////////////////////////////////////////////////////////
    //////////////////////////////Did you read the instructions?////////////////////
    ////////////////////////////////////////////////////////////////////////////////

    Function InstructionReader: boolean;
    Begin
      If DidYouReadInstructions = 'no' Then
      Begin
        result := True;
        Writeln('You DID NOT Read The Instructions, Please Read!');
        TerminateScript;
      End;
    End;


    ////////////////////////////////////////////////////////////////////////////////
    ///////////////////////////////////ANTI BAN/////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    Procedure AntiBanMe;
    Begin
      If (Not (LoggedIn)) Then LoginPLayer;
      If (InChat('hello')) Or (InChat('Hi')) Or (InChat('hey')) Or (InChat('yo')) Then
      Case Random(5) Of
        0: TypeSend('hello');
        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.');   //Do you like? :D
        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
      if (not (LoggedIn)) then LoginPLayer;
      case random(30) of
        0: Boredhuman
        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;

    ////////////////////////////////////////////////////////////////////////////////
    //////////////////////////////////Anti Death////////////////////////////////////

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

    ////////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////Uber Ent////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////

    function UberEnt: Boolean; //by Nashi, Edited By HyperSecret
    begin
      if (FindColorTolerance(x, y, 383705, 9, 9, 233, 24, 20)) or
         (FindColorTolerance(x, y, 65535, 9, 9, 233, 24, 20)) then
      begin
        GetMousePos(x, y);
        Mouse(x, y, 5, 5, False);
        if (FindText(x, y, 'Chop down', upchars, x - 50, y - 50, x + 100, y + 50)) then
        begin
          if (FindColor(x, y, 65535, x + 70, y, x + 100, y + 10)) then
          begin
            Mouse(MMCX, MMCY, 5, 5, True);
            Writeln('Found ent! Waiting for it to go away');
            Result := True;
            EntsAvoided := EntsAvoided + 1;
          end;
        end else
        ChooseOption('Cancel');
        FindRandoms;
      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 proggies/bugs wherever you got this script :)      ||');
      Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
      Writeln('|| Gained ' + InttoStr(ExpGained) + ' exp in woodcutting                                             ||');
      Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
      Writeln('||  Worked for ' + InttoStr(H) + ' hours, ' + IntToStr(M) + ' minutes and '+ IntToStr(S) + ' seconds ||');
      Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
      Writeln('|| Total # of Logs Cut '+inttostr(Chopped)+' at the rate of '+IntToStr(ChopRate)+' per hour          ||');
      Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
      Writeln('||  Dropped '+IntToStr(DroppedLoads)+' loads                                                         ||');
      Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
      Writeln('||  Avoided ' + IntToStr(EntCount) + ' ents                                                          ||');
      Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
      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;
      TreeColor[1] := TreeColor2;
      TreeColor[2] := TreeColor3;
      TreeColor[3] := TreeColor4;
      TreeColor[4] := TreeColor5;
      TreeColor[5] := TreeColor6;
      repeat
        if (not (LoggedIn)) then LoginPLayer;
        for i := 0 to 5 do
        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(invfull)
            until (findcolortolerance(x, y, TreeColor[i], 117, 204, 887, 709, 3))
            Result := True;
          end;
        end;
      until (InvFull);
    end;

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

    procedure Dropping;
    begin
      if (not (LoggedIn)) then LoginPlayer;
      if InvFull then
      begin
        if InvCount = 28 then
        DropToPosition(2, 28);
        mousespeed:=100;
        wait(1500+random(100));
        CountLoads := CountLoads + 1;
      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
        FindRandoms;
        AntiBanMe;
        RunFromRandoms;
        AntiBannage;
        AntiDeath;
        UberEnt;
        ChopIt;
        Dropping;
      until(CountLoads >= Loads)
      begin
          RoraProggy;
          Writeln('Done!')
          if (not(LoggedIn)) then LoginPlayer;
          begin
            TerminateScript
            Writeln('Thank you for using Roras Power WoodCutter. For Updates go to srl forums!! :)')
          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.

  2. #2
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Set:
    CurrentPlayer = 0;

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

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

    Default

    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.

  4. #4
    Join Date
    Sep 2007
    Location
    Michigan
    Posts
    3,862
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    CurrentPlayer := 2; //Player to start on.

    Changes this to

    CurrentPlayer := 0; //Player to start on.

    Because you don't have a player 2...

    edit
    Fock he beat me
    (Scripts outdated until I update for new SRL changes)
    AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
    If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
    Summer = me busy, won't be around much.

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

    Default

    doesnt work...

    still has the same prob
    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
    Sep 2007
    Location
    Michigan
    Posts
    3,862
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Rora View Post
    doesnt work...

    still has the same prob
    I changed CurrentPlayer to 0 and it doesn't give me any run errors.
    (Scripts outdated until I update for new SRL changes)
    AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
    If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
    Summer = me busy, won't be around much.

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

    Default

    oh ... have you ran the script yet on runescape?
    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.

  8. #8
    Join Date
    Sep 2007
    Location
    Michigan
    Posts
    3,862
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    No it just compiled fine and sat there running for a minute. The I stopped it.
    (Scripts outdated until I update for new SRL changes)
    AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
    If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
    Summer = me busy, won't be around much.

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

    Default

    hmm im trying it on runescape and it comes up with the same problem but the a 'text' tab this time
    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.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Yew WC diff location!!
    By FuruChan in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 07-15-2008, 09:05 PM
  2. [Runtime Error] : Exception: buffer error
    By GasMan in forum OSR Help
    Replies: 11
    Last Post: 05-13-2007, 02:07 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
  •