home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / playsk / dressup.dxr / 00069.ls < prev    next >
Encoding:
Text File  |  1996-06-30  |  1.2 KB  |  25 lines
  1. on startMovie
  2.   global gMov, gCurrentSprite, gBigBodyPartList, gBigBodyTypeList, gHighlightList, gOriginalList, gCorrectPosList, gButtonList
  3.   set gMov to 0
  4.   set gCurrentSprite to 0
  5.   set gBigBodyPartList to list("BIG COAT", "BIG PIRATE HAT", "BIG FIREMAN HAT", "BIG EYES", "BIG GIRL EYES", "BIG MOUSTACHE", "BIG FOREIGN MOUSTACHE", "BIG NOSE", "BIG PIG NOSE", "BIG EYEPATCH", "BIG TRAINERS", "BIG SLIPPERS")
  6.   set gBigBodyTypeList to list("COAT", "HAT", "HAT", "EYES", "EYES", "TACHE", "TACHE", "NOSE", "NOSE", "PATCH", "SHOES", "SHOES")
  7.   set gHighlightList to list("20ICY002.000", "20ICY001.000", "20ICY002.000", "20ICY001.000", "17ICY005.000")
  8.   set gOriginalList to list("20ICX002.000", "20ICX001.000", "20ICX002.000", "20ICX001.000", "17ICX005.000")
  9.   set gButtonList to list("ARROW", "ARROW", "ARROW", "ARROW", "PRINT")
  10.   set gCorrectPosList to list(31, 33, 35, 37, 39, 40)
  11.   repeat with thisChannel = 1 to 48
  12.     set the visible of sprite thisChannel to 1
  13.   end repeat
  14.   repeat with thisChannel = 30 to 41
  15.     set the visible of sprite thisChannel to 0
  16.   end repeat
  17.   set the visible of sprite 33 to 1
  18.   set the visible of sprite 37 to 1
  19.   set the visible of sprite 40 to 1
  20.   set the visible of sprite 45 to 0
  21. end
  22.  
  23. on stopMovie
  24. end
  25.