View source for Programming:Adventure.txt for Fiction!

'''adventure.txt'''

<source lang="tcl">
    Room new Home {Home, sweet home...} -name {your home} 
    Home ways n Garden
    Home ways s Mind
    Home object Razor {There is a razor that is really dirty.} -name "a razor"
    Home object Snake {There is a snake that is really slithery.} -name "a snake"

    Room new Garden {You stand in a wonderful garden with flowers of all essences.} -name "the garden"
    Garden ways s Home
    Garden object Flower {A beautiful rose.} -name "a flower"
    Garden person Claire -name "a girl" -state unknown

    Snake take ack {You take the snake.}
    Snake act ack {The snake climbs all over your head. Mmmh, this is nice.}

    Razor take ack {You take the razor.}
    Razor act ack {You are shaving. Mmmh, this is nice.}

    Room new Mind {You are inside your mind.} -name "your mind"
    Mind ways n Home
    Mind ways s Mind

    Flower take ack {You take this rose.}

    Claire talk -state unknown {
	I say "Hi! How do you do?"
	Claire says "I'm Claire. How do you do?"
	I say "I'm Julien. Nice to meet you!"
	Claire says "Nice to meet you, Julien!"
	Claire set-name Claire
	Claire set-state default
    }	

    Claire talk -state angry {
	I say "Claire?"
	Claire says "I'm not talking to you!"
    }

    Claire talk -state default dummy

    Flower use Claire -state angry {
	Claire says "Flowers are nicer than snakes."
	Claire set-state default
    }

    Flower use Claire -state unknown {
	Claire says "Oh, thanks a lot! I love these flowers."
	Claire set-state default
    }

    Snake use Claire {
	Claire says "Eeek!  A snake!!"
	Claire set-state angry
    }

</source>