home *** CD-ROM | disk | FTP | other *** search
/ Sunday That One Day / STOD_VFS_INVIS.ISO / pc / chapel.dxr / 00994_AnniePlayClothes.ls < prev    next >
Encoding:
Text File  |  1995-09-15  |  1.8 KB  |  59 lines
  1. on mouseUp
  2.   global anniePlay, annieClothes, annieSkateOn, Twink1, Twink7, AnnieTalkFace, baseAlexFace, baseAnnieFace, AnnieSpriteChannel, AnnieClosetSprite, AnnieClosetCast, AlexTalkFace, AnnieSprite, AnnieSunClothesOn
  3.   CursorOff()
  4.   FlushStatics()
  5.   set annieClothes to "Play"
  6.   GetAnnieCast()
  7.   SetVisibles2()
  8.   set AnnieClosetSprite to 3
  9.   set AnnieSpriteChannel to 10
  10.   puppetSprite(24, 1)
  11.   puppetSprite(AnnieSprite, 1)
  12.   puppetSprite(AnnieClosetSprite, 1)
  13.   set the visible of sprite 24 to 0
  14.   set the visible of sprite AnnieTalkFace to 0
  15.   set the castNum of sprite AnnieClosetSprite to AnnieClosetCast
  16.   updateStage()
  17.   puppetSound("Harp Run")
  18.   repeat with MyCastNum = Twink1 to Twink7
  19.     set the castNum of sprite AnnieSpriteChannel to MyCastNum
  20.     updateStage()
  21.   end repeat
  22.   set the visible of sprite 24 to 1
  23.   puppetSprite(24, 0)
  24.   set the castNum of sprite AnnieSpriteChannel to anniePlay
  25.   updateStage()
  26.   repeat while soundBusy(1)
  27.     nothing()
  28.   end repeat
  29.   puppetSound(0)
  30.   updateStage()
  31.   set Talk1 to the number of cast "ALEXTK1.PICT"
  32.   set Talk2 to the number of cast "ALEXTK9.PICT"
  33.   set BaseFace to the number of cast "BaseAlexFace"
  34.   puppetSound("AXThoseArentSundayClothes")
  35.   puppetSprite(AlexTalkFace, 1)
  36.   repeat with twice = 2 down to 1
  37.     repeat with CNum = Talk1 to Talk2
  38.       set the castNum of sprite AlexTalkFace to CNum
  39.       updateStage()
  40.       startTimer()
  41.       repeat while the timer < 5
  42.         nothing()
  43.       end repeat
  44.     end repeat
  45.   end repeat
  46.   set the castNum of sprite AlexTalkFace to BaseFace
  47.   updateStage()
  48.   repeat while soundBusy(1)
  49.     nothing()
  50.   end repeat
  51.   puppetSprite(24, 0)
  52.   puppetSprite(AlexTalkFace, 0)
  53.   puppetSprite(AnnieTalkFace, 0)
  54.   puppetSprite(AnnieSpriteChannel, 1)
  55.   set AnnieSunClothesOn to 0
  56.   puppetSound(0)
  57.   CursorOn()
  58. end
  59.