home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1996 #11 / CDD_11_96.ISO / demos / timelaps / mainmenu.dxr / 00144.ls < prev    next >
Encoding:
Text File  |  1996-08-07  |  517 b   |  26 lines
  1. on startMovie
  2.   global pods, language
  3.   set the exitLock to 1
  4.   set the keyDownScript to "checkkeys"
  5.   set language to "UK"
  6.   if pods = 0 then
  7.     set pods to [0, 0, 0, 0, 0, 0, 0, 0, 0]
  8.   end if
  9.   set the visible of sprite 48 to 0
  10. end
  11.  
  12. on showCollectedPods
  13.   global pods
  14.   repeat with n = 1 to 9
  15.     if getAt(pods, n) = 1 then
  16.       set the blend of sprite (n + 12) to 100
  17.       next repeat
  18.     end if
  19.     set the blend of sprite (n + 12) to 40
  20.   end repeat
  21. end
  22.  
  23. on stopMovie
  24.   set the visible of sprite 48 to 1
  25. end
  26.