Venus' Playhouse/Venus_Playhouse.iso/mac/PCPLHAUS.DXR/00180_Script_180

Text File | 1998-03-29 | 11KB | 500 lines

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


--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

on stepmovie
  if (sprite 18 intersects 24) then
    set the soundlevel to 7
  else if (sprite 18 intersects 23) then
    set the soundlevel to 6
  else if (sprite 18 intersects 22) then
    set the soundlevel to 5
  else if (sprite 18 intersects 21) then
    set the soundlevel to 3
  else if (sprite 18 intersects 20) then
    set the soundlevel to 0
  else
    set the soundlevel to 7
  end if
end stepmovie


---
---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
  Go to "Kitchen"
end kitchenIt

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

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

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

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

on bedIt
  global haveBeen
  set haveBeen = haveBeen + 1
  aniRoom 8
  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
  delay 360
  unanIt
  delay 360
  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
  delay 90
  updateStage
  set newButt = newButt + 1
  set the castNum of sprite the clickOn to newButt
  delay 90
  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
  delay 90
  updateStage
  set newButt = newButt - 1
  set the castNum of sprite the clickOn to newButt
  delay 90
  updateStage
end unanIt


on aniMate
  anIt
  puppetSound "Clicker4"
  updateStage
  delay 60
  unanIt
  delay 120
  updateStage
end aniMate




---
---Interactivity Choice Scripts

on pickVenus
  aniMate
  go to "Venus"
end pickVenus

on pickJulia
  aniMate
  go to "Julia"
end pickJulia

on pickBoth
  aniMate
  Go to "Bathboth"
end pickBoth


on pickLeigh
  aniMate
  Go to "Leigh"
end pickLeigh

on pickVanna
  aniMate
  Go to "Vanna"
end pickVanna

on pickShwrbth
  aniMate
  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 field "PQin" into questIn
  put line value(questLine) of field "PQout" into questOut
  put line value(questLine) of field "PQYin" into yesIn
  put line value(questLine) of field "PQYout" into yesOut
  put line value(questLine) of field "PQNin" into noIn
  put line value(questLine) of field "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
  global questLine, yesIn, yesOut, whereNext
  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
  anIt
  puppetSound "Clicker4"
  updateStage
  delay 360
  unanIt
  updateStage
  delay 360
  go to "Pooly"
end poolYes

on poolNo
  anIt
  puppetSound "Clicker4"
  updateStage
  delay 360
  unanIt
  updateStage
  delay 360
  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
    delay 5
    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
  delay 360
  unanIt
  updateStage
  delay 360
  go to "Bedy"
end bedYes

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


on repLoop
  global questOut
  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) 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) then
    go to the frame
  else
    delay 120
    Do whereNext
  end if
end repNo