SRL Archive - Outdated Tutorials

In this tutorial I will teach you how to make a proggie with "fences" on it's both sides which can be any kind of characters (I prefer -|| ), and the fences will remain their position even the values of the progress reports change, like trees chopped etc.


It isn't a big thing so it doesn't need too much explanation, so try to look at the Padr in the code, that's how I learnt it.

Program ProgrExample;

Var
  a, b, c, i, ii: Integer;
  
Procedure ProgressReport;
Begin
  Writeln('||----------- ProgressReport -----------||');
  Writeln(Padr('||- A: '+IntToStr(A), 39)+ '-||');
  Writeln(Padr('||- B: '+IntToStr(B), 39)+ '-||');
  Writeln(Padr('||- C: '+IntToStr(C), 39)+ '-||');
  Writeln('||--------------------------------------||');
End;

begin
  ii := 1;
  b := 1;
  c := 1;
  For I := 0 To ii Do
  Begin
    a := a + i - Round(a / 2);
    b := b + Round(b + b / 2 * a);
    c := c + 1 + c * c;
    If I Mod 5 = 0 Then
      ProgressReport;
    ii := ii + 1;
    Wait(250);
  End;
end.

Nice i plan on using this very much because it looks so nice.

Nice Tut:)

xD I really don't think all people will understand this!

Good tut tho ;)

This is not a tutorial :p

I have a defence - there are more of these!

Though yea - I hate the idea about a tutorial this short, but how can you explain it better? For loops in scripts adding spaces to a string is just plain gay since there is a function for it already.

I think you learned these from my caver :p I used them and you posted somewhere "Hmm nice, I will use the padding too" ;)

Nice tut anyways.

http://support.alphasoftware.com/alphafivehelpv8/Functions/PADR().htm

From: n3ss3s
I have a defence - there are more of these!

Though yea - I hate the idea about a tutorial this short, but how can you explain it better? For loops in scripts adding spaces to a string is just plain gay since there is a function for it already.

Make it contain all the kind of string functions?

Thanks for this "tut" :p
I saw them in Hy's caver, but you made me think about this function again, I'll use them in my scripts. Are there any other things Padr can be used for?

MK's pcer's fightn report is a really good example of this

[offtopic]i got a 43 hour proggie with his script (too bad he closed the script the day i started using it)

From: EvilChicken!
Thanks for this "tut" :p
I saw them in Hy's caver, but you made me think about this function again, I'll use them in my scripts. Are there any other things Padr can be used for?

There are some other versions of it that pad it up with 0000's and another one, but I forgot :p. You can use this to display only a part of the extended value's.. But its not really a good use xD

From: mastaraymond
Make it contain all the kind of string functions?

I made one before, which excluded Padr, Padl, Padz and Regex, you can merge the tuts and finish if you want to? :)