---------------------------------------------------------------------------------
:main
---------------------------------------------------------------------------------
VarSet("prevScr","scrSceneA")
VarSet("nextScr","scrSceneC")
HideMod()
HideLit()
VarSet("firstTimeCube",true)
VarSet("firstTimeLoc",true)
VarSet("firstTimePin",true)
VarSet("firstTimeHat",true)
VarSet("firstTimeChair",true)
VarSet("deRes",false)
VarSet("iconUp",false)
VarSet("cyborgVis",true)
VarSet("syncPin","AA000000BBBBB66664444400005555AAAAAAAAAAAAAAA05588000555005555566611599998888000995555000555661111001111155511111AAAAAAAAAAA6666655556665511144440000666666055444770000555555AA00000055554400005577000555555555555AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0000111166666655555544000009966666AAAA55555511115500005555500000008888888AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA66666661111777711444000000566666666655511150055555511144000055566655556666000555777000555566777111115557777777")
VarSet("syncChair","99111111111100000555555522266665555555000551144005111111CCCCCCCCCCCCCCCC55500444477115666600000000999999444007777550005544466650005555000555000004444CCCCCCCCCC55555522266776660088877000055566666666655555CCCCCCCCCCCCC500444444466665556644444000000000011100000055555555555555007777755566661115550022775556665555CCCCCCCCCCCCCCCC55115500000555447777766543660770055522277755500446655771111")
VarSet("syncHat","911111000005556664400775554005555500056665500044CCCCCCCBBBBB66009994441166665555660000666CCCCCCCCCC4411555005500555400055556666000005555556666755551115555444444")
VarSet("syncCyborg","0005500055555550000114422666666BAA900005554115555551133666771100055511BBB3300551556000999000003334000BB00005553333336440000511115440003333355555AAAAAAAAA000066655522266667777777")
PurgeScenes("anmAExit modAOverlay anmA modAScooter modADidi")
--PurgeScenes("envLsu actDolph actFlap")
MergeScene("actCassi actBego allcamslits anmBChair anmBHat anmBInt anmBLocked anmBPin anmBPinDesc anmBUnlock modBLockerDoor envLab modBProps",false)
Clone("modBHat","mrkBHat")
Clone("modBPin","mrkBPin")
Gosub("camBOutside")
ShowLit("litB02 litB03 litB04 litB05 litB06")
InitModSync("modSyncCassi")
CueFromAnim("actCassi","anmBIntCassi")
CueFromAnim("actBego","anmBIntBego")
Gosub("AddButtons")
Wait(1)
SndPlay("audB01_intro")
ShowMod("actCassi actBego envlab modBLever modLockerDoorLeft modLockerDoorRight")
ShowMod("modB_RobotArm01 modB_RobotArm02 modB_RobotArm03 modB_RobotArm04 modB_RobotClamp01 modB_RobotClamp02")
AT(62,"Goto(`Intro`)")

:Intro
AnimRng("actCassi","anmBIntCassi",0,287)
AnimRng("actBego","anmBIntBego",0,306)
CamChange("camBInt")
AT(20,"Dolly(`camBInt`,`dolBInt`)")
AT(25,"ModSync(`modSyncCassi`,`777001155555500005599669055555566655544440000551115550665550000008885555AAAAAAA9955522666444011556666005880005505007770008885550044000886115225550000000885555556666666`)")
AT(250,"Fork(`BeamOpen`)")
Declare("","Let's scan through the student project archives. There's no point reinventing the L.U.V. chip if we don't have to.")

---------------------------------------------------------------------------------
-- Camera Changes
---------------------------------------------------------------------------------
:camBOutside
CamChange("camBOutside")
CreateBackdrop("camBOutside","bg=true scale=1.352")
:camBEst
CamChange("camBEst")
:camBInt
CamChange("camBInt")
:camBRes
CamChange("camBRes")
:camBLever
CamChange("camBLever")
:camBChair
CamChange("camBChair")
:camBPin
CamChange("camBPin")
:camBHat
CamChange("camBHat")
:camBHatCU
CamChange("camBHatCU")
:camBBegoCU
CamChange("camBBegoCU")
:camBBegoCU2
CamChange("camBBegoCU2")
:camBArchive
CamChange("camBArchive")
:camBArchiveCU
CamChange("camBArchiveCU")

