Results 1 to 9 of 9

Thread: Random Mouse Movements after Completing a Full Procedure Loop

  1. #1
    Join Date
    Feb 2013
    Location
    Narnia
    Posts
    615
    Mentioned
    8 Post(s)
    Quoted
    252 Post(s)

    Default Random Mouse Movements after Completing a Full Procedure Loop

    It appears as I add more code to my script, and it restarts all the procedures over, the mouse goes berzerk and 'traces' the MS before repeating the procedures. How do I make it or limit it from doing that for obvious anti-ban purposes

    Thanks in advanced!

  2. #2
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    post your anti ban procedure it is probably being called to often

  3. #3
    Join Date
    Feb 2013
    Location
    Narnia
    Posts
    615
    Mentioned
    8 Post(s)
    Quoted
    252 Post(s)

    Default

    Quote Originally Posted by RJJ95 View Post
    post your anti ban procedure it is probably being called to often
    I do not have specific antiban procedure but here is my script

    Code:
    //{$DEFINE SMART8}
    {$I SRL/SRL.Simba}
    {$I SRL/SRL/Misc/Debug.Simba}
    {$I P07Include.Simba}
    
     var
        TargetDTM, TargetViewDTM, BronzeArrowDTM, CloseDTM, AgainDTM, ScoreDTM, ClicktoContinueDTM, Continue2DTM, SureDTM, x, y, a, b, i, j, mouseclickcount, targetviewboxtimer, competitionsplayedcount: integer;
    
     const
        judgecolor1 = 3364126;
        judgecolor2 = 3033937;
        judgecolor3 = 3763576;
    
    procedure P07_DeclarePlayer;
    begin
      P07_Playername:=''; //enter your username
      P07_Playerpass:=''; //enter your password
    end;
    
    procedure Open_Inv_Tab;
    begin
      if(not P07_TabInventoryTab(4)) then
      begin
        P07_TabInventoryTab(4);
      end;
    end;
    
    procedure Start_Comp;
    begin
      wait(randomrange(500,1000));
      begin
        case random(10000) of
        1..50: wait(randomrange(3000,6000));
        200..276: wait(randomrange(7000,12000));
        9875..10000: P07_HoverSkill('ranged', randomrange(3000,5000));
        end;
      end;
      //P07_MakeCameraAngleHigh; uncomment this if you are having problems with guards and need to make the camera angle high
      begin
        if P07_FindObjCustom(x, y, ['omp', 'tition', 'judge'], [judgecolor1, judgecolor2, judgecolor3], 5) then
        begin
          MMouse(x,y,5,5);
          ClickMouse2(mouse_left);
          writeln('');
          writeln('Talking to the Judge...');
        end
        else
        begin
          writeln('Unable to find the Judge, looking again...');
          P07_MakeCameraAngleHigh;
          Start_Comp;
        end;
      end;
    end;
    
    procedure Click_to_Continue;
    begin
      wait(randomrange(1000,1500));
      AgainDTM := DTMFromString('m1gAAAHic42JgYNgHxFuA+BoQnwbig0D8F4hzGRkYUoDYD4jVgXgpEM8G4gVAPB2IZwFxARCXA3EtEOcAcT4QYwMNWDCxgJFIjAAA6o4OCg==');
      ClicktoContinueDTM := DTMFromString('mbQAAAHicY2VgYDBkZGB4CaQrgDQfEGsD8REgPgSlQfgoEDMw/EfBp3dNZWAFstAxIxYMBgApxQvh');
      Continue2DTM := DTMFromString('mrAAAAHic42BgYLBiZGCIBmJRIP4A5FcC6e9AmgNI2wPxESA+BKUPAPFxKD4Cxf///8eKT++aynBy22QGQoCRAIYBALyAH6o=');
      SureDTM := DTMFromString('mrAAAAHic42BgYGBmZGDYC6TdgPRbIH0HiPWB7MdAWhxIdwJxBxD3AHELlIbhLiDGBS4fWshw6eAcBlYgGx9mJIBhAADX4gzx');
    
      if FindDTM(AgainDTM, x, y, 10, 351, 511, 470) then
      begin
        writeln('It appears we are already in a Competition! Resuming...');
        P07_MakeCameraAngleLow;
          begin
            FreeDTM(AgainDTM);
          end;
      end
      else
      begin
        begin
          if FindDTM(ClicktoContinueDTM, x, y, 10, 351, 511, 470) then
            begin
            MMouse(x,y,5,5);
            ClickMouse2(mouse_left);
            wait(randomrange(600,1000));
            end;
        end;
        begin
          if FindDTM(SureDTM, x, y, 10, 351, 511, 470) then
            begin
              MMouse(x,y,5,5);
              ClickMouse2(mouse_left);
              wait(randomrange(600,1000));
            end;
        end;
        begin
          if FindDTM(ClicktoContinueDTM, x, y, 10, 351, 511, 470) then
            begin
              MMouse(x,y,5,5);
              ClickMouse2(mouse_left);
              wait(randomrange(600,1000));
              end;
        end;
        begin
          if FindDTM(Continue2DTM, x, y, 10, 351, 511, 470) then
            begin
              MMouse(x,y,5,5);
              ClickMouse2(mouse_left);
              wait(randomrange(600,1000));
              end;
        end;
    writeln('The competition has started! Wielding the Bronze arrows...');
    end;
    begin
      FreeDTM(ClicktoContinueDTM);
      FreeDTM(SureDTM);
      FreeDTM(Continue2DTM);
    end;
    wait(randomrange(600,900));
    end;
    
    procedure Wield_Arrow;
    begin
      BronzeArrowDTM := DTMFromString('mggAAAHicY2NgYDjBxMBwCIj3AvFxID4LxNuBmImRgeE/AwT/BeJ/QCwAFHM2lgXjeE8dMK2nIsKQK8LLwA+Ux4YZcWAIAACNZgyT');
      if FindDTM(BronzeArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
        MMouse(x,y,5,5);
        ClickMouse2(mouse_left);
        wait(randomrange(300,500));
        end
      else
      begin
        writeln('We did not see any Bronze arrows in your inventory! Checking your equipment...');
        MMouse(675,184,10,10); //equipment
        ClickMouse2(mouse_left);
        wait(randomrange(50,300));
        if FindDTM(BronzeArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          P07_TabInventoryTab(4);
        end;
      end;
      FreeDTM(BronzeArrowDTM);
    end;
    
    procedure Fire_Target;
    begin
      P07_MakeCameraAngleLow;
      P07_MakeCompassDegree(randomrange(304,311));
      writeln('Compass Angle set for:' + IntToStr(P07_GetCompassAngle));
      wait(randomrange(300,500));
      TargetDTM := DTMFromString('mlwAAAHicY2dgYPgDxD+B+B+U/Q2IGRghYvJArAvEekCsCcTKUGwIxM9vRzNs2tjDEJkizpAVZsMQnTWfYW2YP0N8rhEDF1AeF2bEg6EAAKUoEN4=');
      TargetViewDTM := DTMFromString('m6wAAAHic42ZgYFgKxHuA+BoQvwFiJkYGBjEgLQrEnxgheBMQPwPi5UCx1UC8DIiXAPEKILYBYjtGBD0PSGsBMcP/mQwMZ/4DMZDd8Z8ByGLwdDBhCA4JhOP/q1yAoowMpABGEjASAAD3dhgy');
      CloseDTM := DTMFromString('m6wAAAHic42ZgYHjKyMDwEIhfIdH3oPgtEL8G4qVAdTeAWBOIVYBYD4pVgVgJiA2hGMReAcQrGUCAEQMXJLoxhHiagzGIzfB/JgPDGQYGVgbCGAYwTcWNkQAAfIsS3Q==');
      ScoreDTM := DTMFromString('mAAEAAHic42FgYPgPxB+AmJ+RgeEzkP4JxCyMEP5fIDsXSKcAsSgQ+wHxZCCeBKX7obgPShcAcTkQ1wJxDRDnADE+0ICEL+ydDaZJBYwkYmQAAC0aEME=');
    
      if FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
      begin
      writeln('Firing at Target!');
      MMouse(x,y,0,0);
      wait(randomrange(400,900));
      ClickMouse(x,y,mouse_left);
        repeat
          if FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
            begin
             //MMouse(x,y,5,5); uncomment this if you want to spam click all over the target rather then one spot
             //ClickMouse2(mouse_left); and comment the clickmouse(x,y,mouse_left) below.
              ClickMouse(x,y,mouse_left);
              wait(randomrange(80,105)); //if you prefered 1.3[not spam clicking the target] change these numbers to (2300,2500) to slow the click rate down
            end
          else
          if FindDTM(TargetViewDTM, a, b, MSX1, MSY1, MSX2, MSY2) then
          begin
            targetviewboxtimer := 0;
            repeat
              targetviewboxtimer := targetviewboxtimer + 1;
              if(targetviewboxtimer > 50) then
                begin
                  if FindDTM(CloseDTM, i, j, MSX1, MSY1, MSX2, MSY2) then
                  begin
                    MMouse(i,j,1,1);
                    ClickMouse2(mouse_left);
                    MMouse(x,y,5,5);
                  end;
                end;
            until(FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2));
          end;
        until(FindDTM(ScoreDTM, x, y, 10, 351, 511, 470));
          begin
            if FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
              begin
                MMouse(x,y,5,5);
                wait(randomrange(300,700));
                ClickMouse2(mouse_left);
                wait(randomrange(200,600));
              end;
          end;
      end
      else
      begin
        FreeDTM(TargetDTM);
        writeln('Unable to find Target... Trying again...');
        Fire_Target;
      end;
      competitionsplayedcount := competitionsplayedcount + 1;
      writeln('Competitions Played:' + IntToStr(competitionsplayedcount) +'!');
      FreeDTM(TargetDTM);
      FreeDTM(CloseDTM);
      FreeDTM(ScoreDTM);
      FreeDTM(TargetViewDTM);
    end;
    
    begin
    //SetupSRL;
    P07_DeclarePlayer;
    SetupP07Include;
    ActivateClient;
    ClearDebug;
    Wait(1000);
    If (Not P07_LoggedIn) then
    begin
      P07_LogInPlayer;
    end;
    repeat
    Open_Inv_Tab;
    Start_Comp;
    Click_to_Continue;
    Wield_Arrow;
    Fire_Target;
    until(competitionsplayedcount = 500);
      begin
      writeln('Number of Competitions completed!');
      writeln('Logging out...');
      MMouse(644,483,5,5);
      ClickMouse2(mouse_left);
      wait(randomrange(500,1500));
      MMouse(633,378,5,5)
      ClickMouse2(mouse_left);
      end;
    TerminateScript;
    end.

  4. #4
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    the script might have a problem with it contact the auther

  5. #5
    Join Date
    Feb 2013
    Location
    Narnia
    Posts
    615
    Mentioned
    8 Post(s)
    Quoted
    252 Post(s)

    Default

    i am the author lol

  6. #6
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    You are? lol well theres no much I can do since I don't have RS mems but I would suggest using TPA to locate the target instead of a DTM much more accurate

  7. #7
    Join Date
    Feb 2013
    Location
    Narnia
    Posts
    615
    Mentioned
    8 Post(s)
    Quoted
    252 Post(s)

    Default

    yes lol. could it be the way i free my dtms? im new here but i think i freed them right

    thanks for the suggestion!

    please escort someone here if you think they know the answer

  8. #8
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    i gotta eat so sorry for short response but try making a procedure to load the dtms and when the script is done free them


    i doubt that is the problem though

  9. #9
    Join Date
    Feb 2013
    Location
    Narnia
    Posts
    615
    Mentioned
    8 Post(s)
    Quoted
    252 Post(s)

    Default

    still looking for help!

Thread Information

Users Browsing this Thread

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

Posting Permissions

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