home *** CD-ROM | disk | FTP | other *** search
/ PC Play 1 / PCPLAY1.ISO / intro.dxr / 00016_PlayGame.ls < prev    next >
Encoding:
Text File  |  1996-08-29  |  830 b   |  39 lines
  1. global gText, gGame, gMovieList, gIsDone, gThemeSound
  2.  
  3. on exitFrame
  4.   set the timer to 0
  5.   set gIsDone to 0
  6.   repeat while not gIsDone
  7.     if not soundBusy(1) then
  8.       sound playFile 1, gThemeSound
  9.     end if
  10.     if the timer >= 6 then
  11.       if the mouseDown then
  12.         Shoot(gGame)
  13.       end if
  14.       play frame gText
  15.       play frame gGame
  16.       set the timer to 0
  17.     end if
  18.     set h to the mouseH
  19.     if h < 0 then
  20.       set h to 0
  21.     else
  22.       if h > 640 then
  23.         set h to 640
  24.       end if
  25.     end if
  26.     set the locH of sprite 2 to h
  27.     if the commandDown and ((the keyPressed = "Q") or (the keyPressed = "Q")) then
  28.       set gIsDone to 1
  29.       Dispose(gSoundPlay)
  30.       if objectp(gMovieList) then
  31.         QuitApp(gMovieList)
  32.       else
  33.         quit()
  34.       end if
  35.     end if
  36.     updateStage()
  37.   end repeat
  38. end
  39.