home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (UK) 9 / cdromtoday9-coverdisc.bin / pplanes / p17_20 / 00032_Script_32 < prev    next >
Text File  |  1994-08-25  |  973b  |  36 lines
  1. -- init u.i.
  2. on exitFrame
  3.   global Preview, Descrip, Path, Gloss, ToMain, Help
  4.   global theVCRButtons
  5.   global StepsChannel, StepsMovie, PreviewMovie
  6.   
  7.   cursor 4
  8.   set theVCRButtons = birth(script "VCR-Controls", 11, "VCRStop", "Rewind", "Play", "FastFwd")
  9.   
  10.   set Preview = 6
  11.   set Descrip = 15
  12.   set Path = 16
  13.   set Gloss = 17
  14.   set ToMain = 18
  15.   set Help = 24
  16.   set StepsChannel = 3
  17.   set StepsMovie = 4
  18.   set PreviewMovie = 7
  19.   
  20.   puppetSprite Preview, true
  21.   puppetSprite Descrip, true
  22.   puppetSprite Path, true
  23.   puppetSprite Gloss, true
  24.   puppetSprite ToMain, true
  25.   puppetSprite Help, true
  26.   
  27.   global theGauge
  28.   set theSlider = the number of cast "SliderDrag"
  29.   set theGauge = birth(script "FuelGauge", 20, 21, theSlider, "CurrentLevel")
  30.   
  31.   preLoadCast the number of cast "mouse down"
  32.   preLoadCast the number of cast "mouse up"
  33.   preLoadCast the number of cast "Button-in"
  34.   preLoadCast the number of cast "Button-out"
  35. end
  36.