Venus' Playhouse/Venus_Playhouse.iso/mac/PCPLHAUS.DXR/00112_Script_112

Text File | 1998-03-29 | 10KB | 473 lines

global qtSprite, qtSpeed, qtVol
global Destin
global haveBeen
global questLine, yesIn, yesOut, noIn, noOut, questOut, whereNext


--The MAIN MOVIE Script
on StartMovie
  clearGlobals
  global qtSprite -----,increment, L
  set qtSprite = 11
  set the immediate of sprite 8 to TRUE
  --puppetSprite 4, TRUE
  set the constraint of sprite 18 to 19
end StartMovie

on stopMovie
  clearGlobals
end stopMovie



---
---QT parameter set scripts


on setPoints inTime, outTime
  set the startTime of sprite qtSprite to value(inTime)
  set the stopTime of sprite qtSprite to value(outTime)
  set the movieTime of sprite qtSprite to value(inTime)
  updateStage
end setPoints

on playSeg inTime,outTime
  set the startTime of sprite qtSprite to value(inTime)
  set the stopTime of sprite qtSprite to value(outTime)
  set the movieTime of sprite qtSprite to value(inTime)
  set qtVol = 255
  set qtSpeed = 1
  playSome
end playSeg

on playSegment inTime, outTime
  set the movieTime of sprite qtSprite to value(inTime)
  repeat while the movieTime of sprite qtSprite < value(outTime)
    go to the frame
    updateStage
  end repeat
end playSegment


on ranger
  set the movieRate of sprite qtSprite = value(qtSpeed)
  set qtVol = 255
  go to the frame
end ranger

on playSome
  set the movieRate of sprite qtSprite to value(qtSpeed)
  set the volume of sprite qtSprite to value(qtVol)
end playSome



---
---Navigational scripts

on goWhere
  go Destin
end gowhere

on kitchenIt
  set haveBeen = haveBeen + 1
  aniRoom 10
  puppetSound 0
  Go to "Kitchen"
end kitchenIt

on dineIt
  updateStage
  aniRoom 9
  puppetSound 0
  Go to "Dine"
end dineIt

on poolIt
  set haveBeen = haveBeen + 1
  aniRoom 10
  puppetSound 0
  Go to "Pool"
end poolIt

on bathIt
  set haveBeen = haveBeen + 1
  aniRoom 9
  puppetSound 0
  Go to "Bath"
end bathIt

on showerIt
  set haveBeen = haveBeen + 1
  aniRoom 10
  puppetSound 0
  Go to "Shwr"
end showerIt

on bedIt
  global haveBeen
  set haveBeen = haveBeen + 1
  aniRoom 8
  puppetSound 0
  Go to "Bed"
end bedIt


---
---Prepatory scripts


on setUp
  repeat with i = 8 to 10
    puppetSprite i, TRUE
    set the visibility of sprite i to FALSE
    updateStage
  end repeat
end setUp

on aniRoom spRt
  anIt
  puppetSound "Clicker4"
  set the visibility of sprite spRt to TRUE
  updateStage
  unanIt
  set the visibility of sprite spRt to FALSE
  updateStage
end aniRoom

on playIntro
  set haveBeen = 0
  set the startTime of sprite qtSprite to 6
  set the stopTime of sprite qtSprite to 1314
  set the movieTime of sprite qtSprite to 6
  set the volume of sprite qtSprite to 255
  set the movieRate of sprite qtSprite to 1
end

on intro inTime,outTime
  set the startTime of sprite qtSprite to value(inTime)
  set the stopTime of sprite qtSprite to value(outTime)
  set the movieTime of sprite qtSprite to value(inTime)
  set the volume of sprite qtSprite to 255
  set the movieRate of sprite qtSprite to 1
end intro


---on poolIntro
---global PyesIn, PyesOut, PnoIn, PnoOut
--- set PyesIn = 1731
---set PyesOut = 4464
---set PnoIn = 11692
---set PnoOut = 12080
---playSegmentQT 1000, 1565
---nd poolIntro

---on poolPlayYes
---global PyesIn, PyesOut
---playSegmentQT PyesIn, PyesOut
---pause
---end poolPlayYes

---on poolPlayNo
---global PnoIn, PnoOut
---playSegmentQT PnoIn, PnoOut
---pause
---end poolPlayNo

---
---Animation Scripts


on anIt
  put the castNum of sprite the clickOn into Butt
  set newButt = Butt + 1
  set the castNum of sprite the clickOn to newButt
  updateStage
  set newButt = newButt + 1
  set the castNum of sprite the clickOn to newButt
  updateStage
end anIt

on unanIt
  put the castNum of sprite the clickOn into Butt
  set newButt = Butt - 1
  set the castNum of sprite the clickOn to newButt
  updateStage
  set newButt = newButt - 1
  set the castNum of sprite the clickOn to newButt
  updateStage
end unanIt


on aniMate
  anIt
  puppetSound "Clicker4"
  updateStage
  unanIt
  updateStage
end aniMate




---
---Interactivity Choice Scripts

on pickVenus
  aniMate
  puppetSound 0
  go to "Venus"
end pickVenus

on pickJulia
  aniMate
  puppetSound 0
  go to "Julia"
end pickJulia

on pickBoth
  aniMate
  puppetSound 0
  Go to "Bathboth"
end pickBoth


on pickLeigh
  aniMate
  puppetSound 0
  Go to "Leigh"
end pickLeigh

on pickVanna
  aniMate
  puppetSound 0
  Go to "Vanna"
end pickVanna

on pickShwrbth
  aniMate
  puppetSound 0
  Go to "Shwrbth"
end pickShwrbth



--QuickTime Controls
--These controls the FF, SloF, Stop/Play, SloRew and Rewind
--of QuickTime movies


