home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / casestdy / ch14_csa / csaadri2.dir / 00007.ls < prev    next >
Encoding:
Text File  |  1996-11-14  |  346 b   |  14 lines
  1. on enterFrame
  2.   global gSegStart, gVioConChan, gTerrainChan, gNextFrame
  3.   set gSegStart to the ticks
  4.   if the frame <> label("tween") then
  5.     puppetSprite(gVioConChan, 0)
  6.     goPage(gNextFrame, 1)
  7.   end if
  8.   repeat with i in gTerrainChan
  9.     if the visible of sprite i = 0 then
  10.       set the visible of sprite i to 1
  11.     end if
  12.   end repeat
  13. end
  14.