---------------------------------------------------------------------------------
-- Object Animations
---------------------------------------------------------------------------------
:EnumObjs
VarSet("obj","Cyborg")
if Var("cyborgVis") then Gosub(Var("func"))
VarSet("obj","Pin")
Gosub(Var("func"))
VarSet("obj","Chair")
Gosub(Var("func"))
VarSet("obj","Hat")
Gosub(Var("func"))

:IconUp
VarSet("iconUp",true)
ShowMod("modB"&Var("obj")&"Icon")
Rotate("modB"&Var("obj")&"Icon",0,0,0)
Wait(1)
AnimRng("modB"&Var("obj")&"Icon","modB"&Var("obj")&"Icon-Key",103,133)
AT(30,"Rotate(`modB"&Var("obj")&"Icon"&"`,0,0,5)")
Gosub("CubeOpen")
Gosub("DescPlay")

:IconDown
VarSet("iconUp",false)
DisableBut("butIcon")
Rotate("modB"&Var("obj")&"Icon",0,0,0)
Wait(1)
AnimRng("modB"&Var("obj")&"Icon","modB"&Var("obj")&"Icon-Key",349,385)
AT(36,"HideMod(`modB"&Var("obj")&"Icon"&"`)")
Gosub("CubeClose")
Gosub("DescStop")

:IconHide
HideMod("modB"&Var("obj")&"Icon")

:StartIdle
AnimRng("actCassi","<anmBIntCassi",380,490)
AnimRng("actBego","<anmBIntBego",380,490)

:DescStop
StopAllSounds()
ModSync("modSyncCassi","")
Gosub("StartIdle")

:DescPlay
Gosub("Play"&Var("curObj")&"Desc")

:PlayPinDesc
SndPlay("audB02_desc"&Var("curObj"),true)
ModSync("modSyncCassi",Var("sync"&Var("curObj")))
AnimRng("actCassi","anmBPinDescCassi",145,1014)
AnimRng("actBego","anmBPinDescBego",145,1014)

:PlayCyborgDesc
AnimRng("actCassi","anmBIntCassi",693,694)
Wait(30)
AnimRng("actCassi","anmBIntCassi",693,902)
AnimRng("actBego","anmBIntBego",693,902)
AT(30,"SndPlay(`audB02_descCyborg`)",true)
AT(30,"ModSync(`modSyncCassi`,Var(`syncCyborg`))")

:PlayHatDesc
SndPlay("audB02_desc"&Var("curObj"),true)
ModSync("modSyncCassi",Var("sync"&Var("curObj")))
AnimRng("actCassi","anmBIntCassi",490,708)
AnimRng("actBego","anmBIntBego",490,708)

:PlayChairDesc
SndPlay("audB02_desc"&Var("curObj"),true)
ModSync("modSyncCassi",Var("sync"&Var("curObj")))
AnimRng("actCassi","anmBIntCassi",490,708)
AnimRng("actBego","anmBIntBego",490,708)

---------------------------------------------------------------------------------
-- Cube Animations
---------------------------------------------------------------------------------
:CubeEnter
ShowMod("modB"&Var("obj")&"Cube")
Gosub("CubeResetRot")
AnimRng("modB"&Var("obj")&"Cube","modB"&Var("obj")&"Cube-Key",0,51)

:CubeSpin
Rotate("modB"&Var("obj")&"Cube",2,4,6)

:CubeDown
Gosub("CubeResetRot")
AnimRng("modB"&Var("obj")&"Cube","modB"&Var("obj")&"Cube-Key",83,101)

:CubeUp
Gosub("CubeResetRot")
AnimRng("modB"&Var("obj")&"Cube","modB"&Var("obj")&"Cube-Key",30,51)

:CubeOpen
Gosub("CubeResetRot")
AnimRng("modB"&Var("obj")&"Cube","modB"&Var("obj")&"Cube-Key",100,110)

:CubeClose
Gosub("CubeResetRot")
AnimRng("modB"&Var("obj")&"Cube","modB"&Var("obj")&"Cube-Key",110,120)

:CubeExit
Gosub("CubeResetRot")
AnimRng("modB"&Var("obj")&"Cube","modB"&Var("obj")&"Cube-Key",400,487)

:CubeHide
HideMod("modB"&Var("obj")&"Cube")

:CubeResetRot
Rotate("modB"&Var("obj")&"Cube",0,0,0)
SetRot("modB"&Var("obj")&"Cube",0,0,0)
Wait(1)

---------------------------------------------------------------------------------
-- Holobeam Animations
---------------------------------------------------------------------------------
:BeamOpen
CamChange("camBInt")
HideLit("litBOverArc litBOverArc2")
VarSet("func","CubeEnter")
Gosub("EnumObjs")
ShowMod("modBBeam")
AnimRng("modBBeam","modBBeam-Key",0,51)
SndPlay("audB01_BeamOn",true)
WaitAnim("modBBeam")
Gosub("StartIdle")
Goto("SetStateBig")

:BeamClose
DisableBut()
Gosub("DescStop")
VarSet("func","CubeExit")
Gosub("EnumObjs")
AnimRng("modBBeam","modBBeam-Key",400,446)
--At(19,"SndPlay(`audB02_BeamOff`)",true)
SndPlay("audB02_BeamOff",true)
Wait(40)
VarSet("func","IconHide")
Gosub("EnumObjs")
VarSet("func","CubeHide")
Gosub("EnumObjs")
HideMod("modBBeam")

---------------------------------------------------------------------------------
-- Buttons
---------------------------------------------------------------------------------
:AddButtons
AddBut("butCubeBigPin","rect(225,15,290,90)","Goto(`OverCubePin`)","Rotate(`modBPinCube`,2,4,6)","Goto(`ClickCubeBigPin`)")
AddBut("butCubeBigChair","rect(225,125,290,185)","Goto(`OverCubeChair`)","Rotate(`modBChairCube`,2,4,6)","Goto(`ClickCubeBigChair`)")
AddBut("butCubeBigHat","rect(335,125,395,185)","Goto(`OverCubeHat`)","Rotate(`modBHatCube`,2,4,6)","Goto(`ClickCubeBigHat`)")
AddBut("butCubeBigCyborg","rect(335,15,395,90)","Goto(`OverCubeCyborg`)","Rotate(`modBCyborgCube`,2,4,6)","Goto(`ClickCubeBigCyborg`)")
AddBut("butArc","rect(512,132,603,201)","ShowLit(`litBOverArc litBOverArc2`)","HideLit(`litBOverArc litBOverArc2`)","Goto(`ClickArc`)")
AddBut("butCubeSmPin","rect(236,165,272,215)","Goto(`OverCubePin`)","Rotate(`modBPinCube`,2,4,6)","Goto(`ClickCubeSmPin`)")
AddBut("butCubeSmChair","rect(274,165,310,215)","Goto(`OverCubeChair`)","Rotate(`modBChairCube`,2,4,6)","Goto(`ClickCubeSmChair`)")
AddBut("butCubeSmHat","rect(350,165,386,215)","Goto(`OverCubeHat`)","Rotate(`modBHatCube`,2,4,6)","Goto(`ClickCubeSmHat`)")
AddBut("butCubeSmCyborg","rect(312,165,348,215)","Goto(`OverCubeCyborg`)","Rotate(`modBCyborgCube`,2,4,6)","Goto(`ClickCubeSmCyborg`)")
AddBut("butIcon","rect(250,48,380,160)","Goto(`OverIcon`)","Rotate(`modB`&Var(`curObj`)&`Icon`,0,0,5)","Goto(`ClickIcon`)")
AddBut("butPanel","rect(0,0,128,346)","ShowLit(`litBOverPanel`)","HideLit(`litBOverPanel`)","Goto(`ClickPanel`)")
AddBut("butArc2","rect(522,0,640,346)","ShowLit(`litBOverArc litBOverArc2`)","HideLit(`litBOverArc litBOverArc2`)","Goto(`ClickArc2`)")
DisableBut()

:SetStateBig
VarSet("func","CubeSpin")
Gosub("EnumObjs")
EnableBut("butCubeBigPin butCubeBigChair butCubeBigHat")
if Var("cyborgVis")=true then EnableBut("butCubeBigCyborg")
if Var("cyborgVis")=false then EnableBut("butArc")
DisableBut("butCubeSmPin butCubeSmChair butCubeSmHat butCubeSmCyborg butIcon")
if Var("firstTimeCube") then Goto("PromptCube")

:PromptCube
Msg("PICK A CUBE!")
VarSet("firstTimeCube",false)

