var aVocab = new Array();

var intIncr
var intCat

intCat =0
intIncr=0

//The data stored is pretty simple.  It works like this:
//
// The aVocab array has sub arrays that are named lists of data.
//
//aVocab[intCat]= new Array(); - The aVocab Array actually holds other arrays.
//aVocab[intCat][0]="FIRST" - This is the name of the list of data in this sub array.  The name helps the program find the data.
//aVocab[intCat][1] = new Array() - Yep, ANOTHER array - this is the array that holds the actual data.
//aVocab[intCat][1][intIncr++]="First thing <SECOND>" // See that <SECOND> tag?  Anything in brackets references another list.
//aVocab[intCat][1][intIncr++]="First thing <THIRD>"
//
// Unless it's the last entry, don't forget to increment and reset the counters!
//
//intCat++
//intIncr=0


aVocab[intCat]= new Array();
aVocab[intCat][0]="FIFTH"
aVocab[intCat][1] = new Array()
aVocab[intCat][1][intIncr++]="Write <SIXTH> about <ELEVENTH>"
aVocab[intCat][1][intIncr++]="Write <SIXTH> about <TWELVTH>"
aVocab[intCat][1][intIncr++]="Write <SIXTH> about <THIRTEENTH>"
aVocab[intCat][1][intIncr++]="Write <SIXTH> about <FIFTEENTH>"
aVocab[intCat][1][intIncr++]="Write <SIXTH> about <SIXTEENTH>"


intCat++
intIncr=0
aVocab[intCat]= new Array();
aVocab[intCat][0]="SIXTH"
aVocab[intCat][1] = new Array()
aVocab[intCat][1][intIncr++]="100 words"
aVocab[intCat][1][intIncr++]="500 words"
aVocab[intCat][1][intIncr++]="1000 words"
aVocab[intCat][1][intIncr++]="1 page"
aVocab[intCat][1][intIncr++]="2 pages"
aVocab[intCat][1][intIncr++]="half a page"
aVocab[intCat][1][intIncr++]="1 paragraph"
aVocab[intCat][1][intIncr++]="2 paragraphs"
aVocab[intCat][1][intIncr++]="3 paragraphs"
aVocab[intCat][1][intIncr++]="1 scene"
aVocab[intCat][1][intIncr++]="2 scenes"
aVocab[intCat][1][intIncr++]="3 scenes"
aVocab[intCat][1][intIncr++]="5 minutes"
aVocab[intCat][1][intIncr++]="10 minutes"
aVocab[intCat][1][intIncr++]="15 minutes"
aVocab[intCat][1][intIncr++]="20 minutes"
aVocab[intCat][1][intIncr++]="25 minutes"
aVocab[intCat][1][intIncr++]="half an hour"
aVocab[intCat][1][intIncr++]="1 mad minute"
aVocab[intCat][1][intIncr++]="the time it takes your coffee to cool"
aVocab[intCat][1][intIncr++]="the time the water needs to boil"
aVocab[intCat][1][intIncr++]="half of your writing time today"
aVocab[intCat][1][intIncr++]="the rest of the writing session"
aVocab[intCat][1][intIncr++]="the remainder of your scene"
aVocab[intCat][1][intIncr++]="the start of your chapter"
aVocab[intCat][1][intIncr++]="the start of a new story"
aVocab[intCat][1][intIncr++]="on an existing story"
aVocab[intCat][1][intIncr++]="13 lines"
aVocab[intCat][1][intIncr++]="6 minutes with your eyes closed"
aVocab[intCat][1][intIncr++]="an hour without deleting"

