# Ghost King, aka Rotten Adventure, aka Danishland, aka Ghost Mission
# What if Scott Adams had written Hamlet?
# Let's find out.

# jcompton
# Thanks to kochagnawski for inspirations

# Resources used:
# ScottKit
# trizbort.io
# Scottfree 
# original Hamlet text
# Lennox Forrester's Sudden Shakespeare: Hamlet edit for Madison Shakespeare Company

# Tester thank you to: J.J. Guest, Laura B.K., Henrik Åsman, Karona, Mike Carletta, Dokken, pdxiv, ahope1 (also thanks for online hosting pointer)

# IFID 31a90973b5885cec7b4758917ff6faf1 - (set from md5 of final .sao/.dat)

# Global Configuration

ident 1603
version 7
wordlen 4
maxload 25
# lighttime 100

start bedroom
treasury purgatory 
# purgatory is also the death limbo!

# Infrastructure actions

action inventory: inventory
action take inventory: inventory
action score: score
action save game: save_game
action look: look

action quit game
	print "Drink deep ere you depart!"
	game_over

action quit:
	print "Drink deep ere you depart!"
	game_over

# Standard synonyms
verbgroup go enter follow run walk
verbgroup take get
verbgroup leave drop
verbgroup examine read x
verbgroup kiss love fuck screw
verbgroup cheer applaud clap
verbgroup monologue soliloquy
verbgroup sleep dream
verbgroup help hint
verbgroup kill stab lunge
verbgroup trick fool
verbgroup talk ask hello
verbgroup write bequeath tell

noungroup queen gertrude
noungroup ghost king
noungroup claudius rat arras man
noungroup goblet cup poison
noungroup water bottle
noungroup polonius guts corpse
noungroup will testament instructions denmark
noungroup inkpad pad
noungroup fortinbras norway

occur when !flag 1
	print 
"Welcome to GHOST KING S.A.L.A.D. #1
Scott Adams Literary Adventure Diversions
This should have been 1980's hottest game\n
I am PRINCE HAMLET
My father is DEAD, KILLED by my unclefather
What are we going to DO about it?\n"
	set_flag 1
	
# Use of flags
# Flag 1: game started?
# Flag 2: Spoke with ghost (got main quest)
# Flag 3: Resolved Ophelia 1 (Got rid of her in manor)
# Flag 4: Players created
# Flag 5: Players praised
# Flag 6: During Claudius chapel encounter
# Flag 7: During Ophelia 2 encounter
# Flag 8: Resolved Ophelia 2 encounter (GET OPHELIA)
# Flag 9: Started Gertrude encounter
# Flag 10: Revealed hiding Polonius
# Flag 11: Killed Polonius
# Flag 12: Disposed of Polonius
# Flag 13: Monologued with skull, triggered funeral
# Flag 14: Resolved R&G
# Flag 15: DO NOT USE: RESERVED DARKNESS
# Flag 16: Got Laertes challenge
# Flag 17: Arrived in tourney, start the endgame
# Flag 18: Poisoned by Laertes, counter running
# Flag 19: RESERVED FOR FUTURE USE
# Flag 20: RESERVED FOR FUTURE USE
# Flag 21: RESERVED FOR FUTURE USE
# Flag 22: Met the Fortinbras messenger
# Flag 23: During WRITE WILL's TO WHOM?

# Use of counters
# Counter 1: General purpose to track completed tasks (used in Ophelia 1 and Ophelia 2)
# Counter 1: countdown timer after kill Polonius (clear when DROP at platform)
# Counter 1: countdown timer after poisoned by Laertes (never cleared!)

# DEBUG actions

# Preamble actions

# Rooms, Items, and Associated actions

room bedroom "*My princely bedroom"

item wardrobe "Wardrobe"

item robe "*Robe*"
  called robe
  nowhere

item dagger "Dagger"
	called dagger
	nowhere

item door "Closed door"

item door2 "Open door leads out"
    nowhere

action open wardrobe when here wardrobe
	swap wardrobe robe
	drop dagger
    look	

action examine robe when present robe
    print "It's DEPRESSING"

action examine dagger when present dagger
    print "PLENTY sharp"

