294
@verb #7407:"statcalc" any none none rdo #60
@program #7407:"statcalc" any none none
if (length(args) != 6)
  return player:tell("You must supply the 6 character attributes in this order: [str] [dex] [con] [wis] [int] [cha]")
endif
total = 18
attribs = {"Strength", "Dexterity", "Constitution", "Wisdom", "Intelligence", "Charisma"}
for i in [1..6]
  args[i] = toint(args[i])
  total = total - (args[i] - 10) - (args[i] > 14) - (args[i] > 15) - (args[i] > 16) * 2 - (args[i] > 17) * 2
  player:tell(attribs[i], ": ", args[i])
endfor
player:tell("Total points remaining: ", total)
"Last modified by Dax (#789) on Tue May  3 14:09:36 2005 MDT."
.

0