SRL Archive - RS Scripts

Ok, this is my first script for a while, so go easy on me :p

Basically it sings Happy Birthday a specified number of times, and gives you the ability to choose what name to sing, and whether or not to sing "Hip Hip Hooray" at the end.

The usefulness of this script is undeniable.

Enjoy,
Rohan

Please post any errors, feedback or suggestions you have on this script.

program HappyBirthdaySpammer;
{.include squig.txt}

(*******Happy Birthday Singer by Rohan********)
(*******************V 1.0*********************)
(****************INSTRUCTIONS*****************)
(*
    *SETUP LINES 16 - 18
    *Drag the crosshair to RuneScape
    *Press Ctrl + Alt + R to start!
                                             *)
(*********************************************)
(*******************SETUP*********************)

Const
Times = 2;  //How Many times to Sing Happy Birthday!
Name = 'YourNameHere'; //What name should be used in the song
UseHipHip = True; //Whether to sing Hip-Hip-Hooray at the end!

(*******************END SETUP*****************)
var Said:integer;
var SaidHip:integer;

(*********************************************)
(*************DO NOT TOUCH BELOW**************)
(*********************************************)

Procedure Sing;
begin
sendkeyshuman('Happy Birthday to you!')
sendkeyshuman(Chr(13));
Wait(3000);
sendkeyshuman('Happy Birthday to you!')
sendkeyshuman(Chr(13));
Wait(3000);
sendkeyshuman('Happy Birthday dear ' + Name + '!')
sendkeyshuman(Chr(13));
Wait(3000);
sendkeyshuman('Happy Birthday to you!')
sendkeyshuman(Chr(13));
Wait(3000);
If (UseHipHip=True) Then
repeat
      sendkeyshuman('Hip Hip!')
      sendkeyshuman(Chr(13));
      Wait(2000);
      sendkeyshuman('Hooray!')
      sendkeyshuman(Chr(13));
      Wait(2000);
      SaidHip:=SaidHip+1;
      until(SaidHip = 3)

Said:=Said+1;
end;

begin

repeat
Sing;
until(Said = Times);
end.

Very Ingenius.

Thanks :D

It took me a while to think of something easy. I think I'll get into SRL scripting soon.

cool! lol

:D Thanks