action open door when here door and !carried robe
    print "Too sad, need protection"

action open door when here door and carried robe
    swap door door2
    look

action go door when here door2
	goto hallway
	look

action go out when here door2
	goto hallway
	look


room hallway "Hallway"
exit south bedroom
exit west royalbedroom
exit north grandroom

# Ophelia 2 will appear here, for GET OPHELIA

occur when at hallway and here ophelia
	print "UH OH Ophelia tracked me down again
Looks VERY upset now
'I was the more deceived!'"
	set_flag 7
	set_counter 1

# The initial system for doing this showed weird results. Adding the counter helped.

occur when flag 7 and counter_gt 0 and !at hallway
	print "Ophelia THROWS herself at my feet!\nI TRIP and break my NECK!"
	game_over

action get ophelia when flag 7 and here ophelia
	print "*GET THEE TO A NUNNERY!* I shout
she SHRIEKS back 'I was the more deceived! O woe is me!'
and runs away"
	destroy ophelia
	clear_flag 7
	set_counter 0
	set_flag 8
	put gertrude gcloset

room watchtower "Watchtower"
	exit down grandroom
	exit west platform 

item bernardo "Bernardo"

item francisco "Francisco"

occur 25% when at watchtower
	print "Stand HO! Who's THERE?"

occur 25% when at watchtower
	print "Have you had QUIET guard"

action talk bernardo when here bernardo
	print "When I'm upset I CLENCH FIST to calm down"

action talk francisco when here francisco
	print "How are you, beautiful?"

room royalbedroom "Royal Bedroom"
	exit east hallway 
	exit west gcloset

# turn back into an occur 30% if strings remain?
item couch "couch for luxury & damned incest"

room gcloset "*My auntmother Gertrude's closet"
	exit east royalbedroom

occur 40% when at gcloset
	print "Mother has a LOT to answer for!"

# Yeah, I don't care that you can hear these whispers from anywhere on the map.
# It might, in retrospect, be interesting to use a flag to track things like
# "Am I inside the Castle Elsinore walls, or am I Elsewhere?" and since there's
# only one way in or out of the castle it probably wouldn't be that hard to do
# But hearing these whispers all the way over on the docks or in the graveyard
# feels very authentic to me...

occur 33% when flag 8 and !flag 9
	print "I hear WHISPERS in the queens chamber"

occur when here gertrude and !flag 9
	print "'What wilt thou do? Thou wilt not murder me?!'
Calls HELP"
	set_flag 9

action kill gertrude when here gertrude
	print "Too mean"

action yell gertrude when here gertrude and !flag 10
	print "feels so GOOD!
A man behind the arras shouts HELP
It must be that rat CLAUDIUS!
In the incestuous pleasure of his bed!"
	set_flag 10

# ScottKit Issue 38: A flaw in the compiler means that continue is not always automatically used. Double swap_room tricks the
# compiler into making the necessary adjustments. The bug was not addressed by time GHOST KING was ready for release.

action kill claudius when at gcloset and flag 10 and !flag 11
	print "*DEAD FOR A DUCAT!*
Wait NOT CLAUDIUS at all!
I killed Polonius, Ophelia's dad
'What a RASH and BLOODY deed!' Gertrude runs away!
Time to LUG THE GUTS!"
	pause
	drop polonius
	swap_room
	swap_room
	set_flag 11
	set_counter 20
	put gertrude tourney

# 20 turns to hide polonius away!

occur when exists polonius
	dec_counter
#	print_counter
# 	used for debugging

occur when at throneroom and exists polonius
	print "The guards link me to Polonius' body!
I am EXECUTED!"
	pause
	game_over

occur when at gates and exists polonius
	print "The guards link me to Polonius' body!
I am EXECUTED!"
	pause
	game_over

occur when counter_le 0 and exists polonius
	print "The guards link me to Polonius' body!
I am EXECUTED!"
	pause
	game_over

# new to V3

action drop polonius when at bedroom and carried polonius
	print "The guards link me to Polonius' body!
I am EXECUTED!"
	pause
	game_over

# Not strictly the same approach Hamlet takes in the play.
# But I like it, and it (intentionally) misuses the "body/king" line

