#!/usr/bin/perl use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); use Games::Dice qw(roll); use HTML::Template; use Lingua::EN::Numbers::Ordinate; print "content-type: text/html \n\n"; my @Dice = qw(1d4 1d6 1d8 1d10 1d12 1d20); my @Radius = ( "1' or Touch", "5'", "10'", "20'", "50'", "100'" ); my $radius = "in a $Radius[rand @Radius] radius"; my @Time = qw(round turn hour day week month year); my @PM = qw(+ -); my @Resist = ( "immune", "is "roll '1d100'"% magic resistant", "has no resistance" ); my @Wizard_School = qw(Abjuration Air Alteration Conjuration/Summoning Divination Earth Enchantment/Charm Fire Illusion/Phantasm Invocation/Evocation Necromancy Water); my @Cleric_Sphere = qw(Air All Animal Astral Chaos Charm Combat Creation Divination Earth Fire Guardian Healing Law Necromatic Numbers Plant Protection Summoning Sun Thought Time Travelers War Wards Water Weather); my @Spell_Freq = ('common','uncommon','rare','very rare'); my @Magic_Item_Type = ('Magical Liquids','Scrolls','Rings','Rods','Staves','Wands','Books','Gems & Jewelry','Clothing','Boots & Gloves','Girdles & Helms','Bags & Bottles','Dust & Stones','Household Items','Musical Instruments','Weird Stuff','Humorous Items','Armor and Shields','Weapons','Artifacts'); my @Magic_Item_Group = ( "magic items in the $Magic_Item_Type[rand @Magic_Item_Type] group", "all magic items" ); my @Magic_Items = ( "can use all magic items", "can not use any magic items", "can only use magic items in the $Magic_Item_Type[rand @Magic_Item_Type] group", "can not use magic items in the $Magic_Item_Type[rand @Magic_Item_Type] group", "causes $Magic_Item_Group[rand @Magic_Item_Group] to dysfunction $radius", "causes $Magic_Item_Group[rand @Magic_Item_Group] to loose their power $radius", "attracts $Magic_Item_Group[rand @Magic_Item_Group] $radius", "repels $Magic_Item_Group[rand @Magic_Item_Group] $radius", "destroys $Magic_Item_Group[rand @Magic_Item_Group] $radius" ); my @Other_Magic = ( "magic dead", "a $Radius[rand @Radius] radius Wild Magic zone", "a magic attracter", "addicted to magic energies" ); my @ImDm = ( "immune to", "takes ×2 dmg from" ); my @AbilityName = qw(strength dexterity constitution intelligence wisdom charisma); my @Class = qw(Warrior Rogue Priest Wizard Psionisist); my @WeapType = qw(bludgeoning piercing slashing missile); my @WeapMat = qw(bone metal stone wooden); my @WeapMag = ("non-",""); my @Weapon = ( "$WeapType[rand@WeapType]", "$WeapMat[rand@WeapMat]", "$WeapMag[rand@WeapMag]magical" ); my @LNW = ('language',non-weapon proficiency','weapon'); my @NWPlearn = ( "$AbilityName[rand @AbilityName] based", "$Class[rand @Class] specific" ); my @SavThrow = ('Paralyzation','Poison','Death Magic','Rods','Staves','Wands','Petrifaction','Polymorph','Breath Weapon','Spells'); my @SATS = ( "to saving throws vs. $SavThrow[rand @SavThrow]", "Armor Class", "THAC0 modifier", "to Surprise" ); my @WMS = ('all crtical misses','failed backstabs','failed saving throws'); my @Gaze = qw(Paralysis Stone Stun Death); my @Vocal = qw(Deafen Fear Terror Flight); my @Effect1 = qw{Acid Cold Electricity Fire Gas Sonic); my @Effect2 = qw(Acid Cold Electricity Fire Poison Energy Drain); my @Effect3 = qw(Acid Cold Electricity Fire Energy Drain Gas Poison Sonic); my @Attack =( "Breath Weapon - $Effect1[rand @Effect1] for $Dice[rand @Dice] damage", "Gaze Attack - $Gaze[rand @Gaze]", "Touch Attack - $Effect2[rand @Effect2] for $Dice[rand @Dice] damage", "Vocal Attack - $Vocal[rand @Vocal]" ); my @Spells = ( "all Wizard spells", "all Priest spells", "the $Wizard_School[rand @Wizard_School] school of wizard spells", "the $Cleric_Sphere[rand @Cleric_Sphere] sphere of priest spells", "$Effect3[rand @Effect3] spells and spell-like effects", "all spells" ); my @Metal = qw(platinum gold silver copper nickel bronze tin iron steel lead aluminum); my @Gem = qw(diamond ruby sapphire emerald amethyst garnet spinel zircon crystal quartz); my @Emotion = qw(joy sorrow trust fear love hate indifference); my @Align = qw(lawful chaotic good evil neutral) my @Colors = ( "f00;\">red", "ff0;\">yellow", "0f0;\">green", "0ff;\">cyan", "00f;\">blue", "f0f;\">magenta", "fff;\">white", "000;\">black" ); my $Color = ""; my @Animal = ( "amphibian", "insetoid", "$Mammal[rand @Mammal]", "reptilian" ); my @Mammal = ( "bovine", "canine", "caprine", "equine", "feline", "leporine", "lupine", "ovine", "porcine", "ursine", "vulpine" ); my @Animal2 = qw(amphibian insetoid mammallian reptilian); my @Head = ( "an enlarged head", "a shrunken head", "horns" ); my @Size = qw(taller shorter); my @Eyes = ( "glowing eyes", "the appearance of no eyes", "$Color eyes", "eyes in an odd position", "only one eye", roll '1d4+2'" eyes", "infravision