:SetStateSmall
VarSet("func","CubeSpin")
Gosub("EnumObjs")
EnableBut("butCubeSmPin butCubeSmChair butCubeSmHat")
if Var("iconUp") then EnableBut("butIcon")
if Var("cyborgVis")=true then EnableBut("butCubeSmCyborg")
if Var("cyborgVis")=false then EnableBut("butArc")
DisableBut("butCubeBigPin butCubeBigChair butCubeBigHat butCubeBigCyborg")
---------------------------------------------------------------------------------
:OverCubePin
Rotate("modBPinCube",0,0,0)
SetRot("modBPinCube",0,0,0)
:OverCubeChair
Rotate("modBChairCube",0,0,0)
SetRot("modBChairCube",0,0,0)
:OverCubeHat
Rotate("modBHatCube",0,0,0)
SetRot("modBHatCube",0,0,0)
:OverCubeCyborg
Rotate("modBCyborgCube",0,0,0)
SetRot("modBCyborgCube",0,0,0)
:OverIcon
Rotate("modB"&Var("curObj")&"Icon",0,0,0)
SetRot("modB"&Var("curObj")&"Icon",0,0,0)
---------------------------------------------------------------------------------
:ClickCubeBigPin
VarSet("curObj","Pin")
Goto("ClickCubeBig")
:ClickCubeBigChair
VarSet("curObj","Chair")
Goto("ClickCubeBig")
:ClickCubeBigHat
VarSet("curObj","Hat")
Goto("ClickCubeBig")
:ClickCubeBigCyborg
VarSet("curObj","Cyborg")
Goto("ClickCubeBig")
:ClickCubeSmPin
VarSet("curObj","Pin")
Goto("ClickCubeSm")
:ClickCubeSmChair
VarSet("curObj","Chair")
Goto("ClickCubeSm")
:ClickCubeSmHat
VarSet("curObj","Hat")
Goto("ClickCubeSm")
:ClickCubeSmCyborg
VarSet("curObj","Cyborg")
Goto("ClickCubeSm")
:ClickIcon
DisableBut()
VarSet("obj",Var("curObj"))
Gosub("IconDown")
Goto("Do"&Var("curObj"))
:ClickArc
DisableBut()
HideLit("litBOverArc litBOverArc2")
Gosub("IconDown")
Gosub("BeamClose")
AnimRng("actCassi","anmBLockedCassi",0,73)
AnimRng("actBego","anmBLockedBego",0,73)
Wait(73)
Gosub("DoLocked")
Goto("WalkToPanel")

:ClickCubeBig
DisableBut()
Msg()
VarSet("func","CubeDown")
Gosub("EnumObjs")
Wait(18)
VarSet("obj",Var("curObj"))
Gosub("IconUp")
Wait(30)
VarSet("oldObj",Var("curObj"))
Goto("SetStateSmall")

:ClickCubeSm
DisableBut()
VarSet("obj",Var("oldObj"))
Gosub("IconDown")
Wait(10)
if Var("curObj")=Var("oldObj") then Goto("ReturnToBigCubes")
VarSet("obj",Var("curObj"))
Gosub("IconUp")
Wait(30)
VarSet("oldObj",Var("curObj"))
Goto("SetStateSmall")

:ReturnToBigCubes
VarSet("func","CubeUp")
Gosub("EnumObjs")
Wait(21)
Goto("SetStateBig")

---------------------------------------------------------------------------------
-- Resonator Sequence
---------------------------------------------------------------------------------
:Resonate
Gosub("BeamClose")
AnimRng("actCassi","anmBIntCassi",902,1022)
AnimRng("modBLever","modBLever-Key",902,1022)
AT(7,"CamChange(`camBLever`)")
AT(45,"SndPlay(`audB03_Res`)",true)
WaitAnim("actCassi")
Gosub("camBRes")
Dolly("camBRes","dolBRes")
Wait(10)
AT(1,"Fork(`e1`)")
AT(60,"Fork(`e3`)")
Showmod("modBResBall")
AT(60,"Anim(`modBResBall`,`modBResBall-key`)")
AT(61,"Fade(100,0,30,`modBResBall`)")
AT(70,"Fork(`FadeInObj`)")
AT(65,"DeleteEmitter(`e1`)")
AT(65,"DeleteEmitter(`e2`)")
AT(80,"DeleteEmitter(`e3`)")
Wait(150)

