Bigfish58
10-20-2006, 03:11 PM
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
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