home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 July / Image.iso / mrmore / tonline / 54email.dir / 00008.ls < prev    next >
Encoding:
Text File  |  1996-02-19  |  395 b   |  20 lines
  1. on mouseUp
  2.   global gbTeleAuto, glLastFrames
  3.   if soundBusy(1) or soundBusy(2) then
  4.     sound stop 1
  5.     sound stop 2
  6.   end if
  7.   if gbTeleAuto then
  8.     EndAutoSequence()
  9.     exit
  10.   end if
  11.   ClickButton(the clickOn)
  12.   set l to glLastFrames
  13.   set n to count(l)
  14.   set glLastFrames to list()
  15.   repeat with i = 1 to n - 1
  16.     append(glLastFrames, getAt(l, i))
  17.   end repeat
  18.   GoFrame(getAt(l, n))
  19. end
  20.