1. SRL Junior Member
Join Date
May 2012
Posts
126
Mentioned
1 Post(s)
Quoted
57 Post(s)

## 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}vara,c,d,e,f,g,h,i,j,k,l:integer;b:tbox ;procedure clicker;varT,x,y:integer; beginb := 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;varx,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 mainloopvarx,y:integer;beginWriteLn('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;beginmainloop;end. 2. SRL Junior Member Join Date Jun 2015 Posts 64 Mentioned 2 Post(s) Quoted 21 Post(s) confused how to how ur actually detecting whether it's happy/excited/proud? Simba Code: program Agility; {$I SRL-6/SRL.simba}varAntiBanTimer: 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();beginwriteln('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;beginCleardebug();repeat  checkHappy();  checkExcited();  checkProud();    if AntiBanTimer.isFinished() then    antiBan();  wait(randomRange(100,12000));until falseend.

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.

3. SRL Junior Member
Join Date
May 2012
Posts
126
Mentioned
1 Post(s)
Quoted
57 Post(s)
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. SRL Junior Member
Join Date
Jun 2015
Posts
64
Mentioned
2 Post(s)
Quoted
21 Post(s)
Originally Posted by catsrback321
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.