home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / casestdy / ch11_sfx / esnavbar.dir / 00007.ls < prev    next >
Encoding:
Text File  |  1996-11-12  |  217 b   |  13 lines
  1. on exitFrame
  2.   global gReadyToGo
  3.   if gReadyToGo then
  4.     go(marker(0) + 1)
  5.     set gReadyToGo to gReadyToGo + 1
  6.     if gReadyToGo > 3 then
  7.       set gReadyToGo to 0
  8.     end if
  9.   else
  10.     puppetTempo(30)
  11.   end if
  12. end
  13.