intCat++
intIncr=0
aVocab[intCat]= new Array();
aVocab[intCat][0]="ELEVENTH"
aVocab[intCat][1] = new Array()
aVocab[intCat][1][intIncr++]="a scientist"
aVocab[intCat][1][intIncr++]="an explosion"
aVocab[intCat][1][intIncr++]="an attack"
aVocab[intCat][1][intIncr++]="a plant"
aVocab[intCat][1][intIncr++]="a rose"
aVocab[intCat][1][intIncr++]="a species"
aVocab[intCat][1][intIncr++]="a planet"
aVocab[intCat][1][intIncr++]="a star"
aVocab[intCat][1][intIncr++]="a moon"
aVocab[intCat][1][intIncr++]="a sun"
aVocab[intCat][1][intIncr++]="a solar system"
aVocab[intCat][1][intIncr++]="a scent"
aVocab[intCat][1][intIncr++]="siblings"
aVocab[intCat][1][intIncr++]="a brother"
aVocab[intCat][1][intIncr++]="a sister"
aVocab[intCat][1][intIncr++]="a big family"
aVocab[intCat][1][intIncr++]="an only child"
aVocab[intCat][1][intIncr++]="a forest"
aVocab[intCat][1][intIncr++]="a hill"
aVocab[intCat][1][intIncr++]="a meadow"
aVocab[intCat][1][intIncr++]="heather"
aVocab[intCat][1][intIncr++]="mildew"
aVocab[intCat][1][intIncr++]="autumn"
aVocab[intCat][1][intIncr++]="summer"
aVocab[intCat][1][intIncr++]="winter"
aVocab[intCat][1][intIncr++]="spring"
aVocab[intCat][1][intIncr++]="a circle"
aVocab[intCat][1][intIncr++]="a square"
aVocab[intCat][1][intIncr++]="an oval"
aVocab[intCat][1][intIncr++]="a triangle"
aVocab[intCat][1][intIncr++]="a cube"
aVocab[intCat][1][intIncr++]="evolution"
aVocab[intCat][1][intIncr++]="the alien hand syndrome"
aVocab[intCat][1][intIncr++]="alpha"
aVocab[intCat][1][intIncr++]="a disease"
aVocab[intCat][1][intIncr++]="astronomy"
aVocab[intCat][1][intIncr++]="something astronomical"
aVocab[intCat][1][intIncr++]="an ancestor"
aVocab[intCat][1][intIncr++]="a society"
aVocab[intCat][1][intIncr++]="antigravity"
aVocab[intCat][1][intIncr++]="anti-anxiety drugs"
aVocab[intCat][1][intIncr++]="antagonistic pleiotropy"
aVocab[intCat][1][intIncr++]="a moon landing"
aVocab[intCat][1][intIncr++]="someone asexual"
aVocab[intCat][1][intIncr++]="reproduction"
aVocab[intCat][1][intIncr++]="an asteroid"
aVocab[intCat][1][intIncr++]="image-reading technology"
aVocab[intCat][1][intIncr++]="public relations"
aVocab[intCat][1][intIncr++]="an atom"
aVocab[intCat][1][intIncr++]="quantum"
aVocab[intCat][1][intIncr++]="a baron"
aVocab[intCat][1][intIncr++]="a bell"
aVocab[intCat][1][intIncr++]="a laboratory"
aVocab[intCat][1][intIncr++]="exuberance"
aVocab[intCat][1][intIncr++]="biology"
aVocab[intCat][1][intIncr++]="homosexuality"
aVocab[intCat][1][intIncr++]="diversity"
aVocab[intCat][1][intIncr++]="a molecule"
aVocab[intCat][1][intIncr++]="synthesis"
aVocab[intCat][1][intIncr++]="a black hole"
aVocab[intCat][1][intIncr++]="a turtle"
aVocab[intCat][1][intIncr++]="a mark"
aVocab[intCat][1][intIncr++]="a brain"
aVocab[intCat][1][intIncr++]="brain damage"
aVocab[intCat][1][intIncr++]="scanning a brain"
aVocab[intCat][1][intIncr++]="a brook"
aVocab[intCat][1][intIncr++]="a plague"
aVocab[intCat][1][intIncr++]="caffeine"
aVocab[intCat][1][intIncr++]="calories"
aVocab[intCat][1][intIncr++]="a restriction"

