Diamondhero6's First SRL Auto-Talker

[diamondhero6]

Ok here it is.

//directions
//put what you want to say in lines  9-12
//press play to start
//press F11 to stop
program New;
{.include SRL\SRL.Scar}

const
ms1='cyan:wave2:selling full rune-your rs name here';//put ur rs name after the -
ms2='white:wave2:selling full rune-your rs name here';
ms3='flash2:wave2:selling full rune-your rs name here';
ms4='green:wave2:selling full rune-your rs name here';

procedure namechange(wstatus :String);
begin
status(wstatus);
GetApplication.Title:=wstatus;
GetSelf.Caption:=wstatus;
end;


procedure nc4(wstatus:String; time:Integer);
begin
namechange(wstatus);
wait(time);
end;

procedure nc(wstatus:String);
begin
nc4(wstatus, 250);
end;

procedure flashx;
begin
nc4('Auto-Talker',200);
nc4('By Diamondhero6',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero6',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero6',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero6',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero6',200);
end;

procedure Animate;
begin
nc(' ');
nc('A');
nc('Au');
nc('Aut');
nc('Auto');
nc('Auto- ');
nc('Auto-T');
nc('Auto-Ta');
nc('Auto-Tal');
nc('Auto-Talk');
nc('Auto-Talke');
nc('Auto-Talker');
nc('--------------');
nc('Auto-Talker');
nc('--------------');
nc('By Diamondhero6');
flashx;
nc4('Auto-Talker - By Diamondhero6',5);
end;


procedure ThankYou;
begin
writeln('-------Auto-Talker-------')
writeln('-----by Diamondhero6-----')
writeln('- I know u will like it -')
writeln('@@##$$  Thank you  $$##@@')
writeln('         ENJOY           ')
end;

procedure send;
begin
case random(4) of
0:TypeSend(ms1)
1:typesend(ms2)
2:typesend(ms3)
3:typesend(ms4)
end;
end;

begin
SetupSrl
cleardebug
Thankyou
Animate
ActivateClient
repeat
send
wait(1000)
until(isfkeydown(11))
end.