rollAttributes:
total = 0
atleast15 = 0
For i = 1 To 6
  sum = 0
  least = 6
  For j = 1 To 4
    rolls[j] = Math.GetRandomNumber(6)
    sum = sum + rolls[j]
    If rolls[j] < least Then
      least = rolls[j]
    EndIf
  EndFor
  values[i] = sum - least
  total = total + values[i]
  If values[i] >= 15 Then
    atleast15 = atleast15 + 1
  EndIf
EndFor

If total < 75 Or atleast15 < 2 Then
  Goto rollAttributes
EndIf

TextWindow.WriteLine("Strength:     " + values[1])
TextWindow.WriteLine("Dexterity:    " + values[2])
TextWindow.WriteLine("Constitution: " + values[3])
TextWindow.WriteLine("Intelligence: " + values[4])
TextWindow.WriteLine("Wisdom:       " + values[5])
TextWindow.WriteLine("Charisma:     " + values[6])
TextWindow.WriteLine("----------------")
TextWindow.WriteLine("Total:        " + total)