RPG attributes generator: Difference between revisions
→{{header|Delphi}}
MaiconSoft (talk | contribs) No edit summary |
MaiconSoft (talk | contribs) |
||
Line 1,092:
begin
good := false;
repeat
gs := GetSix();
gss := gs.Sum;
hvcList := gs.FindAll(
Line 1,106 ⟶ 1,105:
Write(Format('Attribs: %s, sum=%d, (%s sum, high vals=%d)', [gs.Join(', '),
gss, GOOD_STR[
Writeln(' - ', SUCCESS_STR[good]);
gs.Free;
|