intCat++
intIncr=0
aVocab[intCat]= new Array();
aVocab[intCat][0]="TWELVTH"
aVocab[intCat][1] = new Array()
aVocab[intCat][1][intIncr++]="a mode"
aVocab[intCat][1][intIncr++]="synchonisation"
aVocab[intCat][1][intIncr++]="a drug"
aVocab[intCat][1][intIncr++]="energy"
aVocab[intCat][1][intIncr++]="dark energy"
aVocab[intCat][1][intIncr++]="ignorance"
aVocab[intCat][1][intIncr++]="an observation"
aVocab[intCat][1][intIncr++]="a quest"
aVocab[intCat][1][intIncr++]="a shine"
aVocab[intCat][1][intIncr++]="a lack"
aVocab[intCat][1][intIncr++]="a reflection"
aVocab[intCat][1][intIncr++]="radiation"
aVocab[intCat][1][intIncr++]="death"
aVocab[intCat][1][intIncr++]="a virus"
aVocab[intCat][1][intIncr++]="a dream"
aVocab[intCat][1][intIncr++]="damage"
aVocab[intCat][1][intIncr++]="repair"
aVocab[intCat][1][intIncr++]="life"
aVocab[intCat][1][intIncr++]="a beginning"
aVocab[intCat][1][intIncr++]="a history"
aVocab[intCat][1][intIncr++]="a mass"
aVocab[intCat][1][intIncr++]="movement"
aVocab[intCat][1][intIncr++]="an orbit"
aVocab[intCat][1][intIncr++]="a speed"
aVocab[intCat][1][intIncr++]="an egg"
aVocab[intCat][1][intIncr++]="a distortion"
aVocab[intCat][1][intIncr++]="an equation"
aVocab[intCat][1][intIncr++]="magnetism"
aVocab[intCat][1][intIncr++]="weakness"
aVocab[intCat][1][intIncr++]="being weak"
aVocab[intCat][1][intIncr++]="a week"
aVocab[intCat][1][intIncr++]="an emergence"
aVocab[intCat][1][intIncr++]="a revival"
aVocab[intCat][1][intIncr++]="behaviour"
aVocab[intCat][1][intIncr++]="a connection"
aVocab[intCat][1][intIncr++]="conservation"
aVocab[intCat][1][intIncr++]="a packet"
aVocab[intCat][1][intIncr++]="a department"
aVocab[intCat][1][intIncr++]="a department store"
aVocab[intCat][1][intIncr++]="research"
aVocab[intCat][1][intIncr++]="entropy"
aVocab[intCat][1][intIncr++]="health"
aVocab[intCat][1][intIncr++]="a profession"
aVocab[intCat][1][intIncr++]="a garden"
aVocab[intCat][1][intIncr++]="a universe"
aVocab[intCat][1][intIncr++]="extravagance"
aVocab[intCat][1][intIncr++]="a miracle"

