SRL Archive - Outdated Tutorials

Ok, This has probably been used plenty of times before, but, just for people who dont know, this is my tutorial on how to create a cool looking progress report

1st off Create a new procedure called, introtext

program New;

procedure introtext;
begin;

end;
begin
end.

Now goto this website: http://www.network-science.de/ascii/ <<Its a site where you can make wicked looking ascii art

So youve chose your text and a font, now copy and paste your ascii art within your procedure like so:

program New;

procedure introtext;
begin;
 _            _   
| |_ ___  ___| |_ 
| __/ _ \/ __| __|
| ||  __/\__ \ |_ 
 \__\___||___/\__|
                  
end;
begin
end.

Now you need to add, Writeln(' ') to each line… like so:

program New;

procedure introtext;
begin;
Writeln(' _            _    ')
Writeln('| |_ ___  ___| |_  ')
Writeln('| __/ _ \/ __| __| ')
Writeln('| ||  __/\__ \ |_  ')
Writeln(' \__\___||___/\__| ')
end;

begin
end.

Now add, Wait(500) or what ever time you want in milliseconds (1 second = 1000) inbetween each Writeln

program New;

procedure introtext;
begin;
Writeln(' _            _    ')
Wait(500)
Writeln('| |_ ___  ___| |_  ')
Wait(500)
Writeln('| __/ _ \/ __| __| ')
Wait(500)
Writeln('| ||  __/\__ \ |_  ')
Wait(500)
Writeln(' \__\___||___/\__| ')
end;

begin
end.

Finally just add it to the main loop..

Your finished code should now look like:

program New;

procedure introtext;
begin;
Writeln(' _            _    ')
Wait(500)
Writeln('| |_ ___  ___| |_  ')
Wait(500)
Writeln('| __/ _ \/ __| __| ')
Wait(500)
Writeln('| ||  __/\__ \ |_  ')
Wait(500)
Writeln(' \__\___||___/\__| ')
end;

begin
introtext;
end.

Now run and you will see the effects :(h):
I have attached the script, just incase :D

Have fun

Code tags and this is not kinda PROGRESS Repot

It's kinda an Intro text :)


:)

~Home

:D Oh well, life goes on :p

This is nice, I like it. I modified it a bit to my liking.

I added it to the tut runner I'm working on.

procedure WriteWait(TheText: String; TimeToWait: Integer);
begin
  Writeln(TheText);
  Wait(TimeToWait);
end;

procedure Intro;
begin;
  WriteWait(' _____     _                                             ', 300)
  WriteWait('|_   _|   | |                                            ', 300)
  WriteWait('  | |_   _| |_   _ __ _   _ _ __  _ __   ___ _ __        ', 300)
  WriteWait('  | | | | | __| | ''__| | | | ''_ \| ''_ \ / _ \ ''__|   ', 300)
  WriteWait('  | | |_| | |_  | |  | |_| | | | | | | |  __/ |          ', 300)
  WriteWait('  \_/\__,_|\__| |_|   \__,_|_| |_|_| |_|\___|_|          ', 300)
end;

hey, pretty cool….never thought of using an intro text in my reports…

Nice ASCII maker!
I haven't heard that before..
Thanks for your TuT.

Thanks for showing this-not really a tut on progress report, tho

*bookmark*