Results 1 to 4 of 4

Thread: Lummy winterwarmer agility

  1. #1
    Join Date
    May 2012
    Posts
    126
    Mentioned
    1 Post(s)
    Quoted
    57 Post(s)

    Default Lummy winterwarmer agility

    Hey guys, I know it's not really a first script for me but due to the poor quality I didn't want to post this anywhere else.
    I know it is not polished but it serves a purpose and didn't take long to make. I've been using it, feel free to give it a try.

    To Set Up Properly.
    When you start the script please move your mouse to the top left of the pet parade minigame tab,
    Then the bottom right,
    Next the middle of the happy, excited and proud buttons.
    there is a 4 second gap between each and the script will prompt in the Debug.
    I know there will be easier ways but for me this method works and is very transferable as it is essentially an auto clicker

    Please remember, this isn't a great script so if you do plan on using it please proceed with caution, and feel free to edit and use whatever your want out of this.

    Simba Code:
    program CatsLummyAgilitySctipt;
    {$I SRL-6/SRL.simba}
    var
    a,c,d,e,f,g,h,i,j,k,l:integer;
    b:tbox ;


    procedure clicker;
    var
    T,x,y:integer;


     begin
    b := intToBox(I,J,K,L);
      T := Random(12);
      case T Of
       1..2:begin
              WriteLn('antiban 1');
              Wait(randomRange(700,2000));
              if findColorTolerance(x, y, 1708972, b, 20) then
              begin
               Mouse(point(c + random(5, 5), d + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
               FastClick(MOUSE_LEFT);
               Wait(randomRange(1500,2500));
              end;
              if findColorTolerance(x, y, 1708972, b, 20) then
              begin
               Mouse(point(e + random(5, 5), f + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
               FastClick(MOUSE_LEFT);
               Wait(randomRange(1500,2500));
              end;
              if findColorTolerance(x, y, 1708972, b, 20) then
              begin
               Mouse(point(g + random(5, 5), h + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
               FastClick(MOUSE_LEFT);
               Wait(randomRange(1500,2500));
              end;
             end;
       3..4:begin
             WriteLn('antiban 2');
             Wait(randomRange(1500,2500));
             if findColorTolerance(x, y, 1708972, b, 20) then
             begin
              Mouse(point(g + random(5, 5), h + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
              FastClick(MOUSE_LEFT);
              Wait(randomRange(1500,2500));
             end;
             if findColorTolerance(x, y, 1708972, b, 20) then
             begin
              Mouse(point(e + random(5, 5), f + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
              FastClick(MOUSE_LEFT);
              Wait(randomRange(1500,2500));
             end;
             if findColorTolerance(x, y, 1708972, b, 20) then
             begin
              Mouse(point(c + random(5, 5), d + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
              FastClick(MOUSE_LEFT);
              Wait(randomRange(1500,2500));
             end;
            end;
       5..6:begin
             WriteLn('antiban 3');
             Wait(randomRange(1500,2500));
             if findColorTolerance(x, y, 1708972, b, 20) then
             begin
              Mouse(point(e + random(5, 5), f + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
              FastClick(MOUSE_LEFT);
              Wait(randomRange(1500,2500));
             end;
             if findColorTolerance(x, y, 1708972, b, 20) then
             begin
              Mouse(point(c + random(5, 5), d + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
              FastClick(MOUSE_LEFT);
              Wait(randomRange(1500,2500));
             end;
             if findColorTolerance(x, y, 1708972, b, 20) then
             begin
              Mouse(point(g + random(5, 5), h + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
              FastClick(MOUSE_LEFT);
              Wait(randomRange(1500,2500));
             end;
            end;
       7..8:begin
             WriteLn('antiban 4');
             Wait(randomRange(700,2000));
             if findColorTolerance(x, y, 1708972, b, 20) then
             begin
              Mouse(point(g + random(5, 5), h + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
              FastClick(MOUSE_LEFT);
              Wait(randomRange(1500,2500));
             end;
             if findColorTolerance(x, y, 1708972, b, 20) then
             begin
              Wait(randomRange(1500,2500));
              Mouse(point(c + random(5, 5), d + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
              FastClick(MOUSE_LEFT);
              Wait(randomRange(1500,2500));
             end;
             if findColorTolerance(x, y, 1708972, b, 20) then
             begin
              Mouse(point(e + random(5, 5), f + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
              FastClick(MOUSE_LEFT);
              Wait(randomRange(1500,2500));
             end;
            end;
       9..10:begin
             WriteLn('antiban 5');
             Wait(randomRange(700,2000));
             if findColorTolerance(x, y, 1708972, b, 20) then
             begin
              Mouse(point(c + random(5, 5), d + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
              FastClick(MOUSE_LEFT);
              Wait(randomRange(1500,2500));
             end;
             if findColorTolerance(x, y, 1708972, b, 20) then
             begin
              Mouse(point(g + random(5, 5), h + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
              FastClick(MOUSE_LEFT);
              Wait(randomRange(1500,2500));
             end;
             if findColorTolerance(x, y, 1708972, b, 20) then
             begin
              Mouse(point(e + random(5, 5), f + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
              FastClick(MOUSE_LEFT);
              Wait(randomRange(1500,2500));
             end;
            end;
       11..12:begin
              WriteLn('antiban 6');
              Wait(randomRange(700,2000));
              if findColorTolerance(x, y, 1708972, b, 20) then
              begin
               Mouse(point(e + random(5, 5), f + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
               FastClick(MOUSE_LEFT);
               Wait(randomRange(1500,2500));
              end;
              if findColorTolerance(x, y, 1708972, b, 20) then
              begin
               Mouse(point(g + random(5, 5), h + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
               FastClick(MOUSE_LEFT);
               Wait(randomRange(1500,2500));
              end;
              if findColorTolerance(x, y, 1708972, b, 20) then
              begin
               Mouse(point(c + random(5, 5), d + random(-20, 20)), MOUSE_MOVE, MOUSE_HUMAN);
               FastClick(MOUSE_LEFT);
               Wait(randomRange(1500,2500));
              end;
             end;
       end;
     end;


    procedure colourfinder;
    var
    x,y:integer;
    begin
     Wait(randomRange(1500,3500));
    b := intToBox(I,J,K,L);
     repeat
     clicker;
     Wait(randomRange(1500,3500));
     until findColorTolerance(x, y, 1041926, b, 10);
    end;

    procedure mainloop
    var
    x,y:integer;
    begin
    WriteLn('Please place your mouse in the top left corner of your minigames tab');
     Wait(4000);
     GetMousePos(I, J);
     WriteLn('Now the bottom right corner');
     Wait(4000);
     GetMousePos(K, L);
     WriteLn('Next place your mouse in the centre of the Happy button');
     Wait(4000);
     GetMousePos(C, D);
     WriteLn('Now the centre of the Excited button');
     Wait(4000);
     GetMousePos(E, F);
     WriteLn('Finally, the Proud button');
     Wait(4000);
     GetMousePos(G, H);
     b := intToBox(I,J,K,L);
     repeat
      Wait(randomRange(700,2000));
      if findColorTolerance(x, y, 1708972, b, 20) then
      begin
       Wait(randomRange(700,2000));
       colourfinder;
       Inc (A);
      end else
      begin
       MouseOffClient(OFF_CLIENT_RANDOM, randomRange(1000, 18000));
       WriteLn('still green');
      end;
     until A>100000;
    end;

    begin
    mainloop;
    end.

  2. #2
    Join Date
    Jun 2015
    Posts
    64
    Mentioned
    2 Post(s)
    Quoted
    21 Post(s)

    Default

    confused how to how ur actually detecting whether it's happy/excited/proud?

    Simba Code:
    program Agility;
      {$I SRL-6/SRL.simba}
    var
    AntiBanTimer: TCountDown;

    function checkHappy(): boolean;
    const
      HAPPY_COLOR = 527320;
    begin
      if result := getColor(715, 368) = HAPPY_COLOR then
      begin
      writeln('switch to happy');
      wait(randomRange(200,5000));
      mousebox(intToBox(651, 386, 752, 405), mouse_left, mouse_human);
      end;
    end;

    function checkExcited(): boolean;
    const
      EXCITED_COLOR = 255;
    begin
      if result := getColor(719, 375) = EXCITED_COLOR then
      begin
      writeln('switch to excited');
      wait(randomRange(200,5000));
      mousebox(intToBox(644, 432, 751, 451), mouse_left, mouse_human);
      end;
    end;

    function checkProud(): boolean;
    const
      PROUD_COLOR = 527047;
    begin
      if result := getColor(704, 372) = PROUD_COLOR then
      begin
      writeln('switch to proud');
      wait(randomRange(200,5000));
      mousebox(intToBox(645, 478, 752, 495), mouse_left, mouse_human);
      end;
    end;

    procedure antiBan();
    begin
    writeln('hi');
      case random(1500) of
        0..50: mouseMovingObject;
        51..90: sleepAndMoveMouse(randomRange(500, 2000));
        91..120: wait(randomRange(500, 3000));
        121..170:
          begin
            mouseOffClient(OFF_CLIENT_RANDOM);
            wait(randomRange(3000, 7000));
          end;
        171..200: randomMouseSpeed(2, 25, 35);
      end;
      AntiBanTimer.setTime(randomRange(5000, 20000));
    end;

    begin
    Cleardebug();
    repeat
      checkHappy();
      checkExcited();
      checkProud();
        if AntiBanTimer.isFinished() then
        antiBan();
      wait(randomRange(100,12000));

    until false
    end.

    here's one i made earlier

    oh i ran it and it just cycles through each option till it the red text isn't there anymore, maybe try my method? it's just hard coded pixels which are slightly dif for each "HAPPY" "PROUD" "EXCITED"
    Last edited by Calluminati; 01-28-2020 at 01:46 AM.
    hi it me

  3. #3
    Join Date
    May 2012
    Posts
    126
    Mentioned
    1 Post(s)
    Quoted
    57 Post(s)

    Default

    I don't understand how yours detects either are there slight colour differences between the words? also, you seem to be looking for the colours at a set coordinate, but they move around a bit so I'm not sure how you track them.
    I'm not the best at this, I'm surprised I managed to make what I did tbh

  4. #4
    Join Date
    Jun 2015
    Posts
    64
    Mentioned
    2 Post(s)
    Quoted
    21 Post(s)

    Default

    Quote Originally Posted by catsrback321 View Post
    I don't understand how yours detects either are there slight colour differences between the words? also, you seem to be looking for the colours at a set coordinate, but they move around a bit so I'm not sure how you track them.
    I'm not the best at this, I'm surprised I managed to make what I did tbh
    the words dont move around at all for me so i just pick a single pixel in each word (red) and run the script a while with some debug to ensure they don't overlap and i'm good.
    hi it me

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
  •