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