SRL Archive - First Scripts

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.

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.

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

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"

I don't understand how yours detects either :D 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

From: catsrback321
I don't understand how yours detects either :D 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.