#22002/8/15 17:56:23
movie脚本
On StartMovie
Global James,Dragging
Set Dragging = FALSE
Set JAMES=0
Set the itemDelimiter to "~"
Set the PopupMenu of member "默林" to FALSE
End StartMovie
On StopMovie
Global JamesMoveCommand, RobbyMoveCommand, MerlinMoveCommand
RemoveCommand (member "默林",JamesMoveCommand)
End StopMovie
----------------------------------------------------------------------------
帧脚本
Global James, Cue
on beginsprite
Set James=Sprite 2
Say (James, item 1 of field "JamesTTS",the moviepath&"wave/01.wav")
Play (James, "GREET")
Say (James, item 2 of field "JamesTTS",the moviepath&"wave/02.wav")
Play (James, "Blink")
Say (James, item 3 of field "JamesTTS",the moviepath&"wave/03.wav")
Set Cue= Play (James, "RestPose")
end
on exitFrame me
go to the frame
end
----------------------------------------------------------
精灵脚本
On RequestComplete ID
Global Cue, Dragging
If ID=Cue then
go to the frame +1
End If
End RequestComplete
On DragStart X,Y
Global James, Dragging
Set Dragging = TRUE
StopAll (James, 1)
Say (James, "好，现在继续.")
End DragStart
On DragComplete X,Y
Global James, Dragging
Set Dragging=MoveTo (James, The locH of James, The locV of James, 1000)
End DragComplete
On Command CommandID
Global James, JamesMoveCommand
If CommandID=JamesMoveCommand then
MoveTo (James, random (the StageRight), random (the stagebottom), 1000)
End If
End Command
