一、设置QuickTime VR的属性

将此行为附于按钮之上，可以控制QTVR的下列属性：

• Show Video：显示画面
• Play Sound：播放声音
• Controller：控制条
• Preload：预读
• DirectToStage：写屏
• Streaming：流式
• Loop：循环

**property** sourcemember,WhereTo,show_video,play_sound,preload_video,directtostage_video,Streaming_Prop,loop_video,Show_Controller

**---- Get Behavior Description List ---**

**on** **getPropertyDescriptionList** **me**
　QTMembersList=searchDigitalVideo (**me**)
　descriptionlist = [:]
　spriteassignlist=["Mouse Up","Mouse Down", "Mouse Enter","Mouse Leave"]
　frameassignlist=["Exit Frame","Enter Frame"]
　if QTMembersList.**count** > 0 **then**
　　addprop descriptionlist,**#**sourcemember,[**#**comment:"QTVR Cast member :", \\
**#**format:#String,**#**range:QTMembersList,**#**default:QTMembersList[1]]
　else
　　addprop descriptionlist,**#**sourcemember,[**#**comment:"QTVR Cast member :",**#**format:#Graphic,**#**default:1]
　end **if**
　addprop descriptionlist,**#**show_video,[**#**comment:"Set Show Video Property To :",**#**format:#Boolean,**#**default:True]
　addprop descriptionlist,**#**play_sound,[**#**comment:"Set Play Sound Property To :",**#**format:#Boolean,**#**default:True]
　addprop descriptionlist,**#**Show_Controller,[**#**comment:"Set Show Controller Property To :",**#**format:#Boolean,**#**default:True]
　addprop descriptionlist,**#**preload_video,[**#**comment:"Set Preload Property To :",**#**format:#Boolean,**#**default:True]
　addprop descriptionlist,**#**directtostage_video,[**#**comment:"Set DirectToStage Video Property To :",**#**format:#Boolean,**#**default:True]
　addprop descriptionlist,**#**Streaming_Prop,[**#**comment:"Set Streaming Property To :",**#**format:#Boolean,**#**default:True]
　addprop descriptionlist,**#**loop_video,[**#**comment:"Set Loop Property To :",**#**format:#Boolean,**#**default:True]
　if **the** **currentspritenum** <> 0 **then**
　　addprop descriptionlist, **#**WhereTo, [**#**comment:"Where To Assign this Script ?", **#**format:#String,**#**range:spriteassignlist,**#**default:spriteassignlist[1]]
　else
　　addprop descriptionlist, **#**WhereTo, [**#**comment:"Where To Assign this Script ?", **#**format:#String,**#**range:frameassignlist,**#**default:frameassignlist[2]]
　end **if**
　return descriptionlist
**end** **getPropertyDescriptionList**

**-- Get Behavior description --**

**on** **getBehaviorDescription**
　return "This Behavior Sets the True/False Properties of a Digital Video(QTVR) " & **RETURN** & **RETURN** & \\
"Parameters" & **RETURN** & \\
"* Source Digital Video Cast member." & **RETURN** & \\
"* True/False" & **RETURN** & \\
"* Where to attach this Script"
**end**

**-- Events --**

**on** **mouseUp** **me**
　if WhereTo="Mouse Up" **then**
　　SetProperties
　end **if**
**end**

**on** **mouseDown** **me**
　if WhereTo="Mouse Down" **then**
　　SetProperties
　end **if**
**end**

**on** **mouseEnter** **me**
　if WhereTo="Mouse Enter" **then**
　　SetProperties
　end **if**
**end**

**on** **mouseLeave** **me**
　if WhereTo="Mouse Leave" **then**
　　SetProperties
　end **if**
**end**

**on** **enterframe**
　if WhereTo="Enter Frame" **then**
　　SetProperties
　end **if**
**end**

**on** **exitFrame**
　if WhereTo="Exit Frame" **then**
　　SetProperties
　end **if**
**end**

**-- Custom Handlers --**

**on** SetProperties
　if **member**(sourcemember).**type** = **#**QuickTimeMedia **then**
　　member(sourcemember).**controller**=Show_Controller
　　member(sourcemember).**video**=show_video
　　member(sourcemember).**sound**=play_sound
　　member(sourcemember).**preload**=preload_video
　　member(sourcemember).**DirectToStage**=directtostage_video
　　member(sourcemember).streaming=Streaming_Prop
　　member(sourcemember).**loop**=loop_video
　end **if**
**end**

**------ Availbale for both Frame & Sprite Script ------**

**on** **isOKToAttach** (**me**, aSpriteType, aSpriteNum)
　case aSpriteType **of**
　　#graphic:
　　　return **true**
　　#script:
　　　return **True**
　end **case**
**end** **isOKToAttach**

**------ Search for QT Member ------**

**on** searchDigitalVideo **me**
　AVIMembersList = []
　maxCastLib = **the** **number** **of** castLibs
　repeat **with** theCastLib = 1 **to** maxCastLib
　　maxMember = **the** **number** **of** **members** **of** **castLib** theCastLib
　　repeat **with** memberNumber = 1 **to** maxMember
　　　theMember = **member**(memberNumber, theCastLib)
　　　if theMember.**type** = **#**QuickTimeMedia **then**
　　　　if theMember.**name** = **EMPTY** **then**
　　　　　AVIMembersList.**append**(theMember)
　　　　else
　　　　　AVIMembersList.**append**(theMember.**name**)
　　　　end **if**
　　　end **if**
　　end **repeat**
　end **repeat**
　return AVIMembersList
**end**

二、控制QuickTime VR的热区

下面的代码用于实现对QTVR热区的控制：

**-- 电影角本**
**on** **startmovie**
　sprite(1).VRHotSpotEnterCallback = **#**MyEnterHotspot
　sprite(1).VRNodeEnterCallback = **#**MyEnterNode
　sprite(1).VRNodeExitCallback = **#**MyExitNode
　sprite(1).VRTriggerCallback = **#**MyVRTrigger
**end**

**on** MyEnterHotspot **me**, id
　set VRHotSpotSprite = **the** **spritenum** **of** **me**
　put "mouse entered hotspot" && id && "of sprite" && **sprite** VRHotSpotSprite
**end**

**on** MyEnterNode **me**, id
　**-- 在此加入命令行，点击热区后触发**
　set multiNodeVRspr = **the** **spritenum** **of** **me**
　put "mouse entered node" && id && "of sprite" && **sprite** multiNodeVRspr
**end**

**on** MyExitNode **me**, id
　set exitmultiNodeVRspr = **the** **spritenum** **of** **me**
　put "mouse exited node" && id && "of sprite" && **sprite** exitmultiNodeVRspr
**end**