SRL Archive - RS3 Outdated / Broken Scripts

Okay .. it's pretty basic; a lot of x / y coordinates and clicking about.

program VoteWhore; // IN PROGRESS SCRIPT
const
 LINK_COLOR = 6629347;
var
 NumberOfVotes: integer;
procedure ScrollDown;
 begin
  MoveMouse(1672,926);
  Wait(1500);
  HoldMouse(1672,926,1);
  Wait(1200);
  ReleaseMouse(1672,926,1);
 end;
procedure ScrollUp;
 begin
  MoveMouse(1672,9);
  Wait(1500);
  HoldMouse(1672,9,1);
  Wait(1500);
 end;
procedure SetHouse;
 begin
  MoveMouse(1053,386);
  Wait(1500);
  ClickMouse(1053,386,1); // Refresh
  Wait(1500);
  MoveMouse(1065,413);
  Wait(1500);
  ClickMouse(1065,413,1); // My House
  Wait(5000);
  MoveMouse(755,452);
  Wait(3500);
  ClickMouse(755,452,1); // View My House Members
  Wait(3000);
  MoveMouse(719,549);
  Wait(1500);
  ClickMouse(719,549,1); // Vote For Sisters
  Wait(3000);
  MoveMouse(731,799);
  Wait(300);
 end;
Procedure VoteSisters;
 begin
  ClickMouse(731,799,1); // Vote and Share Bonus
  Wait(400);
 end;
Procedure InCrowd;
 begin
  MoveMouse(497,834);
  Wait(1500);
  ClickMouse(497,834,1); // Done
  Wait(1500);
  MoveMouse(769,413);
  Wait(1500);
  ClickMouse(769,413,1); // Fight
  Wait(1500);
  MoveMouse(766,454);
  Wait(1500);
  ClickMouse(766,454,1); // In Crowd
  Wait(1500);
  MoveMouse(431,810);
  Wait(1500);
  ClickMouse(431,810,1); // 1 Queen Bee
  Wait(1500);
 end;
Procedure InCrowd2;
 begin
  MoveMouse(1053,386);
  Wait(1500);
  ClickMouse(1053,386,1); // Refresh
  Wait(1500);
  MoveMouse(769,413);
  Wait(1500);
  ClickMouse(769,413,1); // Fight
  Wait(1500);
  MoveMouse(821,875);
  Wait(1500);
  ClickMouse(821,875,1); // 6 Most Wealthy
  Wait(1500);
 end;
Procedure InCrowd3;
 begin
  MoveMouse(1053,386);
  Wait(1500);
  ClickMouse(1053,386,1); // Refresh
  Wait(1500);
  MoveMouse(769,413);
  Wait(1500);
  ClickMouse(769,413,1); // Fight
  Wait(1500);
  MoveMouse(450,778);
  Wait(1500);
  ClickMouse(450,778,1); // 3 Queen Bee
  Wait(1500);
 end;
Procedure InCrowd4;
 begin
  MoveMouse(1053,386);
  Wait(1500);
  ClickMouse(1053,386,1); // Refresh
  Wait(1500);
  MoveMouse(769,413);
  Wait(1500);
  ClickMouse(769,413,1); // Fight
  Wait(1500);
  MoveMouse(449,651);
  Wait(1500);
  ClickMouse(449,651,1); // 1 Queen Bee
  Wait(1500);
 end;
procedure VoteStrangers;
 begin
  MoveMouse(456,112);
  Wait(1300);
  ClickMouse(456,112,1);
  Wait(1300);
 end;
procedure MoveOn1;
 begin
  MoveMouse(458,695);
  Wait(1100);
  if(LINK_COLOR = 6629347)then
   begin
    ClickMouse(458,695,1);
    Wait(1100);
   end;
  if not(LINK_COLOR = 6629347)then
   begin;
    repeat
    Inc(NumberOfVotes);
    until(NumberOfVotes>= 50);
   end;
 end;