intCat++
intIncr=0
aVocab[intCat]= new Array();
aVocab[intCat][0]="THIRTEENTH"
aVocab[intCat][1] = new Array()
aVocab[intCat][1][intIncr++]="a radical"
aVocab[intCat][1][intIncr++]="a will"
aVocab[intCat][1][intIncr++]="will"
aVocab[intCat][1][intIncr++]="consciousness"
aVocab[intCat][1][intIncr++]="an illusion"
aVocab[intCat][1][intIncr++]="a commission"
aVocab[intCat][1][intIncr++]="fruit"
aVocab[intCat][1][intIncr++]="an apple"
aVocab[intCat][1][intIncr++]="a banana"
aVocab[intCat][1][intIncr++]="a fly"
aVocab[intCat][1][intIncr++]="an orange"
aVocab[intCat][1][intIncr++]="a peach"
aVocab[intCat][1][intIncr++]="a bell pepper"
aVocab[intCat][1][intIncr++]="a cucumber"
aVocab[intCat][1][intIncr++]="potatoes"
aVocab[intCat][1][intIncr++]="herbs"
aVocab[intCat][1][intIncr++]="spaghetti"
aVocab[intCat][1][intIncr++]="a distance"
aVocab[intCat][1][intIncr++]="an influence"
aVocab[intCat][1][intIncr++]="influencing"
aVocab[intCat][1][intIncr++]="a map"
aVocab[intCat][1][intIncr++]="a curve"
aVocab[intCat][1][intIncr++]="a game"
aVocab[intCat][1][intIncr++]="growth"
aVocab[intCat][1][intIncr++]="interaction"
aVocab[intCat][1][intIncr++]="a mistake"
aVocab[intCat][1][intIncr++]="a mutation"
aVocab[intCat][1][intIncr++]="repair"
aVocab[intCat][1][intIncr++]="a replication"
aVocab[intCat][1][intIncr++]="a sequence"
aVocab[intCat][1][intIncr++]="a core"
aVocab[intCat][1][intIncr++]="a source"
aVocab[intCat][1][intIncr++]="a balance"
aVocab[intCat][1][intIncr++]="a zone"
aVocab[intCat][1][intIncr++]="a neighbourhood"
aVocab[intCat][1][intIncr++]="a guardian"
aVocab[intCat][1][intIncr++]="a pull"
aVocab[intCat][1][intIncr++]="a push"
aVocab[intCat][1][intIncr++]="a law"
aVocab[intCat][1][intIncr++]="helium"
aVocab[intCat][1][intIncr++]="a temperature"
aVocab[intCat][1][intIncr++]="a method"
aVocab[intCat][1][intIncr++]="a principle"
aVocab[intCat][1][intIncr++]="a characteristic"
aVocab[intCat][1][intIncr++]="a bond"
aVocab[intCat][1][intIncr++]="a spectrum"
aVocab[intCat][1][intIncr++]="hypnosis"
aVocab[intCat][1][intIncr++]="a ghost"
aVocab[intCat][1][intIncr++]="a trial"
aVocab[intCat][1][intIncr++]="dust"
aVocab[intCat][1][intIncr++]="advancement"
aVocab[intCat][1][intIncr++]="a university"
aVocab[intCat][1][intIncr++]="a lance"
aVocab[intCat][1][intIncr++]="consumption"
aVocab[intCat][1][intIncr++]="an extension"
aVocab[intCat][1][intIncr++]="fertility"
aVocab[intCat][1][intIncr++]="nature"
aVocab[intCat][1][intIncr++]="love"


