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