TILEMASTER2004 DATA V1
SCRIPT: 75
0 CreateSound 1000 -LOAD 1000.wav -NOREV
0 AddKeyWords bye 2 no 2 name 5 job 5 minstrel 6 fife 7 yes 10 song 10 perform 10 play 10
0 M "Greetings!  I am a minstrel.  I play the fife.  Can I perform for you?"
1 DoConvInput "Sorry, I don't know that one."
2 M "Farewell.  And please return sometime, as I'm always happy to perform for you."
0 DeleteSound 1000
0 BREAK
5 M "I am a minstrel.  Can I perform for you?"
0 GOTO 1
6 M "I play music, specifically the fife."
0 GOTO 1
7 Sound 1000 -USYNC
0 M "[He shows you the instrument then puts it up to his mouth and plays a few notes.  It is a fairly high pitch instrument that produces beautiful tones.]  As you can see, it is a transverse wind instrument.  I blow across the hole here on the left side to produce the sound, and cover up the other holes to the right to change the pitch.  Well, and if I blow a little differently, it changes the octave. [He demonstrates, playing first a low note, then higher pitches without moving his fingers.]  Now, my brother plays the recorder.  Excuse me, I mean 'E flat recorder', a rather rare version of the instrument.  He'd correct me if he was here.  That one is smaller than the regular recorder and sounds a lot more interesting, much more bright and cheery than the standard B flat version.  Anyway, the recorder points outwards and down rather than across, and you blow directly into it rather than across it.  The E flat recorder is about the same range as my fife, but has a different sound to it, more pointed I suppose.  It's another really wonderful wind instrument.  He's performing at the theater in the southern district if you want to hear him play it."
0 Sound 1000 -WAIT
0 GOTO 1
10 CM "I apologize, but because I do this for a living, I must charge a little, but only 2 gp.  I hope you'll find it is worth it.  Is that ok? "
0 Verify 11
0 GOTO 2
11 Pay 2 12
0 SetFlag 27 0
0 GOTO 20
12 M "Don't have enough?  That's ok, this one's free."
0 SetFlag 27 1
0 Pause
0 GOTO 20
14 M "  Here's your money back."
0 GiveItem 1 2
0 GOTO 1
20 CRandom 80 - 10 21 10 22
0 Sound 1000 -USYNC
0 M "[He puts a fife up to his mouth and begins to play.  The transverse wind instrument is fairly high pitch but he seems to be able to control the tone so that it is soft and gentle or quick and bird-like.  He performs competently and you find the experience quite entertaining.]"
0 Sound 1000 -WAIT
0 PartyIterator -INIT
100 PartyIterator -CHECKSPLIT -ETAG 1 -PNAME
0 GivePCMB 3 10 20
0 GOTO P100
21 Sound 1000 -USYNC
0 M "[He puts a fife up to his mouth and begins to play.  Unfortunately, he makes quite a few obvious mistakes and you can tell he's working hard just to get through it, leaving little room to really put any life into it.]"  
0 Sound 1000 -WAIT
0 PartyIterator -INIT
100 PartyIterator -CHECKSPLIT -ETAG N101 -PNAME
0 GivePCMB 3 4 8
0 GOTO P100
101 CM "Bah!  Sorry, not my best performance."  
0 CheckFlag 27 0 14
0 CM -NL
0 GOTO 1
22 Sound 1000 -USYNC
0 M "[He puts a fife up to his mouth and begins to play.  The transverse wind instrument is fairly high pitch but he seems to be able to control the tone so that it is soft and gentle, and very beautiful, or quick and bird-like, sparkling and dancing.  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 Sound 1000 -WAIT
0 PartyIterator -INIT
100 PartyIterator -CHECKSPLIT -ETAG 1 -PNAME
0 GivePCMB 3 15 30
0 GOTO P100
