Inventor Labs: Technology/INVENTORLABS_TECHNOLOGY.BIN/pc/files/shared.cst/00002_Script_MainMS

Text File | 1997-07-24 | 14KB | 432 lines

-- GLOBAL BEGIN


global gActorListMgrObj, gInterfaceMgrObj, gModeManager, gAreaManagerObj
global gUtilityObj, gInvestMgrObj

--/
global gReturn, gBulbExpMgr, gQTNavMgr, gScoreEventObj
global gWHSobjIndexedLst, gBHSobjIndexedLst, gEHSobjIndexedLst, gInventorIndexNum, gGHSobjIndexedLst
--/
global gSndPath, gQTpath, gBackDropObj, gFixPalletObj
global gJournalObj, gPatentObj, gWattBIYobj, gLocal, gGalleryMgr

global gObjectCastLists, gDataBaseMgrObj, gMstrObjIndexedLst, gGeneralCastIndex
global gInventorOrder, whatCastindex, gMstrPictIndex, gActiveInventor, gActiveAmbSnd, gClicksSuppressed
global gAvailbleInv
----------------------------------------------------------------------------ò
global gBellCastIndexlst, gGallerylCastIndexlst,gEdisonCastIndexlst,gWattCastIndexlst,gCompileMode
global gQTVRpath, gInventorVisited

global gActiveQTVRhandler
------------------------------------------------------------------------------------------------
on Idle

  if (not soundbusy(1)) and (gActiveAmbSnd <> 0) then puppetsound gActiveAmbSnd
  if  gClicksSuppressed then
    set gClicksSuppressed = FALSE
    when mousedown then
    when mouseup then
  end if

end idle
------------------------------------------------------------------------------------------------
on mVRHS HotSpotID                                      ---  displays text for QTVR hotspot; from QTVR callback

  --put "HotSpotID " & HotSpotID
  mDisplayText( gInterfaceMgrObj, value( HotSpotID ) )

