Ilikepie1995
2007-07-29 14:04:32
This Script Will Be Telling Jokes To people In Rs.
Currently It Only Tells 2 Jokes.
Post Other Jokes Here And I Mite Add Them To Script.
Wat this script does is amkes people happier :D
Currently It Only Tells 2 Jokes.
Post Other Jokes Here And I Mite Add Them To Script.
Program Kidding;
{.include SRL/SRL.scar}
//-This Script Will Tell Jokes To People In Runescape-\\
//=Made By ILIKEPIE1995=\\
//Current Version -= 1.0 =-\\
////////////////////////////////////////////////////////////////////////////////
//This Script Will Tell 2 Jokes\\
//Next Version It Will Tell More Jokes\\
////////////////////////////////////////////////////////////////////////////////
//Drag The Cross-Hair Into The Rs Window\\
//Click Run And Read The Jokes\\
//BE LOGGED IN BECAUSE THIS SCRIPT WONT LOG YOU IN\\
////////////////////////////////////////////////////////////////////////////////
Procedure Setup;
begin
SetupSRL;
GameTab(4);
Wait(500+random(300));
PerfectNorth;
Wait(100+random(300));
HighestAngle;
WriteLn('Starting To Tell Jokes');
TypeSend('Hey People Wanna Hear Some Jokes?');
end;
Procedure AJoke;
begin
WriteLn('Joke Number -=1=-');
Wait(2600+random(200));
TypeSend('Once apon a time, a boy asked a girl:');
Wait(500+random(200));
TypeSend('"Will you marry me?", but the girl said:"no"');
Wait(100+random(500));
TypeSend('Then the boy lived happily ever after');
end;
Procedure BJoke;
begin
WriteLn('Joke Number -=2=-');
Wait(2000+random(1000));
TypeSend('My god, is that your face?');
Wait(200+random(300));
TypeSend('Omg i feel sorry for you man.');
Wait(300+random(200));
TypeSend('Nah just kidding your ok man, hahahahahaha');
Wait(200+random(300));
TypeSend('Naw,naw,your ok man ahahhahaha');
end;
begin
Setup;
AJoke;
BJoke;
end.Wat this script does is amkes people happier :D