1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
|
type
TAbility = (abStrength, abDexterity, abConstitution, abIntelligence, abWisdom, abCharisma);
TRace = (Human, Elf, HalfElf, Gnome, Halfling, Dwarf);
TRaces = set of TRace;
TAbilityRange = record min, max: byte end;
TSex = (Male, Female);
TDice = record
count, faces: byte;
end;
THeightAndWeight = record
Base: array[TSex] of byte;
Dice: TDice;
end;
const
RacialAbilityRequirements: array[TRace, TAbility] of TAbilityRange = (
{ Strength Dexterity Constitution Intelligence Wisdom Charisma }
{ Human }((min: 3; max: 18), (min: 3; max: 18), (min: 3; max: 18), (min: 3; max: 18), (min: 3; max: 18), (min: 3; max: 18)),
{ Elf }((min: 3; max: 18), (min: 6; max: 18), (min: 7; max: 18), (min: 8; max: 18), (min: 3; max: 18), (min: 8; max: 18)),
{ Half-Elf }((min: 3; max: 18), (min: 6; max: 18), (min: 6; max: 18), (min: 4; max: 18), (min: 3; max: 18), (min: 3; max: 18)),
{ Gnome }((min: 6; max: 18), (min: 3; max: 18), (min: 8; max: 18), (min: 6; max: 18), (min: 3; max: 18), (min: 3; max: 18)),
{ Halfling }((min: 7; max: 18), (min: 7; max: 18), (min: 10; max: 18), (min: 6; max: 18), (min: 3; max: 17), (min: 3; max: 18)),
{ Dwarf }((min: 8; max: 18), (min: 3; max: 17), (min: 11; max: 18), (min: 3; max: 18), (min: 3; max: 18), (min: 3; max: 17))
);
RacialAbilityAdjustements: array[TRace, TAbility] of ShortInt = (
{ STR DEX CON INT WIS CHA }
{ Human }(0, 0, 0, 0, 0, 0),
{ Elf }(0, +1, -1, 0, 0, 0),
{ HalfElf }(0, 0, 0, 0, 0, 0),
{ Gnome }(0, 0, 0, +1, -1, 0),
{ Halfling }(-1, +1, 0, 0, 0, 0),
{ Dwarf }(0, 0, +1, 0, 0, -1)
);
AverageHeight: array[TRace] of THeightAndWeight = (// Inches
{ Human }(Base: (60, 59); dice: (count: 2; faces: 10)),
{ Elf }(Base: (55, 50); dice: (count: 1; faces: 10)),
{ HalfElf }(Base: (60, 58); dice: (count: 2; faces: 6)),
{ Gnome }(Base: (38, 36); dice: (count: 1; faces: 6)),
{ Halfling }(Base: (32, 30); dice: (count: 2; faces: 8)),
{ Dwarf }(Base: (43, 41); dice: (count: 1; faces: 10))
);
AverageWeight: array[TRace] of THeightAndWeight = (// Pounds
{ Human }(Base: (140, 100); dice: (count: 6; faces: 10)),
{ Elf }(Base: (90, 70); dice: (count: 3; faces: 10)),
{ HalfElf }(Base: (110, 85); dice: (count: 3; faces: 12)),
{ Gnome }(Base: (72, 68); dice: (count: 5; faces: 4)),
{ Halfling }(Base: (52, 48); dice: (count: 5; faces: 4)),
{ Dwarf }(Base: (130, 105); dice: (count: 4; faces: 10))
); |
Partager