action drop polonius when at platform and carried polonius
	print "*The body is with the King
but the King is not with the body*
Polonius disappears over the side!
Dropped something
I see a crowd near the cemetery"
	pause
	destroy polonius
	drop cape
	put skull cemetery
	put horatio cemetery # V4
	set_counter 0
	set_flag 12


# Confront Gertrude (YELL)
# Kill (man) Polonius (starts timer to hide him)
# Dispose of Polonius (on platform, timer running) - if you go into Throne Room or Gates with him or before he's successfully hidden, you're spotted/killed


room cashroom "Treasury"
	exit east grandroom 
	exit west library 

item money "Money"
	called money

room grandroom "Grand Room"
	exit south hallway
	exit up watchtower 
	exit west cashroom
	exit east throneroom 
	exit north gates 

item horatio "Horatio"

item inkpad "*Guildenstern inkpad*"
	called inkpad
	nowhere

item players "Players"
	nowhere

### XXX cut strings here if needed!

occur 25% when here players and at grandroom
	print "'Anon he finds him striking too short!'"

occur 25% when here players and at grandroom
	print "'The bold winds SPEECHLESS'"

# V5 needed to free up a string, boo

# occur 25% when here players and at grandroom
#	print "'The HUSH of DEATH'"

occur 25% when here players and at grandroom
	print "'This is too long!'"

occur 15% when here horatio and !here players and !at tourney
	print "Here sweet lord at your SERVICE"

# will already done, no reason to repeat

action write will when exists inkpad
	print "No thanks"

action write will when !here horatio and present pen and present paper
	print "Need a witness"

action write will when here horatio and !present seal
	print "My lord I cannot properly witness without my SEAL
I have misplaced it!"

# Is it worth freeing up a message to add some sort of "need pen and paper"?

action write will when here horatio and present paper and present pen and present seal
	print "To whom? (type TO NAME)"
	set_flag 23

# Issue 38 

action to fortinbras when flag 23
	print "Horatio is SHOCKED 'Young Fortinbras?!
Of unimproved mettle hot and full?!'
*DENMARK'S A PRISON Fortinbras is WELCOME to it!*
he SEALS the will and solemnly files it
'Take this inkpad, my lord. Twas never mine
and never shall I notarize again!'"
	swap_room
	swap_room
	destroy paper
	destroy seal
	drop inkpad
	clear_flag 23

# Not issue 38, just reusing a string (trying to save bytes at the cost of burning a message)

action to when flag 23
	print "An unworthy choice! *What an ass am I!*"
	pause
	print "*Break my heart for I must hold my tongue!*
I COLLAPSE into melancholy and NEVER recover"
	game_over

occur when flag 23 and !here horatio
	clear_flag 23

action write will:
	print "A weighty matter for pen paper and willing WITNESS"

action talk horatio when present goblet and at tourney
	print "'I am more an antique Roman than a Dane
Here's yet some liquor left' he REACHES for the goblet
*GIVE ME the cup! Let go by heaven I'll have't!*"

# Issue 38

action talk horatio when here horatio and present grave
	print "I must to POLONIUS MANOR and seal some legal
business pertaining to their deaths
More in sorrow than in anger!"
	put horatio grandroom
	swap_room
	swap_room
	put seal manor


action talk horatio when !flag 2 and here horatio
	print "My lord I think I saw him yesternight\na FIGURE like your FATHER!"

action talk horatio when flag 16 and here horatio
	print "He looks SAD!
'You will lose this wager my lord'
*THE READINESS IS ALL*"

# pretty good fall-through range of the game to get this hint!

action talk horatio when flag 2 and here horatio
	print "I fear for Denmark with young Fortinbras of Norway
and his shark'd up list of lawless resolutes
if only I knew your WILL"

action talk players when here players and !flag 5
	print "'And PASSION in the GODS.'\nThey look disappointed"

 action cheer players when here players and !flag 5
	print "They bow and look VERY happy!"
	set_flag 5

 action talk players when here players and flag 5
	print "We accept commissions my lord"

# XXX GITHUB ISSUE 38 - swap room

