---- written for Director 8 ---
---- Kumar.K kumark@icode.com ----
--- Custom Properties ---
property TheSprite,WhereTo,Warpmode
--- Get Behavior Description List ---
on getPropertyDescriptionList me
DigitalvideoSpriteList=searchDigitalVideo (me)
descriptionlist = [:]
warplist=["Full","Partial","None"]
spriteassignlist=["Mouse Up","Mouse Down", "Mouse Enter","Mouse Leave"]
frameassignlist=["Exit Frame","Enter Frame"]
if DigitalvideoSpriteList.count > 0 then
addprop descriptionlist,#TheSprite,[#comment:"QTVR Sprite Number :",
#format:#String,#range:DigitalvideoSpriteList,#default:DigitalvideoSpriteList[1]]
else
addprop descriptionlist,#TheSprite,[#comment:"QTVR Sprite Number :",#format:#Integer,#range:[#min:1,max:the lastchannel],#default:1]
end if
addprop descriptionlist,#Warpmode,[#comment:"Set MWarp Mode of a QTVR Sprite To :",#format:#String,#range:warplist,#default:warplist[1] ]
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 List ---
-- Get Behavior description --
on getBehaviorDescription
return "This Behavior Sets The Warp Mode of a QTVR Sprite " & RETURN & RETURN &
"Parameters" & RETURN &
"* QTVR Sprite." & RETURN &
"* Warp Mode" & RETURN &
"* Where to attach this Script"
end
-- Get Behavior description --
-- events --
on mouseUp me
if WhereTo="Mouse Up" then
SetwarpMode
end if
end
on mouseDown me
if WhereTo="Mouse Down" then
SetwarpMode
end if
end
on mouseEnter me
if WhereTo="Mouse Enter" then
SetwarpMode
end if
end
on mouseLeave me
if WhereTo="Mouse Leave" then
SetwarpMode
end if
end
on enterframe
if WhereTo="Enter Frame" then
SetwarpMode
end if
end
on ExitFrame
if WhereTo="Exit Frame" then
SetwarpMode
end if
end
-- events --
-- custom handlers --
on SetwarpMode
if sprite(TheSprite).isVrMovie then
case Warpmode of
"Full" :sprite(TheSprite).warpMode = #full
"Partial" :sprite(TheSprite).warpMode = #Partial
"None" :sprite(TheSprite).warpMode = #None
end case
end if
end
-- custom handlers --
------ Availbale for both Frame & Sprite Script ------
on isOKToAttach (me, aSpriteType, aSpriteNum)
case aSpriteType of
#graphic:
return true
#script:
return True
end case
end isOKToAttach
------ Availbale for both Frame & Sprite Script ------
------ Search for QTVR Sprite ------
on searchDigitalVideo me
DigitalvideoSpriteList = []
repeat with i = 1 to the lastchannel
if member(sprite(i).member).type=#QuickTimeMedia then
if sprite(i).isvrMovie then
DigitalvideoSpriteList.append(i)
end if
end if
end repeat
return DigitalvideoSpriteList
end
------ Search for QTVR Sprite ------
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA