home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00388.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  423 b   |  19 lines
  1. on mouseDown
  2.   global NextFrame, seenSport
  3.   set theCast to the name of cast the mouseCast
  4.   if theCast = "sport.up" then
  5.     puppetSound(2, the number of cast "click")
  6.     updateStage()
  7.     Buttons()
  8.     set NextFrame to "sport"
  9.   else
  10.     if theCast = "dance.up" then
  11.       puppetSound(2, the number of cast "click")
  12.       updateStage()
  13.       Buttons(20)
  14.       set NextFrame to "dance"
  15.     end if
  16.   end if
  17.   GoBody()
  18. end
  19.