home *** CD-ROM | disk | FTP | other *** search
/ Best of Blender / bestofblender.iso / pc / blender / files / beastvr / beastvrm.dir / 00149_Script_149 < prev    next >
Text File  |  1996-04-25  |  3KB  |  93 lines
  1. --WINDOW SCRIPTS
  2.  
  3. --CONTROLPANEL WINDOWS
  4. on CONTROLS
  5.   global CONTROLWINDOW, DEST
  6.   if objectP(CONTROLWINDOW) then
  7.     forget CONTROLWINDOW
  8.   end if
  9.   set horzOrigin to the stageleft + 448
  10.   set vertOrigin to the stagetop + 0 
  11.   set CONTROLWINDOWrect to rect (horzOrigin, vertOrigin, horzOrigin + 192, vertOrigin + 60)
  12.   set CONTROLWINDOW to window DEST & "CONTROLS.DIR"
  13.   set the rect of CONTROLWINDOW to CONTROLWINDOWrect
  14.   set the fileName of CONTROLWINDOW to DEST & "CONTROLS.DIR"
  15.   set the titleVisible of CONTROLWINDOW to FALSE
  16.   set the modal of CONTROLWINDOW to FALSE
  17.   set the windowType of CONTROLWINDOW to 2
  18.   open CONTROLWINDOW
  19. end
  20.  
  21.  
  22. --SURE YOU WANT TO QUIT? DIALOGUE
  23. on endMOVIE
  24.   installMenu 0
  25.   global CONTROLWINDOW, DEST
  26.   if objectP(CONTROLWINDOW) then
  27.     forget CONTROLWINDOW
  28.   end if
  29.   set horzOrigin to the stageleft + 160
  30.   set vertOrigin to the stagetop + 130
  31.   set CONTROLWINDOWrect to rect (horzOrigin, vertOrigin, horzOrigin + 320, vertOrigin + 220)
  32.   set CONTROLWINDOW to window DEST & "CONTROL.DIR"
  33.   set the rect of CONTROLWINDOW to CONTROLWINDOWrect
  34.   set the fileName of CONTROLWINDOW to DEST & "CONTROL.DIR"
  35.   set the titleVisible of CONTROLWINDOW to FALSE
  36.   set the modal of CONTROLWINDOW to FALSE
  37.   set the windowType of CONTROLWINDOW to 2
  38.   open CONTROLWINDOW
  39. end
  40.  
  41. --MENU 
  42. on MENU
  43.   global CONTROLWINDOW, DEST
  44.   if objectP(CONTROLWINDOW) then
  45.     forget CONTROLWINDOW
  46.   end if
  47.   set horzOrigin to the stageleft + 490
  48.   set vertOrigin to the stagetop + 0 
  49.   set CONTROLWINDOWrect to rect (horzOrigin, vertOrigin, horzOrigin + 150, vertOrigin + 408)
  50.   set CONTROLWINDOW to window "MENU.DIR"
  51.   set the rect of CONTROLWINDOW to CONTROLWINDOWrect
  52.   set the fileName of CONTROLWINDOW to "MENU.DIR"
  53.   set the titleVisible of CONTROLWINDOW to FALSE
  54.   set the modal of CONTROLWINDOW to FALSE
  55.   set the windowType of CONTROLWINDOW to 2
  56.   open CONTROLWINDOW
  57. end
  58.  
  59. --HELPSCREEN
  60. on HELPMOVIE
  61.   global CONTROLWINDOW2, DEST
  62.   set horzOrigin to the stageleft - 288
  63.   set vertOrigin to the stageTop + 100
  64.   set CONTROLWINDOW2rect to rect (horzOrigin, vertOrigin, horzOrigin + 430, vertOrigin + 206)
  65.   set CONTROLWINDOW2 to window DEST & "HELP.DIR"
  66.   set the rect of CONTROLWINDOW2 to CONTROLWINDOW2rect
  67.   set the fileName of CONTROLWINDOW2 to DEST & "HELP.DIR"
  68.   set the titleVisible of CONTROLWINDOW2 to FALSE
  69.   set the windowType of CONTROLWINDOW2 to 2
  70.   open CONTROLWINDOW2
  71.   set the modal of CONTROLWINDOW2 to FALSE
  72. end
  73.  
  74.  
  75. --DISPOSE OF WINDOWS
  76. on stopMovie
  77.   finishMovie
  78. end
  79.  
  80. on finishMovie
  81.   global CONTROLWINDOW, CONTROLWINDOW2
  82.   set the modal of window DEST & "CONTROL" to FALSE
  83.   set the modal of window DEST & "CONTROLS" to FALSE
  84.   set the modal of window DEST & "MENU" to FALSE
  85.   set the modal of window DEST & "HELP" to FALSE
  86.   if objectP(CONTROLWINDOW) then
  87.     forget CONTROLWINDOW
  88.   end if
  89.   if objectP(CONTROLWINDOW2) then
  90.     forget CONTROLWINDOW2
  91.   end if
  92.   trackTimeStop
  93. end