home *** CD-ROM | disk | FTP | other *** search
/ Jurassic Jigsaws / JURASSIC.BIN / mmvdemo.dir / 00013_Script_13 < prev    next >
Text File  |  1996-09-24  |  1KB  |  26 lines
  1. global carnylist, carnyspotlist, loungespotlist
  2.  
  3. on initcarnival
  4.   set carnylist = [ #carousel : birth (script "carnyscript", "carousel",1),¼
  5.                     #ferrisW  : birth (script "carnyscript", "ferrisW", 1),¼
  6.                     #balloonB : birth (script "carnyscript", "balloonB", 3),¼
  7.                     #sideShow : birth (script "carnyscript", "sideshow", 3),¼
  8.                     #animal : birth (script "carnyscript", "animal", 3)  ]
  9.   
  10.   set carnyspotlist = [ "carousel":1, "ferrisW":1, "balloonB":3, "sideShow":3, "animal":3 ,¼
  11.                  "beaver" : 4 , "duck": 3 , "monkey": 2 , "TV" : 3 ]
  12. end initcarnival
  13.  
  14. on checkhotspot whichobj
  15. --  alert "about to play the animation named " & whichobj
  16.   put string(whichobj) into spotname
  17. put "the string name is " & spotname
  18.   put getAprop(carnyspotlist, spotname) into howmanyanims
  19. --  alert "there are " & howmanyanims & " animations"
  20.   put (spotname & string (random(howmanyanims))) into whichframe
  21.   play frame whichframe
  22.   --  put getAprop (carnylist , whichobj ) into whichone
  23.   --  dohotspot whichone
  24.   
  25.   
  26. end checkhotspot