{(set:$corchar to (dm:"Hat",(either:"Top hat","Bonnet","Baseball cap","Fedora","Flower crown","Tiara"),"Hatcolor",(either:"Red","Blue","Green","Yellow","Purple"),"Shirt",(either:"T-shirt","Vest","Blazar","Sweater","Turtleneck","Hoodie"),"Shirtcolor",(either:"Red","Blue","Green","Yellow","Purple"),"Pants",(either:"Jeans","Cargo shorts","Skirt","Miniskirt","Overalls"),"Pantscolor",(either:"Red","Blue","Green","Yellow","Purple"),"Shoes",(either:"Sneakers","High-heel shoes","Boots","High-heel boots","Dress Shoes","Sandals"),"Shoecolor",(either:"Red","Blue","Green","Yellow","Purple") ))
(set:$playchar to (dm:"Hat","Top hat","Hatcolor","Red","Shirt","T-shirt","Shirtcolor","Red","Pants","Jeans","Pantscolor","Red","Shoes","Sneakers","Shoecolor","Red"))
(set:$tries to 10)(event:when time > 0.2s)[(replace:?tries)[$tries](show:?game)]}
<h2>(font:"Comic Sans MS")[(text-style:"italic")[(text-colour:(either:"salmon","thistle","aqua"))[Guess a Look!]] ]</h2>
<div id="Guesscreen">
</div>
Here, you must select the descriptions that dscribe what our mysterious character is wearing.
You have |tries)[] tries.
|game)[
Our mysterious character is wearing:
|=
(cycling-link:bind $playchar's Hat, "Top hat","Bonnet","Baseball cap","Fedora","Flower crown","Tiara")
=|
(cycling-link:bind $playchar's Hatcolor, "Red","Blue","Green","Yellow","Purple")
|==|
|=
(cycling-link:bind $playchar's Shirt, "T-shirt","Vest","Blazar","Sweater","Turtleneck","Hoodie")
=|
(cycling-link:bind $playchar's Shirtcolor, "Red","Blue","Green","Yellow","Purple")
|==|
|=
(cycling-link:bind $playchar's Pants, "Jeans","Cargo shorts","Skirt","Miniskirt","Overalls")
=|
(cycling-link:bind $playchar's Pantscolor, "Red","Blue","Green","Yellow","Purple")
|==|
|=
(cycling-link:bind $playchar's Shoes, "Sneakers","High-heel shoes","Boots","High-heel boots","Dress Shoes","Sandals")
=|
(cycling-link:bind $playchar's Shoecolor, "Red","Blue","Green","Yellow","Purple")
|==|
Correct Features, Correct color: |corrans)[]
Correct Features, Wrong color: |corrfe)[]
Wrong Features, Correct color: |corrcol)[]
|alert)[]
(link-rerun:"Confirm")[{(set:$corrans to 0)(set:$corrfe to 0)(set:$corrcol to 0)(if:$playchar is $corchar)[(replace:?game)[
Congratulations! You have guessed our mysterious guest's look!
<h3>Our character is wearing a (if:$corchar's Hatcolor is "Red")[(text-colour:"red")[Red]](else-if:$corchar's Hatcolor is "Blue")[(text-colour:"skyblue")[Blue]](else-if:$corchar's Hatcolor is "Yellow")[(text-colour:"gold")[Yellow]](else-if:$corchar's Hatcolor is "Green")[(text-colour:"lime")[Green]](else:)[(text-colour:"violet")[Purple]] (if:$corchar's Hat is "Top hat")[top hat](else-if:$corchar's Hat is "Bonnet")[Bonnet](else-if:$corchar's Hat is "Baseball cap")[Baseball cap](else-if:$corchar's Hat is "Fedora")[Fedora](else-if:$corchar's Hat is "Flower crown")[Flower crown](else:)[Tiara] with a (if:$corchar's Shirtcolor is "Red")[(text-colour:"red")[Red]](else-if:$corchar's Shirtcolor is "Blue")[(text-colour:"skyblue")[Blue]](else-if:$corchar's Shirtcolor is "Yellow")[(text-colour:"gold")[Yellow]](else-if:$corchar's Shirtcolor is "Green")[(text-colour:"lime")[Green]](else:)[(text-colour:"violet")[Purple]] (if:$corchar's Shirt is "T-shirt")[t-shirt](else-if:$corchar's Shirt is "Vest")[Vest](else-if:$corchar's Shirt is "Blazar")[Blazar](else-if:$corchar's Shirt is "Sweater")[Sweater](else-if:$corchar's Shirt is "Turtleneck")[Turtleneck](else:)[Hoodie], a (if:$corchar's Pantscolor is "Red")[(text-colour:"red")[Red]](else-if:$corchar's Pantscolor is "Blue")[(text-colour:"skyblue")[Blue]](else-if:$corchar's Pantscolor is "Yellow")[(text-colour:"gold")[Yellow]](else-if:$corchar's Pantscolor is "Green")[(text-colour:"lime")[Green]](else:)[(text-colour:"violet")[Purple]] (if:$corchar's Pants is "Jeans")[Jeans](else-if:$corchar's Pants is "Cargo shorts")[Cargo shorts](else-if:$corchar's Pants is "Skirt")[Skirt](else-if:$corchar's Pants is "Miniskirt")[Miniskirt](else:)[Overalls] and a pair of (if:$corchar's Shoecolor is "Red")[(text-colour:"red")[Red]](else-if:$corchar's Shoecolor is "Blue")[(text-colour:"skyblue")[Blue]](else-if:$corchar's Shoecolor is "Yellow")[(text-colour:"gold")[Yellow]](else-if:$corchar's Shoecolor is "Green")[(text-colour:"lime")[Green]](else:)[(text-colour:"violet")[Purple]] (if:$corchar's Shoes is "Sneakers")[Sneakers](else-if:$corchar's Shoes is "High-heel shoes")[High-heel shoes](else-if:$corchar's Shoes is "Boots")[Boots](else-if:$corchar's Shirt is "High-heel boots")[High-heel boots](else-if:$corchar's Shirt is "Dress Shoes")[Dress Shoes](else:)[Sandals]. </h3>
|=
[[Main Menu]]
=|
[[Play again->Guess a Look]]
|==|
] ](else:)[{(set:$tries to it - 1)(replace:?tries)[$tries]
(if:$playchar's Hatcolor is $corchar's Hatcolor and $playchar's Hat is $corchar's Hat)[(set:$corrans to it + 1)(replace:?corrans)[(t8n:"pulse")[$corrans]] ](else-if:$playchar's Hatcolor is $corchar's Hatcolor)[(set:$corrcol to it + 1)(replace:?corrcol)[(t8n:"pulse")[$corrcol]]](else-if:$playchar's Hat is $corchar's Hat)[(set:$corrfe to it + 1)(replace:?corrfe)[(t8n:"pulse")[$corrfe]] ](else:)[(replace:?corrfe)[(t8n:"pulse")[$corrfe]](replace:?corrcol)[(t8n:"pulse")[$corrcol]](replace:?corrans)[(t8n:"pulse")[$corrans]] ]
(if:$playchar's Shirtcolor is $corchar's Shirtcolor and $playchar's Shirt is $corchar's Shirt)[(set:$corrans to it + 1)(replace:?corrans)[(t8n:"pulse")[$corrans]] ](else-if:$playchar's Shirt is $corchar's Shirt)[(set:$corrfe to it + 1)(replace:?corrfe)[(t8n:"pulse")[$corrfe]] ](else-if:$corchar's Shirtcolor is $playchar's Shirtcolor)[(set:$corrcol to it + 1)(replace:?corrcol)[(t8n:"pulse")[$corrcol]] ](else:)[(replace:?corrfe)[(t8n:"pulse")[$corrfe]](replace:?corrcol)[(t8n:"pulse")[$corrcol]](replace:?corrans)[(t8n:"pulse")[$corrans]] ]
(if:$playchar's Pantscolor is $corchar's Pantscolor and $playchar's Pants is $corchar's Pants)[(set:$corrans to it + 1)(replace:?corrans)[(t8n:"pulse")[$corrans]] ](else-if:$playchar's Pants is $corchar's Pants)[(set:$corrfe to it + 1)(replace:?corrfe)[(t8n:"pulse")[$corrfe]] ](else-if:$playchar's Pantscolor is $corchar's Pantscolor)[(set:$corrcol to it + 1)(replace:?corrcol)[(t8n:"pulse")[$corrcol]]](else:)[(replace:?corrfe)[(t8n:"pulse")[$corrfe]](replace:?corrcol)[(t8n:"pulse")[$corrcol]](replace:?corrans)[(t8n:"pulse")[$corrans]] ]
(if:$playchar's Shoecolor is $corchar's Shoecolor and $playchar's Shoes is $corchar's Shoes)[(set:$corrans to it + 1)(replace:?corrans)[(t8n:"pulse")[$corrans]] ](else-if:$playchar's Shoes is $corchar's Shoes)[(set:$corrfe to it + 1)(replace:?corrfe)[(t8n:"pulse")[$corrfe]] ](else-if:$playchar's Shoecolor is $corchar's Shoecolor)[(set:$corrcol to it + 1)(replace:?corrcol)[(t8n:"pulse")[$corrcol]]](else:)[(replace:?corrfe)[(t8n:"pulse")[$corrfe]](replace:?corrcol)[(t8n:"pulse")[$corrcol]](replace:?corrans)[(t8n:"pulse")[$corrans]] ]
}
(if:$tries is 0)[(replace:?game)[Sorry, our mysterious guess was wearing...
<h3>A (if:$corchar's Hatcolor is "Red")[(text-colour:"red")[Red]](else-if:$corchar's Hatcolor is "Blue")[(text-colour:"skyblue")[Blue]](else-if:$corchar's Hatcolor is "Yellow")[(text-colour:"gold")[Yellow]](else-if:$corchar's Hatcolor is "Green")[(text-colour:"lime")[Green]](else:)[(text-colour:"violet")[Purple]] (if:$corchar's Hat is "Top hat")[top hat](else-if:$corchar's Hat is "Bonnet")[Bonnet](else-if:$corchar's Hat is "Baseball cap")[Baseball cap](else-if:$corchar's Hat is "Fedora")[Fedora](else-if:$corchar's Hat is "Flower crown")[Flower crown](else:)[Tiara] with a (if:$corchar's Shirtcolor is "Red")[(text-colour:"red")[Red]](else-if:$corchar's Shirtcolor is "Blue")[(text-colour:"skyblue")[Blue]](else-if:$corchar's Shirtcolor is "Yellow")[(text-colour:"gold")[Yellow]](else-if:$corchar's Shirtcolor is "Green")[(text-colour:"lime")[Green]](else:)[(text-colour:"violet")[Purple]] (if:$corchar's Shirt is "T-shirt")[t-shirt](else-if:$corchar's Shirt is "Vest")[Vest](else-if:$corchar's Shirt is "Blazar")[Blazar](else-if:$corchar's Shirt is "Sweater")[Sweater](else-if:$corchar's Shirt is "Turtleneck")[Turtleneck](else:)[Hoodie], a (if:$corchar's Pantscolor is "Red")[(text-colour:"red")[Red]](else-if:$corchar's Pantscolor is "Blue")[(text-colour:"skyblue")[Blue]](else-if:$corchar's Pantscolor is "Yellow")[(text-colour:"gold")[Yellow]](else-if:$corchar's Pantscolor is "Green")[(text-colour:"lime")[Green]](else:)[(text-colour:"violet")[Purple]] (if:$corchar's Pants is "Jeans")[Jeans](else-if:$corchar's Pants is "Cargo shorts")[Cargo shorts](else-if:$corchar's Pants is "Skirt")[Skirt](else-if:$corchar's Pants is "Miniskirt")[Miniskirt](else:)[Overalls] and a pair of (if:$corchar's Shoecolor is "Red")[(text-colour:"red")[Red]](else-if:$corchar's Shoecolor is "Blue")[(text-colour:"skyblue")[Blue]](else-if:$corchar's Shoecolor is "Yellow")[(text-colour:"gold")[Yellow]](else-if:$corchar's Shoecolor is "Green")[(text-colour:"lime")[Green]](else:)[(text-colour:"violet")[Purple]] (if:$corchar's Shoes is "Sneakers")[Sneakers](else-if:$corchar's Shoes is "High-heel shoes")[High-heel shoes](else-if:$corchar's Shoes is "Boots")[Boots](else-if:$corchar's Shirt is "High-heel boots")[High-heel boots](else-if:$corchar's Shirt is "Dress Shoes")[Dress Shoes](else:)[Sandals]. </h3>
|=
[[Main Menu]]
=|
[[Try again->Guess a Look]]
|==|
] ]
(replace:?alert)[Sorry, that is not what our guest is wearing. Try again.]] }]
[[Main Menu]] ]<h2>(font:"Comic Sans MS")[(text-style:"italic")[(text-colour:(either:"mediumpurple","lavender","violet"))[Prompt Creator!]] ]</h2>
<div id="Creascreen">
</div>
The game will randomize a scenario for you to draw. Your goal is to accurately draw the prompt on the screen. You and a friend can judge on how accurately you drew the scenario. Remember the whole goal of the game is to have fun!
(link:"Are You Ready?")[(show:?prompt)]<h3>|prompt)[(display:(either:"Prompt 1","Prompt 2","Prompt 3"))]</h3>
|again)[]
[[Back to main menu->Main Menu]]<h2>(live:0.5s)[(font:"Comic Sans MS")[(text-style:"italic")[(text-colour:(either:"salmon","springgreen"))[Artist Character Creation Lab!]] ] ]</h2>
<div id="Mainscreen">
</div>
Welcome to the Chararcter Creation Lab! Here, you can draw a character or scenario based on prompts, or you can play a guessing game where you can guess the outfit of a mysterious guest character.
<h3>(font:"Comic Sans MS")[(text-style:"italic")[(text-colour:"teal")[ [[Draw a character->Player Selection]] ] ] ]</h3>
<h3>(font:"Comic Sans MS")[(text-style:"italic")[(text-colour:"mediumpurple")[ [[Prompt Creator]] ] ] ]</h3>
<h3>(font:"Comic Sans MS")[(text-style:"italic")[(text-colour:"salmon")[ [[Guess a Look]] ] ] ]</h3>(either:"A tiger","A dinosaur","A cat","A man","A woman","Children","A dog","A goat","Cowboys","A cowboy","A dragon","Men","Women","Dragons","A knight","A horse","A witch","A wizard","Wizards","Witches","Knights","An astronaut","Astronauts","A chicken","Chickens","Goats","A snake","Snakes","A frog","Frogs","Tigers","Lions","A lion","A burger","A milkshake","French fries","A french fry","Burgers","Milkshakes","Cows","A cow","A giant meatball") (either:"riding","eating","lassoing","shooting","beating up","screaming at","running from","chasing","playing with","crawling under","leaping over","rolling over","kicking","punching") (either:"a tiger","a dinosaur","a cat","a man","a woman","children","a dog","a goat","cowboys","a cowboy","a dragon","men","women","dragons","a knight","a horse","a witch","a wizard","wizards","witches","knights","an astronaut","astronauts","a chicken","chickens","goats","a snake","snakes","a frog","frogs","tigers","lions","a lion","a burger","a milkshake","french fries","a french fry","burgers","milkshakes","cows","a cow","a giant meatball").
(replace:?again)[(link:"Next Prompt")[(replace:?prompt)[(display:(either:"Prompt 1","Prompt 2","Prompt 3"))]]](either:"Cats","A cat","A dinosaur","A herd of dinosaurs","A herd of cattle","A cow","Robots","A robot","A giant meatball","Chickens","A chicken","A dog","A rabbit","Dogs","Rabbits","Monkeys","A monkey","A tiger","People","A man","A woman","A parrot","A clown","A pig","A horse","A unicorn") (either:"running into","running from","eating","playing in","playing with","playing inside","falling into","falling from","drinking","drinking from") (either:"the forest","the bathroom","an airplane","the ocean","breakfast","lunch","dinner","dessert","the sky","a train","a tent","a snake","a piece of chicken","a slice of pizza","a french fry","a burger","the trash","the desert","a cactus","a mouse","a pile of rocks","fire","alcohol","a martini","rum").
(replace:?again)[(link:"Next Prompt")[(replace:?prompt)[(display:(either:"Prompt 1","Prompt 2","Prompt 3"))]]](either:"Exercising","Tired","Angry","Hungry","Sick","Crazy","Skateboarding","Skydiving","Rock-climbing","Mystery-solving","Ninja","Cowboy","Burning","Frozen","Giant","Tiny","Flying","Swimming","Pogo-sticking","Surfing","Hula-hooping","Tree-climbing","Mountain-climbing","Ice-skating","Snowboarding","Skiing","Space") (either:"cows","girls","boys","children","dinosaurs","cats","dogs","horses","unicorns","dragons","clowns","pirates","monkeys","parrots","mice","lions","turtles","pigs","meatballs","burgers","french fries","robots","chickens") (either:"drinking juice","drinking water","drinking milk","drinking soda","jumping on a trampoline","resting on a plate","eating a bucket of chicken","hitting a brick wall","playing in the ocean","eating a plate of peppers","playing football","playing volleyball","playing tennis").
(replace:?again)[(link:"Next Prompt")[(replace:?prompt)[(display:(either:"Prompt 1","Prompt 2","Prompt 3"))]]]<h2>(font:"Comic Sans MS")[(text-style:"italic")[(text-colour:(either:"teal","wheat","forestgreen"))[Draw a Character!]] ]</h2>
<div id="Charscreen">
</div>
One person selects a set of traits for their character while another person draws it.
(link:"Are you Ready?")[Great! Now the first person must assemble a character.
You can do it manually, cutomize a prompt or randomly generate a description.
(event:when time > 0.5s)[(replace:?custom)[Which one are you going to do?
|=
(link:"Manually write a description")[(replace:?custom)[(input-box:bind $description,"=X=","My character is...")
[[Confirm->Drawcharacter]]
] ]
=|=
(link:"Customize a prompt")[(replace:?custom)[My character is (live:0.5s)[(if:$speciesname is "otter"or $speciesname is "elf")[an](else:)[a]] (dropdown:bind $speciesname, "human","cat","dog","rabbit","otter","dinosaur","elf","fairy","dragon","kitsune","monkey") (dropdown:bind $profession, "boy","girl","[none]","princess","prince","doctor","scientist","magical girl","magiacal boy","samurai","ninja","chef","baker","pirate","wrestler","robot") with (dropdown:bind $hair, "no hair","plain short hair","plain long hair","[none]","spiky short hair","spiky long hair","two short pigtails","two long pigtails","a long pigtail","a short pigtail","two short ponytails","two long ponytails","a long ponytail","a short ponytail","a mullet","long dreadlocks","short dreadlocks","a single hair bun","double hair buns","double drill hair","double looped hair","mowhawk hair","spiky mowhawk hair","an afro","messy hair") and (dropdown:bind $horns, "a purse","a backpack","a walking stick","a magic wand","a samurai sword","a polestaff","[none]","deer antlers","bull horns","a unicorn horn","ram horns","goat horns","triceratops horns").
(live: 0.5s)[(if:$hair is "" or $horns is "")[ ](else:)[ [[Confirm->Drawcharacter]] ] ]
] ]
=|
(link:"Randomize a prompt")[(replace:?custom)[(display:"Random character")
]]
|==|
]]
|custom)[]
]Now a second person must draw a chararacter based on the following prompt:
<h3>(if:$description is 0)[My character is (if:$speciesname is "otter"or $speciesname is "elf")[an](else:)[a] $speciesname $profession with $hair and $horns](else:)[$description]</h3>
|=
(link-reveal-goto:"New character","Draw a Character")[(set:$description to 0)]
=|
(link-reveal-goto:"Return to main menu","Main Menu")[(set:$description to 0)]
|==|(set:$speciesname to (either: "human","cat","dog","rabbit","otter","dinosaur","elf","fairy","dragon","kitsune","monkey") ) (set:$profession to (either:"boy","girl","princess","prince","doctor","scientist","magical girl","magiacal boy","samurai","ninja","chef","baker","pirate","wrestler","robot") ) (set:$hair to (either:"no hair","plain short hair","plain long hair","spiky short hair","spiky long hair","two short pigtails","two long pigtails","a long pigtail","a short pigtail","two short ponytails","two long ponytails","a long ponytail","a short ponytail","a mullet","long dreadlocks","short dreadlocks","a single hair bun","double hair buns","double drill hair","double looped hair","mowhawk hair","spiky mowhawk hair","an afro","messy hair") ) (set:$horns to (either:"a purse","a backpack","a walking stick","a magic wand","a samurai sword","a polestaff","deer antlers","bull horns","a unicorn horn","ram horns","goat horns","triceratops horns") )
My character is (if:$speciesname is "otter"or $speciesname is "elf")[an](else:)[a] $speciesname $profession with $hair and $horns.
(link-rerun:"Randomize")[(replace:?custom)[(display:"Random character")] ]
(link-reveal-goto:"confirm","Drawcharacter")[(set:$description to "My character is a $speciesname $profession with $hair and $horns."]
<h2>(font:"Comic Sans MS")[(text-style:"italic")[(text-colour:(either:"teal","wheat","forestgreen"))[Draw a Character!]] ]</h2>
<div id="Charscreen">
</div>
<h3>Number of players</h3>
|=
[[One->Draw a Character SingPlay]]
=|
[[Two->Draw a Character]]
|==|<h2>(font:"Comic Sans MS")[(text-style:"italic")[(text-colour:(either:"teal","wheat","forestgreen"))[Draw a Character!]] ]</h2>
<div id="Charscreen">
</div>
Challenge yourself by creating a prompt for you to draw a character.
(link:"Are you Ready?")[Great! Now you must first assemble a character.
You can do it manually, cutomize a prompt or randomly generate a description.
(event:when time > 0.5s)[(replace:?custom)[Which one are you going to do?
|=
(link:"Manually write a description")[(replace:?custom)[(input-box:bind $description,"=X=","My character is...")
[[Confirm->Drawcharacter SingPlay]]
] ]
=|=
(link:"Customize a prompt")[(replace:?custom)[My character is (live:0.5s)[(if:$speciesname is "otter"or $speciesname is "elf")[an](else:)[a]] (dropdown:bind $speciesname, "human","cat","dog","rabbit","otter","dinosaur","elf","fairy","dragon","kitsune","monkey") (dropdown:bind $profession, "boy","girl","[none]","princess","prince","doctor","scientist","magical girl","magiacal boy","samurai","ninja","chef","baker","pirate","wrestler","robot") with (dropdown:bind $hair, "no hair","plain short hair","plain long hair","[none]","spiky short hair","spiky long hair","two short pigtails","two long pigtails","a long pigtail","a short pigtail","two short ponytails","two long ponytails","a long ponytail","a short ponytail","a mullet","long dreadlocks","short dreadlocks","a single hair bun","double hair buns","double drill hair","double looped hair","mowhawk hair","spiky mowhawk hair","an afro","messy hair") and (dropdown:bind $horns, "a purse","a backpack","a walking stick","a magic wand","a samurai sword","a polestaff","[none]","deer antlers","bull horns","a unicorn horn","ram horns","goat horns","triceratops horns").
(live: 0.5s)[(if:$hair is "" or $horns is "")[ ](else:)[ [[Confirm->Drawcharacter SingPlay]] ] ]
] ]
=|
(link:"Randomize a prompt")[(replace:?custom)[(display:"Random Character singplay")
]]
|==|
]]
|custom)[] ]Now you must draw a chararacter based on the following prompt:
<h3>(if:$description is 0)[My character is (if:$speciesname is "otter"or $speciesname is "elf")[an](else:)[a] $speciesname $profession with $hair and $horns](else:)[$description]</h3>
|=
(link-reveal-goto:"New character","Draw a Character SingPlay")[(set:$description to 0)]
=|
(link-reveal-goto:"Return to main menu","Main Menu")[(set:$description to 0)]
|==|(set:$speciesname to (either: "human","cat","dog","rabbit","otter","dinosaur","elf","fairy","dragon","kitsune","monkey") ) (set:$profession to (either:"boy","girl","princess","prince","doctor","scientist","magical girl","magiacal boy","samurai","ninja","chef","baker","pirate","wrestler","robot") ) (set:$hair to (either:"no hair","plain short hair","plain long hair","spiky short hair","spiky long hair","two short pigtails","two long pigtails","a long pigtail","a short pigtail","two short ponytails","two long ponytails","a long ponytail","a short ponytail","a mullet","long dreadlocks","short dreadlocks","a single hair bun","double hair buns","double drill hair","double looped hair","mowhawk hair","spiky mowhawk hair","an afro","messy hair") ) (set:$horns to (either:"a purse","a backpack","a walking stick","a magic wand","a samurai sword","a polestaff","deer antlers","bull horns","a unicorn horn","ram horns","goat horns","triceratops horns") )
My character is (if:$speciesname is "otter"or $speciesname is "elf")[an](else:)[a] $speciesname $profession with $hair and $horns.
(link-rerun:"Randomize")[(replace:?custom)[(display:"Random Character singplay") ] ]
(link-reveal-goto:"confirm","Drawcharacter SingPlay")[(set:$description to "My character is a $speciesname $profession with $hair and $horns."]