// Character definitions:
$player         "Hiro Protagonist"     hiro.pcx
$player         surprised              hiro_surprised.pcx

$guard          "Guard"                 guard.pcx
$guard          sad                     guard_sad.pcx

// A conversation named talk_guard starts here:
:talk_guard
@guard
Halt!  Who goes there?

!jackets;I'm selling these fine leather jackets...
!inspector;Uh, wallet inspector!
!bye;Nobody!  Bye!

:jackets
@guard
Great!  Let's see your
inventory.
#if have_jacket sell_jacket

@player surprised
Oh!  Er... I guess I'm all out of
stock...

@guard
Then get lost!

:inspector
@guard
Ha!  I don't have a wallet.

I keep all my cash in my jacket
pocket.

@player
Then I shall have to see your
jacket.

@guard
Fair enough, here you go.

@blank
The guard takes off his
leather jacket, and hands it to
you.

@player
This appears to be in order, sir.

@guard
Good, then let me have it
back.

@player
Let you have what back?

@guard
Damn!

@blank
You have acquired a leather
jacket.

#set have_jacket

:sell_jacket
@player
I have this fine model right
here.

@guard sad
That's my jacket!

@player
Look, you can have it back if
you just let me in.

@guard sad
Fine!  Just get out of here!

@blank
You give the guard his jacket
back, and he waves you
through the gate.

#clear have_jacket
#teleport inside_building

:bye
#end