Results 1 to 13 of 13

Thread: Mouse Doesnt Move

  1. #1
    Join Date
    Jun 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Mouse Doesnt Move

    SCAR Code:
    const
    willow1= 3754306; //Light side of willow
    willow2= 530448;  //Darker side not the black part
    willow3= 1585201; //The trunk of the willow
    HowManyLoads = 50; //Amount of loads before switching


    var
    AxeMask, logz: integer;
    procedure LookForRandoms; forward;
    procedure AntiBan; forward;
    procedure GetAxeHead; forward;
    procedure ScaredToFight; forward;
    Procedure DeclarePlayers;
    begin
         HowManyPlayers :=1; // set to how many players your going to use
         NumberOfPlayers(HowManyPlayers);
         CurrentPlayer:=0;
                          //For Every new one add 1 to 0 so players[0] would be a 1 instead of 0
                          //So on and so forth
         Players[0].Name :='';//Your RSUsername
         Players[0].Pass :='';//RS Password
         Players[0].Nick :='itez';//3-4 letters of your name but not the first letter
         Players[0].Active:=True;//in use or not
    end;

    Procedure OpenDtm;
    Begin
    logz := DTMFromString('78DA8DD24B0A80300C04D064A758ACBAF0874' +
           '5A905F5FE17341111047192C594C25B64687924A29E5E73ECD975' +
           'F27DE720B1D0E73C264ACCC06C12133049A2056695A80DFB94C06' +
           '82F074C27E181690C4677A9807186EEB9C460300198C2F0A6DE60' +
           'B47B0246FF57FC3727AFC003D1');
    AxeMask := DTMFromString('78DA635465606058CA800618914820AD09245' +
            '613500332671D01350A4062150135D244B84703482C23A0461248' +
            'ACC5AF06001A0805A5');
    end;

    function CheckForEnt: Boolean;  //Fr0ze & Nauman
    var
    i,x,y,  Counter : Integer;
    begin
      if Not(LoggedIn) then Exit;
      Counter := 0;
      While Counter < 8 do
      begin
        i := GetColor(86 + Counter, 17);
        Counter := Counter + 1;
        if SimilarColors(i,119764,60) then
        begin
          Result := true;
          Writeln('We found an ent!! Trying to avoid now..');
            If FindSymbol(x,y,'Fishing Spot') then   //
             Begin                                 //
              MFF(MMX1,MMY2,0,0)        //   Modded by NaumanAkhlaq
              Flag;                              //
              FTWait(61 + Random(5));
              begin
                Writeln('Whew! We avoided the ent.. Carrying on with chopping');
                Exit;
              end;
            end;
            Result := false;
          end;
       end;
    end;

    Procedure ChopTree;
    var x,y: integer;
    begin
         MakeCompass('S');
         if not Loggedin then Exit;
         repeat
               LookForRandoms;
               AntiBan;
               if FindObjCustom(x, y, ['illow'], [willow1, willow2, willow3], 7) then
               begin
                    Mouse(x,y,0,0,false);
                    repeat
                          CheckForEnt;
                          wait(100 + (random(200)));
                          ChooseOption('hop');
                          LookForRandoms;
                          GetAxeHead;
                          AntiBan;
                    until(InvFull)
               end;
         until (InvFull)
    end;

    function Banking: Boolean;
    var
      x,y : integer;
    begin
         if (InvFull) then
         begin
              MakeCompass('N')
              Wait (300 + random(160));
              OpenBankQuiet('db');
              if(FindDTM(logz, x, y, MIX1, MIY1, MIX2, MIY2))then
              begin
                   MMouse(x, y, 5, 5);
              if Isuptext('og') then
              begin
                   ChooseOption('All');
              end;
              CloseBank;
              Wait(150 + random (278));
              MakeCompass('S');
              FreeDTM(logz);
    end;
         end;
    end;


    Procedure WalkToBank;
    var
      x,y : integer;
    PlanFailed:boolean;
    AtBank:boolean;
    begin
         if (InvFull) then
         begin
              if FindSymbol(x,y,'bank') then
              begin
                   GetAxeHead;
                   Mouse(x,y,1,1,true);
                   PlanFailed:=False;
                   AtBank:=True;
                   LookForRandoms;
                   AntiBan;
                   exit;
              end;
              begin
                   If (Not(FindSymbol(x,y,'bank'))) then
                      begin
                           Writeln('Symbol Not Found');
                           RadialWalk(FindRoadColor,0,60,65,1,1);
                      end;
                   end;
              end;
    end;

    Procedure ScaredToFight;
    begin
         FindNormalRandoms;
         if FindFight then
            RunAway('N', True, 1, 15000+random(5000));
            Writeln('Someone Has Beef... Running..');
    end;

    Procedure LookForRandoms;
    begin
         FindNormalRandoms;
         wait(Random(400) + 200);
         FindLamp('Woodcutting');
         Findtalk;
         ScaredToFight;
    end;
    procedure MoveDaCompass; forward;
    Procedure AntiBan;
    begin
         if not LoggedIn then exit;
         case Random(30) of
              1: RandomRClick;
              2: RandomMovement;
              3: HoverSkill('Woodcutting', False);
              4: AlmostLogout;
              5: BoredHuman;
              6: DoEmote(400 +Random(90));
              7: GameTab(1 +Random(12));
              8: MoveDaCompass;
         end;
    end;

    Procedure MoveDaCompass;
    begin
         if not LoggedIn then exit;
         case Random(20) of
              1: MakeCompass('N');
              2: MakeCompass('S');
              3: MakeCompass('E');
              4: MakeCompass('W');
         end;
    end;

    procedure GetAxeHead; //Credits to Nauman
    var
      x, y: integer;
      Axe : string;
    begin
         if (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
         begin;
               writeln('Found An Axe!!')
               Axe := 'Present'
         end;
    if (not (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2))) then
    begin
         Axe := 'Absent';
         writeln('Axe Absent')
         end;
    end;

    begin
         SetupSRL;
         DeclarePlayers;
         OpenDtm;
         ChopTree;
         if Loggedin then Logout;
         LoginPlayer;
         repeat
               ChopTree;
               if InvFull then
               begin
                    WalkToBank;
                    Inc(Players[CurrentPlayer].Banked);
                    if Players[CurrentPlayer].Banked = HowManyLoads then
                    begin
                         NextPlayer(True);
                    end;
               end;
            if not Loggedin then NextPlayer(False);
         until false

    end.

    when using this script the mouse doesnt want to move fore me. I'm the one who made it but i' cant figure out why it is not working

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    username and pass removed from script
    saved you!
    Hy71194 has changed you pass and will PM you the new one
    plese in the future be more careful to remember to remove your password from scripts you post!

  3. #3
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Password was in script.

    Changed and PMed.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  4. #4
    Join Date
    Jun 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Meh good thing that account had nothing on it else i would be extremly angry

  5. #5
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    No problem


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  6. #6
    Join Date
    Nov 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what does this script do?

  7. #7
    Join Date
    Jun 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It is a willow cutter and banker that i'm working on

    EDIT: does any one know why it is not working at all

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

    Default

    Try changing the colors and/or increasing the tolerance.

  9. #9
    Join Date
    Nov 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    o i thought it was well nice job so far

  10. #10
    Join Date
    Jun 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You know the crappy thing is now i can't test it lol some one took the account. But meh i'll just find some auto's later and continue with the script once the levels are up

  11. #11
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Quote Originally Posted by Nite Elf View Post
    You know the crappy thing is now i can't test it lol some one took the account. But meh i'll just find some auto's later and continue with the script once the levels are up
    Check your PM's? I sent you one...


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  12. #12
    Join Date
    Jun 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oops for some weird reason i was reading it fast and i thought you changed my forum password i was think that would be pointless my rs and forum are not the same

  13. #13
    Join Date
    Jan 2008
    Location
    Alberta
    Posts
    727
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Heres one that I fixed most of the standards and I did a couple other fixes you might notice.

    SCAR Code:
    program Cutter;
    {.include srl/srl.scar}

    const
      willow1 = 3754306; //Light side of willow
      willow2 = 530448;  //Darker side not the black part
      willow3 = 1585201; //The trunk of the willow
      HowManyLoads = 50; //Amount of loads before switching


    var
      AxeMask, logz: integer;
      procedure LookForRandoms; forward;
      procedure AntiBan; forward;
      procedure GetAxeHead; forward;
      procedure ScaredToFight; forward;
     
     
     
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // set to how many players your going to use
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
     
      Players[0].Name := '';//Your RSUsername
      Players[0].Pass := '';//RS Password
      Players[0].Nick := '';//3-4 letters of your name but not the first letter
      Players[0].Active := True;//in use or not
     
    end;

    procedure OpenDtm;
    Begin
      logz := DTMFromString('78DA8DD24B0A80300C04D064A758ACBAF0874' +
             '5A905F5FE17341111047192C594C25B64687924A29E5E73ECD975' +
             'F27DE720B1D0E73C264ACCC06C12133049A2056695A80DFB94C06' +
             '82F074C27E181690C4677A9807186EEB9C460300198C2F0A6DE60' +
             'B47B0246FF57FC3727AFC003D1');
      AxeMask := DTMFromString('78DA635465606058CA800618914820AD09245' +
              '613500332671D01350A4062150135D244B84703482C23A0461248' +
              'ACC5AF06001A0805A5');
    end;


    function CheckForEnt: Boolean;  //Fr0ze & Nauman
    var
      i, x, y, Counter : Integer;
    begin
      if not(LoggedIn) then Exit;
      Counter := 0;
      while Counter < 8 do
      begin
        i := GetColor(86 + Counter, 17);
        Counter := Counter + 1;
        if SimilarColors(i, 119764, 60) then
        begin
          Result := true;
          Writeln('We found an ent!! Trying to avoid now..');
          if FindSymbol(x, y, 'Fishing Spot') then   //
          begin                                 //
            MFF(MMX1, MMY2, 0, 0)        //   Modded by NaumanAkhlaq
            FFlag(0);                              //
            FTWait(61 + Random(5));
            begin
              Writeln('Whew! We avoided the ent.. Carrying on with chopping');
              Exit;
            end;
          end;
          Result := false;
        end;
      end;
    end;


    procedure ChopTree;
    var
      x,y: integer;
    begin
      MakeCompass('S');
      if not Loggedin then Exit;
      repeat
        LookForRandoms;
        AntiBan;
        if FindObjCustom(x, y, ['illow'], [willow1, willow2, willow3], 15) then
        begin
          Mouse(x, y, 2, 2, false);
          repeat
            CheckForEnt;
            Wait(100 + (random(200)));
            ChooseOption('hop');
            LookForRandoms;
            GetAxeHead;
            AntiBan;
          until(InvFull)
        end;
      until (InvFull)
    end;


    function Banking: Boolean;
    var
      x,y : integer;
    begin
      if (InvFull) then
      begin
        MakeCompass('N')
        Wait (300 + random(160));
        OpenBankQuiet('db');
        if(DTMRotated(logz, x, y, MIX1, MIY1, MIX2, MIY2))then
        begin
          MMouse(x, y, 5, 5);
          if Isuptext('og') then
          begin
            ChooseOption('All');
          end;
          CloseBank;
          Wait(150 + Random(278));
          MakeCompass('S');
          FreeDTM(logz);
        end;
      end;
    end;


    procedure WalkToBank;
    var
      x, y : integer;
      PlanFailed:boolean;
      AtBank:boolean;
    begin
      if (InvFull) then
      begin
        if FindSymbol(x, y, 'bank') then
        begin
          GetAxeHead;
          Mouse(x, y, 2, 2, true);
          PlanFailed := False;
          AtBank := True;
          LookForRandoms;
          AntiBan;
          exit;
        end;
        begin
          if (not(FindSymbol(x, y, 'bank'))) then
          begin
            Writeln('Symbol Not Found');
            RadialWalk(FindRoadColor, 0, 60, 65, 1, 1);
          end;
        end;
      end;
    end;


    procedure ScaredToFight;
    begin
      FindNormalRandoms;
      if FindFight then
      begin
        RunAway('N', True, 1, 15000 + random(5000));
        Writeln('Someone Has Beef... Running..');
      end;
    end;


    procedure LookForRandoms;
    begin
      FindNormalRandoms;
      Wait(50 + 25);
      FindLamp('Woodcutting');
      FindTalk;
      ScaredToFight;
    end;


    procedure MoveDaCompass; forward;
    procedure AntiBan;
    begin
      if not LoggedIn then exit;
      case Random(70) of
        0: RandomRClick;
        1: RandomMovement;
        2: HoverSkill('Woodcutting', False);
        3: AlmostLogout;
        4: BoredHuman;
        5: DoEmote(400 +Random(90));
        6: GameTab(1 +Random(12));
        7: MoveDaCompass;
      end;
    end;


    procedure MoveDaCompass;
    begin
      if not LoggedIn then exit;
      case Random(4) of
        0: MakeCompass('N');
        1: MakeCompass('S');
        2: MakeCompass('E');
        3: MakeCompass('W');
      end;
    end;


    procedure GetAxeHead; //Credits to Nauman
    var
      x, y: integer;
      Axe : string;
    begin
      if (DTMRotated(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin
        WriteLn('Found An Axe!!')
        Axe := 'Present'
      end;
      if (not (DTMRotated(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2))) then
      begin
        Axe := 'Absent';
        WriteLn('Axe Absent')
      end;
    end;


    begin
      SetupSRL;
      DeclarePlayers;
      OpenDtm;
      if Loggedin then Logout;
      LoginPlayer;
      repeat
        ChopTree;
        AntiBan;
        if InvFull then
        begin
          WalkToBank;
          Inc(Players[CurrentPlayer].Banked);
          if Players[CurrentPlayer].Banked = HowManyLoads then
          begin
            NextPlayer(True);
          end;
        end;
        if not Loggedin then NextPlayer(False);
      until(false);
    end.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Move Mouse Doesnt work?
    By boomhowza in forum OSR Help
    Replies: 13
    Last Post: 01-31-2008, 04:03 AM
  2. My script doesnt move!
    By Rora in forum OSR Help
    Replies: 2
    Last Post: 12-07-2007, 08:12 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
  •