# bug in v1: play could start by dropping script in throneroom! Fixed

 action give script when here players and flag 5 and present script
	print "We can play the MURDER OF GONZAGO!\nThey exit to the throne room\nThe play is ABOUT to begin!"
	swap_room
	swap_room
	put players throneroom
	put script throneroom

room platform "Platform overlooking Elsinore Village"
	exit east watchtower

item ghost "GHOST of King Hamlet!"

# Was originally 7%. That's just too brutal, even if authentic. Must spend five turns there!

occur 4% when at platform
	print "Too SLIPPERY! I FALL!"
	game_over

# Not a real Issue 38 issue: we'll reuse the "SWEAARR" bit and call it a wash.

action talk ghost when here ghost and at platform
	print "If thou didst ever thy dear father love--
Revenge his foul and most unnatural murder
Send Claudius to HELL
And bring me the *treasures* of my ENEMIES!"
	pause
	print "A ghostly voice cries SWEAAAAAARRRRR!"
	set_flag 2
	put ghost purgatory
	put ophelia manor

occur 2% when flag 2 and !at purgatory
	print "A ghostly voice cries SWEAAAAAARRRRR!"

room throneroom "Throne Room"
	exit west grandroom
    exit south chapel 

item staircase "Staircase to Tourney Room"
	nowhere

item gertrude "Queen Gertrude"
	nowhere

item claudius "Claudius"
	nowhere

# Too lazy to implement a sword-picking sequence so let's just make sure they're armed

action go staircase when here staircase
	superget dagger
	put horatio tourney
	goto tourney
	look

occur when at throneroom and flag 6
	print "Wrong WAY!\nI feel a blood vessel go *POP*\nand collapse in embarrassment!"
	pause	
	game_over

action examine claudius when here claudius
	print "The PRETENDER, my unclefather"

action examine gertrude when here gertrude
	print "My mother who married my uncle who killed my FATHER!"

# Was doubled up in v1 with different message, removed

action talk gertrude when here gertrude
	print "Good Hamlet cast thy nighted colour OFF"

item polonius "Dead Polonius"
	called polonius
	nowhere

item cape "*Polonius Cape*"
	called cape
	nowhere

occur 50% when at throneroom
	print "Just BEING here makes me SO ANGRY"

# No point having Gertrude, Claudius, or any other object in the room to watch the play, we won't 
# be told they are there.

occur when at throneroom and here players
	print "The court assembles to watch
The players act the MURDER of GONZAGO
The evil BROTHER poisons the good KING
Claudius SCREAMS and runs to the chapel
*HA! I did very well note him!*
Servants call LIGHTS and all scatter"
	pause
	pause
	put claudius chapel
	put roffense chapel
	destroy players

# create stairs later to lead to the tourney room

room gates "Castle Gates"
	exit south grandroom 
  	exit north village 

# GITHUB ISSUE 38 AGAIN, swap room

occur when at gates and flag 3 and !flag 4
	print "Rosencrantz & Guildenstern here, WHY?!
'If you delight not in man, what lenten entertainment
the players shall receive from you. They are coming 
to offer you service!' They SLITHER away"
	pause
	swap_room
	swap_room
	put players grandroom
	set_flag 4

# This will repeat any time the player revisits the gates from now on. I'm okay with that.

item osric "Osric pointing to the TOURNEY STAIRS"
	nowhere

# issue 38

occur when at gates and flag 14 and !exists osric
	print "OSRIC here with a DUEL CHALLENGE!
The king hath wagered with LAERTES
he will not exceed you three hits
It would come to immediate trial!
meet for tourney beneath the throne"
	swap_room
	swap_room
	drop osric
	put staircase throneroom
	set_flag 16

room village "*Elsinore village. Famous FLOWER SHOPS"
	exit south gates 
  	exit west docks 
    exit east cemetery 
  	exit north manor

item flowers "Flowers"
	called flowers
	nowhere

# Will repeat until resolved, am okay with it

occur when exists ship and at village
	print "Rosencrantz & Guildenstern return
'Everything is bent for England
Come away with us, lord!'"
	pause

# TESTERS: This would be really useful to check out, is it ever possible to have counter >0 another time?

occur when counter_gt 0 and at village
	print "Ophelia THROWS herself at my feet!\nI TRIP and break my NECK!"
	pause
	game_over

