Pan QTVR Sprite

 

Compatibilities:

This item has not yet been rated

Pan QTVR Sprite

---- written for Director 8 --- ---- Kumar.K kumark@icode.com ---- --- Custom Properties --- property TheSprite,WhereTo,PanLevel,MyCursor,spritenum,PanOption --- Get Behavior Description List --- on getPropertyDescriptionList me   if not the currentspritenum<>0 then exit   DigitalvideoSpriteList=searchDigitalVideo (me)   descriptionlist = [:]   if DigitalvideoSpriteList.count > 0 then     addprop descriptionlist,#TheSprite,[#comment:"Digital Video Sprite Number :",       #format:#String,#range:DigitalvideoSpriteList,#default:DigitalvideoSpriteList[1]]   else     addprop descriptionlist,#TheSprite,[#comment:"Digital Video Sprite Number :",#format:#Integer,#range:[#min:1,max:the lastchannel],#default:1]   end if   addprop descriptionlist,#PanOption,[#comment:"Action :",#format:#String,#range:["Pan Left to Right","Pan Right To Left"],#default:"Pan Left to Right"]     addprop descriptionlist,#PanLevel,[#comment:"Select PanLevel :",#format:#Integer,#range:[#Min:1,#Max:10],#default:5]   addprop descriptionlist,#MyCursor,[#comment:"Select the Cursor :",#format:#Cursor,#default:280]   return descriptionlist end getPropertyDescriptionList on getBehaviorDescription   return "This Behavior Pans QTVR Sprite " & RETURN & RETURN &   "Parameters" & RETURN &   "* QTVR Sprite." & RETURN &   "* Pan Level" end -- Get Behavior description -- -- events -- on mousewithin   sprite(spritenum).cursor=MyCursor end on mousedown     if sprite(TheSprite).IsVrMovie then     if PanOption = "Pan Left to Right" then       repeat while the stilldown         Set the pan of sprite TheSprite= the pan of sprite TheSprite - PanLevel         updatestage       end repeat     end if     if PanOption = "Pan Right To Left" then       repeat while the stilldown         Set the pan of sprite TheSprite= the pan of sprite TheSprite + PanLevel         updatestage       end repeat     end if    end if end -- events -- ------ Availbale for only Sprite Script ------ on isOKToAttach (me, aSpriteType, aSpriteNum) case aSpriteType of #graphic: return true #script: return false end case end isOKToAttach ------ Availbale for only Sprite Script ------ ------ Search for QT/AVI 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 QT/AVI Sprite ------

Upload Provided by ABCUpload ASP