home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 8 / cdrt08.iso / mac / PaperPlanes / Demo / 00077_Script_77 < prev    next >
Text File  |  1994-12-12  |  267b  |  13 lines
  1. --init plane 18
  2. on exitFrame
  3.   global Plane, NumSteps, Step
  4.   
  5.   set Plane = 18
  6.   set NumSteps = 21
  7.   set Step = 1
  8.   
  9.   set the text of field "NumLevels" = string(NumSteps)
  10.   global theGauge
  11.   mSetNumLevels(theGauge, NumSteps)
  12.   mSetLevel(theGauge, 1)
  13. end