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>