home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 30 / Creative-Review-CD-ROM-30.iso / pc / gallery / demo.dir / 00269_Script_269 < prev    next >
Text File  |  1996-10-14  |  1KB  |  56 lines
  1. on startMovie
  2.   cursor 200
  3.   when keydown then checkKey
  4. end startMovie
  5.  
  6. on checkKey
  7.   if the commanddown then
  8.     if the key="." or the key="Q" or the key="q" then
  9.       dontpassevent
  10.       repeat with n = 1 to 48
  11.         puppetsprite n, 0
  12.       end repeat
  13.       play done
  14.       puppetPalette "System - Mac", 60
  15.       
  16.     end if
  17.   end if
  18.   if the controlDown then
  19.     if the key="." or the key="Q" or the key="q" then
  20.       dontpassevent
  21.       repeat with n = 1 to 48
  22.         puppetsprite n, 0
  23.       end repeat
  24.        play done
  25.       puppetPalette "System - Mac", 60
  26.     end if
  27.   end if
  28. end
  29.  
  30. on clearIt
  31.   put " " into field "rh box"
  32.   put " " into field "skills"
  33.   put " " into field "bottom row"
  34.   put " " into field "top row"
  35.   put " " into field "agency"
  36. end clearIt
  37.  
  38. on flik
  39.   startTimer
  40.   set the puppet of sprite 43 to TRUE
  41.   set the castnum of sprite 43 to the number of cast 47
  42.   updateStage
  43.   repeat while the timer <10
  44.   end repeat
  45.   set the castnum of sprite 43 to the number of cast 3
  46.   updateStage
  47.   set the puppet of sprite 43 to FALSE
  48. end flik
  49.  
  50. on exitFrame
  51.   set the puppet of sprite 33 to FALSE
  52.   set the puppet of sprite 43 to FALSE
  53. end enterFrame
  54.  
  55.  
  56.