home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1996 June / PCPRO_696.ISO / bonus / blender / shared.dir / 00836.ls < prev    next >
Encoding:
Text File  |  1996-03-08  |  2.0 KB  |  67 lines
  1. on CONTROLS
  2.   global CONTROLWINDOW, DEST
  3.   if objectp(CONTROLWINDOW) then
  4.     forget(CONTROLWINDOW)
  5.   end if
  6.   set horzOrigin to the stageLeft + 448
  7.   set vertOrigin to the stageTop + 0
  8.   set CONTROLWINDOWrect to rect(horzOrigin, vertOrigin, horzOrigin + 192, vertOrigin + 60)
  9.   set CONTROLWINDOW to window "CONTROLS.DIR"
  10.   set the rect of CONTROLWINDOW to CONTROLWINDOWrect
  11.   set the fileName of CONTROLWINDOW to "CONTROLS.DIR"
  12.   set the titleVisible of CONTROLWINDOW to 0
  13.   set the modal of CONTROLWINDOW to 0
  14.   set the windowType of CONTROLWINDOW to 2
  15.   open(CONTROLWINDOW)
  16. end
  17.  
  18. on endMOVIE
  19.   global CONTROLWINDOW, DEST
  20.   installMenu(0)
  21.   if objectp(CONTROLWINDOW) then
  22.     forget(CONTROLWINDOW)
  23.   end if
  24.   set horzOrigin to the stageLeft + 160
  25.   set vertOrigin to the stageTop + 130
  26.   set CONTROLWINDOWrect to rect(horzOrigin, vertOrigin, horzOrigin + 320, vertOrigin + 220)
  27.   set CONTROLWINDOW to window "CONTROL.DIR"
  28.   set the rect of CONTROLWINDOW to CONTROLWINDOWrect
  29.   set the fileName of CONTROLWINDOW to "CONTROL.DIR"
  30.   set the titleVisible of CONTROLWINDOW to 0
  31.   set the modal of CONTROLWINDOW to 0
  32.   set the windowType of CONTROLWINDOW to 2
  33.   open(CONTROLWINDOW)
  34. end
  35.  
  36. on HELPMOVIE
  37.   global CONTROLWINDOW2, DEST
  38.   set horzOrigin to the stageLeft - 288
  39.   set vertOrigin to the stageTop + 100
  40.   set CONTROLWINDOW2rect to rect(horzOrigin, vertOrigin, horzOrigin + 430, vertOrigin + 206)
  41.   set CONTROLWINDOW2 to window "HELP.DIR"
  42.   set the rect of CONTROLWINDOW2 to CONTROLWINDOW2rect
  43.   set the fileName of CONTROLWINDOW2 to "HELP.DIR"
  44.   set the titleVisible of CONTROLWINDOW2 to 0
  45.   set the windowType of CONTROLWINDOW2 to 2
  46.   open(CONTROLWINDOW2)
  47.   set the modal of CONTROLWINDOW2 to 0
  48. end
  49.  
  50. on stopMovie
  51.   finishMovie()
  52. end
  53.  
  54. on finishMovie
  55.   global CONTROLWINDOW, CONTROLWINDOW2
  56.   set the modal of window "CONTROL" to 0
  57.   set the modal of window "CONTROLS" to 0
  58.   set the modal of window "MENU" to 0
  59.   set the modal of window "HELP" to 0
  60.   if objectp(CONTROLWINDOW) then
  61.     forget(CONTROLWINDOW)
  62.   end if
  63.   if objectp(CONTROLWINDOW2) then
  64.     forget(CONTROLWINDOW2)
  65.   end if
  66. end
  67.