home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 25 / MacFormat n. 25 (Spain) / MacFormat 25.bin / mac / Demos / Print Artist Demo / PA12-Mac.Dxr / 00162.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  307 b   |  15 lines
  1. on exitFrame
  2.   global whatSpeed, whatFactor, frameLoop, waitTime1
  3.   sound fadeIn 2, 1 * 60
  4.   set whatFactor to 30
  5.   if frameLoop = 0 then
  6.     set whatSpeed to whatSpeed + whatFactor
  7.   end if
  8.   if the timer < whatSpeed then
  9.     set frameLoop to 1
  10.     go(the frame)
  11.   else
  12.     set frameLoop to 0
  13.   end if
  14. end
  15.