The Intern
2008-01-31 04:20:58
My first script, easy and simple;)
2008-01-31 04:20:58
2008-01-31 08:19:55
2008-01-31 10:30:07
2008-01-31 10:47:40
2008-01-31 12:26:57
2008-01-31 13:19:12
2008-01-31 13:22:13
{Simple talker by The Intern from SRL-Forums.com}
program InternTalker;
{.include srl/srl.scar}
Var
TimesTalked : Integer;
Const
Times = 15; {Times to repeat text,text2,text3}
Text =('The Intern');
Text2 =('The Intern');
Text3 =('The Intern');
procedure WalkieTakie;
begin
Wait(500);
TypeSend (Text);
TimesTalked := TimesTalked + 1;
Wait(300);
TypeSend (Text2);
TimesTalked := TimesTalked + 1;
Wait(250);
TypeSend (Text3);
TimesTalked := TimesTalked + 1;
end;
Procedure Proggie;
begin
Writeln ('Ty for using this script made by The Intern =)')
Writeln ('We have said ' + IntToStr(TimesTalked) + 'Lines');
end;
begin
SetupSRL;
Repeat
WalkieTakie;
Proggie;
Until(Times >= Times);
end.
2008-01-31 15:16:27
// Intern Talker //
// Made by: The Intern //
// Last modified: 31/01/2008 //
// This is basically a script that says up //
// to 3 differents messages continuously //
// To set it up write your messages in the //
// shown areas (line x-y). Start this script //
// logged in. Hit play and it will talk //
// perfectly! //
program InternTalker;
{.include srl/srl.scar}
Var
TimesTalked : Integer;
Const
Times = 15; {Times to repeat text,text2,text3}
Text =('The Intern');//enter message here
Text2 =('The Intern');//enter message here
Text3 =('The Intern');//enter message here
procedure WalkieTakie;
begin
Wait(500);
TypeSend (Text);
TimesTalked := TimesTalked + 1;
Wait(300);
TypeSend (Text2);
TimesTalked := TimesTalked + 1;
Wait(250);
TypeSend (Text3);
TimesTalked := TimesTalked + 1;
end;
Procedure Proggie;
begin
Writeln ('Ty for using this script made by The Intern =)')
Writeln ('We have said ' + IntToStr(TimesTalked) + 'Lines');
end;
begin
SetupSRL;
Repeat
WalkieTakie;
Proggie;
Until(Times >= Times);
end.
I may have messed up the brakcets a bit…
2008-01-31 15:40:53
2008-01-31 16:11:51
From: FagetHax0r
Its nice i couldtn make something like this But u should make a REALLY FAST Spammer
On Rs u cant Talk relaly Fast But just for other Game'' s I already searched really Long but couldnt Find it
So Could you make on for me ?.
2008-01-31 16:17:15
2008-01-31 16:30:14
From: Stur Pure
Haha, funny how most people that are "correcting" scripts post the entire re-write (including myself :D). Well, I am going to say it is a nice first, because i said that to similar script (why are 50% of all first scripts auttotalkers? lol). Try something harder next time (the harder the stuff, the bigger the compliments ;) )
Good Luck,
Stur Pure
2008-01-31 17:25:21
From: The Intern
Nah nicley done, but its a typer even I know how a typer works :D
2008-02-01 02:12:17
2008-02-01 02:49:23