† ultravision if infravision is already present

", #"{If~{Dice~d100}>80?red/green}-weakness color blindness", ##Don't know if statements yet. "photo-sensitivity" ); my @Ears = ( "lobeless ears", "only ear holes", "no ears", "extra-sensitive hearing", roll '1d10*10'"% deafness", roll '1d4+2'" ears" ); my @Nose = ( "an oversized nose", "only nose holes", "no nose", "a nose with an $Animal[rand @Animal] appearance", "an extra-sensitive nose", "no sense of smell" ); my @Mouth = ( "$Color lips", "no lips", "an oversized mouth", roll '1d2+1'" mouths" ); my @Arms = ( "arms that are "roll '1d50'"% longer than average", "arms that are "roll '1d50'"% shorter than average", "no elbow joint", "no wrist joint", roll '1d4+2'" arms (all arms above triple the normal amount are vestigial)", "$Animal[rand @Animal]-like arms" ); my @Hands = ( "elongated fingers", "one less finger on each hand", "double jointed fingers", "animal claws", "snake fingers", "webbed fingers" ); my @Legs = ( "legs that are "roll '1d50'"% longer than average", "legs that are "roll '1d50'"% shorter than average", "no knee joint", "no ankle joint", roll '1d4+2'" legs (all legs above double the normal amount are vestigial)", "$Animal[rand @Animal] legs" ); my @Feet = ( "elongated toes", "one less toe on each foot", "no toes", "animal paws", "claws for toes", "webbed toes" ); my @Skin = ( "fur covered skin", "$Animal[rand @Animal] skin", "fish scales", "feathers", "invisible skin", "$Color skin", "ultra-sensitive skin" ); my @Bones = ( "wooden bones", "$Gem[rand @Gem] bones", "$Metal[rand @Metal] bones", "fragile bones", "unbreakable bones" ); my @Teeth = ( "enlarged teeth", "fangs", "fangs with venom", "$Gem[rand @Gem] teeth", "$Metal[rand @Metal] teeth", "two sets of teeth" ); my @Hair = ( "$Color hair", "odd textured hair", "uncuttable hair", "no hair anywhere", "invisible hair", "$Metal[rand @Metal] hair" ); my @Nails = ( "$Gem[rand @Gem] nails", "$Metal[rand @Metal] nails", "no nails", "unbreakable nails" ); my @Blood = ( "icor for blood", "poisonous blood", "$Color blood" ); my @Body_Part = ( "$Skin[rand @Skin]", "$Bones[rand @Bones]", "$Blood[rand @Blood]", "$Head[rand @Head]", "$Hair[rand @Hair]", "$Eyes[rand @Eyes]", "$Ears[rand @Ears]", "$Nose[rand @Nose]", "$Mouth[rand @Mouth]", "$Teeth[rand @Teeth]", "$Arms[rand @Arms]", "$Hands[rand @Hands]", "$Legs[rand @Legs]", "$Feet[rand @Feet]", "$Nails[rand @Nails]", "$Animal2[rand @Animal2] wings", "$Animal[rand @Animal] tail", "gills" ); my @BodyPart = ( "eye", "lip", "nail", "nose", "hair", "skin", "entire body" ); my @Aura = ( "visible $Color", "$Emotion[rand @Emotion]", "$Align[rand @Align]" ); my @Things = ( "animals", "plants", "constructs", "dragons", "lycenthropes", "undead", "inanimate objects" ); my @Touch =( "befouls", "purifies", "nullifies holy water", "nullifies unholy water" ); my @Sleep = ( "hardly ever wakes up", "needs twice as much sleep", "needs half as much sleep", "does not need sleep", "is an insomniac", "is a narcoleptic", "unable to remember the past after sleeping" ); my @Eat = ( "can't stop eating", "needs twice as much food", "needs half as much food", "does not need to eat", "is carnivorous", "is herbivorous", "is lethargic after eating any amount of food" ); my @Drink = ( "can't stop drinking", "needs twice as much liquid", "needs half as much liquid", "does not need liquids", "is an alcoholic", "can not get drunk", "is intoxicated after injesting any liquid" ); my @SED = ( "$Sleep[rand @Sleep]", "$Eat[rand @Eat]", "$Drink[rand @Drink]", "$Sleep[rand @Sleep] and $Eat[rand @Eat]", "$Sleep[rand @Sleep] and $Drink[rand @Drink]", "$Eat[rand @Eat] and $Drink[rand @Drink]", "$Sleep[rand @Sleep], $Eat[rand @Eat], and $Drink[rand @Drink]" ); my @Divine = ( "Demi-Power", "Lesser Power", "Intermediate Power", "Greater Power", ); my @Mutation = ( "no unusual effect", #"[Ability]
", #"

