home *** CD-ROM | disk | FTP | other *** search
/ Flight + Action / FlightAction.img / mrmore / tonline / 53inter.dir / 00008_Script_8 < prev    next >
Text File  |  1996-04-11  |  380b  |  25 lines
  1. -- Eins hoch gehen
  2.  
  3. on mouseUp
  4.     global gbTeleAuto
  5.   
  6.   if gbTeleAuto then
  7.     EndAutoSequence()
  8.     exit
  9.   end if
  10.   
  11.  
  12.   global glLastFrames
  13.   
  14.   ClickButton(the clickOn)
  15.   
  16.   set l = glLastFrames
  17.   set n = count(l)
  18.   set glLastFrames = List()
  19.   
  20.   repeat with i = 1 to n-1
  21.     append glLastFrames, GetAt(l, i) 
  22.   end repeat
  23.   
  24.   goFrame(GetAt(l, n))
  25. end