home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00361.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  732 b   |  29 lines
  1. on mouseDown
  2.   global NextFrame, seenSport, lastFrame
  3.   if the name of cast the castNum of sprite 18 contains "off" then
  4.     exit
  5.   end if
  6.   set theCast to the name of cast the mouseCast
  7.   if theCast = "sport.up" then
  8.     puppetSound(2, the number of cast "click")
  9.     updateStage()
  10.     Buttons()
  11.     if char 1 to 4 of lastFrame <> "fall" then
  12.       set tmp to random(3)
  13.       set NextFrame to "fall" & tmp
  14.     end if
  15.     SportMenu()
  16.   else
  17.     if theCast = "dance.up" then
  18.       puppetSound(2, the number of cast "click")
  19.       updateStage()
  20.       Buttons(20)
  21.       if char 1 to 4 of lastFrame <> "fall" then
  22.         set tmp to random(3)
  23.         set NextFrame to "fall" & tmp
  24.       end if
  25.       DanceMenu()
  26.     end if
  27.   end if
  28. end
  29.