intCat++
intIncr=0
aVocab[intCat]= new Array();
aVocab[intCat][0]="FIFTEENTH"
aVocab[intCat][1] = new Array()
aVocab[intCat][1][intIncr++]="a knight"
aVocab[intCat][1][intIncr++]="suffering"
aVocab[intCat][1][intIncr++]="wrongness"
aVocab[intCat][1][intIncr++]="a cold"
aVocab[intCat][1][intIncr++]="warmth"
aVocab[intCat][1][intIncr++]="a silence"
aVocab[intCat][1][intIncr++]="a welcome"
aVocab[intCat][1][intIncr++]="a girl"
aVocab[intCat][1][intIncr++]="a boy"
aVocab[intCat][1][intIncr++]="a flower"
aVocab[intCat][1][intIncr++]="a party"
aVocab[intCat][1][intIncr++]="a digger"
aVocab[intCat][1][intIncr++]="a grave"
aVocab[intCat][1][intIncr++]="a plain"
aVocab[intCat][1][intIncr++]="something plain"
aVocab[intCat][1][intIncr++]="someone plain"
aVocab[intCat][1][intIncr++]="a scepter"
aVocab[intCat][1][intIncr++]="a race"
aVocab[intCat][1][intIncr++]="a sunflower"
aVocab[intCat][1][intIncr++]="a dazzle"
aVocab[intCat][1][intIncr++]="solitude"
aVocab[intCat][1][intIncr++]="a journal"
aVocab[intCat][1][intIncr++]="a slug"
aVocab[intCat][1][intIncr++]="snow"
aVocab[intCat][1][intIncr++]="a religion"
aVocab[intCat][1][intIncr++]="a saint"
aVocab[intCat][1][intIncr++]="a martyr"
aVocab[intCat][1][intIncr++]="a door"
aVocab[intCat][1][intIncr++]="the dark"
aVocab[intCat][1][intIncr++]="a lair"
aVocab[intCat][1][intIncr++]="work"
aVocab[intCat][1][intIncr++]="a lock"
aVocab[intCat][1][intIncr++]="an ambulance"
aVocab[intCat][1][intIncr++]="a remnant"
aVocab[intCat][1][intIncr++]="children"
aVocab[intCat][1][intIncr++]="a prophecy"
aVocab[intCat][1][intIncr++]="a fool"
aVocab[intCat][1][intIncr++]="a foot"
aVocab[intCat][1][intIncr++]="a card"
aVocab[intCat][1][intIncr++]="an epitath"
aVocab[intCat][1][intIncr++]="a mercenary"
aVocab[intCat][1][intIncr++]="a down"
aVocab[intCat][1][intIncr++]="a house"
aVocab[intCat][1][intIncr++]="someone old"
aVocab[intCat][1][intIncr++]="someone mad"
aVocab[intCat][1][intIncr++]="someone blind"
aVocab[intCat][1][intIncr++]="someone despised"
aVocab[intCat][1][intIncr++]="someone dying"
aVocab[intCat][1][intIncr++]="an army"
aVocab[intCat][1][intIncr++]="doom"
aVocab[intCat][1][intIncr++]="a spread"
aVocab[intCat][1][intIncr++]="a knee"
aVocab[intCat][1][intIncr++]="an apple"
aVocab[intCat][1][intIncr++]="a gathering"
aVocab[intCat][1][intIncr++]="an appreciation"
aVocab[intCat][1][intIncr++]="an aristocrat"
aVocab[intCat][1][intIncr++]="an oak"
aVocab[intCat][1][intIncr++]="a listener"
aVocab[intCat][1][intIncr++]="a speaker"
aVocab[intCat][1][intIncr++]="a beach-chair"
aVocab[intCat][1][intIncr++]="someone simple"
aVocab[intCat][1][intIncr++]="a team"
aVocab[intCat][1][intIncr++]="a tear"
aVocab[intCat][1][intIncr++]="a blow"
aVocab[intCat][1][intIncr++]="a head"
aVocab[intCat][1][intIncr++]="brass"
aVocab[intCat][1][intIncr++]="a kingfisher"
aVocab[intCat][1][intIncr++]="fire"
aVocab[intCat][1][intIncr++]="asking"
aVocab[intCat][1][intIncr++]="listening"
aVocab[intCat][1][intIncr++]="a snake"
aVocab[intCat][1][intIncr++]="a sonnet"
aVocab[intCat][1][intIncr++]="a trough"
aVocab[intCat][1][intIncr++]="a wing"
aVocab[intCat][1][intIncr++]="a beating"
aVocab[intCat][1][intIncr++]="a cemetery"
aVocab[intCat][1][intIncr++]="Christmas"
aVocab[intCat][1][intIncr++]="an eve"
aVocab[intCat][1][intIncr++]="a morning"
aVocab[intCat][1][intIncr++]="an afternoon"
aVocab[intCat][1][intIncr++]="an evening"