----  DO NOT TAMPER!!!   These work fine!!!


on rewindQT
  put the movieTime of sprite qtSprite into Now
  set the movieTime of sprite qtSprite = Value(Now) -18
  updateStage
  if the movieRate of sprite qtSprite <> -3 then
    set qtVol = 0
    set qtSpeed = -(3)
    playSome
  else
    set qtSpeed = 0
    playSome
  end if
end rewindQT

on sloRevQT
  set the movieRate of sprite qtSprite =0
  put the movieTime of sprite qtSprite into X
  set X=X-6
  set the movieTime of sprite qtSprite to X
  updateStage
end sloRevQT

on stopstartQT
  if the movieRate of sprite qtSprite = 0 then
    set the volume of sprite qtSprite to 255
    set the movieRate of sprite qtSprite to 1
  else
    set qtSpeed = 0
    playSome
  end if
end stopstartQT

on pauseQT
  set qtSpeed = 0
  playSome
end pauseQT

on sloFwdQT
  set the movieRate of sprite qtSprite =0
  put the movieTime of sprite qtSprite into X
  set X=X+6
  set the movieTime of sprite qtSprite to X
  updateStage
end sloFwdQT

on fastForwardQT
  if the movieRate of sprite qtSprite <> 4 then
    set qtVol = 0
    set qtSpeed = 4
    playSome
  else
    set qtSpeed = 0
    playSome
  end if
end fastForwardQT

----This is the end
----of the QuickTime control section



---Pool handlers
on askPool
  put line value(questLine) of the text of cast "PQin" into questIn
  put line value(questLine) of the text of cast "PQout" into questOut
  put line value(questLine) of the text of cast "PQYin" into yesIn
  put line value(questLine) of the text of cast "PQYout" into yesOut
  put line value(questLine) of the text of cast "PQNin" into noIn
  put line value(questLine) of the text of cast "PQNout" into noOut
  set the startTime of sprite qtSprite to value(questIn)
  set the stopTime of sprite qtSprite to value(questOut)
  set the movieTime of sprite qtSprite to value(questIn)
  updateStage
  set the volume of sprite qtSprite to 255
  set the movieRate of sprite qtSprite to 1
end askPool

on Yup
  intro value(yesIn), value(yesOut)
  put line value(questLine) of field "NextPQ" into X
  put line value(questLine) of field "poolYcom" into whereNext
  put chars(X, 1, 2) into Y
  set questLine = value(Y)
end Yup

on Nop
  global questLine, noIn, noOut, whereNext
  intro value(noIn), value(noOut)
  put line value(questLine) of field "NextPQ" into X
  put line value(questLine) of field "poolNcom" into whereNext
  put chars(X, 3, 4) into Y
  --put Y into cast D52
  updateStage
  set questLine = value(Y)
end Nop

on poolYes
  unanIt
  updateStage
  go to "Pooly"
end poolYes

on poolNo
  unanIt
  updateStage
  go to "Pooln"
end poolNo

----Bedroom handlers
on askBed
  global qtSprite, questLine, yesIn, yesOut, noIn, noOut, questOut
  put line value(questLine) of field "Question In" into questIn
  put line value(questLine) of field "Question Out" into questOut
  --put value(questIn) into cast D27
  --put value(questOut) into cast D28
  --updateStage
  put line value(questLine) of field "AnsYin" into yesIn
  put line value(questLine) of field "AnsYout" into yesOut
  put line value(questLine) of field "AnsNin" into noIn
  put line value(questLine) of field "AnsNout" into noOut
  set the startTime of sprite qtSprite to value(questIn)
  set the movieTime of sprite qtSprite to value(questIn)
  set the stopTime of sprite qtSprite to value(questOut)
  updateStage
  if the movieTime of sprite qtSprite = value(questIn) then
    updateStage
    set the volume of sprite qtSprite to 255
    set the movieRate of sprite qtSprite to 1
  else
    updateStage
  end if
end askBed

on ansYbed
  global questLine, yesIn, yesOut, whereNext
  intro value(yesIn), value(yesOut)
  --put value(yesIn) into cast D23
  --put value(yesOut) into cast D24
  updateStage
  put line value(questLine) of field "NextYN" into X
  put line value(questLine) of field "nextYcom" into whereNext
  put chars(X, 1, 2) into Y
  set questLine = value(Y)
end ansYbed

on ansNbed
  global questLine, noIn, noOut, whereNext
  intro value(noIn), value(noOut)
  put line value(questLine) of field "NextYN" into X
  put line value(questLine) of field "nextNcom" into whereNext
  put chars(X, 3, 4) into Y
  --put Y into cast D28
  --updateStage
  set questLine = value(Y)
end ansNbed


on bedYes
  anIt
  puppetSound "Clicker4"
  updateStage
  unanIt
  updateStage
  puppetSound 0
  go to "Bedy"
end bedYes

on bedNo
  anIt
  puppetSound "Clicker4"
  updateStage
  unanIt
  updateStage
  puppetSound 0
  go to "Bedn"
end bedNo


on repLoop
  if the movieTime of sprite 11 < questOut then
    go to the frame
  else
    set the movieTime of sprite 11 to value(questOut)
    set the movieRate of sprite 11 to 0
    go to the frame
  end if
end repLoop


on repYes
  global yesOut, whereNext
  if the movieTime of sprite 11 < value(yesOut)-24 then
    --if the movieTime of sprite 11 < the stopTime of sprite 11 then
    go to the frame
  else
    Do whereNext
  end if
end repYes

on repNo
  global noOut, whereNext
  if the movieTime of sprite 11 < value(noOut)-24 then
    go to the frame
  else
    Do whereNext
  end if
end repNo