Importing Externally Linked Flash members

 

Compatibilities:

This item has not yet been rated

Imports flash members so they are no longer linked.

Download PC Source    Download Mac Source

----written for Director 8---- ----Kumar.K---- ----kumark@icode.com---- ----Custom Properties---- Property whereTo,filesize ----Get Behavior Description List---- on getPropertyDescriptionList me   set description = [:]   if the currentspritenum = 0 then     addProp description, #WhereTo, [#comment: "Where To Attach ?" ,#format:#String,#range:["On EnterFrame","On ExitFrame"],#default:"On EnterFrame"]   else     addProp description, #WhereTo, [#comment: "Where To Attach ?" ,#format:#String,     #range:["On MouseUp","On MouseDown","On MouseEnter","On MouseLeave"],#default:"On MouseUp"]       end if       return description end getPropertyDescriptionList ----Get Behavior Description List---- ----Get Behavior description---- on getBehaviorDescription me   return     "Importing all Externally Linked Flash Members" & RETURN & RETURN &     "This Behavior Imports all Externally Linked Files." & RETURN & RETURN &     "PARAMETERS:" & RETURN &     "* Where To assign this Script." end getBehaviorDescription ----Get Behavior description---- ----Availbale for both Frame and Sprite Script---- on isOKToAttach (me, aSpriteType, aSpriteNum)   case aSpriteType of     #graphic:       return true     #script:       return true   end case end isOKToAttach ----Availbale for both Frame and Sprite Script---- ----Events---- on EnterFrame me   if WhereTo = "On EnterFrame" then     ImportLinkedFiles   end if end EnterFrame on ExitFrame me   if WhereTo = "On ExitFrame" then     ImportLinkedFiles   end if end ExitFrame on MouseUp   if WhereTo = "On MouseUp" then     ImportLinkedFiles   end if end MouseUp on MouseDown   if WhereTo = "On MouseDown" then     ImportLinkedFiles   end if end MouseDown on MouseEnter   if WhereTo = "On MouseEnter" then     ImportLinkedFiles   end if end MouseEnter on MouseLeave   if WhereTo = "On MouseLeave" then     ImportLinkedFiles   end if end MouseLeave ----Events---- ----Custom Handler to Import Files---- on ImportLinkedFiles   repeat with i=1 to the number of castlibs     repeat with j=1 to the number of members of castlib i       set themember = member j of castlib i       set filepath = the filename of themember       if filepath <> EMPTY then         set size = member(themember).size/1024.0         case(the type of themember) of           #Flash:             if size > 0 then               set oldname = the name of themember               importFileinto(themember,filepath)               set the name of themember = oldname             end if         end case       end if     end repeat   end repeat end ----Custom Handler to Import Files