:ResonateShort
CamChange("camBLever")
HideMod("modBBeam modBPinCube modBHatCube modBChairCube modBCyborgCube modBPinIcon modBHatIcon modBChairIcon modBCyborgIcon")
AnimRng("actCassi","anmBIntCassi",930,955)
AnimRng("modBLever","modBLever-Key",930,955)
AT(17,"SndPlay(`audB05_ResShort`)",true)
WaitAnim("actCassi")
CamChange("camBRes")
DollyRng("camBRes","dolBRes",68,68)
Gosub("e3")
Showmod("modBResBall")
Anim("modBResBall","modBResBall-key")
Fade(100,0,30,"modBResBall")
Wait(10)
Gosub("FadeInObj")
Wait(10)
DeleteEmitter("e3")
Wait(30)

:e1
CreateEmitter("e1", "mrkBRes1", "angle=0.0 region=[vector(0,-20,-20),vector(0,20,-20),vector(0,-20,20),vector(0,20,20)] lifetime=2560 numparticles=1000 colorRangeS=rgb(0,255,0) colorRangeE=rgb(0,255,0) sizeRangeS=1 sizeRangeE=1 minSpeed=100 maxSpeed=125")
CreateEmitter("e2", "mrkBRes2", "angle=0.0 region=[vector(0,-10,-10),vector(0,10,-10),vector(0,-10,10),vector(0,10,10)] lifetime=256 numparticles=500 colorRangeS=rgb(0,155,0) colorRangeE=rgb(0,155,0) sizeRangeS=1 sizeRangeE=1 minSpeed=250 maxSpeed=250")
:e3
CreateEmitter("e3", "mrkBRes1", "angle=180 lifetime=1000 numparticles=2000 colorRangeS=rgb(255,255,255) colorRangeE=rgb(0,0,150) sizeRangeS=1 sizeRangeE=1 minSpeed=150 maxSpeed=250 loop=false emitMode=#burst")

:FadeInObj
ShowMod("modB"&Var("curObj"))
Fade(0,100,20,"modB"&Var("curObj"))

:DeRes
SndPlay("audB03_DeRes",true)
if Var("curObj")<>"Pin" then AnimRng("modB"&Var("curObj"),"modBChair-Key",80,90)
CreateEmitter("e4", "mrkBRes2", "angle=180 lifetime=1000 numparticles=2000 colorRangeS=rgb(255,255,255) colorRangeE=rgb(0,0,150) sizeRangeS=1 sizeRangeE=1 minSpeed=150 maxSpeed=250 loop=false emitMode=#burst")
Wait(15)
DeleteEmitter("e4")
HideMod("modB"&Var("curObj"))
VarSet("deRes",false)
Goto("BeamOpen")

---------------------------------------------------------------------------------
:AtRes
---------------------------------------------------------------------------------
CamChange("camBInt2")
EnableBut("butPanel butArc2")
if Var("firstTimeLoc") then Goto("PromptLoc")

:PromptLoc
Msg("CHOOSE A LOCATION!")
VarSet("firstTimeLoc",false)

:ClickPanel
DisableBut("butPanel butArc2")
Msg()
HideLit("litBOverPanel")
Gosub("GoPanelFrom"&Var("curObj"))

:ClickArc2
DisableBut("butPanel butArc2")
HideLit("litBOverArc litBOverArc2")
Msg()
HideLit("litBOverArc litBOverArc2")
if Var("cyborgVis")=false then Goto("GoArcFrom"&Var("curObj"))
AT(70,"SndPlay(`audB04_noArc`)")
Goto("DoNoArc"&Var("curObj"))

:DoNoArcHat
AnimRng("actCassi","anmBHatCassi",340,442)
WaitAnim("actCassi")
CamChange("camBBegoCU")
AnimRng("actBego","anmBLockedBego",489,530)
WaitAnim("actBego")
CamChange("camBInt2")
AnimRng("actCassi","anmBHatCassi",442,535)
WaitAnim("actCassi")
AnimRng("actCassi","<anmBHatCassi",220,330)
Goto("AtRes")

:DoNoArcPin
AnimRng("actCassi","anmBPinCassi",390,490)
WaitAnim("actCassi")
CamChange("camBBegoCU")
AnimRng("actBego","anmBLockedBego",489,530)
WaitAnim("actBego")
CamChange("camBInt2")
AnimRng("actCassi","anmBPinCassi",490,585)
WaitAnim("actCassi")
AnimRng("actCassi","<anmBPinCassi",250,380)
Goto("AtRes")

:DoNoArcChair
AnimRng("actCassi","anmBChairCassi",440,540)
WaitAnim("actCassi")
CamChange("camBBegoCU")
AnimRng("actBego","anmBLockedBego",489,530)
WaitAnim("actBego")
CamChange("camBInt2")
AnimRng("actCassi","anmBChairCassi",540,620)
WaitAnim("actCassi")
AnimRng("actCassi","<anmBChairCassi",295,410)
Goto("AtRes")

:WalkToRes
Gosub("camBInt")
AnimRng("actCassi","anmBIntCassi",1174,1361)
Wait(60)

:WalkToPanel
CueFromAnim("actBego","anmBIntBego",490)
Gosub("camBInt")
AnimRng("actCassi","anmBIntCassi",1446,1496)
Wait(40)
if Var("deRes")=false then Goto("BeamOpen")
Goto("DeRes")

---------------------------------------------------------------------------------
:DoHat
---------------------------------------------------------------------------------
if Var("firstTimeHat")=false then Goto("DoHatShort")
VarSet("firstTimeHat",false)
Move("modBHat","mrkBHat")
Gosub("Resonate")
Gosub("WalkToRes")
CamChange("camBHat")
HideMod("modB_RobotClamp01")
AnimRng("actCassi","anmBIntCassi",1300,1361)
WaitAnim("actCassi")
AnimRng("actCassi","anmBHatCassi",0,20)
AnimRng("actBego","anmBHatBego",0,20)
WaitAnim("actCassi")
Link("modBHat","actCassi","bip L Finger1")
AnimRng("actCassi","anmBHatCassi",21,80)
AnimRng("actBego","anmBHatBego",21,80)
Wait(30)
CamChange("camBHatCU")
WaitAnim("actCassi")
Link("modBHat","actCassi","bip Head")
AnimRng("actCassi","anmBHatCassi",80,205)
AnimRng("actBego","anmBHatBego",80,205)
AT(11,"Fork(`PlayHatAud`)")
WaitAnim("actCassi")
AnimRng("actCassi","<anmBHatCassi",220,330)
ShowMod("modB_RobotClamp01")
Goto("AtRes")

:DoHatShort
Move("modBHat","mrkBHat")
Gosub("ResonateShort")
CamChange("camBInt2")
AnimRng("actCassi","anmBHatCassi",0,20)
WaitAnim("actCassi")
Link("modBHat","actCassi","bip L Finger1")
AnimRng("actCassi","anmBHatCassi",21,80)
WaitAnim("actCassi")
Link("modBHat","actCassi","bip Head")
AnimRng("actCassi","anmBHatCassi",80,96)
WaitAnim("actCassi")
AnimRng("actCassi","anmBHatCassi",132,142)
WaitAnim("actCassi")
AnimRng("actCassi","anmBHatCassi",190,220)
WaitAnim("actCassi")
AnimRng("actCassi","<anmBHatCassi",220,330)
Goto("AtRes")

:PlayHatAud
SndPlay("audB04_resHat",true)
ModSync("modSyncCassi","0000665550007766666555555555A88888888888888888888888887777777777777777777777777777DDDDDDDDDDDDDDDDDDDD")

:GoPanelFromHat
AnimRng("actCassi","anmBHatCassi",560,571)
WaitAnim("actCassi")
Link("modBHat","actCassi","bip R Finger1")
AnimRng("actCassi","anmBHatCassi",572,592)
WaitAnim("actCassi")
Unlink("modBHat")
AnimRng("actCassi","anmBHatCassi",593,602)
AnimRng("modBHat","dumBHat-Key",593,602)
Wait(7)
VarSet("deRes",true)
Goto("WalkToPanel")

:GoArcFromHat
AnimRng("actCassi","anmBHatCassi",340,355)
Wait(10)
Gosub("DoLocked")
AnimRng("actCassi","<anmBHatCassi",220,330)
Goto("AtRes")

