home *** CD-ROM | disk | FTP | other *** search
/ Glowing Icon Sampler (Explicit Version) / GLOWING_ICON_SAMPLER.BIN / pc / holo / holodeck.dir / 00060.ls < prev    next >
Encoding:
Text File  |  1994-01-01  |  1.0 KB  |  35 lines
  1. on DontMindDoYou
  2.   global username
  3.   set the puppet of sprite 20 to 1
  4.   set the visible of sprite 20 to 1
  5.   if username = "BadBoy" then
  6.     set the castNum of sprite 20 to the number of cast "Q1BBOY.MOV"
  7.     set curMovie to "Q1BBOY.MOV"
  8.   else
  9.     if username = "GoodLookin" then
  10.       set the castNum of sprite 20 to the number of cast "Q1GOOD.MOV"
  11.       set curMovie to "Q1GOOD.MOV"
  12.     else
  13.       if username = "Sweetheart" then
  14.         set the castNum of sprite 20 to the number of cast "Q1SWEET.MOV"
  15.         set curMovie to "Q1SWEET.MOV"
  16.       else
  17.         if username = "Stud" then
  18.           set the castNum of sprite 20 to the number of cast "Q1STUD.MOV"
  19.           set curMovie to "Q1STUD.MOV"
  20.         else
  21.           set username to "Sweetheart"
  22.           set the castNum of sprite 20 to the number of cast "Q1SWEET.MOV"
  23.           set curMovie to "Q1SWEET.MOV"
  24.         end if
  25.       end if
  26.     end if
  27.   end if
  28.   LoadMovie(curMovie)
  29.   spriteBox(20, 160, 130, 480, 370)
  30.   updateStage()
  31.   set the movieRate of sprite 20 to 0
  32.   updateStage()
  33.   getQTLen(20)
  34. end
  35.