home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / casestdy / ch13_lev / 501.dcr / 00003.ls < prev    next >
Encoding:
Text File  |  1996-12-04  |  389 b   |  16 lines
  1. on exitFrame
  2.   global gCycleStart, gCycleDur, gFadeStart, gCpuTicks
  3.   if the machineType = 256 then
  4.     nothing()
  5.   else
  6.     if the movieName contains ".dir" then
  7.       set gCpuTicks to the cpuHogTicks
  8.       set the cpuHogTicks to gCpuTicks * 2
  9.     end if
  10.   end if
  11.   sound fadeIn 1, integer(gCycleDur / 2)
  12.   puppetSound("bellLoop")
  13.   set gCycleStart to the timer
  14.   set gFadeStart to 0
  15. end
  16.