home *** CD-ROM | disk | FTP | other *** search
/ Allie's Playhouse / allies-playhouse.bin / puzzle.tbk (.txt) < prev    next >
Asymetrix ToolBook File  |  1993-05-11  |  137KB  |  1,762 lines

  1. initialize    
  2. 4pos1,pos2,pos3,pos4,pos5,pos6,pos7,pos8,pos9,pos10
  3. 4orgPos1,orgPos2,orgPos3,orgPos4,orgPos5,orgPos6,orgPos7,orgPos8,orgPos9,orgPos10
  4. 420,1095
  5. 1965,540
  6. 3360,345
  7. 5520,750
  8. 6705,1200
  9. 435,4365
  10. 1395,5220
  11. 3420,5445
  12. 5655,5235
  13. 7155,4230
  14. 2700,2775
  15. 2310,3210
  16. 3420,2910
  17. 1770,3360
  18. 4155,2865
  19. 4005,2460
  20. 4950,1755
  21. 2835,3285
  22. 4725,2160
  23. 3435,2580
  24. reset    
  25. 6795,3750
  26. 6765,5535
  27. 2400,5685
  28. 6810,480
  29. 6615,2010
  30. 4500,5535
  31. 285,570
  32. 195,4110
  33. 225,2160
  34. 210,5370
  35. 4objList
  36. (pos&i)
  37. checkWin
  38. |) = 10
  39. sysCurtsor 
  40. playInst trumpet
  41. "You win!"
  42. default
  43. setSpecialCursor(hand)
  44. reset
  45. initialize
  46. checkWin
  47. initialize
  48. orgPos1
  49. orgPos2
  50. orgPos3
  51. orgPos4
  52. orgPos5
  53. orgPos6
  54. orgPos7
  55. orgPos8
  56. orgPos9
  57. orgPos10
  58. pos10
  59. reset
  60. orgPos
  61. orgPos1
  62. orgPos2
  63. orgPos3
  64. orgPos4
  65. orgPos5
  66. orgPos6
  67. orgPos7
  68. orgPos8
  69. orgPos9
  70. orgPos10
  71. ]checkWin
  72. pos10
  73. objList
  74. checkWin
  75. playInst
  76. reset
  77. setSpecialCursor
  78. trumpet
  79. sysCurtsor
  80. objList
  81. initialize    
  82. 4pos1,pos2,pos3,pos4,pos5,pos6,pos7,pos8,pos9,pos10
  83. 4orgPos1,orgPos2,orgPos3,orgPos4,orgPos5,orgPos6,orgPos7,orgPos8,orgPos9,orgPos10
  84. 6795,3750
  85. 6765,5535
  86. 2400,5685
  87. 6810,480
  88. 6615,2010
  89. 4500,5535
  90. 285,570
  91. 195,4110
  92. 225,2160
  93. 210,5370
  94. 2685,1710
  95. 3255,1710
  96. 4095,1710
  97. 2685,2325
  98. 3000,2055
  99. 3900,2160
  100. 2685,3255
  101. 3225,3135
  102. 4350,2970
  103. 3780,2715
  104. reset    
  105. 6795,3750
  106. 6765,5535
  107. 2400,5685
  108. 6810,480
  109. 6615,2010
  110. 4500,5535
  111. 285,570
  112. 195,4110
  113. 225,2160
  114. 210,5370
  115. 4objList
  116. (pos&i)
  117. checkWin
  118. |) = 10
  119. sysCurtsor 
  120. playInst piano
  121. "You win!"
  122. default
  123. setSpecialCursor(hand)
  124. reset
  125. initialize
  126. checkWin
  127. initialize
  128. orgPos1
  129. orgPos2
  130. orgPos3
  131. orgPos4
  132. orgPos5
  133. orgPos6
  134. orgPos7
  135. orgPos8
  136. orgPos9
  137. orgPos10
  138. pos10
  139. reset
  140. orgPos
  141. orgPos1
  142. orgPos2
  143. orgPos3
  144. orgPos4
  145. orgPos5
  146. orgPos6
  147. orgPos7
  148. orgPos8
  149. orgPos9
  150. orgPos10
  151. ]checkWin
  152. pos10
  153. objList
  154. checkWin
  155. playInst
  156. reset
  157. setSpecialCursor
  158. piano
  159. sysCurtsor
  160. objList
  161. trumpet
  162. 4Zpath
  163. playhouse 
  164. .tbk")
  165. default
  166. buttonup
  167. buttonup
  168. playhous.tbk
  169. default
  170. playhouse
  171. Zpath
  172. :PHYSSIZE
  173. xyoffset 
  174. item1 
  175. item2 
  176. p2 + 
  177. p2 + 
  178. buttondown
  179. buttonup
  180. buttondown
  181. item2
  182. item1
  183. xyoffset
  184. buttonup
  185. item2
  186. item1
  187. 8175,5745
  188. 8325,5745
  189. "Help!!!"
  190. buttonup
  191. buttonup
  192. Help!!!
  193. >&"sel") 
  194. buttondown
  195. buttonup
  196. buttondown
  197. buttonup
  198. previous
  199.     :PHYSSIZE
  200. leftsel
  201.     :PHYSSIZE
  202. >&"sel") 
  203. buttondown
  204. buttonup
  205. buttondown
  206. buttonup
  207. right
  208. :PHYSSIZE
  209. rightsel
  210. :PHYSSIZE
  211. help 
  212. buttonUp
  213. buttonUp
  214. :PHYSSIZE
  215. xyoffset 
  216. item1 
  217. item2 
  218. p2 + 
  219. p2 + 
  220. buttondown
  221. buttonup
  222. buttondown
  223. item2
  224. item1
  225. xyoffset
  226. buttonup
  227. item2
  228. item1
  229. 8325,1800
  230. help puzzle
  231. buttonup
  232. buttonup
  233. puzzle
  234. displayKid
  235. selectedObject
  236. buttonUp
  237. setSpecialCursor
  238. setSpecialCursor
  239. playBoing
  240. inlist
  241. ]checkWin
  242. playsound
  243. inList
  244. orgPos
  245. pos10
  246. orgPos1
  247. orgPos2
  248. orgPos3
  249. orgPos4
  250. orgPos5
  251. orgPos6
  252. orgPos7
  253. orgPos8
  254. orgPos9
  255. orgPos10
  256. selectedObject
  257. objList
  258. playSound
  259. stop instruments
  260. tbkMCI
  261. stop inst
  262. tbkMCI
  263. stop boing
  264. tbkMCI
  265. play instruments from 143215 to 177263
  266. tbkMCIchk
  267. yieldApp
  268. play instruments from 32495 to 65647
  269. tbkMCIchk
  270. yieldApp
  271. play instruments from 0 to 32495
  272. tbkMCIchk
  273. yieldApp
  274. play instruments from 73967 to 95215
  275. tbkMCIchk
  276. yieldApp
  277. snare drum
  278. play instruments from 177263 to 207616
  279. tbkMCIchk
  280. yieldApp
  281. play instruments from 120431 to 143215
  282. tbkMCIchk
  283. yieldApp
  284. play instruments from 95215 to 120431
  285. tbkMCIchk
  286. yieldApp
  287. play instruments from 65647 to 73967
  288. tbkMCIchk
  289. yieldApp
  290. xylophone
  291. violin
  292. trumpet
  293. saxophone
  294. piano
  295. guitar
  296. flute
  297. sound
  298. playInst
  299. stop instruments
  300. tbkMCI
  301. stop inst
  302. tbkMCI
  303. stop boing
  304. tbkMCI
  305. play inst from 0 to 200720
  306. tbkMCIchk
  307. yieldApp
  308. pianoAnim
  309. play inst from 200720 to 286070
  310. tbkMCIchk
  311. yieldApp
  312. guitarNotesAnim
  313. play inst from 286070 to 360925
  314. tbkMCIchk
  315. yieldApp
  316. trumpetNotesAnim
  317. play inst from 360925 to 439944
  318. tbkMCIchk
  319. yieldApp
  320. ZdrumNotesAnim
  321. play inst from 439944 to 512512
  322. tbkMCIchk
  323. yieldApp
  324. fluteNotesAnim
  325. flute
  326. trumpet
  327. guitar
  328. piano
  329. playBoing
  330. stop instruments
  331. tbkMCI
  332. stop inst
  333. tbkMCI
  334. stop boing
  335. tbkMCI
  336. play boing from 1 to 14659
  337. tbkMCIchk
  338. play boing from 14659 to 23346
  339. tbkMCIchk
  340. play boing from 23346 to 27029
  341. tbkMCIchk
  342. pianoAnim
  343. piano
  344. yieldApp
  345. piano
  346. yieldApp
  347. yieldApp
  348. piano3
  349. yieldApp
  350. yieldApp
  351. i:to1
  352. GuitarNotesAnim
  353. yieldApp
  354. notes
  355. yieldApp
  356. yieldApp
  357. notes
  358. yieldApp
  359. i:to1
  360. DrumNotesAnim
  361. yieldApp
  362. notes
  363. yieldApp
  364. notes
  365. yieldApp
  366. i:to1
  367. fluteNotesAnim
  368. yieldApp
  369. notes
  370. yieldApp
  371. yieldApp
  372. notes
  373. yieldApp
  374. i:to1
  375. trumpetNotesAnim
  376. yieldApp
  377. notes
  378. yieldApp
  379. yieldApp
  380. notes
  381. yieldApp
  382. i:to1
  383. getPositions
  384. myList
  385. mylist
  386. 4zpath
  387. "c:\toolbook\playhous\"
  388. .sbk" 
  389. (Zpath&"
  390. tbkMCIchk("
  391. r&"file.wav alias count","",1)
  392. samples","",1)
  393. LeaveBook
  394. \("close 
  395. enterBook
  396. LeaveBook
  397. enterBook
  398. c:\toolbook\playhous\
  399. playhous.sbk
  400. Zpath
  401. playhous.sbk
  402. zpath
  403. LeaveBook
  404. close count
  405. tbkMCI
  406. Allie's Playhouse
  407. System
  408. 4zpath
  409. "c:\toolbook\playhous\"
  410. .sbk" 
  411. (Zpath&"
  412. tbkMCIchk("
  413. r&"file.wav alias count","",1)
  414. samples","",1)
  415. LeaveBook
  416. `("close 
  417. tbkBitmap("
  418. kid")
  419. 4selectedObject
  420.  <> ""
  421. Lstatus 
  422. displayKid
  423. terBook
  424. LeaveBook
  425. enterBook
  426. enterBook
  427. c:\toolbook\playhous\
  428. playhous.sbk
  429. Zpath
  430. playhous.sbk
  431. zpath
  432. LeaveBook
  433. close count
  434. tbkMCI
  435. close kid
  436. tbkBitmap
  437. selectedObject
  438. trumpet
  439. :PHYSSIZE
  440. :PHYSSIZE
  441. :PHYSSIZE
  442. :PHYSSIZE
  443. :PHYSSIZE
  444. :PHYSSIZE
  445. :PHYSSIZE
  446. :PHYSSIZE
  447. :PHYSSIZE
  448. :PHYSSIZE
  449. @    :PHYSSIZE
  450. notes
  451. notes1
  452. :PHYSSIZE
  453. notes2
  454. :PHYSSIZE
  455. notes3
  456. :PHYSSIZE
  457. piano
  458. contour
  459. buttonUp
  460. buttonUp
  461. :PHYSSIZE
  462. :PHYSSIZE
  463. :PHYSSIZE
  464. :PHYSSIZE
  465. :PHYSSIZE
  466. :PHYSSIZE
  467. :PHYSSIZE
  468. :PHYSSIZE
  469. :PHYSSIZE
  470. :PHYSSIZE
  471.     :PHYSSIZE
  472. piano1
  473. :PHYSSIZE
  474. piano2
  475. :PHYSSIZE
  476. piano3
  477. :PHYSSIZE
  478. initialize    
  479. 4pos1,pos2,pos3,pos4,pos5,pos6,pos7,pos8,pos9,pos10
  480. 4orgPos1,orgPos2,orgPos3,orgPos4,orgPos5,orgPos6,orgPos7,orgPos8,orgPos9,orgPos10
  481. 675,525
  482. 510,2115
  483. 585,3690
  484. 285,5445
  485. 2325,5235
  486. 4515,5790
  487. 6330,5640
  488. 6630,3990
  489. 6645,2130
  490. 6690,480
  491. 2850,3405
  492. 4095,1785
  493. 4005,2565
  494. 3345,3240
  495. 4590,765
  496. 3585,2400
  497. 2970,3735
  498. 3420,2655
  499. 4530,765
  500. 2955,2955
  501. reset    
  502. 6795,3750
  503. 6765,5535
  504. 2400,5685
  505. 6810,480
  506. 6615,2010
  507. 4500,5535
  508. 285,570
  509. 195,4110
  510. 225,2160
  511. 210,5370
  512. 4objList
  513. (pos&i)
  514. checkWin
  515. |) = 10
  516. sysCurtsor 
  517. playInst Guitar
  518. "You win!"
  519. default
  520. setSpecialCursor(hand)
  521. reset
  522. initialize
  523. checkWin
  524. initialize
  525. orgPos1
  526. orgPos2
  527. orgPos3
  528. orgPos4
  529. orgPos5
  530. orgPos6
  531. orgPos7
  532. orgPos8
  533. orgPos9
  534. orgPos10
  535. pos10
  536. reset
  537. orgPos
  538. orgPos1
  539. orgPos2
  540. orgPos3
  541. orgPos4
  542. orgPos5
  543. orgPos6
  544. orgPos7
  545. orgPos8
  546. orgPos9
  547. orgPos10
  548. ]checkWin
  549. pos10
  550. objList
  551. checkWin
  552. playInst
  553. reset
  554. setSpecialCursor
  555. Guitar
  556. sysCurtsor
  557. objList
  558. Guitar
  559. :PHYSSIZE
  560. :PHYSSIZE
  561. :PHYSSIZE
  562. :PHYSSIZE
  563. :PHYSSIZE
  564. :PHYSSIZE
  565. :PHYSSIZE
  566. :PHYSSIZE
  567. :PHYSSIZE
  568. :PHYSSIZE
  569. :PHYSSIZE
  570. notes
  571. notes1
  572. :PHYSSIZE
  573. notes2
  574. :PHYSSIZE
  575. notes3
  576. :PHYSSIZE
  577. piano
  578. flute
  579. :PHYSSIZE
  580. :PHYSSIZE
  581. :PHYSSIZE
  582. :PHYSSIZE
  583. :PHYSSIZE
  584. :PHYSSIZE
  585. :PHYSSIZE
  586. :PHYSSIZE
  587. :PHYSSIZE
  588. :PHYSSIZE
  589. :PHYSSIZE
  590. notes
  591. notes1
  592. :PHYSSIZE
  593. notes2
  594. :PHYSSIZE
  595. notes3
  596. :PHYSSIZE
  597. initialize    
  598. 4pos1,pos2,pos3,pos4,pos5,pos6,pos7,pos8,pos9,pos10
  599. 4orgPos1,orgPos2,orgPos3,orgPos4,orgPos5,orgPos6,orgPos7,orgPos8,orgPos9,orgPos10
  600. 240,1395
  601. 975,540
  602. 2700,180
  603. 5610,645
  604. 6705,1425
  605. 435,4590
  606. 1680,4995
  607. 2985,5265
  608. 5445,5115
  609. 6750,4440
  610. 3330,3045
  611. 2010,3015
  612. 4890,2895
  613. 810,2865
  614. 1950,2925
  615. 2865,3045
  616. 1485,2940
  617. 4170,2910
  618. 3705,3045
  619. 810,3030
  620. reset    
  621. 6795,3750
  622. 6765,5535
  623. 2400,5685
  624. 6810,480
  625. 6615,2010
  626. 4500,5535
  627. 285,570
  628. 195,4110
  629. 225,2160
  630. 210,5370
  631. 4objList
  632. (pos&i)
  633. checkWin
  634. |) = 10
  635. sysCurtsor 
  636. playInst flute
  637. "You win!"
  638. default
  639. setSpecialCursor(hand)
  640. reset
  641. initialize
  642. checkWin
  643. initialize
  644. orgPos1
  645. orgPos2
  646. orgPos3
  647. orgPos4
  648. orgPos5
  649. orgPos6
  650. orgPos7
  651. orgPos8
  652. orgPos9
  653. orgPos10
  654. pos10
  655. reset
  656. orgPos
  657. orgPos1
  658. orgPos2
  659. orgPos3
  660. orgPos4
  661. orgPos5
  662. orgPos6
  663. orgPos7
  664. orgPos8
  665. orgPos9
  666. orgPos10
  667. ]checkWin
  668. pos10
  669. objList
  670. checkWin
  671. playInst
  672. reset
  673. setSpecialCursor
  674. flute
  675. sysCurtsor
  676. objList
  677. Guitar
  678. """"/
  679. notes2
  680. :PHYSSIZE
  681. notes3
  682. :PHYSSIZE
  683. flute
  684. initialize    
  685. 4pos1,pos2,pos3,pos4,pos5,pos6,pos7,pos8,pos9,pos10
  686. 4orgPos1,orgPos2,orgPos3,orgPos4,orgPos5,orgPos6,orgPos7,orgPos8,orgPos9,orgPos10
  687. 495,405
  688. 390,1665
  689. 570,2835
  690. 705,4545
  691. 2460,5250
  692. 5130,5175
  693. 6540,4455
  694. 6945,3150
  695. 6870,1695
  696. 6240,510
  697. 3285,2235
  698. 4080,2385
  699. 4440,2550
  700. 3135,2790
  701. 4170,2040
  702. 2910,2700
  703. 3540,2235
  704. 3690,2970
  705. 4065,2910
  706. 2250,2235
  707. reset    
  708. 6795,3750
  709. 6765,5535
  710. 2400,5685
  711. 6810,480
  712. 6615,2010
  713. 4500,5535
  714. 285,570
  715. 195,4110
  716. 225,2160
  717. 210,5370
  718. 4objList
  719. (pos&i)
  720. checkWin
  721. |) = 10
  722. sysCurtsor 
  723. playInst drum
  724. "You win!"
  725. default
  726. setSpecialCursor(hand)
  727. reset
  728. initialize
  729. checkWin
  730. initialize
  731. orgPos1
  732. orgPos2
  733. orgPos3
  734. orgPos4
  735. orgPos5
  736. orgPos6
  737. orgPos7
  738. orgPos8
  739. orgPos9
  740. orgPos10
  741. pos10
  742. reset
  743. orgPos
  744. orgPos1
  745. orgPos2
  746. orgPos3
  747. orgPos4
  748. orgPos5
  749. orgPos6
  750. orgPos7
  751. orgPos8
  752. orgPos9
  753. orgPos10
  754. ]checkWin
  755. pos10
  756. objList
  757. checkWin
  758. playInst
  759. reset
  760. setSpecialCursor
  761. sysCurtsor
  762. objList
  763. snare drum
  764. :PHYSSIZE
  765. :PHYSSIZE
  766. :PHYSSIZE
  767. :PHYSSIZE
  768. :PHYSSIZE
  769. :PHYSSIZE
  770. :PHYSSIZE
  771. :PHYSSIZE
  772. :PHYSSIZE
  773. :PHYSSIZE
  774. :PHYSSIZE
  775. notes
  776. notes1
  777. :PHYSSIZE
  778. notes2
  779. :PHYSSIZE
  780. notes3
  781. :PHYSSIZE
  782. snare drum
  783. PUPU4
  784. PUUP0U
  785. UUP0U
  786. PPUUP0U
  787. UUP0U
  788. PPUUP0U
  789. UUP0U
  790. PPUUP
  791. PPUUP
  792. PPUUP
  793. PPUUP
  794. PPUUP
  795. PPUUP
  796. PPUUP
  797. PPUUP
  798. PPUUP0U
  799. PUPU4
  800. PUUP0U
  801. UUP0U
  802. PPUUP0U
  803. UUP0U
  804. PPUUP0U
  805. UUP0U
  806. PPUUP
  807. PPUUP
  808. PPUUP
  809. PPUUP
  810. PPUUP
  811. PPUUP
  812. PPUUP
  813. PPUUP
  814. PPUUP0U
  815. UUPUU_
  816. PUUP__P    U
  817. PUUPUU_
  818. PUPU4
  819. PUUP0U
  820. UUP0U
  821. PPUUP0U
  822. UUP0U
  823. PPUUP0U
  824. UUP0U
  825. PPUUP
  826. PPUUP
  827. PPUUP
  828. PPUUP
  829. PPUUP
  830. PPUUP
  831. PPUUP
  832. PPUUP
  833. PPUUP0U
  834. w37wp
  835. hplayhous.ico
  836. 4zpath
  837. "c:\toolbook\playhous\"
  838. .sbk" 
  839. (Zpath&"
  840.     -- OPEN ONE NOTE SOUNDS
  841. tbkMCIchk("
  842. &"instrmnt.wav alias instruments","",1)
  843. samples","",1)
  844. pLOSING 
  845. boings.
  846. ","",1)
  847. LeaveBook
  848. ("close 
  849. M","")
  850. tbkBitmap("
  851. &kid")
  852. 4objlist
  853. [objList
  854. initialize 
  855. 4selectedObject
  856.  <> ""
  857. |status 
  858. displayKid
  859. 4orgPos1,orgPos2,orgPos3,orgPos4,orgPos5,orgPos6,orgPos7,orgPos8,orgPos9,orgPos10
  860. 4pos1,pos2,pos3,pos4,pos5,pos6,pos7,pos8,pos9,pos10
  861.     -- CHECK FOR VALID PUZZLE PART
  862. setSpecialCursor(
  863.             --
  864. default
  865. 7hand)
  866. ))) > 50 \
  867. ))) > 50
  868. -- REMOVE OBJECT FROM THE LIST IF IT IS IN
  869.  goofy wrong sound here
  870. playBoing 
  871. (pos&
  872. -- ADD 
  873. inList 
  874. inlist <> 
  875. checkWin 
  876. playsound (
  877. playSound 
  878. ("stop 
  879. ","")
  880. flute
  881.  71607 
  882.  88631","",1)
  883. yieldApp()
  884. guitar
  885.  16247 
  886.  32823","",1)
  887. piano
  888.  16247","",1)
  889. saxophone
  890.  36983 
  891.  47607","",1)
  892. "snare drum"
  893.  88631 
  894.  103808","",1)
  895. trumpet
  896.  60215 
  897.  71607","",1)
  898. violin
  899.  47607 
  900.  60215","",1)
  901. xylophone
  902.  32823 
  903.  36983","",1)
  904. playInst 
  905. ","")
  906. F cdAudio 
  907. 05:00:00:15 
  908. 05:00:18:50","",1)
  909. pianoAnim
  910. 06:00:00:15 
  911. 06:00:07:60","",1)
  912. guitarNotesAnim
  913. 08:00:00:15 
  914. 08:00:07:00","",1)
  915. trumpetNotesAnim
  916. 09:00:00:15 
  917. 09:00:07:35","",1)
  918. drumNotesAnim
  919. 07:00:00:15 
  920. 07:00:06:60","",1)
  921. fluteNotesAnim
  922. ","")
  923. 14659","",1)
  924. 14659 
  925. 23346","",1)
  926. 23346 
  927. 27029","",1)
  928. mode","") 
  929. "playing"
  930. eatClicks()
  931. =(keyleftButton) 
  932. i > 1
  933. "&i - 1)
  934. '"piano3"
  935. '"piano2"
  936. '"piano1"
  937. ","")
  938. GuitarNotesAnim
  939. ("notes"&i)
  940. ","")
  941. DrumNotesAnim
  942. ","")
  943. ","")
  944. ","")
  945. getPositions
  946. 4mylist
  947. [myList
  948. Sound
  949. enterBook
  950. playInst
  951. enterPage
  952. playBoing
  953. pianoAnim
  954. GuitarNotesAnim
  955. LeaveBook
  956. DrumNotesAnim
  957. buttonUp
  958. fluteNotesAnim
  959. trumpetNotesAnim
  960. playSound
  961. getPositions
  962. enterBook
  963. c:\toolbook\playhous\
  964. playhous.sbk
  965. Zpath
  966. playhous.sbk
  967. open 
  968. instrmnt.wav alias instruments
  969. tbkMCIchk
  970. set instruments time format samples
  971. tbkMCIchk
  972. open 
  973. Zpath
  974. boings.wav alias boing
  975. tbkMCIchk
  976. set boing time format samples
  977. tbkMCIchk
  978. zpath
  979. LeaveBook
  980. close instruments
  981. tbkMCI
  982. close boing
  983. tbkMCI
  984. close kid
  985. tbkBitmap
  986. enterPage
  987. objList
  988. initialize
  989. objlist
  990. status kid window
  991. tbkBitmap
  992. displayKid
  993. selectedObject
  994. buttonUp
  995. setSpecialCursor
  996. setSpecialCursor
  997. playBoing
  998. inlist
  999. ]checkWin
  1000. playsound
  1001. inList
  1002. orgPos
  1003. pos10
  1004. orgPos1
  1005. orgPos2
  1006. orgPos3
  1007. orgPos4
  1008. orgPos5
  1009. orgPos6
  1010. orgPos7
  1011. orgPos8
  1012. orgPos9
  1013. orgPos10
  1014. selectedObject
  1015. objList
  1016. playSound
  1017. stop instruments
  1018. tbkMCI
  1019. stop boing
  1020. tbkMCI
  1021. play instruments from  71607 to  88631
  1022. tbkMCIchk
  1023. yieldApp
  1024. play instruments from  16247 to  32823
  1025. tbkMCIchk
  1026. yieldApp
  1027. play instruments from 0 to  16247
  1028. tbkMCIchk
  1029. yieldApp
  1030. play instruments from  36983 to  47607
  1031. tbkMCIchk
  1032. yieldApp
  1033. snare drum
  1034. play instruments from  88631 to  103808
  1035. tbkMCIchk
  1036. yieldApp
  1037. play instruments from  60215 to  71607
  1038. tbkMCIchk
  1039. yieldApp
  1040. play instruments from  47607 to  60215
  1041. tbkMCIchk
  1042. yieldApp
  1043. play instruments from  32823 to  36983
  1044. tbkMCIchk
  1045. yieldApp
  1046. xylophone
  1047. violin
  1048. trumpet
  1049. saxophone
  1050. piano
  1051. guitar
  1052. flute
  1053. sound
  1054. playInst
  1055. stop instruments
  1056. tbkMCI
  1057. stop boing
  1058. tbkMCI
  1059. play cdAudio from 05:00:00:15 to 05:00:18:50
  1060. tbkMCIchk
  1061. pianoAnim
  1062. play cdAudio from 06:00:00:15 to 06:00:07:60
  1063. tbkMCIchk
  1064. guitarNotesAnim
  1065. play cdAudio from 08:00:00:15 to 08:00:07:00
  1066. tbkMCIchk
  1067. trumpetNotesAnim
  1068. play cdAudio from 09:00:00:15 to 09:00:07:35
  1069. tbkMCIchk
  1070. ZdrumNotesAnim
  1071. play cdAudio from 07:00:00:15 to 07:00:06:60
  1072. tbkMCIchk
  1073. fluteNotesAnim
  1074. flute
  1075. trumpet
  1076. guitar
  1077. piano
  1078. playBoing
  1079. stop instruments
  1080. tbkMCI
  1081. stop boing
  1082. tbkMCI
  1083. play boing from 1 to 14659
  1084. tbkMCIchk
  1085. play boing from 14659 to 23346
  1086. tbkMCIchk
  1087. play boing from 23346 to 27029
  1088. tbkMCIchk
  1089. pianoAnim
  1090. status cdAudio mode
  1091. tbkMCI
  1092. playing
  1093. piano
  1094. eatClicks
  1095. piano
  1096. eatClicks
  1097. eatClicks
  1098. piano3
  1099. eatClicks
  1100. eatClicks
  1101. piano3
  1102. piano2
  1103. piano1
  1104. stop cdAudio
  1105. tbkMCI
  1106. default
  1107. i:to1
  1108. GuitarNotesAnim
  1109. status cdAudio mode
  1110. tbkMCI
  1111. playing
  1112. notes
  1113. eatClicks
  1114. eatClicks
  1115. notes
  1116. eatClicks
  1117. notes
  1118. stop cdAudio
  1119. tbkMCI
  1120. default
  1121. i:to1
  1122. DrumNotesAnim
  1123. status cdAudio mode
  1124. tbkMCI
  1125. playing
  1126. notes
  1127. eatClicks
  1128. eatClicks
  1129. notes
  1130. eatClicks
  1131. notes
  1132. stop cdAudio
  1133. tbkMCI
  1134. default
  1135. i:to1
  1136. fluteNotesAnim
  1137. status cdAudio mode
  1138. tbkMCI
  1139. playing
  1140. notes
  1141. eatClicks
  1142. eatClicks
  1143. notes
  1144. eatClicks
  1145. notes
  1146. stop cdAudio
  1147. tbkMCI
  1148. default
  1149. i:to1
  1150. trumpetNotesAnim
  1151. status cdAudio mode
  1152. tbkMCI
  1153. playing
  1154. notes
  1155. eatClicks
  1156. eatClicks
  1157. notes
  1158. eatClicks
  1159. notes
  1160. stop cdAudio
  1161. tbkMCI
  1162. default
  1163. i:to1
  1164. getPositions
  1165. myList
  1166. mylist
  1167. guitar
  1168.  16247 
  1169.  32823","",1)
  1170. piano
  1171.  16247","",1)
  1172. saxophone
  1173.  36983 
  1174.  47607","",1)
  1175. "snare drum"
  1176.  88631 
  1177.  103808","",1)
  1178. trumpet
  1179.  60215 
  1180.  71607","",1)
  1181. violin
  1182.  47607 
  1183.  60215","",1)
  1184. xylophone
  1185.  32823 
  1186.  36983","",1)
  1187. playInst 
  1188. ","")
  1189. F cdAudio 
  1190. 05:00:00:15 
  1191. 05:00:18:50","",1)
  1192. pianoAnim
  1193. 06:00:00:15 
  1194. 06:00:07:60","",1)
  1195. guitarNotesAnim
  1196. 08:00:00:15 
  1197. 08:00:07:00","",1)
  1198. trumpetNotesAnim
  1199. 09:00:00:15 
  1200. 09:00:07:35","",1)
  1201. drumNotesAnim
  1202. 07:00:00:15 
  1203. 07:00:06:60","",1)
  1204. fluteNotesAnim
  1205. resetLaps
  1206. ","")
  1207. 14659","",1)
  1208. 14659 
  1209. 23346","",1)
  1210. 23346 
  1211. 27029","",1)
  1212. mode","") 
  1213. "playing"
  1214. eatClicks()
  1215. =(keyleftButton) 
  1216. i > 1
  1217. "&i - 1)
  1218. '"piano3"
  1219. '"piano2"
  1220. '"piano1"
  1221. ","")
  1222. GuitarNotesAnim
  1223. notes 
  1224. 2730,2370
  1225. 4"&i)
  1226. ^"&i)
  1227. DrumNotesAnim
  1228. 5100,3450
  1229. 4935,2205
  1230. 2925,495
  1231. getPositions
  1232. 4mylist
  1233. [myList
  1234. Sound
  1235. enterBook
  1236. playInst
  1237. enterPage
  1238. playBoing
  1239. pianoAnim
  1240. GuitarNotesAnim
  1241. LeaveBook
  1242. DrumNotesAnim
  1243. buttonUp
  1244. fluteNotesAnim
  1245. trumpetNotesAnim
  1246. playSound
  1247. getPositions
  1248. enterBook
  1249. c:\toolbook\playhous\
  1250. playhous.sbk
  1251. Zpath
  1252. playhous.sbk
  1253. open 
  1254. instrmnt.wav alias instruments
  1255. tbkMCIchk
  1256. set instruments time format samples
  1257. tbkMCIchk
  1258. open 
  1259. Zpath
  1260. boings.wav alias boing
  1261. tbkMCIchk
  1262. set boing time format samples
  1263. tbkMCIchk
  1264. zpath
  1265. LeaveBook
  1266. close instruments
  1267. tbkMCI
  1268. close boing
  1269. tbkMCI
  1270. close kid
  1271. tbkBitmap
  1272. enterPage
  1273. objList
  1274. initialize
  1275. objlist
  1276. status kid window
  1277. tbkBitmap
  1278. displayKid
  1279. selectedObject
  1280. buttonUp
  1281. setSpecialCursor
  1282. setSpecialCursor
  1283. playBoing
  1284. inlist
  1285. ]checkWin
  1286. playsound
  1287. inList
  1288. orgPos
  1289. pos10
  1290. orgPos1
  1291. orgPos2
  1292. orgPos3
  1293. orgPos4
  1294. orgPos5
  1295. orgPos6
  1296. orgPos7
  1297. orgPos8
  1298. orgPos9
  1299. orgPos10
  1300. selectedObject
  1301. objList
  1302. playSound
  1303. stop instruments
  1304. tbkMCI
  1305. stop boing
  1306. tbkMCI
  1307. play instruments from  71607 to  88631
  1308. tbkMCIchk
  1309. yieldApp
  1310. play instruments from  16247 to  32823
  1311. tbkMCIchk
  1312. yieldApp
  1313. play instruments from 0 to  16247
  1314. tbkMCIchk
  1315. yieldApp
  1316. play instruments from  36983 to  47607
  1317. tbkMCIchk
  1318. yieldApp
  1319. snare drum
  1320. play instruments from  88631 to  103808
  1321. tbkMCIchk
  1322. yieldApp
  1323. play instruments from  60215 to  71607
  1324. tbkMCIchk
  1325. yieldApp
  1326. play instruments from  47607 to  60215
  1327. tbkMCIchk
  1328. yieldApp
  1329. play instruments from  32823 to  36983
  1330. tbkMCIchk
  1331. yieldApp
  1332. xylophone
  1333. violin
  1334. trumpet
  1335. saxophone
  1336. piano
  1337. guitar
  1338. flute
  1339. sound
  1340. playInst
  1341. stop instruments
  1342. tbkMCI
  1343. stop boing
  1344. tbkMCI
  1345. play cdAudio from 05:00:00:15 to 05:00:18:50
  1346. tbkMCIchk
  1347. pianoAnim
  1348. play cdAudio from 06:00:00:15 to 06:00:07:60
  1349. tbkMCIchk
  1350. guitarNotesAnim
  1351. play cdAudio from 08:00:00:15 to 08:00:07:00
  1352. tbkMCIchk
  1353. trumpetNotesAnim
  1354. play cdAudio from 09:00:00:15 to 09:00:07:35
  1355. tbkMCIchk
  1356. ZdrumNotesAnim
  1357. play cdAudio from 07:00:00:15 to 07:00:06:60
  1358. tbkMCIchk
  1359. fluteNotesAnim
  1360. resetLaps
  1361. flute
  1362. trumpet
  1363. guitar
  1364. piano
  1365. playBoing
  1366. stop instruments
  1367. tbkMCI
  1368. stop boing
  1369. tbkMCI
  1370. play boing from 1 to 14659
  1371. tbkMCIchk
  1372. play boing from 14659 to 23346
  1373. tbkMCIchk
  1374. play boing from 23346 to 27029
  1375. tbkMCIchk
  1376. pianoAnim
  1377. status cdAudio mode
  1378. tbkMCI
  1379. playing
  1380. piano
  1381. eatClicks
  1382. piano
  1383. eatClicks
  1384. eatClicks
  1385. piano3
  1386. eatClicks
  1387. eatClicks
  1388. piano3
  1389. piano2
  1390. piano1
  1391. stop cdAudio
  1392. tbkMCI
  1393. default
  1394. i:to1
  1395. GuitarNotesAnim
  1396. yieldApp
  1397. notes
  1398. yieldApp
  1399. yieldApp
  1400. notes
  1401. yieldApp
  1402. i:to1
  1403. DrumNotesAnim
  1404. yieldApp
  1405. notes
  1406. yieldApp
  1407. notes
  1408. yieldApp
  1409. i:to1
  1410. fluteNotesAnim
  1411. yieldApp
  1412. notes
  1413. yieldApp
  1414. yieldApp
  1415. notes
  1416. yieldApp
  1417. i:to1
  1418. trumpetNotesAnim
  1419. yieldApp
  1420. notes
  1421. yieldApp
  1422. yieldApp
  1423. notes
  1424. yieldApp
  1425. i:to1
  1426. getPositions
  1427. myList
  1428. mylist
  1429. 4zpath
  1430. "c:\toolbook\playhous\"
  1431. .sbk" 
  1432. (Zpath&"
  1433.     -- OPEN ONE NOTE SOUNDS
  1434. tbkMCIchk("
  1435. &"instrmnt.wav alias instruments","",1)
  1436. samples","",1)
  1437. pLOSING 
  1438. boings.
  1439. ","",1)
  1440. LeaveBook
  1441. ("close 
  1442. M","")
  1443. tbkBitmap("
  1444. &kid")
  1445. 4objlist
  1446. [objList
  1447. initialize 
  1448. 4selectedObject
  1449.  <> ""
  1450. |status 
  1451. displayKid
  1452. 4orgPos1,orgPos2,orgPos3,orgPos4,orgPos5,orgPos6,orgPos7,orgPos8,orgPos9,orgPos10
  1453. 4pos1,pos2,pos3,pos4,pos5,pos6,pos7,pos8,pos9,pos10
  1454.     -- CHECK FOR VALID PUZZLE PART
  1455. setSpecialCursor(
  1456.             --
  1457. default
  1458. 7hand)
  1459. ))) > 50 \
  1460. ))) > 50
  1461. -- REMOVE OBJECT FROM THE LIST IF IT IS IN
  1462.  goofy wrong sound here
  1463. playBoing 
  1464. (pos&
  1465. -- ADD 
  1466. inList 
  1467. inlist <> 
  1468. checkWin 
  1469. playsound (
  1470. playSound 
  1471. ("stop 
  1472. ","")
  1473. flute
  1474.  71607 
  1475.  88631","",1)
  1476. yieldApp()
  1477. guitar
  1478.  16247 
  1479.  32823","",1)
  1480. piano
  1481.  16247","",1)
  1482. saxophone
  1483.  36983 
  1484.  47607","",1)
  1485. "snare drum"
  1486.  88631 
  1487.  103808","",1)
  1488. trumpet
  1489.  60215 
  1490.  71607","",1)
  1491. violin
  1492.  47607 
  1493.  60215","",1)
  1494. xylophone
  1495.  32823 
  1496.  36983","",1)
  1497. playInst 
  1498. ","")
  1499. F cdAudio 
  1500. 05:00:00:15 
  1501. 05:00:18:50","",1)
  1502. pianoAnim
  1503. 06:00:00:15 
  1504. 06:00:07:60","",1)
  1505. guitarNotesAnim
  1506. 08:00:00:15 
  1507. 08:00:07:00","",1)
  1508. trumpetNotesAnim
  1509. 09:00:00:15 
  1510. 09:00:07:35","",1)
  1511. drumNotesAnim
  1512. 07:00:00:15 
  1513. 07:00:06:60","",1)
  1514. fluteNotesAnim
  1515. resetLaps
  1516. ","")
  1517. 14659","",1)
  1518. 14659 
  1519. 23346","",1)
  1520. 23346 
  1521. 27029","",1)
  1522. mode","") 
  1523. "playing"
  1524. eatClicks()
  1525. =(keyleftButton) 
  1526. i > 1
  1527. "&i - 1)
  1528. '"piano3"
  1529. '"piano2"
  1530. '"piano1"
  1531. ","")
  1532. GuitarNotesAnim
  1533. ("notes"&i)
  1534. ","")
  1535. DrumNotesAnim
  1536. ","")
  1537. ","")
  1538. ","")
  1539. getPositions
  1540. 4mylist
  1541. [myList
  1542. Sound
  1543. enterBook
  1544. playInst
  1545. enterPage
  1546. playBoing
  1547. pianoAnim
  1548. GuitarNotesAnim
  1549. LeaveBook
  1550. DrumNotesAnim
  1551. buttonUp
  1552. fluteNotesAnim
  1553. trumpetNotesAnim
  1554. playSound
  1555. getPositions
  1556. enterBook
  1557. c:\toolbook\playhous\
  1558. playhous.sbk
  1559. Zpath
  1560. playhous.sbk
  1561. open 
  1562. instrmnt.wav alias instruments
  1563. tbkMCIchk
  1564. set instruments time format samples
  1565. tbkMCIchk
  1566. open 
  1567. Zpath
  1568. boings.wav alias boing
  1569. tbkMCIchk
  1570. set boing time format samples
  1571. tbkMCIchk
  1572. zpath
  1573. LeaveBook
  1574. close instruments
  1575. tbkMCI
  1576. close boing
  1577. tbkMCI
  1578. close kid
  1579. tbkBitmap
  1580. enterPage
  1581. objList
  1582. initialize
  1583. objlist
  1584. status kid window
  1585. tbkBitmap
  1586. displayKid
  1587. selectedObject
  1588. buttonUp
  1589. setSpecialCursor
  1590. setSpecialCursor
  1591. playBoing
  1592. inlist
  1593. ]checkWin
  1594. playsound
  1595. inList
  1596. orgPos
  1597. pos10
  1598. orgPos1
  1599. orgPos2
  1600. orgPos3
  1601. orgPos4
  1602. orgPos5
  1603. orgPos6
  1604. orgPos7
  1605. orgPos8
  1606. orgPos9
  1607. orgPos10
  1608. selectedObject
  1609. objList
  1610. playSound
  1611. stop instruments
  1612. tbkMCI
  1613. stop boing
  1614. tbkMCI
  1615. play instruments from  71607 to  88631
  1616. tbkMCIchk
  1617. yieldApp
  1618. play instruments from  16247 to  32823
  1619. tbkMCIchk
  1620. yieldApp
  1621. play instruments from 0 to  16247
  1622. tbkMCIchk
  1623. yieldApp
  1624. play instruments from  36983 to  47607
  1625. tbkMCIchk
  1626. yieldApp
  1627. snare drum
  1628. play instruments from  88631 to  103808
  1629. tbkMCIchk
  1630. yieldApp
  1631. play instruments from  60215 to  71607
  1632. tbkMCIchk
  1633. yieldApp
  1634. play instruments from  47607 to  60215
  1635. tbkMCIchk
  1636. yieldApp
  1637. play instruments from  32823 to  36983
  1638. tbkMCIchk
  1639. yieldApp
  1640. xylophone
  1641. violin
  1642. trumpet
  1643. saxophone
  1644. piano
  1645. guitar
  1646. flute
  1647. sound
  1648. playInst
  1649. stop instruments
  1650. tbkMCI
  1651. stop boing
  1652. tbkMCI
  1653. play cdAudio from 05:00:00:15 to 05:00:18:50
  1654. tbkMCIchk
  1655. pianoAnim
  1656. play cdAudio from 06:00:00:15 to 06:00:07:60
  1657. tbkMCIchk
  1658. guitarNotesAnim
  1659. play cdAudio from 08:00:00:15 to 08:00:07:00
  1660. tbkMCIchk
  1661. trumpetNotesAnim
  1662. play cdAudio from 09:00:00:15 to 09:00:07:35
  1663. tbkMCIchk
  1664. ZdrumNotesAnim
  1665. play cdAudio from 07:00:00:15 to 07:00:06:60
  1666. tbkMCIchk
  1667. fluteNotesAnim
  1668. resetLaps
  1669. flute
  1670. trumpet
  1671. guitar
  1672. piano
  1673. playBoing
  1674. stop instruments
  1675. tbkMCI
  1676. stop boing
  1677. tbkMCI
  1678. play boing from 1 to 14659
  1679. tbkMCIchk
  1680. play boing from 14659 to 23346
  1681. tbkMCIchk
  1682. play boing from 23346 to 27029
  1683. tbkMCIchk
  1684. pianoAnim
  1685. status cdAudio mode
  1686. tbkMCI
  1687. playing
  1688. piano
  1689. eatClicks
  1690. piano
  1691. eatClicks
  1692. eatClicks
  1693. piano3
  1694. eatClicks
  1695. eatClicks
  1696. piano3
  1697. piano2
  1698. piano1
  1699. stop cdAudio
  1700. tbkMCI
  1701. default
  1702. i:to1
  1703. GuitarNotesAnim
  1704. status cdAudio mode
  1705. tbkMCI
  1706. playing
  1707. notes
  1708. eatClicks
  1709. eatClicks
  1710. notes
  1711. eatClicks
  1712. notes
  1713. stop cdAudio
  1714. tbkMCI
  1715. default
  1716. i:to1
  1717. DrumNotesAnim
  1718. status cdAudio mode
  1719. tbkMCI
  1720. playing
  1721. notes
  1722. eatClicks
  1723. eatClicks
  1724. notes
  1725. eatClicks
  1726. notes
  1727. stop cdAudio
  1728. tbkMCI
  1729. default
  1730. i:to1
  1731. fluteNotesAnim
  1732. status cdAudio mode
  1733. tbkMCI
  1734. playing
  1735. notes
  1736. eatClicks
  1737. eatClicks
  1738. notes
  1739. eatClicks
  1740. notes
  1741. stop cdAudio
  1742. tbkMCI
  1743. default
  1744. i:to1
  1745. trumpetNotesAnim
  1746. status cdAudio mode
  1747. tbkMCI
  1748. playing
  1749. notes
  1750. eatClicks
  1751. eatClicks
  1752. notes
  1753. eatClicks
  1754. notes
  1755. stop cdAudio
  1756. tbkMCI
  1757. default
  1758. i:to1
  1759. getPositions
  1760. myList
  1761. mylist
  1762.