TILEMASTER2004 DATA V1
SCRIPT: 300
0 DBG "DBG: Running script 246"
0 CheckFlagSwitch SFLAG  0 100  1 10  2 1000
0 M "ERROR (script 246): Invalid SFLAG"
0 BREAK
10 M "This crystal is a clearish-blue color, glowing, very cold, and, despite those qualities, seems to be made of some sort of ice.  While rough, it is still approximately roundish.  It is about a size that would fit well in the palm of your hand."
0 BREAK
100 NOOP
0 AddKeyWords _RHas 211  _LHas 221  _RTake 520  _LTake 520
0 CheckTarget 110 -POS 5 3
0 CheckTarget 120 -POS 7 5
0 CheckTarget 130 -POS 5 7
0 CheckTarget 140 -POS 3 5
0 BREAK
110 NOOP
0 AddKeyWords _RGive 401  _LGive 411
0 CheckBFlag 36 1 0 111
0 AddKeyWords _RHas 212  _RTake 501
111 CheckBFlag 36 2 0 112
0 AddKeyWords _LHas 222  _LTake 511
112 GOTO 200
120 NOOP
0 AddKeyWords _RGive 402  _LGive 412
0 CheckBFlag 36 3 0 121
0 AddKeyWords _RHas 212  _RTake 502
121 CheckBFlag 36 4 0 122
0 AddKeyWords _LHas 222  _LTake 512
122 GOTO 200
130 NOOP
0 AddKeyWords _RGive 404  _LGive 414
0 CheckBFlag 36 5 0 131
0 AddKeyWords _RHas 212  _RTake 504
131 CheckBFlag 36 6 0 132
0 AddKeyWords _LHas 222  _LTake 514
132 GOTO 200
140 NOOP
0 AddKeyWords _RGive 405  _LGive 415
0 CheckBFlag 36 7 0 141
0 AddKeyWords _RHas 212  _RTake 505
141 CheckBFlag 36 8 0 142
0 AddKeyWords _LHas 222  _LTake 515
142 GOTO 200
200 NOOP
210 DoKeyWord _RHas
211 AddKeyWords _RDesc 261
0 GOTO 220
212 AddKeyWords _RDesc 262  _RGive 420
220 DoKeyWord _LHas
221 AddKeyWords _LDesc 271
0 GOTO 230
222 AddKeyWords _LDesc 272  _LGive 420
230 CheckScriptType LOOK 231
0 AddKeyWords _RetLook 300
0 GOTO 250
231 AddKeyWords _RetLook 240
0 GOTO 250
240 BREAK
250 M "The statue before you is holding out both hands with the palms cupped upwards."
260 DoKeyWord _RDesc
261 GOTO 270
262 M "The right hand is holding a crystal"
270 DoKeyWord _LDesc
271 GOTO 280
272 M "The left hand is holding a crystal"
280 DoKeyWord _RetLook
300 AddKeyWords bye 302  look 303  name 304  job 305  give 310  place 310  put 310  take 320  get 320  remove 320  crystal 325
0 M "What do you want to do? (return to exit)"
301 DoConvInput "That doesn't seem to accomplish anything"
0 M "You leave the statue"
0 BREAK
302 M "The statue ignores your polite farewell as you turn away"
0 BREAK
303 AddKeyWords _RetLook 301
0 GOTO 250
304 M "The statue doesn't respond.  You decide to name it Sir Grey."
0 GOTO 301
305 M "Apparently to stand there with its hands held out."
0 GOTO 301
310 M "What do you give the statue?"
0 AddKeyWords crystal 315  arctic 315
0 GOTO 301
315 AddKeyWords crystal 315
0 CheckItem 89 1 316
0 M "You do not have any crystals!"
0 GOTO 301
316 M "Into which hand do you want to place the crystal?  (Note that you may also use r for right and l for left.)"
0 AddKeyWords right 400  r 400  left 410  l 410
0 GOTO 301
320 M "From which hand do you want to take an object?  (Note that you may also use r for right and l for left.)"
0 AddKeyWords right 500  r 500  left 510  l 510
0 GOTO 301
325 M "What do you want to do with the crystal?"
0 AddKeyWords give 315  place 315  put 315
0 GOTO 301
400 DoKeyWord _RGive
401 NOOP
0 TakeItem 89 1 421
0 SetBFlag 36 1 1
0 AlterTiles 37 4 3
0 AddKeyWords _RGive 420  _RTake 501  _RDesc 262
0 GOTO 430
402 NOOP
0 TakeItem 89 1 421
0 SetBFlag 36 3 1
0 AlterTiles 37 7 4
0 AddKeyWords _RGive 420  _RTake 502  _RDesc 262
0 GOTO 430
404 NOOP
0 TakeItem 89 1 421
0 SetBFlag 36 5 1
0 AlterTiles 37 6 7
0 AddKeyWords _RGive 420  _RTake 504  _RDesc 262
0 GOTO 430
405 NOOP
0 TakeItem 89 1 421
0 SetBFlag 36 7 1
0 AlterTiles 37 3 6
0 AddKeyWords _RGive 420  _RTake 505  _RDesc 262
0 GOTO 430
410 DoKeyWord _LGive
411 NOOP
0 TakeItem 89 1 421
0 SetBFlag 36 2 1
0 AlterTiles 37 6 3
0 AddKeyWords _LGive 420  _LTake 511  _LDesc 272
0 GOTO 430
412 NOOP
0 TakeItem 89 1 421
0 SetBFlag 36 4 1
0 AlterTiles 37 7 6
0 AddKeyWords _LGive 420  _LTake 512  _LDesc 272
0 GOTO 430
414 NOOP
0 TakeItem 89 1 421
0 SetBFlag 36 6 1
0 AlterTiles 37 4 7
0 AddKeyWords _LGive 420  _LTake 514  _LDesc 272
0 GOTO 430
415 NOOP
0 TakeItem 89 1 421
0 SetBFlag 36 8 1
0 AlterTiles 37 3 4
0 AddKeyWords _LGive 420  _LTake 515  _LDesc 272
0 GOTO 430
420 M "That hand already contains the only crystal it can hold"
0 GOTO 301
421 M "You do not have any crystals"
0 GOTO 301
430 NOOP
0 M "You place the crystal in the statue's hand"
0 AddKeyWords _RetPortal 301
0 GOTO 600
500 DoKeyWord _RTake
501 NOOP
0 SetBFlag 36 1 0
0 AlterTiles 24 4 3
0 AddKeyWords _RGive 401  _RTake 520  _RDesc 261
0 GOTO 530
502 NOOP
0 SetBFlag 36 3 0
0 AlterTiles 24 7 4
0 AddKeyWords _RGive 402  _RTake 520  _RDesc 261
0 GOTO 530
504 NOOP
0 SetBFlag 36 5 0
0 AlterTiles 24 6 7
0 AddKeyWords _RGive 404  _RTake 520  _RDesc 261
0 GOTO 530
505 NOOP
0 SetBFlag 36 7 0
0 AlterTiles 24 3 6
0 AddKeyWords _RGive 405  _RTake 520  _RDesc 261
0 GOTO 530
510 DoKeyWord _LTake
511 NOOP
0 SetBFlag 36 2 0
0 AlterTiles 24 6 3
0 AddKeyWords _LGive 411  _LTake 520  _LDesc 271
0 GOTO 530
512 NOOP
0 SetBFlag 36 4 0
0 AlterTiles 24 7 6
0 AddKeyWords _LGive 412  _LTake 520  _LDesc 271
0 GOTO 530
514 NOOP
0 SetBFlag 36 6 0
0 AlterTiles 24 4 7
0 AddKeyWords _LGive 414  _LTake 520  _LDesc 271
0 GOTO 530
515 NOOP
0 SetBFlag 36 8 0
0 AlterTiles 24 3 4
0 AddKeyWords _LGive 415  _LTake 520  _LDesc 271
0 GOTO 530
520 M "That hand is empty"
0 GOTO 301
530 NOOP
0 GiveItem 89
0 M "You take the crystal from the statue's hand"
0 AddKeyWords _RetPortal 301
0 GOTO 600
600 NOOP
0 Pos 5 5 -NOT -TAG 620 -CHECKMAPOBJ L 21
0 RemoveMapObj Location 1-15 -FAILOK
620 CheckFlagSwitch 36  3 621  12 622  15 623  48 624  51 625  60 626  63 627  192 628  195 629  204 630  207 631  240 632  243 633  252 634  255 635
0 GOTO 650
621 NOOP
0 PlaceMapObj Location 1
0 GOTO 650
622 NOOP
0 PlaceMapObj Location 2
0 GOTO 650
623 NOOP
0 PlaceMapObj Location 3
0 GOTO 650
624 NOOP
0 PlaceMapObj Location 4
0 GOTO 650
625 NOOP
0 PlaceMapObj Location 5
0 GOTO 650
626 NOOP
0 PlaceMapObj Location 6
0 GOTO 650
627 NOOP
0 PlaceMapObj Location 7
0 GOTO 650
628 NOOP
0 PlaceMapObj Location 8
0 GOTO 650
629 NOOP
0 PlaceMapObj Location 9
0 GOTO 650
630 NOOP
0 PlaceMapObj Location 10
0 GOTO 650
631 NOOP
0 PlaceMapObj Location 11
0 GOTO 650
632 NOOP
0 PlaceMapObj Location 12
0 GOTO 650
633 NOOP
0 PlaceMapObj Location 13
0 GOTO 650
634 NOOP
0 PlaceMapObj Location 14
0 GOTO 650
635 NOOP
0 PlaceMapObj Location 15
0 GOTO 650
650 DoKeyWord _RetPortal
1000 NOOP
0 SetRedraw 0
1020 CheckBFlag 36 1 0 1021
0 AlterTiles 37 4 3
1021 CheckBFlag 36 2 0 1022
0 AlterTiles 37 6 3
1022 CheckBFlag 36 3 0 1023
0 AlterTiles 37 7 4
1023 CheckBFlag 36 4 0 1024
0 AlterTiles 37 7 6
1024 CheckBFlag 36 5 0 1025
0 AlterTiles 37 6 7
1025 CheckBFlag 36 6 0 1026
0 AlterTiles 37 4 7
1026 CheckBFlag 36 7 0 1027
0 AlterTiles 37 3 6
1027 CheckBFlag 36 8 0 1030
0 AlterTiles 37 3 4
1030 AddKeyWords _RetPortal 1050
0 GOTO P600
1050 BREAK
