TILEMASTER2004 DATA V1
SCRIPT: 175
0 DBG "DBG: Running script 248"
0 CheckFlagSwitch SFLAG  10 N500
0 CCheckFlag SFLAG 1-8 N20
0 M "ERROR (sun crystal script): Invalid SFLAG"
0 BREAK
15 M "You turn away"
0 BREAK
20 CM "This large section of the wall is a very smooth, flat square.  "
0 CheckBFlag 3 8 1 90
0 AbilCheck PER 65 35
30 AddKeyWords _PutIndents 122  _PutCrystal 142
0 CheckItem 276 1 100
0 Party -CHECKITEM 276 1 100
31 M "Other than that, there seems to be nothing unusual about it so you leave it alone."
0 BREAK
35 CM "You notice indents at each corner of the square.  "
0 CheckItem 276 1 36
0 Party -CHECKITEM 276 1 36
0 GOTO 31
36 AbilCheck INT 65 45
40 AddKeyWords _PutIndents 121  _PutCrystal 141
0 GOTO 100
45 CM "You suddenly realize that the sun crystal in your inventory may be the same size and shape as these indents.  "
0 SetBFlag 3 8
46 CM "Would you like to put the sun crystal in an indent? "
0 Verify 50
0 GOTO 15
50 CheckItem 276 4 51
0 Party -CHECKITEM 276 4 51
0 M "You find that the sun crystal fits perfectly in each indent, but nothing seems to happen.  Perhaps if you had enough crystals to fit all 4 indents it would make a difference, but for now there seems to be nothing more that you can do so you turn away."
0 BREAK
51 M "All 4 crystals fit perfectly in each indent.  As you place the last crystal, your light source suddenly flows through the sun crystals, shooting between them, and together illuminating the flat, grey surface!  Words that were formerly hidden are now revealed!"
0 Pause
0 CCheckFlag SFLAG 1-4 N200
0 CheckFlagSwitch SFLAG  5 N301  6 N303  7 N305  8 N307
0 BREAK
90 CM "As before, there are indents in the corners.  "
0 CheckItem 276 1 46
0 Party -CHECKITEM 276 1 46
0 M "Unfortunately, you are not carrying a sun crystal so you decide to leave."
0 BREAK
100 AddKeyWords bye 102  look 103  investigate 103  put 120  place 120  insert 120  indent* 130  slot* 130  hole* 130  crystal* 140  sun 140  _PutIndentsUnknown 101  _PutCrystalUnknown 101  _Indent 131
0 M "What do you want to do? (return to exit)"
101 DoConvInput "That doesn't seem to accomplish anything"
102 M "You turn away"
0 BREAK
103 M "You do not notice anything new"
0 GOTO 101
120 AddKeyWords _Indent 132
0 DoKeyWord _PutIndents
121 M "The only place to put something here would be in the indents.  If that is your intent, what do you want to put in the indents?"
0 AddKeyWords _PutCrystal 150
0 GOTO 101
122 M "Put where?"
0 AddKeyWords _PutCrystalUnknown 125
0 DoKeyWord _PutIndentsUnknown
125 AddKeyWords _Indent 150
0 GOTO 101
130 DoKeyWord _Indent
131 M "What do you want to do with the indents?"
0 AddKeyWords _PutIndents 121  _PutCrystal 141
0 GOTO 101
132 M "What do you want to put in the indents?"
0 AddKeyWords _PutIndents 121  _PutCrystal 150
0 GOTO 101
133 M "What do you want to do with the indents?"
0 AddKeyWords _PutIndents 150
0 GOTO 101
140 DoKeyWord _PutCrystal
141 M "What would you like to do with the crystal?"
0 AddKeyWords _PutIndents 150
0 GOTO 101
142 M "What would you like to do with the crystal?"
0 AddKeyWords _Indent 133 _PutIndentsUnknown 125
0 DoKeyWord _PutCrystalUnknown
150 SetBFlag 3 8
0 GOTO 50
200 M "The enlightened know that always there is 2, night and day, dark and light, cold and hot, the moon and the sun, east and west, south and north.  It is in this way, the way where 10 is 2, that you must answer a question to pass.  Only the enlightened will know this answer and thus only they are worthy of the fast way.  How far under the sun are you?  Answer from east to west, just as the sun rises and sets.  And beware, for the unenlightened will be punished!"
0 Pause
0 CM "You can also now see the outlines of 4 stones placed horizontally underneath the text.  There are no marks on the stones, but it is clear that they can be pushed inwards." -NL "Do you wish to push one of the stones? "
0 Verify 210
201 M "You take the crystals and turn away."
0 BREAK
210 CheckFlagSwitch SFLAG  1 212  2 214  3 216  4 218
0 BREAK
212 AddKeyWords A 270  B 270  C 236  D 270  _ChangeWalls 242
0 GOTO N220
214 AddKeyWords A 270  B 235  C 270  D 270  _ChangeWalls 244
0 GOTO N220
216 AddKeyWords A 270  B 270  C 221  D 270  _ChangeWalls 246
0 GOTO N220
218 AddKeyWords A 235  B 270  C 270  D 270  _ChangeWalls 248
220 M "Given the following order, which stone do you want to press?"
0 M "A B C D"
0 CM "Enter letter (return to exit): "
0 DoKeyInput -SHOW
0 M "NONE"
0 GOTO P201
221 AddKeyWords A 270  B 236  C 270  D 270
230 CM -NL "Pushing the stone inwards results in a loud clacking sound from behind the wall and the stone you pressed slides back out." -NL
0 GOTO N290
235 CM -NL "Pushing the stone inwards results in a loud clacking sound from behind the wall and the stone you pressed slides back out.  This is followed a moment later by loud rumbling as the adjacent wall slowly slides "
0 DoKeyWord _ChangeWalls
236 CM -NL "Pushing the stone inwards results in a loud clacking sound from behind the wall and the stone you pressed slides back out.  A moment later, you think you hear rumbling in the distance." -NL
0 DoKeyWord _ChangeWalls
242 CheckTile 1 10 6 252 -NOT
0 AlterTiles 400 10 6
0 Set SAVEBMAP 1
0 GOTO N290
244 CheckTile 1 3 14 254 -NOT
0 M "open!"
0 AlterTiles 400 3 14
0 AlterTiles 400 12 7
0 Set SAVEBMAP 1
0 GOTO N280
246 CheckTile 1 5 14 256 -NOT
0 AlterTiles 0 5 14
0 Set SAVEBMAP 1
0 GOTO N290
248 CheckTile 1 3 8 258 -NOT
0 M "open!"
0 AlterTiles 400 3 8
0 AlterTiles 400 12 1
0 Set SAVEBMAP 1
0 GOTO N280
252 AlterTiles 1 10 6
0 Set SAVEBMAP 1
0 GOTO N290
254 M "closed!"
0 AlterTiles 1 3 14
0 AlterTiles 1 12 7
0 Set SAVEBMAP 1
0 GOTO N280
256 AlterTiles 1 5 14
0 Set SAVEBMAP 1
0 GOTO N290
258 M "closed!"
0 AlterTiles 1 3 8
0 AlterTiles 1 12 1
0 Set SAVEBMAP 1
0 GOTO N280
270 CM -NL "A large number of darts suddenly shoot at you from somewhere nearby!" -NL
0 AbilCheck R 90 271
0 Damage 8d6
0 Effect 7
0 GOTO N290
271 M "You manage to avoid some of them."
0 Damage 4d6
0 Effect 7
0 GOTO N290
280 AbilCheck PER 65 281
0 GOTO N290
281 M "It is difficult to be sure, but you think that you may also hear some additional rumbling in the distance."
290 CM "Would you like to press another stone? "
0 Verify 220
0 GOTO P201
301 M "As some things should never be lost, so, too should the secrets of this place be remembered, but only for those that are worthy.  Thus, the enlightened may make discoveries in this place that only they will properly understand."
0 GOTO 201
303 M "The enlightened already know the story of the Battle of the North, South, East, and West.  One must remember this story well to reach the most well-protected point in this place.  And do not forget one must think of the direction of where the 8 stood during this time, not simply where they would briefly have been facing when the battle began."
0 GOTO 201
305 M "In this place, with each step beneath the sun another opportunity to prove one's worthiness to enter the most well-protected point will become available.  And each time this is proven, that protection will reflect your progress."
0 GOTO 201
307 M "The enlightened may benefit from the fast ways in order to help reach the statues, but proving one's worthiness for the fast ways is not otherwise related to proving one's worthiness for what the statues may grant."
0 GOTO 201
500 M "This crystal is a semi-transparent, sparkling yellow-orange color, reminding you of the color of the desert sand with sunlight coloring it during certain times of the day.  While rough, it is still approximately roundish in width, and is about twice as long as it is wide.  It is about a size that would fit well in the palm of your hand."
