TILEMASTER2004 DATA V1
SCRIPT: 125
0 AddKeyWords bye 2 name 5 job 5 1 10 2 20
0 Message "Good day, and welcome to the theater!  Today we have a wonderful performance of an exotic instrument called an 'E flat recorder'.  We also have a harpsichorde performance of fantastic pieces by some of the greatest composers of all time.  Payment is only 4 gold for all performances.  You'll find our theater is very comfortable and has wonderful accoustics.  It is just upstairs."
0 Pause
1 Message "Would you like to attend a performance?"
0 Message "1: E flat recorder for 4 gp"
0 Message "2: Harpsichorde for 4 gp"
0 DoStringInput -PROMPT -IMESSAGE "Hmm?  " -NNL -ITAG 1
2 Message "Farewell, and do return soon."
0 BREAK
5 CMessage "I'm the theater manager.  "
0 GOTO 1
10 Message "You're in luck.  That performance starts in just a few minutes."
0 Pause
0 Message "[You hand him the payment.]"
0 Pay 4 1
0 Pause
0 Teleport 76 5 23
0 Message "[You go upstairs and find a seat.]"
0 Pause
0 SetMapCreatures RESETPOS 2 20 7 25
0 Script 504
0 AlterPCTile 1004
0 Message "[You sit down.]"
0 Pause
0 SetRedraw 0
0 SetView 5 17
0 AlterTiles 146 5 17
0 SetRedraw 1
0 Message "[You look up at the stage.  A minstrel carrying a small recorder steps into view and bows.]"
0 Pause
0 Message "Well met!  I am here to perform my E flat recorder for you.  [He holds up the instrument, a small, black wind instrument with silver keys.]  As you can see, this rare instrument is noticably smaller than the much more common B flat recorder, and is therefore higher pitch.  It is an instrument that I dearly love.  Anyway, I hope you will enjoy it.  [He places the instrument to his mouth pointing forwards and down and begins to play.  The sound is bright and cheery, and at the same time very beautiful.  While it is powerful and high, he carefully controls the pitch so that it stays in tune as the sparkling notes dance by.]"
0 Pause
0 CRandom 80 - 5 11 15 12
0 Message "[He performs competently and you find the experience quite entertaining.]"
0 Pause
0 Message "[The audience applauds.]"
0 GivePCMB 3 10 20
0 GivePCMB 5 2 5
0 GOTO 15
11 Message "[He performs competently at first, but then the instrument suddenly makes a horrible shrieking sound.  He stops, mutters something about a reed, adjusts something, and begins playing again, but you get the feeling he is struggling a bit.]"
0 Pause
0 Message "[When he reaches the end, the audience responds with some light, scattered applause.  A bearded man next to you smirks and says, 'He should have played the B flat!']"
0 GivePCMB 3 4 8
0 GOTO 15
12 Message "[He performs quite expertly and puts a great deal of artistry into it.  You are drawn into the music, feeling very inspired by it.  After it ends, he bows, smiling widely, and you realize he has quite probably exceeded himself.]"
0 Pause
0 Message "[The audience applauds enthusiastically.  All except a bearded man next to you, who scowls and mutters, 'It would have been a lot better if he'd played the B flat.']"
0 GivePCMB 3 15 30
0 GivePCMB 5 5 10
15 SetRedraw 0
0 AlterTiles 24 5 17
0 SetView PC
0 SetRedraw 1
0 Pause
0 Message "[You stand up.]"
0 AlterPCTile BASE
0 DeleteTile 1004
0 DeleteFrame 1004
0 AutoSave
0 BREAK
20 Message "You're in luck.  That performance starts in just a few minutes."
0 Pause
0 Message "[You hand him the payment.]"
0 Pay 4 1
0 Pause
0 Teleport 76 3 22
0 Message "[You go upstairs and find a seat.]"
0 Pause
0 SetMapCreatures RESETPOS 2 20 7 25
0 Script 504
0 AlterPCTile 1004
0 Message "[You sit down.]"
0 Pause
0 SetRedraw 0
0 SetView 5 17
0 CreateTile 1005 -FRAME 0 1005 -NOREV
0 CreateFrame 1005 -LOAD 1005.til -NOREV
0 AlterTiles 1005 5 17
0 AlterTiles 146 4 17
0 SetRedraw 1
0 Message "[You look up at the stage.  A minstrel steps into view and bows, then sits down at a harpsichorde.]"
0 Pause
0 Message "Well met!  I will perform a selection of compositions for the harpsichorde by Ormanark, Depimod, and Iniex, as well as an original composition of my own.  [He begins to play.  The harpsichorde is a lovely keyboard instrument, powerful and evocative.  The Ormanark piece is your favorite, being extremely inventive and experimental, and yet still having a wonderful melody.  That said, you also enjoy the others a great deal.  The Depimod piece is quite dark and emotional.  The Iniex piece is a slow, beautiful ballad.  His original piece is quite experimental, with a hybrid of influences from the preceding composers, and is also very enjoyable.]"
0 Pause
0 CRandom 80 - 5 21 15 22
0 Message "[He performs competently and you find the experience quite entertaining.  He stands up and bows, smiling.]"
0 Pause
0 Message "[The audience applauds.]"
0 GivePCMB 3 10 20
0 GOTO 25
21 Message "[Unfortunately, he makes quite a few mistakes that take away from your enjoyment of the pieces.  After he finishes, he stands up and bows slightly, although he looks a little upset.]"
0 Pause
0 Message "[The audience responds with some light, scattered applause.]"
0 GivePCMB 3 4 8
0 GOTO 25
22 Message "[He performs quite expertly and really brings the full power of the pieces together.  After it ends, he bows, smiling widely, and you realize he has quite probably exceeded himself.]  Thank you, I really enjoyed performing for you."
0 Pause
0 Message "[The audience applauds enthusiastically.]"
0 GivePCMB 3 15 30
25 SetRedraw 0
0 AlterTiles 24 4 17 5 17
0 SetView PC
0 SetRedraw 1
0 Pause
0 DeleteTile 1005
0 DeleteFrame 1005
0 Message "[You stand up.]"
0 AlterPCTile BASE
0 DeleteTile 1004
0 DeleteFrame 1004
0 AutoSave
0 BREAK
