home *** CD-ROM | disk | FTP | other *** search
/ PC Play 1 / PCPLAY1.ISO / main.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-08-30  |  1.7 KB  |  49 lines
  1. global gMovieList, gButton, gGame, GLanguage, gControl, gInfo, gSound, gInTransition, gButtonDownSnd, gSoundPlay, gInstall
  2.  
  3. on startMovie
  4.   set the volume of sound 1 to 255
  5.   if objectp(gMovieList) then
  6.     set GLanguage to GetLanguage(gMovieList)
  7.   else
  8.     set GLanguage to 1
  9.   end if
  10.   set Install to [[1, "Void.bat", EMPTY, "Itv"], [2, "Time\Winstall.exe", EMPTY, "Winstall"], [1, "Gender.bat", EMPTY, "Gw"], [0, "Grail\Grldemo", "PYTON3", "Grldemo"], [0, "Setup.exe", EMPTY, "Setup"], [1, "Rayman.bat", "RAY2", "Rayman"], [0, "Pvt_demo\Setup.exe", EMPTY, "Setup"], [1, "Abuse.bat", EMPTY, "Abuse"], [1, "Tronic.bat", EMPTY, "Tronic"], [1, "Twinblok.bat", EMPTY, "Twinblok"], [1, "Albion.bat", EMPTY, "Albion"], [1, "Gateway.bat", EMPTY, "Gate"], [1, "Highway.bat", EMPTY, "Start"], [0, "Lagoon.bat", EMPTY, "Setup"], [0, "Getty\setup", EMPTY, "Setup"], [2, "CCombat\Cctrial", EMPTY, "Ccdemo"]]
  11.   set gButton to new(script "DemoObj", 7, 8, Install, "PcSound\Theme.waw")
  12.   set gControl to new(script "ReleaseBtnObj")
  13.   set gInstall to new(script "ReleaseBtnObj")
  14.   set castList to []
  15.   repeat with i = 0 to 7
  16.     add(castList, member (45 + i) of castLib "Common")
  17.   end repeat
  18.   set gSound to new(script "DialBtnObj", castList)
  19.   set gGame to new(script "UfoObj", 2)
  20.   set gInTransition to 0
  21.   set gButtonDownSnd to "clickDown"
  22.   preloadMember(member 147, 162)
  23. end
  24.  
  25. on keyDown
  26.   if the keyCode = 125 then
  27.     SelectNext(gButton)
  28.   else
  29.     if the keyCode = 126 then
  30.       SelectPrev(gButton)
  31.     else
  32.       if the keyCode = 123 then
  33.         NextMenu(gButton)
  34.       else
  35.         if the keyCode = 124 then
  36.           NextMenu(gButton)
  37.         end if
  38.       end if
  39.     end if
  40.   end if
  41. end
  42.  
  43. on enterFrame
  44.   play frame gControl
  45.   play frame gGame
  46.   play frame gSound
  47.   play frame gInstall
  48. end
  49.