home *** CD-ROM | disk | FTP | other *** search
/ Allie's Playhouse / allies-playhouse.bin / clock.tbk (.txt) < prev    next >
Asymetrix ToolBook File  |  1993-08-03  |  102KB  |  1,046 lines
  1. System
  2. mes New Roman
  3. Arial
  4. samples","",1)
  5. enterBook
  6. enterBook
  7. c:\toolbook\playhous\
  8. playhous.sbk
  9. Zpath
  10. playhous.sbk
  11. zpath
  12. Allie's Playhouse
  13. Times New Roman
  14. Arial
  15. Arial
  16. arial
  17. Arial
  18. Times New Roman
  19. TBKWidgets
  20. 8close 
  21. ","")
  22. terBook
  23. enterBook
  24. leaveBook
  25. enterBook
  26. c:\toolbook\playhous\
  27. playhous.sbk
  28. Zpath
  29. playhous.sbk
  30. open 
  31. Zpath
  32. yesNo.wav alias winlose
  33. tbkMCIchk
  34. set winlose time format samples
  35. tbkMCIchk
  36. open 
  37. Zpath
  38. alliecom.wav alias allie
  39. tbkMCIchk
  40. set allie time format samples
  41. tbkMCIchk
  42. zpath
  43. status kid window
  44. tbkBitmap
  45. displayKid
  46. leaveBook
  47. close kid
  48. tbkBitmap
  49. close allie
  50. tbkMCI
  51. close winlose
  52. tbkMCI
  53. 4Zpath
  54. playhouse 
  55. .tbk")
  56. default
  57. buttonup
  58. buttonup
  59. playhous.tbk
  60. default
  61. playhouse
  62. Zpath
  63. :PHYSSIZE
  64. xyoffset 
  65. item1 
  66. item2 
  67. p2 + 
  68. p2 + 
  69. buttondown
  70. buttonup
  71. buttondown
  72. item2
  73. item1
  74. xyoffset
  75. buttonup
  76. item2
  77. item1
  78. 8370,5745
  79. smileySel
  80. :PHYSSIZE
  81. help clock
  82. buttonup
  83. buttonup
  84. clock
  85. showTime
  86. 4showTime, game
  87. "daylight"
  88. "digi"
  89. "minutes"
  90. "colons"
  91. selectedTextLines 
  92. "hours" 
  93. buttonUp
  94. buttonUp
  95. daylight
  96. 080000am
  97. 090000am
  98. 120000pm
  99. 030000pm
  100. 040000pm
  101. 060000pm
  102. 080000pm
  103. 100000pm
  104. minutes
  105. colons
  106. hours
  107. minutes
  108. showTime
  109. :PHYSSIZE
  110. xyoffset 
  111. item1 
  112. item2 
  113. p2 + 
  114. p2 + 
  115. buttondown
  116. buttonup
  117. buttondown
  118. item2
  119. item1
  120. xyoffset
  121. buttonup
  122. item2
  123. item1
  124. 8370,1755
  125. 4game
  126. initGame
  127. buttonUp
  128. buttonUp
  129. j^initGame
  130. :PHYSSIZE
  131. xyoffset 
  132. item1 
  133. item2 
  134. p2 + 
  135. p2 + 
  136. buttondown
  137. buttonup
  138. buttondown
  139. item2
  140. item1
  141. xyoffset
  142. buttonup
  143. item2
  144. item1
  145. 8370,2805
  146. level
  147. 4level
  148. "play" 
  149. buttonUp
  150. buttonUp
  151. buttonUp
  152. level
  153. pscript
  154. to handle buttonUp
  155.     set invert of self to false
  156.     set invert of target to true
  157. pobjects
  158. button id 26 of background id 0,button id 27 of background id 0,button id 28 of background id 0
  159. level1
  160. level3
  161. level2
  162. 8370,1755
  163. J.KbK
  164. clockSpeech mrClock
  165. buttonUp
  166. buttonUp
  167. clockSpeech
  168. mrClock
  169. :PHYSSIZE
  170. question
  171. colons
  172. hours
  173. 4showTime, currentTime, game, level, gotHour
  174. newHour 
  175. ) = 1
  176. ("0"&
  177. newhour
  178.     -- SAY the 
  179. tbkMCI("status slot mode","") 
  180. "playing"
  181.  ","")
  182. sayTime 
  183. updateClock
  184.  <> 1
  185. "question" 
  186. 7440,540
  187. checkWin
  188. buttonup
  189. buttonup
  190. newhour
  191. status slot mode
  192. tbkMCI
  193. playing
  194. stop slot
  195. tbkMCI
  196. ~GsayTime
  197. newhour
  198. updateClock
  199. question
  200. question
  201. ]checkWin
  202. newHour
  203. showTime
  204. currentTime
  205. level
  206. gotHour
  207. Minutes
  208. 4showTime, currentTime, game, gotHour
  209.     -- SAY THE TIME
  210. sayTime oclock
  211. d <> 
  212. updateClock
  213. "question"
  214. 6840,540    
  215. checkWin
  216. buttonup
  217. buttonup
  218. ~GsayTime
  219. ~GsayTime
  220. updateClock
  221. question
  222. question
  223. ]checkWin
  224. oclock
  225. showTime
  226. currentTime
  227. gotHour
  228. 080000AM
  229. setTime 
  230. AllieClockSpeech 
  231. buttonup
  232. buttonup
  233. EsetTime
  234. AllieClockSpeech
  235. :PHYSSIZE
  236. xyoffset 
  237. item1 
  238. item2 
  239. p2 + 
  240. p2 + 
  241. buttondown
  242. buttonup
  243. buttondown
  244. item2
  245. item1
  246. xyoffset
  247. buttonup
  248. item2
  249. item1
  250. 82,5887
  251. 090000AM
  252. setTime 
  253. AllieClockSpeech 
  254. buttonup
  255. buttonup
  256. EsetTime
  257. AllieClockSpeech
  258. :PHYSSIZE
  259. xyoffset 
  260. item1 
  261. item2 
  262. p2 + 
  263. p2 + 
  264. buttondown
  265. buttonup
  266. buttondown
  267. item2
  268. item1
  269. xyoffset
  270. buttonup
  271. item2
  272. item1
  273. 1095,5880
  274. 120000PM
  275. setTime 
  276. AllieClockSpeech 
  277. buttonup
  278. buttonup
  279. EsetTime
  280. AllieClockSpeech
  281. :PHYSSIZE
  282. xyoffset 
  283. item1 
  284. item2 
  285. p2 + 
  286. p2 + 
  287. buttondown
  288. buttonup
  289. buttondown
  290. item2
  291. item1
  292. xyoffset
  293. buttonup
  294. item2
  295. item1
  296. 2115,5880
  297. 030000PM
  298. setTime 
  299. AllieClockSpeech 
  300. buttonup
  301. buttonup
  302. EsetTime
  303. AllieClockSpeech
  304. :PHYSSIZE
  305. xyoffset 
  306. item1 
  307. item2 
  308. p2 + 
  309. p2 + 
  310. buttondown
  311. buttonup
  312. buttondown
  313. item2
  314. item1
  315. xyoffset
  316. buttonup
  317. item2
  318. item1
  319. 3135,5880
  320. 040000PM
  321. setTime 
  322. AllieClockSpeech 
  323. buttonup
  324. buttonup
  325. EsetTime
  326. AllieClockSpeech
  327. $:PHYSSIZE
  328. xyoffset 
  329. item1 
  330. item2 
  331. p2 + 
  332. p2 + 
  333. buttondown
  334. buttonup
  335. buttondown
  336. item2
  337. item1
  338. xyoffset
  339. buttonup
  340. item2
  341. item1
  342. 4155,5880
  343. 060000PM
  344. setTime 
  345. AllieClockSpeech 
  346. buttonup
  347. buttonup
  348. EsetTime
  349. AllieClockSpeech
  350. ):PHYSSIZE
  351. xyoffset 
  352. item1 
  353. item2 
  354. p2 + 
  355. p2 + 
  356. buttondown
  357. buttonup
  358. buttondown
  359. item2
  360. item1
  361. xyoffset
  362. buttonup
  363. item2
  364. item1
  365. 5175,5880
  366. 080000PM
  367. setTime 
  368. AllieClockSpeech 
  369. buttonup
  370. buttonup
  371. EsetTime
  372. AllieClockSpeech
  373. .:PHYSSIZE
  374. xyoffset 
  375. item1 
  376. item2 
  377. p2 + 
  378. p2 + 
  379. buttondown
  380. buttonup
  381. buttondown
  382. item2
  383. item1
  384. xyoffset
  385. buttonup
  386. item2
  387. item1
  388. 6195,5880
  389. 100000PM
  390. setTime 
  391. AllieClockSpeech 
  392. buttonup
  393. buttonup
  394. EsetTime
  395. AllieClockSpeech
  396. 3:PHYSSIZE
  397. xyoffset 
  398. item1 
  399. item2 
  400. p2 + 
  401. p2 + 
  402. buttondown
  403. buttonup
  404. buttondown
  405. item2
  406. item1
  407. xyoffset
  408. buttonup
  409. item2
  410. item1
  411. 7215,5880
  412. daylight
  413. 4showTime, currentTime
  414. sayTime am
  415. updateClock
  416. buttonUp
  417. buttonUp
  418. ~GsayTime
  419. ~GsayTime
  420. updateClock
  421. showTime
  422. currentTime
  423. 9:PHYSSIZE
  424. H::PHYSSIZE
  425. N;&;K;
  426. Mr. Clock
  427. clockSpeech digi
  428. buttonUp
  429. buttonUp
  430. clockSpeech
  431. <:PHYSSIZE
  432. DigitalTime
  433. ~=V={=
  434. 12:50
  435. digitalAmpm
  436. AMgiAMPM
  437. z>R>w>
  438. hourLine
  439. minutesLine
  440. secsLine
  441. results
  442. buttonUp
  443. buttonUp
  444. Congratulations!
  445. All your answers were correct.t time... points
  446. allieplay
  447. 4game
  448. replay
  449.         -- say goofy thing
  450. allieSpeech
  451. buttonUp
  452. buttonUp
  453. allieSpeech
  454. 4N:PHYSSIZE
  455. alliel1
  456. N:PHYSSIZE
  457. alliel2
  458. O:PHYSSIZE
  459. alliewin
  460. P:PHYSSIZE
  461. sayTime 
  462. buttonUp
  463. buttonUp
  464. ~GsayTime
  465. oclock
  466. min30
  467. min45
  468. min15
  469. min10
  470. min20
  471. min25
  472. min35
  473. min40
  474. min50
  475. min55
  476. 4oldHour,oldMinutes,oldSecs, currentTime
  477. hhminsecAMPM
  478. 4showTime
  479. updateClock
  480. radius, 
  481. , game
  482. hour 
  483. minutes 
  484. secs 
  485. ampm 
  486. 1400 -- 
  487. hands 
  488.     -- UPDATE ANALOG CLOCK
  489. hourAngle 
  490. /12 + 
  491. /60/12) * (2 * PI) - (PI / 2)
  492. minutesAngle 
  493. /60) * (2 * PI) - (PI / 2)
  494. secsAngle 
  495. /60) * (2 * PI) - (PI / 2)
  496. UsecsLine
  497. (ctr 
  498. "dial"),\
  499.   + (.95 * 
  500. )), \
  501. (.95 * 
  502. UminutesLine
  503.  + (.8 * 
  504. )), \
  505. (.8 * 
  506. UhourLine
  507.  + (.6 * 
  508. )), \
  509. (.6 * 
  510. DIGITAL 
  511. digitime 
  512. "digitalTime" 
  513. "digitalAmPm" 
  514.     -- Update daylight 
  515. setDaylight 
  516. coords 
  517. )/2,\
  518.     -- Set 
  519. /Night
  520. night
  521. "moon" 
  522. 6645,165
  523. 6915,210    
  524. 7215,300
  525. 7395,390
  526. 7590,510
  527. 7725,615
  528. 7860,795
  529. "sun" 
  530. 5325,660
  531. 5565,465
  532. 5820,330
  533. 6105,240
  534. 6375,180
  535. 6645,165 
  536.  6915,210
  537. 7215,300 
  538. 7395,390 
  539. 7590,510 
  540. 7725,615 
  541. 7860,795 
  542. 5325,660
  543. 5565,465
  544. 5820,330
  545. 6105,240
  546. 6375,180
  547. sysLockSCreen 
  548. setTime newtime
  549. newTime
  550. selectedTextLines 
  551. "hours" 
  552. pdateClock
  553. setDaylight
  554. night
  555. enterpage
  556. updateClock
  557. setTime
  558. enterpage
  559. hhminsecAMPM
  560. oldHour
  561. oldMinutes
  562. oldSecs
  563. currentTime
  564. updateClock
  565. showTime
  566.     updateClock
  567. secsLine
  568. ffffff
  569. ffffff
  570. minutesLine
  571. hourLine
  572. 333333
  573. 333333
  574. h:min
  575. digitalTime
  576. digitalAmPm
  577. setDaylight
  578. digitime
  579. hourLine
  580. minutesLine
  581. secsLine
  582. secsAngle
  583. minutesAngle
  584. hourAngle
  585. minutes
  586. hhminsecAMPM
  587. oldHour
  588. oldMinutes
  589. oldSecs
  590. radius
  591. showTime
  592. currentTime
  593. coords
  594. setDaylight
  595. night
  596. night
  597. night
  598. night
  599. night
  600. night
  601. night
  602. night
  603. night
  604. night
  605. night
  606. night
  607. night
  608. setTime
  609. newTime
  610. hours
  611. minutes
  612. updateClock
  613. showTime
  614. currentTime
  615. newtime
  616. 4zpath, level
  617. "c:\toolbook\playhous\"
  618. .sbk" 
  619. (Zpath&"
  620. tbkMCIchk("
  621. &yesNo.wav alias winlose","",1)
  622. samples","",1)
  623. lalliecom.
  624. ","",1)
  625. slot.
  626. ","",1)
  627. "showTime" 
  628. B"level1" 
  629. tbkBitmap("status kid 
  630. displayKid
  631. Gclose 
  632. ","")
  633. ","")
  634. "question"
  635. saveAs
  636. initGame
  637. 4game, points, roundnum, result, try, 
  638. roundNum 
  639.     -- CREATE RANDOM LIST OF 12 QUESTIONS
  640. ci <= 12
  641. table 
  642. -- REMOVE GRAPHICS
  643. "daylight"
  644. "digi"
  645. "sun"
  646. "moon"
  647. "minutes"
  648. "colons"
  649. U"minutesLine"
  650. U"secsLine"
  651. sortNames
  652. 4mystTime, questions, 
  653. , currentTime
  654.     -- MAIN GAME LOOP
  655.     --After 12th 
  656. , give results
  657. selectedTextLines 
  658. "hours" 
  659.     -- Ask 
  660. the mystery 
  661. scrollHands
  662. updateClock 
  663. , waitTime
  664. ("stop 
  665. "Congratulations!"&
  666. k&"All your answers were correct." -- Replace 
  667. fspeech
  668. allieComments congratulations
  669.  >= 28
  670. "Excellent!"&
  671. k&"You scored"&&
  672. k&"out 
  673. excellent
  674.  >= 21
  675. "Very Good!"&
  676. verygood
  677.  >= 14
  678.  >= 7
  679. "Fair!"&
  680.  >= 0
  681. 36."&
  682. k&"Better luck 
  683. I..."
  684. better
  685. checkWin
  686.         -- 
  687. playWin
  688. allieWin
  689.         -- Increment Points
  690.         -- Wrong 
  691. playLose2
  692. allieLose
  693.             -- Blink 
  694.  one 
  695. 3 tries
  696. )/5)+1
  697.             --
  698. replay
  699.     -- create list 
  700. "12"&(
  701. (4)-1)*15&"00am" 
  702. "01"&(
  703. (4)-1)*15&"00am" 
  704. "02"&(
  705. (4)-1)*15&"00am" 
  706. "03"&(
  707. (4)-1)*15&"00am" 
  708. "04"&(
  709. (4)-1)*15&"00am" 
  710. "05"&(
  711. (4)-1)*15&"00am" 
  712. "06"&(
  713. (4)-1)*15&"00am" 
  714. "07"&(
  715. (4)-1)*15&"00am" 
  716. "08"&(
  717. (4)-1)*15&"00am" 
  718. "09"&(
  719. (4)-1)*15&"00am" 
  720. "10"&(
  721. (4)-1)*15&"00am" 
  722. "11"&(
  723. (4)-1)*15&"00am" 
  724. ) < 8
  725. "12"&
  726. (11)*5&"00am" 
  727. "01"&
  728. (11)*5&"00am" 
  729. "02"&
  730. (11)*5&"00am" 
  731. "03"&
  732. (11)*5&"00am" 
  733. "04"&
  734. (11)*5&"00am" 
  735. "05"&
  736. (11)*5&"00am" 
  737. "06"&
  738. (11)*5&"00am" 
  739. "07"&
  740. (11)*5&"00am" 
  741. "08"&
  742. (11)*5&"00am" 
  743. "09"&
  744. (11)*5&"00am" 
  745. "10"&
  746. (11)*5&"00am" 
  747. "11"&
  748. (11)*5&"00am" 
  749. ) < 8
  750. 0","",1)
  751. yieldApp()
  752.  + 15 = 60 
  753.             -- INCREMENT MINUTES BY 15
  754. newmin 
  755.  + 15
  756. %"00" 
  757. newMin
  758. default
  759. Blevel2 
  760. Blevel3 
  761. rBook
  762. initGame
  763. leaveBook
  764. results
  765. checkWin
  766. sortNames
  767. saveAs
  768. scrollHands
  769. enterBook
  770. keyChar
  771. enterBook
  772. c:\toolbook\playhous\
  773. playhous.sbk
  774. Zpath
  775. playhous.sbk
  776. open 
  777. Zpath
  778. yesNo.wav alias winlose
  779. tbkMCIchk
  780. set winlose time format samples
  781. tbkMCIchk
  782. open 
  783. Zpath
  784. alliecom.wav alias allie
  785. tbkMCIchk
  786. set allie time format samples
  787. tbkMCIchk
  788. open 
  789. Zpath
  790. slot.wav alias slot
  791. tbkMCIchk
  792. buttonUp
  793. showTime
  794. level
  795. level1
  796. zpath
  797. level
  798. status kid window
  799. tbkBitmap
  800. displayKid
  801. leaveBook
  802. buttonUp
  803. showTime
  804. close kid
  805. tbkBitmap
  806. close allie
  807. tbkMCI
  808. close winlose
  809. tbkMCI
  810. close slot
  811. tbkMCI
  812. buttonUp
  813. showTime
  814. question
  815. saveAs
  816. buttonUp
  817. showTime
  818. question
  819. initGame
  820. roundNum
  821. daylight
  822. 080000am
  823. 090000am
  824. 120000pm
  825. 030000pm
  826. 040000pm
  827. 060000pm
  828. 080000pm
  829. 100000pm
  830. minutes
  831. colons
  832. minutes
  833. colons
  834. sortNames
  835. table
  836. points
  837. roundnum
  838. result
  839. showTime
  840. level
  841. Yresults
  842. hours
  843. minutes
  844. scrollHands
  845. updateClock
  846. question
  847. mystTime
  848. questions
  849. roundNum
  850. currentTime
  851. results
  852. stop winlose
  853. tbkMCI
  854. Congratulations!
  855. All your answers were correct.
  856. results
  857. ]EallieComments
  858. buttonup
  859. showTime
  860. results
  861. level
  862. level
  863. j^initGame
  864. Excellent!
  865. You scored
  866. points
  867. out of 36.
  868. results
  869. ]EallieComments
  870. Very Good!
  871. You scored
  872. points
  873. out of 36.
  874. results
  875. ]EallieComments
  876. Good!
  877. You scored
  878. points
  879. out of 36.
  880. results
  881. ]EallieComments
  882. Fair!
  883. You scored
  884. points
  885. out of 36.
  886. results
  887. ]EallieComments
  888. You scored
  889. points
  890. out of 36.
  891. Better luck next time...
  892. results
  893. ]EallieComments
  894. buttonup
  895. showTime
  896. better
  897. verygood
  898. excellent
  899. congratulations
  900. results
  901. points
  902. level
  903. waitTime
  904. checkWin
  905. (NplayWin
  906. qdallieWin
  907. playLose2
  908. allieLose
  909. hours
  910. hours
  911. hours
  912. minutes
  913. hours
  914. minutes
  915. uplayLose
  916. allieLose
  917. hours
  918. minutes
  919. question
  920. level
  921. mystTime
  922. points
  923. waitTime
  924. currentTime
  925. sortNames
  926. 120000am
  927. 010000am
  928. 020000am
  929. 030000am
  930. 040000am
  931. 050000am
  932. 060000am
  933. 070000am
  934. 080000am
  935. 090000am
  936. 100000am
  937. 110000am
  938. i:to1
  939. questions
  940. result
  941. level
  942. scrollHands
  943. 120000AM
  944. stop winlose
  945. tbkMCI
  946. play slot from 0
  947. tbkMCIchk
  948. yieldApp
  949. yieldApp
  950. yieldApp
  951. yieldApp
  952. yieldApp
  953. yieldApp
  954. newMin
  955. yieldApp
  956. updateClock
  957. yieldApp
  958. yieldApp
  959. yieldApp
  960. default
  961. newmin
  962. currentTime
  963. mystTime
  964. keyChar
  965. buttonup
  966. buttonup
  967. buttonup
  968. level3
  969. level2
  970. level1
  971. level
  972. ""#"*
  973. ""33#
  974. ""#"#33
  975. 2""/"3
  976. 3"#""#23:"
  977. #3:#/#
  978. "3#33""3""
  979. #""*3**3:#
  980. "*3"##:
  981. #22"##*""#
  982. 32"*""
  983. :##"/
  984. ":"#2"
  985. ?"*2"
  986. 2"2"/"/
  987. 32"*""
  988. "2"#2/""
  989. /#""    
  990. ""2"    
  991. ""//L
  992. "/"/$
  993. r'wwp
  994. ""+""-
  995. DD@@D
  996. @DD@D
  997. DD@DOst
  998. @@DD@
  999. D@D@@D@
  1000. @D@@D
  1001. @D@D@
  1002. D@@D@@
  1003. D@@DD
  1004. DD@D@@D
  1005. DD@D@
  1006. @@D@DD
  1007. @D@@D
  1008. D@D@D
  1009. D@DD@DD
  1010. @DD@D@
  1011. DD@D@DD
  1012. @D@@D
  1013. DD@@D
  1014. "'w" 
  1015.  f`"" 
  1016.  ff`*
  1017.  ff`*
  1018.  ff`*
  1019.  ff`*
  1020.  ff`*
  1021.  ff`*
  1022.  ff`*
  1023.  ff`*
  1024.  ff`*
  1025.  ff`*
  1026.  ff`*
  1027. `"" f`*
  1028. **     f
  1029. **     f
  1030.  ff`*
  1031.  ff`*
  1032.  ff`*
  1033.  ff`*
  1034.  ff`*
  1035.  ff`*
  1036.  ff`*
  1037.  ff`*
  1038.  ff`*
  1039.  ff`*
  1040.  ff`*
  1041. "'w" 
  1042. oCS\    f
  1043. ]UUPK
  1044. ]]UP#
  1045. playhous.ico
  1046.