procedure MoveOn2;
 begin
  MoveMouse(405,780);
  Wait(1100);
  ClickMouse(405,780,1);
  Wait(1100);
 end;
procedure MoveOn3;
 begin
  MoveMouse(407,919);
  Wait(1100);
  ClickMouse(407,919,1);
  Wait(1100);
 end;
begin
 ScrollUp;
 SetHouse;
 NumberOfVotes:= 0;
 repeat
  VoteSisters;
  Inc(NumberOfVotes);
 until(NumberOfVotes>= 25);
 Writeln('Voted House');
 Wait(5000);
 InCrowd;
 ScrollDown;
 NumberOfVotes:= 0;
 repeat
  VoteStrangers;
  Inc(NumberOfVotes);
  MoveOn1;
  VoteStrangers;
  Inc(NumberOfVotes);
  MoveOn2;
  VoteStrangers;
  Inc(NumberOfVotes);
  MoveOn3;
  VoteStrangers;
  Inc(NumberOfVotes);
 until(NumberOfVotes>= 100);
 Writeln('Voted In Crowd 1');
 Wait(500);
 ScrollUp;
 InCrowd2;
 ScrollDown;
 NumberOfVotes:= 0;
 repeat
  VoteStrangers;
  Inc(NumberOfVotes);
  MoveOn1;
  VoteStrangers;
  Inc(NumberOfVotes);
  MoveOn2;
  VoteStrangers;
  Inc(NumberOfVotes);
  MoveOn3;
  VoteStrangers;
  Inc(NumberOfVotes);
 until(NumberOfVotes>= 100);
 Writeln('Voted In Crowd 2');
 Wait(500);
 ScrollUp;
 InCrowd3;
 ScrollDown;
 NumberOfVotes:= 0;
 repeat
  VoteStrangers;
  Inc(NumberOfVotes);
  MoveOn1;
  VoteStrangers;
  Inc(NumberOfVotes);
  MoveOn2;
  VoteStrangers;
  Inc(NumberOfVotes);
  MoveOn3;
  VoteStrangers;
  Inc(NumberOfVotes);
 until(NumberOfVotes>= 100);
 Writeln('Voted In Crowd 3');
 Wait(500);
 ScrollUp;
 InCrowd3;
 ScrollDown;
 NumberOfVotes:= 0;
 repeat
  VoteStrangers;
  Inc(NumberOfVotes);
  MoveOn1;
  VoteStrangers;
  Inc(NumberOfVotes);
  MoveOn2;
  VoteStrangers;
  Inc(NumberOfVotes);
  MoveOn3;
  VoteStrangers;
  Inc(NumberOfVotes);
 until(NumberOfVotes>= 100);
 Writeln('Voted In Crowd 4');
end.

Some things I'd like to improve about it:

1. I'd like it to leave a message every time it votes, but I need to have a way of making sure it doesn't leave a message with the same person twice.

2. I'd like to make it so that it doesn't try to vote for the same person twice.

3. I'd like to make it so that it's not so much x / y so that other people can use it. Right now it really only works for me on my laptop.

How will it know where to click? Screen res, font sizes, background text, etc all change the coords.

Glad you're back though, hope you're enjoying Simba.

Good question!! :)

I figured I'd post a screeny so you guys can see what I'm talking about .. the names are actually links; if you click on them, they take you to that persons page. Right now I'm clicking them using x/y, but it would be awesome to be able to click them and keep track of the names that have been clicked so that I don't repeat clicking them later.

I'd also like to write a message in that white box, but not leave the same message on the same person's whiteboard twice.

lol… im just lurkin this forum - but that screeny made me chuckle..

'*Laughs hysterically and pees my pants too* Oops now we can be embarrassed together :)'

' *rolls around and tickles you until you pee your pants*'


ontopic: good luck with this, but as stated above, it really is a tailor made script. For your PC.

Luke~