home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 July / Image.iso / mrmore / tonline / 52btxp.dir / 00021.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  426 b   |  20 lines
  1. on exitFrame
  2.   global gbAnimFinished, gbTeleAuto, glThisLevel, gnThisFrame
  3.   if the mouseDown then
  4.     if gbTeleAuto then
  5.       EndAutoSequence()
  6.       go(the frame)
  7.       exit
  8.     end if
  9.     if gnThisFrame = count(glThisLevel) then
  10.       GoFrame(getAt(glThisLevel, 1))
  11.     else
  12.       GoFrame(getAt(glThisLevel, gnThisFrame + 1))
  13.     end if
  14.   end if
  15.   set gbAnimFinished to 1
  16.   CheckTeleTime()
  17.   cursor(0)
  18.   go(the frame)
  19. end
  20.