home *** CD-ROM | disk | FTP | other *** search
/ Sunday That One Day / STOD_VFS_INVIS.ISO / pc / bedroom.dxr / 00494.txt < prev    next >
Encoding:
Text File  |  1995-09-15  |  1.5 KB  |  77 lines
  1. on mouseDown
  2.   global annieSunday
  3.   global annieClothes
  4.   global AnnieSunClothesOn
  5.   global Twink1
  6.   global Twink7
  7.   global AnnieTalkFace
  8.   global baseAnnieFace
  9.   global AnnieSpriteChannel
  10.   global AnnieClosetSprite
  11.   global AnnieClosetCast
  12.   
  13.   
  14.   put "Sunday" into AnnieClothes
  15.   
  16.   GetAnnieCast
  17.   
  18.   SetVisibles2
  19.   
  20.   put 3 into AnnieClosetSprite
  21.   put 10 into AnnieSpriteChannel
  22.   
  23.   puppetSprite AnnieTalkFace, true
  24.   
  25.   puppetSprite AnnieSprite, true
  26.   puppetSprite AnnieClosetSprite, true
  27.   
  28.   
  29.   set the visible of sprite AnnieTalkFace to false
  30.   set the CastNum of Sprite AnnieClosetSprite to AnnieClosetCast
  31.   updateStage
  32.   
  33.   repeat with MyCastNum = Twink1 to Twink7
  34.     set the castNum of sprite AnnieSpriteChannel to MyCastNum
  35.     updateStage
  36.   end repeat
  37.   
  38.   
  39.   
  40.   set the castNum of sprite AnnieSpriteChannel to annieSunday
  41.   updateStage
  42.   
  43.   
  44.   
  45.   put the number of cast "ANNIETK1.PICT" into Talk1
  46.   put the number of cast "ANNIETK9.PICT" into Talk2
  47.   
  48.   set the visible of Sprite AnnieTalkFace to true
  49.   
  50.   puppetSound  "AnYesILoveDress"
  51.   
  52.   repeat with twice = 2 down to 1
  53.     repeat with CNum = Talk1 to Talk2   
  54.       set the castNum of sprite AnnieTalkFace to CNum
  55.       updateStage
  56.       
  57.       startTimer
  58.       repeat while the timer < 8
  59.         nothing
  60.       end repeat
  61.       
  62.       
  63.     end repeat
  64.   end repeat
  65.   
  66.   updateStage
  67.   repeat while SoundBusy(1)
  68.     nothing
  69.   end repeat
  70.   
  71.   puppetSprite AnnieTalkFace, false
  72.   puppetSprite AnnieSpriteChannel, True
  73.   puppetSound 0 
  74.   
  75.   
  76. end
  77.