home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / casestdy / ch13_lev / 501.dcr / 00001.ls next >
Encoding:
Text File  |  1996-12-04  |  437 b   |  18 lines
  1. on exitFrame
  2.   global gCycleDur, gCycleStart, gLookAwayTime, gFadeStart
  3.   if the timer > (gCycleStart + gCycleDur) then
  4.     go(label("logo"))
  5.     exit
  6.   else
  7.     if (the timer > (gCycleStart + integer(gCycleDur / 2) + 60)) and not gFadeStart then
  8.       sound fadeOut 1, integer(gCycleDur / 2) - 20
  9.       set gFadeStart to 1
  10.     end if
  11.   end if
  12.   if the machineType <> 256 then
  13.     go(the frame)
  14.   else
  15.     go(marker(0) + 1)
  16.   end if
  17. end
  18.