[SubAbility]

", "casts up to $Spell_Freq[rand @Spell_Freq] $Wizard School[rand @Wizard_School] school spells as a natural ability |Dc=[Dice]| %Dc% {If~%Dc%=1?time/times} (AorAn) $Time[rand @Time]

† see the Wizard Spell progession for maximum spell level.

", "casts up to $Spell_Freq[rand @Spell_Freq] $Cleric Sphere[rand @Cleric_Sphere] sphere spells as a natural ability |Dc=[Dice]| %Dc% {If~%Dc%=1?time/times} (AorAn) $Time[rand @Time]

† see the Priest Spell progession for maximum spell level.

", "$Resist[rand @Resist] to $Spells[rand @Spells]", "$Magic_Items[rand @Magic_Items]", "

is $Other_Magic[rand @Other_Magic]

"' "$ImDm[rand @ImDm] $Weapon[rand @Weapon] weapons", "takes only magical damage", "knows one $LNW[rand @LNW] that parent knows", "knows all {Plural~$LNW[rand @LNW]} that parent knows", "unable to learn {Plural~$LNW[rand @LNW]} parent knows", "unable to learn any language other than racial language", "$PM[rand @PM]{Dice~1d4} on all non-weapon proficiency checks", "unable to learn $NWPlearn[rand @NWPlearn] non-weapon proficiencies", "unable to learn $WeapType[rand @WeapType] weapons", "can not use $WeapMat[rand @WeapMat] weapons" "born already at "ordinate($Dice[rand @Dice])" level", ##Don't know if this will work. "unable to advance past "ordinate(roll '5d6')" level", ##Don't know if this will work. "$PM[rand @PM]"roll '1d10'" $SATS[rand @SATS]", ##Don't know if this will work. "a Wild Magic Surge accompanies $WMS[rand @WMS]", "attacks as a Warrior of the same level. If already a Warrior, attacks at 1 level higher.", "can not make a Critical Hit", #"attracts these followers: ", ##Rangers followers will be in a seperate file, but it is not done yet. "repels all animals $radius", "backstabs as a thief of the same level. If already a thief, backstabs at 1 level higher.", "turns undead as a priest of the same level. If already a priest, turns at 1 level higher.", #"Wild Psionic Talent: (Wild Psionic Talents random roll goes here, there will be a loop)", ##Psionic Talents will be in a seperate file. "unable to use Psionics", #"Special Attack: $Attack[rand @Attack] (|Dc=[Dice]|%Dc% {If~%Dc%=1?time/times} (AorAn) $Time[rand @Time])", "is "roll '1d50'"% $Size[rand @Size] than average", ##Don't know if this will work. "has $Body_Part[rand my @Body_Part]", "can change $BodyPart[rand @BodyPart] color at will to $Color", @BodyPart=roll '1d3'"s turn $Color when magic is used $radius", ##Don't know if this will work. @BodyPart=roll '3d2+1'" turns $Color when magic is used $radius", ##Don't know if this will work. "has (AorAn) $Aura[rand @Aura] aura", "communicates with $Things[rand @Things] $radius", "knows history of $Things[rand @Things] $radius", "is blessed", "is cursed", "touch $Touch[rand @Touch]", @SED=roll '1d3', ##Don't know if this will work. #"[Insanities]", ##Insanities will be in a seperate file. #"has characteristics of (AorAn) [All monsters]", ##All Monsters will be in a seperate file. #"has lycanthropy as a [Lycanthrope]", ##Lycanthrope will be in a seperate file. #"[SED] after seeing (AorAn) [All monsters] for a [Time={Dice~1d4+3}]", ##All Monsters will be in a seperate file. "is $Divine[rand @Divine] - character should be retired" ); print "

Character Mutations

by Dawn M. Burge

All effects are cumulative, and one can be cancelled out by another.

    Loop=$Dice[rand @Dice],
  1. $Mutation[rand @Mutation]
    2. }
";