home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00360.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  857 b   |  40 lines
  1. on DanceMenu
  2.   puppetSprite(14, 0)
  3.   updateStage()
  4.   repeat with i = 40 to 47
  5.     set the locH of sprite i to 1000
  6.   end repeat
  7.   set the locH of sprite 35 to 1000
  8.   updateStage()
  9.   set aa to "562,556,560,571"
  10.   repeat with i = 36 to 39
  11.     puppetSprite(i, 1)
  12.     set the locH of sprite i to value(item i - 35 of aa)
  13.   end repeat
  14. end
  15.  
  16. on SportMenu
  17.   puppetSprite(14, 0)
  18.   updateStage()
  19.   repeat with i = 35 to 39
  20.     set the locH of sprite i to 1000
  21.   end repeat
  22.   updateStage()
  23.   set aa to "572,589,565,565,579,542,572,614"
  24.   repeat with i = 40 to 47
  25.     puppetSprite(i, 1)
  26.     set the locH of sprite i to value(item i - 39 of aa)
  27.   end repeat
  28. end
  29.  
  30. on fashionMenu
  31.   puppetSprite(14, 0)
  32.   updateStage()
  33.   repeat with i = 36 to 47
  34.     set the locH of sprite i to 1000
  35.   end repeat
  36.   updateStage()
  37.   puppetSprite(35, 1)
  38.   set the locH of sprite 35 to 556
  39. end
  40.