home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / gallery.dir / 00002_Script_2 < prev    next >
Text File  |  1997-05-26  |  1KB  |  46 lines
  1. --h: General Gallery
  2.  
  3.  
  4.  
  5.  
  6.  
  7. global gUtilityObj, gInventorIndexNum, gFixPalletObj, gInterfaceMgrObj, gQTVRobj, gLocal
  8. global gAvailbleInv
  9.  
  10.  
  11. ---------------------------------------------------------------------------------------------------------
  12. on InitGallery
  13.   
  14.   --clearglobals
  15.   
  16.   set gInventorIndexNum= 4
  17.   set gLocal = FALSE
  18.   InitProgram
  19.   set gInventorIndexNum= 4
  20.   mSetInventor ( gInterfaceMgrObj, #GALLERY )
  21.   if voidp ( gAvailbleInv ) then set gAvailbleInv = #ALL
  22.   
  23. end InitGallery
  24. ---------------------------------------------------------------------------------------------------------
  25. on Quitcontrols
  26.   
  27.   set clickedSprite = the clickon
  28.   set origcast = the castnum of sprite clickedSprite
  29.   set the castnum of sprite clickedSprite = origcast + 1
  30.   repeat while the mousedown
  31.     set HiliteCast = origcast + rollover( clickedSprite )
  32.     set the castnum of sprite clickedSprite = HiliteCast
  33.     updatestage
  34.   end repeat
  35.   
  36.   if HiliteCast = the number of cast "GPLYES.PIC" then 
  37.     mClearMyPuppets (gInterfaceMgrObj)
  38.     go frame "Credits.dir"
  39.   else  if HiliteCast = the number of cast "GPLNO.PIC" then 
  40.     go "QTVR frame"
  41.     mChangeMode (gModeManager, #QTVR)
  42.   end if
  43.   
  44. end Quitcontrols
  45. ---------------------------------------------------------------------------------------------------------
  46.