Results 1 to 3 of 3

Thread: My script doesnt move!

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

    Default My script doesnt move!

    My script won't move when i drag the cross-hairs over and click play, it says new rs window specified and after a few minutes it says found compass and then says

    three minutesd have passed and i didnt tell it to say that or fount compass either?

    so can somebody fix the prob plz

    it compiles fine aswell

    when your finished with it can you try it yourself and see if it chops?

    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 = 'yes';// 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 := 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 := True;
     
      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(5) 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 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    SCAR Code:
    SetupSrl;
      DeclarePlayers;
      Signature;
      activateclient;// Should help mabey.
      wait(1000);
    I do visit every 2-6 months

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

    Default

    thankyou it works lol
    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. Mouse Doesnt Move
    By Nite Elf in forum OSR Help
    Replies: 12
    Last Post: 03-19-2008, 12:05 AM
  2. Move Mouse Doesnt work?
    By boomhowza in forum OSR Help
    Replies: 13
    Last Post: 01-31-2008, 04:03 AM

Posting Permissions

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