# Could buy flowers anywhere in v1, fixed

action buy flowers when at village and carried money
	print "very pretty DAnish flowers!"
	swap flowers money

room docks "Docks"
exit east village 

item sailor "Sailor"

item pen "*Rosencrantz Pen*"
	called pen
	nowhere

item paper "blank paper"
	called paper
	nowhere

item ship "Ship"
	nowhere

occur when exists ship and at docks
	print "Rosencrantz & Guildenstern practically
SHOVE me onto the ship!"

action talk sailor when here sailor
	print "YOHO!"

action trick sailor when here ship
	print "I borrow Rosencrantz's pen and
FORGE LETTERS showing he & Guildenstern
are TRAITORS to be marked for death
Sailor takes my FALSE FRIENDS to England without me!"
	pause
	destroy sailor
	destroy ship
	get pen
	put paper library
	set_flag 14

action go ship when here ship
	print "Rosencrantz & Guildenstern grab me
and force me aboard the ship. We sail for England
where I learn Claudius conspired to
ARRANGE MY EXECUTION there!"
	pause
	game_over

occur when at gates and exists ship
	print "Rosencrantz & Guildenstern grab me
and force me aboard the ship. We sail for England
where I learn Claudius conspired to
ARRANGE MY EXECUTION there!"
	pause
	game_over

room cemetery "Cemetery"
	exit west village

item skull "*Skull*"
	called skull
	nowhere

item grave "Ophelia's GRAVE"
	nowhere

action examine grave when here grave
	print "What the fair Ophelia?! I loved her!"

action examine skull when carried skull
	print "My gorge rises at it"

action monologue when carried skull and !flag 13 and at cemetery
	print "*Alas poor Yorick! I knew him Horatio
To what base uses we may return!*\n
funeral procession comes. BURYS Ophelia
Her brother Laertes YELLS as he leaves
'THE DEVIL TAKE THY SOUL!'"
	pause
	set_flag 13
	drop grave
	put ship docks

# I am calling the fact that you can't interact with or drink from the font
# 100% intentional and authentic, it's exactly the kind of dumb annoyance
# one would expect from 1980's best worst literary adventure

room chapel "Chapel complete with font"
	exit north throneroom 

item roffense "Rank offense SMELLS to HEAVEN"
	nowhere

occur when at chapel and here claudius and !carried dagger
	print "*Now might I do it pat!* But I brought NO weapon!
I feel a blood vessel go *POP* and collapse in embarrassment!"
	pause
	game_over

occur when at chapel and here claudius and !flag 6
	print "Claudius KNEELS and PRAYS!
He does not see me, *now might I do it pat!*\n
UH-OH! Feel a tickle in my throat!"
	set_flag 6
	pause
	set_counter 50

# Countdown. 4 turns from start at 50 to DRINK WATER
# 4 turns from start at 40 to CLENCH FIST
# 4 turns from start to MONOLOGUE

occur when flag 6
	dec_counter
#	print_counter
# 	used for debugging

occur when flag 6 and counter_gt 40 and counter_le 45
	print "I *COUGH* noisily! SPOOKS Claudius!
He crashes into the font where I hide
It falls and CRUSHES me"
	pause
	game_over

action kill claudius when flag 6 and carried dagger
	print "Stabbed him! Feels GOOD!
But I killed him as he prayed
And sent this same villain to Heaven!
Guards arrive to dispatch me, I DIE in eternal SHAME"
	pause
	game_over

action drink water when carried water and flag 6
	print "Throat feels better WHEW!
oh no TERRIBLE thought
*This is hire and salary, not revenge!*
HOW can I resist??"
	destroy water
	set_counter 40

occur when flag 6 and counter_gt 30 and counter_le 35
	print "CAN'T resist anymore!"
	pause
	print "Stabbed him! Feels GOOD!
But I killed him as he prayed
And sent this same villain to Heaven!
Guards arrive to dispatch me, I DIE in eternal SHAME"
	pause
	game_over

action clench fist when flag 6 and counter_gt 35 and counter_le 40
	print "It WORKED! I am more calm now
But he took my father GROSSLY
feel so torn!"
	set_counter 30