---------------------------------------------------------------------------------
:DoChair
---------------------------------------------------------------------------------
if Var("firstTimeChair")=false then Goto("DoChairShort")
VarSet("firstTimeChair",false)
CueFromAnim("modBChair","modBChair-Key",0)
Gosub("Resonate")
Gosub("WalkToRes")
CamChange("camBChair")
AnimRng("actCassi","anmBIntCassi",1300,1361)
WaitAnim("actCassi")
AnimRng("actCassi","anmBChairCassi",0,295)
AnimRng("modBChair","modBChair-Key",0,70)
AT(75,"Fork(`PlayChairAud`)")
WaitAnim("actCassi")
AnimRng("actCassi","<anmBChairCassi",295,410)
Goto("AtRes")

:DoChairShort
CueFromAnim("modBChair","modBChair-Key",0)
Gosub("ResonateShort")
CueFromAnim("actCassi","anmBChairCassi",295)
AnimRng("actCassi","<anmBChairCassi",295,410)
Goto("AtRes")

:PlayChairAud
SndPlay("audB04_resChair",true)
ModSync("modSyncCassi","0000000111155555DDDDDDDDDDDDDDDDDDDDDB000000000008811111111DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD55551111111111100011666755544466559900055055550444888007777777777")

:GoPanelFromChair
AnimRng("actCassi","anmBChairCassi",420,435)
Wait(10)
VarSet("deRes",true)
Goto("WalkToPanel")

:GoArcFromChair
AnimRng("actCassi","anmBChairCassi",440,455)
Wait(10)
Gosub("DoLocked")
AnimRng("actCassi","<anmBChairCassi",295,410)
Goto("AtRes")

---------------------------------------------------------------------------------
:DoPin
---------------------------------------------------------------------------------
if Var("firstTimePin")=false then Goto("DoPinShort")
VarSet("firstTimePin",false)
Gosub("Resonate")
Move("dumBPin2","mrkBPin")
SetParent("modBPin","dumBPin2")
ShowMod("modBPin")
Gosub("WalkToRes")
Wait(60)
DollyRng("camBPin","dolBpin",0,0)
Gosub("camBPin")
AnimRng("actCassi","anmBIntCassi",1300,1361)
WaitAnim("actCassi")
Dolly("camBPin","dolBpin")
AnimRng("actCassi","anmBPinCassi",0,54)
WaitAnim("actCassi")
Link("dumBPin2","actCassi","bip L Finger22")
AnimRng("actCassi","anmBPinCassi",53,141)
WaitAnim("actCassi")
AnimRng("actCassi","anmBPinCassi",141,250)
AnimRng("modBPin",".modBPin-Key",141,250)
WaitAnim("actCassi")
AnimRng("actCassi","<anmBPinCassi",250,380)
Goto("AtRes")

:DoPinShort
Gosub("ResonateShort")
Move("dumBPin2","mrkBPin")
SetParent("modBPin","dumBPin2")
ShowMod("modBPin")
Gosub("camBPin")
Dolly("camBPin","dolBpin")
AnimRng("actCassi","anmBPinCassi",0,54)
WaitAnim("actCassi")
Link("dumBPin2","actCassi","bip L Finger22")
AnimRng("actCassi","anmBPinCassi",55,75)
WaitAnim("actCassi")
AnimRng("actCassi","anmBPinCassi",220,250)
WaitAnim("actCassi")
AnimRng("actCassi","<anmBPinCassi",250,380)
Goto("AtRes")

:GoPanelFromPin
AnimRng("actCassi","anmBPinCassi",585,632)
Wait(40)
Unlink("dumBPin2")
Unlink("modBPin")
VarSet("deRes",true)
Goto("WalkToPanel")

:GoArcFromPin
AnimRng("actCassi","anmBPinCassi",390,405)
Wait(10)
Unlink("dumBPin2")
Unlink("modBPin")
Gosub("DoUnlock")
AnimRng("actCassi","<anmBPinCassi",250,380)
Goto("AtRes")