intCat++
intIncr=0
aVocab[intCat]= new Array();
aVocab[intCat][0]="SIXTEENTH"
aVocab[intCat][1] = new Array()
aVocab[intCat][1][intIncr++]="a ruffle"
aVocab[intCat][1][intIncr++]="a vale"
aVocab[intCat][1][intIncr++]="a widow"
aVocab[intCat][1][intIncr++]="a wreath"
aVocab[intCat][1][intIncr++]="an axe"
aVocab[intCat][1][intIncr++]="an echo"
aVocab[intCat][1][intIncr++]="a bakery"
aVocab[intCat][1][intIncr++]="a drop"
aVocab[intCat][1][intIncr++]="a gentleman"
aVocab[intCat][1][intIncr++]="a gentlewoman"
aVocab[intCat][1][intIncr++]="a single"
aVocab[intCat][1][intIncr++]="an endearment"
aVocab[intCat][1][intIncr++]="thunder"
aVocab[intCat][1][intIncr++]="lightning"
aVocab[intCat][1][intIncr++]="a beggar"
aVocab[intCat][1][intIncr++]="a sack"
aVocab[intCat][1][intIncr++]="a finger"
aVocab[intCat][1][intIncr++]="a thumb"
aVocab[intCat][1][intIncr++]="an old wall"
aVocab[intCat][1][intIncr++]="a trench"
aVocab[intCat][1][intIncr++]="an appointment"
aVocab[intCat][1][intIncr++]="a chorus"
aVocab[intCat][1][intIncr++]="a burial"
aVocab[intCat][1][intIncr++]="a quarrel"
aVocab[intCat][1][intIncr++]="a casualty"
aVocab[intCat][1][intIncr++]="a portrait"
aVocab[intCat][1][intIncr++]="certainty"
aVocab[intCat][1][intIncr++]="a channel"
aVocab[intCat][1][intIncr++]="a gust"
aVocab[intCat][1][intIncr++]="a flash"
aVocab[intCat][1][intIncr++]="a fridge"
aVocab[intCat][1][intIncr++]="a jelly"
aVocab[intCat][1][intIncr++]="a button"
aVocab[intCat][1][intIncr++]="a clock"
aVocab[intCat][1][intIncr++]="a stammer"
aVocab[intCat][1][intIncr++]="a blunder"
aVocab[intCat][1][intIncr++]="a gesture"
aVocab[intCat][1][intIncr++]="a chorus"
aVocab[intCat][1][intIncr++]="a chimney"
aVocab[intCat][1][intIncr++]="a hospital"
aVocab[intCat][1][intIncr++]="a pebble"
aVocab[intCat][1][intIncr++]="a crab"
aVocab[intCat][1][intIncr++]="sleep"
aVocab[intCat][1][intIncr++]="courage"
aVocab[intCat][1][intIncr++]="culture"
aVocab[intCat][1][intIncr++]="anarchy"
aVocab[intCat][1][intIncr++]="cruelty"
aVocab[intCat][1][intIncr++]="a cry"
aVocab[intCat][1][intIncr++]="a dump"
aVocab[intCat][1][intIncr++]="a sketch"
aVocab[intCat][1][intIncr++]="a dialogue"
aVocab[intCat][1][intIncr++]="an image"
aVocab[intCat][1][intIncr++]="a road"
aVocab[intCat][1][intIncr++]="a brother"
aVocab[intCat][1][intIncr++]="an eagle"
aVocab[intCat][1][intIncr++]="an ocean"
aVocab[intCat][1][intIncr++]="an answer"
aVocab[intCat][1][intIncr++]="an endgame"
aVocab[intCat][1][intIncr++]="a romance"
aVocab[intCat][1][intIncr++]="an excursion"
aVocab[intCat][1][intIncr++]="a fern"
aVocab[intCat][1][intIncr++]="a cranny"




	function GenNumber(nRange)
	{
                var iNumGen
		iNumGen = Math.round((Math.random() * nRange));

                return iNumGen;
	}

        function GetFrom(aArray)
	{
		var undefined
		var sReturn
		sReturn = aArray[GenNumber(aArray.length)];
		if (sReturn == undefined)
		{
			sReturn = GetFrom(aArray)
		}
		return sReturn
	}


	function GetArray(sArrayName)
	{
		for (var intLooper=0;intLooper <aVocab.length;intLooper++)
		{
			if (aVocab[intLooper][0]==sArrayName)
			{
				return aVocab[intLooper][1];
				break;
			}
		}
	}

	function ScanLine(sLine)
	{
		var iTagStart, iTagEnd
		var sKey

		if (sLine.indexOf("<") > -1)
		{
			iTagStart = sLine.indexOf("<");
			iTagEnd = sLine.indexOf(">");

			sKey = sLine.substr(iTagStart+1, iTagEnd-(iTagStart+1));

			sKey = GetFrom(GetArray(sKey))
			sLine = sLine.substr(0, iTagStart) + sKey + sLine.substr(iTagEnd+1, (sLine.length - iTagEnd))

		}


		if (sLine.indexOf("<") > - 1)
		{
			sLine = ScanLine(sLine)
		}

		return sLine;
	}


	function GenPlot()
	{
		sLine = GetFrom(GetArray("FIFTH"));

		sLine = ScanLine(sLine)

		document.GENFORM.STORY.value = sLine;
	}