occur when flag 6 and counter_gt 20 and counter_le 25
	print "*Break my heart for I must hold my tongue!*
I COLLAPSE into melancholy and NEVER recover"
	pause
	game_over

# GITHUB ISSUE 38 swap room

action monologue when flag 6 and counter_gt 25 and counter_le 30
	print "*Am I then reveng'd when he is FIT\nand SEASONED for his passage? No!
UP, sword! Prolong thy sickly days*\n\nClaudius mumbles amen and SKULKS off"
	put claudius tourney
	swap_room
	swap_room
	destroy roffense
	clear_flag 6
	set_counter 0
	put ophelia hallway


# XXX obvious string saving oppty

action drink water when carried water and !flag 6
	print "No thanks"

# DRINK WATER to prevent cough
# CLENCH FIST 
# then MONOLOGUE

room manor "Polonius Manor"
	exit south village

item water "Water bottle"
	called water
	nowhere
# drink in chapel to prevent cough
# Ophelia will drop when she runs away

item ophelia "Ophelia"
	nowhere

item seal "Notary seal"
	called seal
	nowhere

# Ghost encounter puts Ophelia in the manor

# two tasks to dispatch Ophelia 1, so set counter to 3 and count down.

occur when counter_le 0 and at manor and here ophelia
	print "Ophelia looks VERY happy to see me"
	set_counter 3


action give flowers when carried flowers and here ophelia
	print "GOOD idea!\nOr maybe not! She's so DEMANDING!"
	destroy flowers
	dec_counter

action yell ophelia when !flag 3 and counter_eq 2
	print "She runs off crying! WHEW!
Dropped something"
	pause
	set_counter 0
	set_flag 3
	swap ophelia water

# doesn't perfectly mirror the conditions above but shouldn't be possible during Ophelia 2

action yell ophelia when here ophelia and counter_gt 2
	print "Try something softer first"

action talk ophelia when here ophelia
	print "Importune me with love"

action kiss ophelia when here ophelia
	print "I did love her once"

action kill ophelia when here ophelia
	print "Too mean"

# Am okay with this just being a sloppy result *after* she's been GET'ted

# action get ophelia when !flag 7 and here ophelia
#	print "not yet"

room library "Library"
	exit east cashroom

item book "Book"
	called book

occur when at library and here paper and !flag 22
	print "Messenger brings news that NORWAYS FORTINBRAS marches
on Poland. *Witness this army of such MASS and CHARGE
I see the imminent DEATH of twenty thousand men!*"
	set_flag 22

action read book when carried book and !flag 3
	print "Too distracted now, try later"

# In v1 script being destroyed made this repeatable, fixed

action read book when carried book and !exists script
	print "Words words words\nPaper I used as a bookmark FALLS out!"
	put_with script book

# This should work as a default message

action read book when carried book
	print "Wild and WHIRLING words"

item script "Script"
	called script
	nowhere

action read script when carried script
	print "Play script: The MURDER of GONZAGO!
about fratricide & other TERRIBLE acts
CLAUDIUS is also guilty of!"



# It's safe to put anything in tourney temporarily as long as it's gone by the end, or belongs in Act V

room tourney "Tourney Room"

# Description for Laertes if space left over?
# TALK CLAUDIUS if space left over?

item laertes "Laertes"

# Goblet drops after Gertrude dies (Claudius looks NERVOUS! when she drinks)
item goblet "POISONED Goblet"
	called goblet
	nowhere

item ring "*Queens ring*"
	called ring
	nowhere

item foil "*Laertes foil*"
	called foil
	nowhere

item crown "*THE CROWN*"
	called crown
	nowhere

item bodies0 "a pair of corpses"
	nowhere

item bodies "a pile of bodies"
	nowhere

occur when at tourney and !flag 17
	print "The duel is SET. Claudius summons CUPS
tosses a pearl in one 'to thy health'
Laertes picks a sharp FOIL of a length
'Come MY LORD' he says. ENGARDE!"
	pause
	set_flag 17

# Action order for all this kill laertes biz obviously needs a lotta testing!

# Dagger check stands in for setting yet another flag to prevent funny business

action trick laertes when here laertes and !carried foil and exists dagger
	print "We trade blows but more important we trade WEAPONS!
