Wait for a cuepoint

 

Compatibilities:

Rating:

Wait for a cuepoint

---- written for Director 8 --- ---- Kumar.K kumark@icode.com ---- -- custom properties -- property soundchannel,whereto,cuepointname ------ Get Behavior Description List ------ on getPropertyDescriptionList me   set description = [:]   if the currentspritenum <> 0 then exit   addProp description, #soundchannel, [#comment: "Sound Channel Number", #format:#Integer, #range:[#min:1,#Max:8],#default:1]   addProp description, #cuepointname, [#comment: "CuePoint Name", #format:#String,#default:"Enter CuePoint Name here"]   addProp description, #whereto, [#comment: "What to do after sound finishes Playing ?", #format:#String,   #range:["Go Next Frame","Go Next Marker", "Go Previous marker", "Go Loop","Exit"],#default:"Go Next Frame"]     return description end getPropertyDescriptionList ------ Get Behavior Description List ------ -- Get Behavior description -- on getBehaviorDescription   return "This Behavior waits on a frame till the specified Cuepoint is past. " & RETURN & RETURN & "Please enter the CuePoint Name carefully, since it is Case-Sensitive" & RETURN & RETURN &   "Parameters" & RETURN &   "* Sound Channel" & RETURN &   "* CuePoint Name(Case-Sensitive)" & RETURN &   "* What to do after sound gets over" end -- Get Behavior description -- -- Events -- on ExitFrame me   if (isPastCuePoint(sound soundchannel, cuepointname)=1) then     case whereto of:       "Go Next Frame": go the frame + 1       "Go Next Marker": go Next       "Go Previous marker": go previous       "Go Loop": go loop       "Exit":quit     end case   else     go the frame     end if end ExitFrame ------ Events ------ ------ Can be attached to only Script Channel ------ on isOKToAttach (me, aSpriteType, aSpriteNum)   case aSpriteType of     #script:       return true   end case end isOKToAttach ------ Can be attached to only Script Channel ------

Upload Provided by ABCUpload ASP