---------------------------------------------------------------------------------
:DoCyborg
---------------------------------------------------------------------------------
SndPlay("audB04_resCyborg")
Wait(30)
VarSet("obj","Cyborg")
Gosub("CubeExit")
VarSet("cyborgVis",false)
ShowMod("modBArc modBArcInner modBArcDoorL modBArcDoorR")
Wait(1)
Link("modBArcDoorL","modBArc")
Link("modBArcDoorR","modBArc")
Link("modBArcInner","modBArc")
Link("modB_RobotArm02","modB_RobotArm01")
Link("modB_RobotArm03","modB_RobotArm02")
Link("modB_RobotArm04","modB_RobotArm03")
Link("modB_RobotClamp01","modB_RobotArm04")
Link("modB_RobotClamp02","modB_RobotArm04")
Wait(40)
AnimRng("modB_RobotArm01","modB_RobotArm01-Key",700,800)
AnimRng("modB_RobotArm02",".modB_RobotArm02-Key",700,800)
AnimRng("modB_RobotArm03",".modB_RobotArm03-Key",700,800)
AnimRng("modB_RobotArm04",".modB_RobotArm04-Key",700,800)
AnimRng("modB_RobotClamp01",".modB_RobotClamp01-Key",700,800)
AnimRng("modB_RobotClamp02",".modB_RobotClamp02-Key",700,800)
WaitAnim("modB_RobotClamp02")
Link("modBArc","modB_RobotClamp01")
Wait(1)
AnimRng("modB_RobotArm01","modB_RobotArm01-Key",801,830)
AnimRng("modB_RobotArm02",".modB_RobotArm02-Key",801,830)
AnimRng("modB_RobotArm03",".modB_RobotArm03-Key",801,830)
AnimRng("modB_RobotArm04",".modB_RobotArm04-Key",801,830)
AnimRng("modB_RobotClamp01",".modB_RobotClamp01-Key",801,830)
AnimRng("modB_RobotClamp02",".modB_RobotClamp02-Key",801,830)
WaitAnim("modB_RobotClamp02")
WaitSound("audB04_resCyborg")
HideMod("modBCyborgCube")
Goto("ReturnToBigCubes")

---------------------------------------------------------------------------------
:DoLocked
---------------------------------------------------------------------------------
CamChange("camBArchive")
AnimRng("actCassi","anmBLockedCassi",130,658)
AnimRng("actBego","anmBLockedBego",130,658)
AT(84,"Fork(`DeclareLocked`)")
AT(160,"Fork(`camBBegoCU`)")
AT(186,"Fork(`camBArchive`)")
AT(337,"Fork(`camBBegoCU`)")
AT(402,"Fork(`camBArchiveCU`)")
WaitAnim("actCassi")

:DeclareLocked
SndPlay("audB04_locked",true)
ModSync("modSyncCassi","AA4444444444444444444444444444AAAAA66660000000005555500066644000555AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA00550044441111665555226441777000000555555566655511555555555000044445555266650008884444400055885500555566600555008000000555555AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA000008800555044885555224991177005599005533300005555555AABBBBBBBBBB0555555111500500444440057777755111533332222440550005555")

---------------------------------------------------------------------------------
:DoUnlock
---------------------------------------------------------------------------------
CamChange("camBArchive")
AnimRng("actCassi","anmBUnlockCassi",130,915)
AnimRng("actBego","anmBUnlockBego",130,915)
AT(79,"Fork(`DeclareUnlock`)")
AT(118,"Fork(`camBArchiveCU`)")
AT(180,"Fork(`camBArchive`)")
AT(190,"Fork(`OpenArcDoors`)")
AT(293,"Fork(`camBArchiveCU`)")
AT(370,"Fork(`camBBegoCU`)")
AT(586,"Fork(`camBArchiveCU`)")
WaitAnim("actCassi")
--Fade(100,0,15)
--Wait(15)
UnlinkAll()
EnterScript("scrSceneC")

:DeclareUnlock
SndPlay("audB05_unlocked")
ModSync("modSyncCassi","000077755530011555005577711559044440000055555AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA444400011144111119900555550055555555555000055500555666500000011155555BBB0000000AAAAAAAAAAA000066666117771155665550000555590500044400664455888666555771160055588866666666555555AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBBB2266650000001111155555555000044400005511441110044005555666666AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0055551111155555522244991115005900555500044440088066660000445550005555B55000006664415000000555")

:OpenArcDoors
AnimRng("modBArcDoorL",".modBArcDoorL-Key",1048,1075)
AnimRng("modBArcDoorR",".modBArcDoorR-Key",1048,1075)
AnimRng("modBArcInner",".modBArcInner-Key",1048,1075)

:subtitles
Declare("","TV-'Okay, folks, keep it moving!  Nothing to see here!  Press conference is over!")
Declare("","Grud!")
Declare("","You bellowed, Darknaught?")
Declare("","I have a mission for you.")