RPG attributes generator: Difference between revisions

No edit summary
Line 1,092:
begin
good := false;
repeat
gs := GetSix();
gss := gs.Sum;
good := gss >= 75;
 
hvcList := gs.FindAll(
Line 1,106 ⟶ 1,105:
 
Write(Format('Attribs: %s, sum=%d, (%s sum, high vals=%d)', [gs.Join(', '),
gss, GOOD_STR[goodgss >= 75], hvc]));
 
Writeln('good -:= ',(gss SUCCESS_STR[good>= 75) and (hvc > 1)]);
 
Writeln(' - ', SUCCESS_STR[good]);
 
gs.Free;
478

edits