end
-------------------------------------------------------------------------------------------------
on InitProgram

  if voidp(gAvailbleInv) then set gAvailbleInv = #All
  if (gActiveQTVRhandler <> empty) and not voidp(gActiveQTVRhandler) then
    QTVRClose(gActiveQTVRhandler)
    set gActiveQTVRhandler = empty
  end if

  startProgessBar (4 )
  if voidp(gQTVRpath) then set gQTVRpath = the pathname

  if the machinetype = 256 then set gSNDpath = the pathname & "Media\Snds\"
  else set gSNDpath = the pathname & "Media:Snds:"

  set gInventorVisited = [0,0,0]
  MoveBar( 5 )

  set gObjectCastLists = the text of cast "orderListOfObjectCastLists"
  set gActorListMgrObj = mInit(script "ActorListMgrParent")
  MoveBar( 5 )

  mSetUp ( gActorListMgrObj )
  MoveBar( 5 )

  set rQTNavMgrCastList = value(line 1 of gObjectCastLists)
  MoveBar( 5 )

  set gQTNavMgr = mInit (script "rQTNavMgr", rQTNavMgrCastList, gQTpath, gSndPath)
  MoveBar( 5 )

  set gCompileMode = FALSE

  set gBellCastIndexlst = [:]
  set gGallerylCastIndexlst = [:]
  set gEdisonCastIndexlst = [:]
  set gWattCastIndexlst = [:]
  MoveBar( 5 )

  set gGeneralCastIndex = value( the text of cast "General Cast INDEX" )
  set gInventorOrder = [#Edison,#Bell,#Watt,#Gallery]

  set gMstrPictIndex = [#Edison:value( the text of cast "Edison Pict Index"),#Bell:value( the text of cast "Bell Pict Index"),#Watt:value( the text of cast "Watt Pict Index"),#Gallery:value( the text of cast "Gallery Pict Index")]
  MoveBar( 5 )



  set DatabaseMgrCastLst =  value(line 4 of gObjectCastLists)
  set gDataBaseMgrObj = mInit ( script "DatabaseMgr",DatabaseMgrCastLst)
  MoveBar( 5 )


  set MainDBCast = getprop( gGeneralCastIndex, #MainDBs)
  set whatCastindex = [:]
  set gActiveInventor = #edison
  set gEHSobjIndexedLst = mCreateDataPacks (gDataBaseMgrObj, getprop(MainDBCast,#Edison))
  MoveBar( 5 )

  --/ compile
  if gCompileMode then
    set the text of cast "Edison Pict Index" = string ( whatCastindex )
    set gEdisonCastIndexlst = value( the text of cast "Edison Pict Index")
  end if
  --/

  set whatCastindex = [:]
  set gActiveInventor = #bell
  set gBHSobjIndexedLst = mCreateDataPacks (gDataBaseMgrObj, getprop(MainDBCast,#Bell))
  MoveBar( 5 )


  set whatCastindex = [:]
  set gActiveInventor = #watt
  set gWHSobjIndexedLst = mCreateDataPacks (gDataBaseMgrObj, getprop(MainDBCast,#Watt))
  MoveBar( 5 )



  set whatCastindex = [:]
  set gActiveInventor = #gallery
  set gGHSobjIndexedLst = mCreateDataPacks (gDataBaseMgrObj, getprop(MainDBCast,#Gallery))
  MoveBar( 5 )




  set gMstrObjIndexedLst = [#Edison:gEHSobjIndexedLst,#Bell:gBHSobjIndexedLst,#Watt:gWHSobjIndexedLst,¼
                                           #Gallery:gGHSobjIndexedLst]


  set gAreaManagerObj = mInit(script "AreaManagerObject", gInventorIndexNum)
  MoveBar( 5 )

  set InterfaceCastList =  value(line 3 of gObjectCastLists)
  MoveBar( 5 )

  set gInterfaceMgrObj = mInit(script "Interface Mgr Parent", InterfaceCastList, gQTpath)
  MoveBar( 5 )
  MoveBar( 5 )
  mSetUp(gInterfaceMgrObj)
  MoveBar( 5 )

  -- set QTVR rollover text

  set gModeManager = mInit ( script "modeMangerParent")
  MoveBar( 5 )
  MoveBar( 5 )
  MoveBar( 5 )
  set gUtilityObj = mInit( script "Utility Parent")
  MoveBar( 5 )
  MoveBar( 5 )
  set gScoreEventObj = mInit(script "Score Event Object")
  MoveBar( 5 )
  MoveBar( 5 )
  MoveBar( 5 )
  set gJournalObj = mInit(script "Journal Object")
  MoveBar( 5 )
  MoveBar( 5 )
  MoveBar( 5 )
  MoveBar( 5 )
  set gPatentObj = mInit(script "Patent Object Script")
  MoveBar( 5 )
  MoveBar( 5 )
  MoveBar( 5 )
  MoveBar( 5 )
  set gGalleryMgr = mInit( script "GalleryMgr Parent")
  FinishProgressBar( "Completing Intialization")

end
----------------------------------------------------------------------------ò
on InitXobjs



  if (the machinetype <> 256) then

    openxlib "PALFIX.XBJ"
    -- openxlib "BCKDRP.XBJ"

    set gFixPalletObj=FixPalette(mNew, the stageLeft, the stageTop, the stageRight, the stageTop)
    -- if objectP( gBackDropObj ) then gBackDropObj( mdispose )

    --  set gBackDropObj = backdrop (mNew)
    --   gBackDropObj(mSetColor,255)
    --  gBackDropObj(mShow)
    --  closexlib "BCKDRP.XBJ"

  end if

end InitXobjs

----------------------------------------------------------------------------ò
on closeXobjs

  if objectp(gFixPalletObj) then
    gFixPalletObj(mDispose)
    closeXlib "PALFIX.XBJ"
  end if
  if objectp(gBackDropObj) then gBackDropObj(mdispose)


end closeXobj

----------------------------------------------------------------------------ò
on patchpal

  global gFixPalletObj

  if objectp(gFixPalletObj) then gFixPalletObj(mPatchIt)

end patchpal
----------------------------------------------------------------------------ò
on stopmovie

  cleanfile
  --closeXobjs

end stopmovie
----------------------------------------------------------------------------ò
on cleanfile

  global gActiveQTVRhandler, gQTVRCallBackFactory

  if (gActiveQTVRhandler <> empty) and not voidp(gActiveQTVRhandler) then
    QTVRClose(gActiveQTVRhandler)
    set gActiveQTVRhandler = empty
  end if

end cleanfile
----------------------------------------------------------------------------ò
on startProgessBar argProgressBarSprite
  global gProgressBarSprite, gProgressDisplayInt

  if not gLocal then
    cursor 4
    set gProgressBarSprite = argProgressBarSprite
  end if

end startProgessBar
----------------------------------------------------------------------------ò
on startLoadBar argProgressBarSprite, Whatfile
  global gProgressBarSprite, gProgressDisplayInt

  if not gLocal then
    set gProgressBarSprite = argProgressBarSprite
  end if

end startLoadBar
----------------------------------------------------------------------------ò
on MoveBar length
  global gProgressBarSprite, gProgressDisplayInt

  if not gLocal then
    set the rect of sprite gProgressBarSprite = the rect of sprite gProgressBarSprite + rect(0,0,length * .5 ,0)
    updatestage
  end if

end MoveBar
----------------------------------------------------------------------------ò
on FinishProgressBar argSectionStr
  global gProgressBarSprite, gProgressDisplayInt

  if not gLocal then
    set lengthRemaining =   getat( the rect of sprite gProgressBarSprite, 3)
    repeat while  (lengthRemaining < 515)
      set lengthRemaining = lengthRemaining + 10
      set the rect of sprite gProgressBarSprite = the rect of sprite gProgressBarSprite + rect(0,0,10,0)
      updatestage
    end repeat
    set progressBarRect =  the rect of sprite gProgressBarSprite
    setat(progressBarRect,3,515)
    set the rect of sprite gProgressBarSprite = progressBarRect
    updatestage
  end if

end FinishProgressBar
----------------------------------------------------------------------------ò
on compilegObjectCastLists orderedObjectListCast, objectPropertyCastListCast, orderListOfgObjectCastListsCast

  beep

  set orderedObjectListCast = the number of cast "orderedObjectList"
  set objectPropertyCastListCast = the number of cast "objectPropertyCastList"
  set orderListOfgObjectCastListsCast = the number of cast "orderListOfObjectCastLists"

  set objectList = the text of cast orderedObjectListCast
  set numberOfObjects = the number of lines in objectList - 1
  set objectCastList = the text of cast objectPropertyCastListCast
  set tempText = " "
  set theLine = " "

  -- determine the first line to evaluate
  set currentCastLine = 1
  set theLine = line currentCastLine of objectCastList
  repeat while (theLine <> "^")
    set currentCastLine = currentCastLine + 1
    set theLine = line currentCastLine of objectCastList
  end repeat
  set currentCastLine = currentCastLine + 2

  repeat with objectLineNum = 1 to numberOfObjects
    set tempList = [:]
    set theLine = line currentCastLine of objectCastList
    repeat while (theLine <> "^")

      -- convert first item to symbol
      set propertySymbol = value("#"&(item 1 of theLine))
      -- convert second item to string and find associated cast number
      set propertyCast = the number of cast (item 2 of theLine)

      -- add the two items to temp property list
      addProp (tempList, propertySymbol, propertyCast)
      -- increment currentCastLine
      set currentCastLine = currentCastLine + 1
      set theLine = line currentCastLine of objectCastList
    end repeat
    -- put tempList in orderListOfgObjectCastLists cast at position objectLineNum - 1
    set tempText = tempText & string (tempList) & RETURN
    set currentCastLine = currentCastLine + 2
  end repeat
  -- remove last return
  delete line objectLineNum of tempText
  set the text of cast orderListOfgObjectCastListsCast = tempText

  beep

end
----------------------------------------------------------------------------ò
-- Debug
----------------------------------------------------------------------------ò
on getActorlist

  put mGetActorList (gActorListMgrObj)

end getActorlist
----------------------------------------------------------------------------ò

on getToolRects startsprite, endsprite
  global gToolRects

  set gToolRects = []
  repeat with counter = startsprite to endsprite
    add(gToolRects, the rect of sprite counter)
  end repeat
  put gToolRects

end compileToolRects
----------------------------------------------------------------------------ò
on reset

  clearglobals
  set the actorlist = []
  cleanfile
  set gAvailbleInv = #All

end reset
----------------------------------------------------------------------------ò
on setGlobalStrip argGlobalSpriteNum, argTopSpriteNum

  if gAvailbleInv <> #ALL then

    puppetsprite argGlobalSpriteNum, true
    -- puppetsprite argTopSpriteNum, true

    case gAvailbleInv of
      #Bell:
        set the member of sprite argGlobalSpriteNum = member "BELL STRIP.PIC"
        --set the member of sprite argTopSpriteNum = member "BELL GALLERY BUY.PIC"
      #Watt:
        set the member of sprite argGlobalSpriteNum = member "Watt STRIP.PIC"
        --set the member of sprite argTopSpriteNum = member "WATT GALLERY BUY.PIC"
      #Edison:
        set the member of sprite argGlobalSpriteNum = member "Edison STRIP.PIC"
        --set the member of sprite argTopSpriteNum = member "EDISON GALLERY BUY.PIC"
    end case

  end if


end setGlobalStrip
----------------------------------------------------------------------------ò
on setInventGlobalStrip

  if gAvailbleInv <> #ALL then

    puppetsprite 34, true
    case gAvailbleInv of
      #Bell:
        set the member of sprite 34 = member "BELL STRIP.PIC"

      #Watt:
        set the member of sprite 34 = member "Watt STRIP.PIC"

      #Edison:
        set the member of sprite 34 = member "Edison STRIP.PIC"
    end case

  end if


end setInventGlobalStrip
----------------------------------------------------------------------------ò
on ChangeTimeLnBckgrnd
  global gActiveAmbSnd
  patchpal
  set gActiveAmbSnd = 0

  if  gAvailbleInv <> #ALL then
    puppetsprite 1, true

    case gAvailbleInv of

      #Watt:
        set the member of sprite 1 = member "WATT TIME FULL.PIC"
        updatestage
        go "Watt" of movie "TIMELN.DIR"
        setGlobalStrip 34
      #Edison:
        set the member of sprite 1 = member "Edison TIME FULL.PIC"
        updatestage
        go "Edison" of movie "TIMELN.DIR"
        setGlobalStrip 34
      #Bell:
        set the member of sprite 1 = member "BELL TIME FULL.PIC"
        updatestage
        go "Bell" of movie "TIMELN.DIR"
        setGlobalStrip 34
    end case

  end if

end ChangeTimeLnBckgrnd
----------------------------------------------------------------------------ò