'Part them they are incensed!'
Queen drinks, Claudius looks NERVOUS!"
	destroy dagger
	get foil

action poison claudius when present goblet and here claudius
	print "'O yet defend me friends!'
I FORCE the poison down CLAUDIUS throat!
*FOLLOW MY MOTHER*
He dies AT LAST"
	destroy claudius
	drop crown
	destroy bodies0
	drop bodies

# Let's be generous and offer two ways to do this! Inauthentic, perhaps...

action give goblet when present goblet and here claudius
	print "'O yet defend me friends!'
I FORCE the poison down CLAUDIUS throat!
*FOLLOW MY MOTHER*
He dies AT LAST"
	destroy claudius
	drop crown
	destroy bodies0
	drop bodies

action kill laertes when carried foil and here laertes
	print "Laertes COLLAPSES
'I am justly kill'd with mine OWN treachery!
The king! the kings to blame!'\n
Gertrude CRUMPLES 'The drink! O my dear Hamlet!'"
	destroy laertes
	destroy gertrude
	drop bodies0
	drop goblet
	drop ring

action kill laertes when here laertes and counter_gt 1
	print "'they bleed on both sides!'
the QUEEN looks SAD"

action kill laertes when here laertes and !flag 18
	print "'A very palpable hit!' says OSRIC
Laertes scores back with his FOIL
The wound BURNS!"
	set_counter 21
	set_flag 18


# Can accelerate to end by drinking the last of the poison

action drink goblet when present goblet and at tourney
	print "The poison OVERCOMES me
*I DIE Horatio! Tell my story!*\n
sound of a DRUM then all is dark"
	pause
	pause
	clear
	clear_flag 18
	die

occur when flag 18 and counter_gt 1
	print "I feel WEAKER"
	dec_counter
#	print_counter
#   Used for debugging

# Sword poison does its work

occur when flag 18 and counter_le 1
	print "The poison OVERCOMES me
*I DIE Horatio! Tell my story!*\n
sound of a DRUM then all is dark"
	pause
	pause
	clear
	clear_flag 18
	die

action examine foil when at tourney
	print "Looks FISHY to me"

action examine goblet when at tourney
	print "Looks FISHY to me"


# LAST Room

room purgatory "Purgatory, be JUDGED by your FATHER!"

action talk ghost when at purgatory
	print "My hour is almost come
Drop treasures and SCORE
or ADMIT FAILURE"

action admit failure when at purgatory
	print "You are proved duller than the fat weed
that rots itself in ease!"
	game_over

# alpha 2 new elements

action kiss when here gertrude
	print "Danish tragedy, not GREEK!"

action kiss when here claudius
	print "Danish tragedy, not GREEK!"

action kiss when here ghost
	print "Danish tragedy, not GREEK!"

# fallthrough default actions also added in alpha 2

action kiss:
	print "This is no DREAM its a serious tragedy!"

action macbeth:
	print "Angels and ministers of grace defend us"

action dream:
	print "*I could be bounded in a nut shell and
count myself a king of infinite space
were it not that I have bad DREAMS*"

action help:
	print "What, art a heathen?
Try reading HAMLET!"

action monologue:
	print "I assume the pose, nothing comes out"

action examine:
	print "Pretty ordinary Danish" 
	println_noun

action bear hamlet
	superget xyzcredits

item xyzcredits "Affectionate tribute pastiche of W Shakespeare and S Adams by J Compton-test thanks to JJ Guest-Laura BK-Henrik A-Karona-Mike C-ahope1-Dokken-pdxiv-created in Mike T's ScottKit"
	called xyzcredits
	nowhere

# player either wins by dropping all treasure and SCORE or by (doing something? ADMIT FAILURE?)

