(if: (saved-games: ) contains "A")[
(load-game:"A")
(go-to:"start")
]
(else:)[
(go-to:"firstTimeSetup")
](set:$genres to (a:"Fantasy", "Science Fiction", "Mystery", "Thriller", "Romance", "Horror", "Adventure", "Historical Fiction", "Dystopian", "Crime", "Comedy", "Drama", "Paranormal", "Western", "Steampunk", "Cyberpunk", "Urban Fantasy", "Magical Realism", "Epic", "Mythology", "Noir", "Slice of Life", "Fairy Tale", "Speculative Fiction", "Suspense", "Documentary"))
(set:$commonWords to (a:"The", "Of", "And", "In", "To", "A", "For", "My", "With", "By"))
(set:$objectWords to (a:"Table", "Chair", "Lamp", "Book", "Pen", "Pencil", "Notebook", "Backpack", "Laptop", "Phone", "Tablet", "Monitor", "Keyboard", "Mouse", "Printer", "Camera", "Television", "Remote", "Clock", "Watch", "Bottle", "Glass", "Mug", "Plate", "Bowl", "Spoon", "Fork", "Knife", "Mirror", "Picture", "Painting", "Sculpture", "Vase", "Candle", "Lantern", "Curtain", "Blinds", "Rug", "Carpet", "Cushion", "Pillow", "Blanket", "Bed", "Sofa", "Dresser", "Closet", "Shelf", "Cabinet", "Drawer"))
(set:$descriptiveWords to (a:"Enigmatic", "Mystical", "Ethereal", "Whimsical", "Surreal", "Serene", "Luminous", "Abyssal", "Infinite", "Radiant", "Harmonious", "Nebulous", "Temporal", "Celestial", "Tranquil", "Mysterious", "Arcane", "Epic", "Mythic", "Enchanted", "Phantasmal", "Cosmic", "Ephemeral", "Vivid", "Illustrious", "Lucid", "Ominous", "Pristine", "Cryptic", "Ornate", "Labyrinthine", "Spectral", "Iridescent", "Resplendent", "Sublime", "Whispering", "Ethereal", "Bewitching", "Divine", "Echoing", "Eternal", "Pulsating", "Astral", "Illusive", "Evolving", "Immersive", "Galactic", "Enigmatic", "Whimsical"))
(set:$emotionalWords to (a:"Blissful", "Yearning", "Melancholic", "Radiant", "Euphoric", "Serenity", "Languid", "Anguished", "Desolate", "Yearning", "Pensive", "Jubilant", "Yearning", "Radiant", "Nostalgic", "Content", "Resilient", "Languid", "Zealous", "Somber", "Ecstatic", "Despairing", "Rapture", "Restless", "Euphoric", "Radiant", "Tranquil", "Blissful", "Somber", "Jubilant", "Yearning", "Resilient", "Sorrowful", "Zealous", "Euphoric", "Radiant", "Nostalgic", "Content", "Desolate", "Yearning", "Pensive", "Somber", "Ecstatic", "Despairing", "Rapture", "Restless"))
(set:$actionWords to (a:"Adventure", "Explore", "Conquer", "Discover", "Unveil", "Embark", "Journey", "Roam", "Quest", "Pursue", "Navigate", "Trek", "Ascend", "Descend", "Vanish", "Survive", "Thrill", "Escape", "Confront", "Infiltrate", "Rise", "Fall", "Ascend", "Descend", "Vanish", "Survive", "Thrill", "Escape", "Confront", "Infiltrate", "Rise", "Fall", "Vanish", "Survive", "Thrill", "Escape", "Confront", "Infiltrate", "Rise", "Fall", "Ascend", "Descend", "Vanish", "Survive", "Thrill", "Escape", "Confront", "Infiltrate"))
(set:$mysteryWords to (a:"Ambiguous", "Cryptic", "Enigmatic", "Esoteric", "Inscrutable", "Obscure", "Puzzling", "Uncanny", "Arcane", "Eerie", "Uncertain", "Veiled", "Mystifying", "Enigmatic", "Esoteric", "Inscrutable", "Obscure", "Puzzling", "Uncanny", "Arcane", "Eerie", "Uncertain", "Veiled", "Mystifying", "Ambiguous", "Cryptic", "Enigmatic", "Esoteric", "Inscrutable", "Obscure", "Puzzling", "Uncanny", "Arcane", "Eerie", "Uncertain", "Veiled", "Mystifying", "Ambiguous", "Cryptic", "Enigmatic", "Esoteric", "Inscrutable", "Obscure", "Puzzling"))
(set:$characterWords to (a:"Hero", "Villain", "Mentor", "Sidekick", "Rogue", "Sorcerer", "Warrior", "Princess", "Wizard", "Detective", "Explorer", "Pirate", "Ninja", "Assassin", "Monster", "Robot", "Alien", "Ghost", "Time Traveler", "Genius", "Adventurer", "Survivor", "Prophet", "Bounty Hunter", "Champion", "Rebel", "Goddess", "God", "Guardian", "Savior", "Fugitive", "Avenger", "Mercenary", "Shape-shifter", "Chosen One", "Outlaw", "Warlord", "Scholar", "Engineer", "Artist", "Thief", "Conquer", "Healer", "Nomad", "Wanderer", "Minstrel", "Me", "George"))
(set:$settingWords to (a:"Forest", "Castle", "Cavern", "Temple", "Ruins", "Mansion", "Cityscape", "Labyrinth", "Tundra", "Desert", "Ocean", "Galaxy", "Underworld", "Sanctuary", "Wasteland", "Jungle", "Savannah", "Volcano", "Island", "Glacier", "Space Station", "Citadel", "Village", "Laboratory", "Library", "Ark", "Realm", "Dimension", "Haven", "Stronghold", "Citadel", "Village", "Laboratory", "Library", "Ark", "Realm", "Dimension", "Haven", "Stronghold", "Abyss", "Palace", "Quarry", "Skyline", "Graveyard", "Catacombs", "Asylum", "Oasis"))
(set:$wordBank to (a:))
(set:$wordBank to it + $descriptiveWords)
(set:$wordBank to it + $emotionalWords)
(set:$wordBank to it + $actionWords)
(set:$wordBank to it + $mysteryWords)
(set:$wordBank to it + $characterWords)
(set:$wordBank to it + $settingWords)
(set:$wordBank to it + $objectWords)(display:"wordBankSetup")
(set:$gameStarted to false)
(set:$CWM to 2)
(set:$TWC to 8)
(set:$inv to (a:))
(set:$printInv to (a:))
(set:$genre to "")
(set:$basicInv to (a:))
(set:$theStatus to true)
(set:$theDisp to "Yep!")
(set:$p1Fill to false)
(set:$p2Fill to false)
(go-to:"start")### WORKING TITLE
''WRITER MODE'' | [[Client Mode|p2]]
-----
(if:$p1Fill is false)[(print:"Click Below to Start!")]\
(else:)[\
=|=
''BASIC WORDS''
{
(for: each _item, ...$printBasicInv)[
(print:"- ")(print:_item)<br>
]}
=|=
''TITLE WORDS''
{
(for: each _item, ...$printInv)[
(print:"- ")(print:_item)<br>
]}]
|==|
{
(if:$gameStarted is true)[\
<!--(color:grey)[You are allowed to use modifiers to change the meaning of a word. Examples include the following:] ing(color:grey)[,] s(color:grey)[,] ed(color:grey)[,] ly(color:grey)[,] er(color:grey)[,] est(color:grey)[,] able(color:grey)[,] ness(color:grey)[,] less(color:grey)[,] ful(color:grey)[,] ize(color:grey)[,] ion(color:grey)[,] ment(color:grey)[,] ity(color:grey)[,] ous(color:grey)[,] al(color:grey)[,] (color:grey)[and] ic-->
(color:grey)[You are allowed to use modifiers to improve grammar. For example,] Whimsical (color:grey)[could be changed to] Whimsy(color:grey)[.]
<!-- META -->
(save-game:"A")
]}
[[Generate New List|p1Reset]]
[[Main Menu|start]](set:$inv to (a:))
(set:$printInv to (a:))
(set:$basicInv to (a:))
(set:$mods to (a:))
(set:$p1Fill to true)
(if:$CWM is not 0)[
(set:$CWMp to 0)
(display:"addCommon")
]
(set:$printWords to $TWC - $CWM)
(if:$printWords is not 0)[
(set:$TWCp to 0)
(display:"addWords")
]
(set:$basicInv to it + (a:"The"))
(set:$printInv to (shuffled:...$inv))
(set:$printBasicInv to (shuffled:...$basicInv))
(if:$gameStarted is false)[
(set:$gameStarted to true)
]
(go-to:"p1")### WORKING TITLE
-----
(if: $gameStarted is true)[(link: "Continue")[(go-to:"p1")]](else:)[(color:grey)[''Continue'']]
[[New Game|p1a]]
(link:"Refresh Databanks")[(go-to:"firstTimeSetup")]
(link: "Quit")[<script>window.close()</script>]### WORKING TITLE
-----
{
(if:$CWM is > $TWC)[
(set:$CWM to $TWC)
(color:grey)[Your Basic Word Count cannot exceed the Total Word Count.<br>]
]
(if:$CWM < 0)[
(set:$CWM to 0)
(color:grey)[You cannot set a negative amount of Basic Words.<br>]
]
(if:$TWC < 1)[
(set:$TWC to 1)
(color:grey)[You need at least one word to play the game.<br>]
]
}
''Basic Word Count:'' (link-repeat:"$CWM")[(go-to:"CWMwork")]
- ''Always Include "The":'' (link-repeat:"$theDisp")[(go-to:"theSwitch")]
''Total Word Count:'' (link-repeat:"$TWC")[(go-to:"TWCwork")]
[[Start Game|p1]]
[[Main Menu|start]]showControls: false(if:$CWMF is true)[
(set:$CWMt to (prompt:"Please input the amount as a number", (text:$CWM)))
]
(if:$CWMF is not true)[
(set:$CWMt to (prompt:"Please set the Basic Word Count for the game", (text:$CWM)))
]
(set:$CWMc to (num:$CWMt))
(set:$mathCheck to $CWMc + 10)
(if:$CWMt is "0" or $mathCheck is not 10)[(set:$CWMF to false), (set:$CWM to $CWMc)(go-to:"p1a")]
(else-if:$mathCheck is 10)[(set:$CWMF to true), (go-to:"CWMwork")(if:$TWCF is true)[
(set:$TWCt to (prompt:"Please input the amount as a number", (text:$TWC)))
]
(if:$TWCF is not true)[
(set:$TWCt to (prompt:"Please set the Total Word Count for the game", (text:$TWC)))
]
(set:$TWCc to (num:$TWCt))
(set:$mathCheck to $TWCc + 10)
(if:$TWCt is "0" or $mathCheck is not 10)[(set:$TWCF to false), (set:$TWC to $TWCc)(go-to:"p1a")]
(else-if:$mathCheck is 10)[(set:$TWCF to true), (go-to:"TWCwork")(set:$basicInv to it + (a:(either:...$commonWords)))
(set:$CWMp to it + 1)
(if:$CWMp < $CWM)[
(display:"addCommon")
](set:$inv to it + (a:(either:...$wordBank)))
(set:$TWCp to it + 1)
(if:$TWCp < $printWords)[
(display:"addWords")
]### WORKING TITLE
[[Writer Mode|p1]] | ''CLIENT MODE''
-----
=|=
(if:$p2Fill is false)[(print:"Click Below to Start!<br>")]\
(else:)[\
#### $genre]
=|=
{
|timer>[(link-repeat:"Title Timer")[(replace:?timer)[(display:"timer1")]]]
}
=|=
{
|timer2>[(link-repeat:"Story Timer")[(replace:?timer2)[(display:"timer2")]]]
}
|==|
[[Generate New Genre|p2Reset]]
[[Main Menu|start]](set:$genre to (either:...$genres))
(set:$p2Fill to true)
(go-to:"p2"){
(set: $counter to 30)
|titleCheck>[|amount>[(if:$counter > 20)[(color:lime)[$counter]](else-if:$counter > 10)[(color:yellow)[$counter]](else-if:$counter > 0)[(color:orange)[$counter]]] seconds remaining!]
(live: 1s)[
(set: $counter to it - 1)
(replace:?amount)[(if:$counter > 20)[(color:lime)[$counter]](else-if:$counter > 10)[(color:yellow)[$counter]](else-if:$counter > 0)[(color:orange)[$counter]]]
(if: $counter is 0)[
(replace:?titleCheck)[(color:red)[TIME'S UP!]]
(replace:?timer)[(link-repeat:"(color:red)[TIME'S UP!]")[(replace:?timer)[(display:"timer1")]]]
(stop:)
]
]
}{
(set: $counter2 to 90)
|titleCheck2>[|amount2>[(if:$counter2 > 20)[(color:lime)[$counter2]](else-if:$counter2 > 10)[(color:yellow)[$counter2]](else-if:$counter2 > 0)[(color:orange)[$counter2]]] seconds remaining!]
(live: 1s)[
(set: $counter2 to it - 1)
(replace:?amount2)[(if:$counter2 > 20)[(color:lime)[$counter2]](else-if:$counter2 > 10)[(color:yellow)[$counter2]](else-if:$counter2 > 0)[(color:orange)[$counter2]]]
(if: $counter2 is 0)[
(replace:?titleCheck2)[(color:red)[TIME'S UP!]]
(replace:?timer2)[(link-repeat:"(color:red)[TIME'S UP!]")[(replace:?timer2)[(display:"timer2")]]]
(stop:)
]
]
}(if:$theStatus is true)[
(set:$theStatus to false)
(set:$theDisp to "Nah, I'll be fine")
]
(else:)[
(set:$theStatus to true)
(set:$theDisp to "Yep!")
]
(go-to:"p1a")