SRL Archive - First Scripts

My first script- RuneScape opener! For people who are too lazy to go to RuneScape themselves! Just run SCAR, and then click the green run button, and voila! RuneScape is open!

I know it probably is pointless, but it is my first script. Please comment!!

Copy and paste into SCAR!

//MADE BY SOUTHPAW63!!!!!!!!
//Just run the script!! This script opens up RuneScape for you :P
//It is my first script! Comment on my thread!!
//You can modify this to fit your computer screen :)
program RuneScapeOpener;
begin
  ClearDebug;
  Writeln('Clicking the Start Button');
  ClickMouse(-109, 748, True);     //Clicks the Start Button
  Wait(1500);
  Writeln('Clicking My Documents');
  ClickMouse(216, 332, True);    //Clicks My Documents
  Wait(2000);
  Writeln('Clicking the Address Bar');
  ClickMouse(-36, 137, True);    //Clicks the Address Bar
  Wait(1000);
  Writeln('Opening RuneScape');
  SendKeys('Runescape.com');       //Type My Computer
  Wait(100);
  SendKeys(Chr(13));             //Presses the Enter Key
end.

This only works on your computer, because screen sizes are different for everyone.

Ooooh Crap.. Lol

It would be impossible to make a co-ordinate clicker for this since everyone's PC is different, using images or colors would also encounter the same problem.

I would just load SMART from SCAR as it is a much simpler solution.

program RunescapeOpener;
{.include SRL\SRL\misc\Smart.scar}

const
  WorldNumber = 83; //Change this to the world you wish to be loaded.
  SmartSigned = True; //True to use signed java applet, false to use unsigned.

begin
  SmartSetupEx(WorldNumber, True, SmartSigned, False);
end.

Hope this helps!

Wow. I remember when i was making one of these…:HOW NOOBY:….

//You cannot modify this without my permission!!!

^ : No fool in the right mind would even try running the script, plus since this is your first script people will modify and post back.

I also fixed some stuff for you like: - Standards -Added Procedures -CLEANER mainloop

program RuneScapeOpener;

Procedure ClickStart;
begin
  Writeln('Clicking the Start Button');
  ClickMouse(-109, 748, True);
  Wait(1500);
end;

Procedure ClickDoc;
begin
  Writeln('Clicking My Documents');
  ClickMouse(216, 332, True);
  Wait(2000);
end;

Procedure ClickAddress;
begin
  Writeln('Clicking the Address Bar');
  ClickMouse(-36, 137, True);
  Wait(1000);
end;

Procedure OpenRS;
begin
  Writeln('Opening RuneScape');
  SendKeys('Runescape.com');
  SendKeys(Chr(13));
end;

begin
  ClearDebug;
  ClickStart;
  ClickDoc;
  ClickAddress;
  OpenRS;
  Writeln('Thanks, Smarter Child');
end.

RAWR!

if(Bold)then
  LowerCase;

>.<

it should be procedure not Procedure.. ;)

Thanks for the constructive comments guys.

lawl funniest script i've seen :P