# Critical path:
# X Get out of bedroom
# X Encounter Horatio (he needs multiple quest-nudging details)
# X Encounter Ghost, get Mission, set flag 2
# X Avoid Ophelia 1 (give flowers, maybe also YELL?) - if you don't she throws herself at your feet, tripping you and you die
# X Read Book, gets PAPER and unlocks PLAYERS quest (can't read book until Ophelia 1 solved)
# X Players are created with narrative about R&G at castle gates
# X Enlist players "we take commissions!" (praise, then give script)
# X Go to throne room to see play
# X Avoid killing Claudius (must have dagger or get aneurism, DRINK WATER to prevent cough, then CLENCH FIST, then MONOLOGUE)
# X GET (rid of) Ophelia [situation for funeral]
# X Confront Gertrude (YELL GERTRUDE)
# X Kill (RAT or CLAUDIUS but really) Polonius (starts timer to hide him)
# X Dispose of Polonius (on platform, timer running) - if you go into Throne Room or Gates with him or before he's successfully hidden, you're spotted/killed
# X Go to cemetery, get *skull, MONOLOGUE, funeral starts, get challenge from Laertes
# X After funeral, R&G show up and annoy you. TRICK SAILOR to get rid of them. If you enter the castle with them around they haul you onto the ship and you die
# X Obtain stamp from Polonius Manor and paper from library, go to Horatio, WRITE WILL -- TO FORTINBRAS, don't overlook the inkpad!
# X critical path for Laertes fight
# X KILL LAERTES (get wounded, poison timer starts)
# X TRICK LAERTES (switch weapons)
# X KILL LAERTES (he dies, also somewhere in here Gertrude dies of poison)
# X POISON CLAUDIUS (goblet present, destroy goblet, destroy claudius, create crown)
# X Don't forget to GET CROWN and GET RING
# X Die either when timer expires or drink poison yourself
# X In hell, either drop all treasures and SCORE, or ADMIT FAILURE

# FIX BEFORE RELEASE:

# X Rename .sao to .dat
# X Platform death rate higher after first alpha tests!
# X Remove counter printout
# X Reformat to 64 chars wide?
# X Fix DROP POLONIUS mistakes
# X Remove debug actions

# Potential enhancements: 

# New puzzle to convince Horatio to keep silent? (ENACT MADNESS, etc.)
# New puzzle to get rid of gravediggers which then unlock the skull? (and proceed normally from there)
# X Switch from second-person to first-person? (Adams wrote all first-person)
# X More for Horatio to say?
# X Tighten up which pre-duel deaths are DIE vs. GAME_OVER? (Maybe only reach purgatory from the duel?
# - X All are game_over. Saves the "surprise" of score-or-admit for those who make it to the endgame
# Timers sufficiently fair/unfair?
# MESSAGES LOST TO ISSUE 38 AS OF 6/4/20: 0 (swap room workaround)
# More character descriptions (Laertes)
# More talk/oneliner options? (Laertes, Claudius)
# Better allocation of oneliners? (right now a lot for the players, but isn't that appropriate?)
# X This might include a few custom responses for Shakespeare nerds who might want responses
# X to things like SONNET or MACBETH or etc.
# More verb synonyms?
# Support SEND OPHELIA?
# More noun synonyms?
# O More fallthrough verbs like EXAMINE generic response?
# ENACT MADNESS (is this better than YELL OPHELIA, for example? Or a first-move puzzle? Or a post-ghost?)
# X Revisit Ophelia #2 (used counter, now die when leaving hallway if not solved)
# X Revisit Horatio at the funeral
# X Increment from 2-pile of bodies in tourney?

# THE WILL QUEST:

# X Fill current Horatio talk gap with "what will become of Denmark?", hint of Fortinbras

# X Put Horatio at funeral
# X Horatio talks about setting paperwork at cemetery
# X Horatio goes back to hallway after funeral
# X Drop seal in manor after funeral

# X Get messenger about Fortinbras when you encounter paper

# After TRICK SAILOR:
# X Player GETs Rosencrantz's *pen*
# X Create paper in library
# Horatio able to talk about will with different info?

# X Player must have pen and paper

# X WRITE WILL

# X - no Horatio, "Need a witness"
# X - w/Horatio, need his seal
# X - w/Horatio and seal, then asks "TO WHO?"
# X TO FORTINBRAS [turns out SA style is not to gate this at all, so the "WRITE WILL" is just a no-op]
# X WRITE BEQUEATH TELL
# X WILL/TESTAMENT/INSTRUCTIONS/DENMARK

# X drop *Guildenstern inkpad*