Changeset 18 for trunk/lingosource/castlib2/aleXtrasMovieScript.ls

Timestamp:

10/24/08 12:12:09 (4 years ago)

Author:

alex

Message:

updated movie to incorporate new version of library scripts

File:

• trunk/lingosource/castlib2/aleXtrasMovieScript.ls (modified) (8 diffs)

trunk/lingosource/castlib2/aleXtrasMovieScript.ls

@@ -1 @@
--- LDM Xtras Moviescript -- ©05 Alex da Franca -- alex@farbflash.de
+-- aleXtrasMovieScript
 ---------------------------------------------------------------------
-
--- Requires:
--- nothing
-
--- Purpose:
+-- CREATED:
+-- 2005
+--
+-- PROPERTIES:
+--!memberProperties: [#name: "aleXtrasMovieScript", #scripttype: #movie, #scriptSyntax: #lingo, #comments:"~/Documents/Scripts/lingo/aleXtrasMovieScript.ls"]
+--
+-- DESCRIPTION:
+--             -- LDM Xtras Moviescript -- c05 Alex da Franca -- alex@farbflash.de
 -- store instances of scripts and bitmaps in a 'global' list (-> property pAleXtras)
 -- and provide access to them for all scripts
-
--- Usage:
--- put it in one of your castlib, DON'T RENAME MEMBER !!
+--
+-- REQUIRES:
+--            script "commonmoviescript"
+--
+-- USAGE:
+--            put it in one of your castlib, DON'T RENAME THIS MEMBER !!
+--            use xscr(<name of script as symbol>) to get a reference to the script from
+--            every script of the movie. It will return an instance of the script
+--
+-- PARAMS:
+-- -
+--
+-- RETURNS:
+-- -
+--
+-- WARNINGS:
+-- -
+--
+-- TODO:
+--              -
+-----------------------------------
 
 property pAleXtras
 
 on mGetAleXtras
+  
+  alextras = (script "aleXtrasMovieScript").pAleXtras
+  if not(objectP(alextras)) then
+    
+    cms = member("commonMovieScript")
+    if ilk(cms) <> #member then
+      alert "Script commonMovieScript missing, can't proceed"
+      halt
+    end if
+    if cms.type <> #script then
+      alert "Script commonMovieScript missing, can't proceed"
+      halt
+    end if
+    alextras = rawnew(cms.script)
+    if ilk(alextras) <> #instance then
+      alert "Script" & QUOTE & "commonMovieScript" & QUOTE && "is missing. This movie can't proceed!"
+      halt
+    end if
+    (script "aleXtrasMovieScript").pAleXtras = alextras
+  end if
+  return alextras
+  -----------------------------
+  
   alextras = (script "aleXtrasMovieScript").pAleXtras
   if voidP(alextras) then
@@ -26 +70 @@
 
 on xscr scrName
+  -----------------------------------
+  --         CREATED: 11.02.2008
+  --         ACTION: Description
+  --         INPUT: -
+  --         RETURNS: -
+  --         CALLER: -
+  --         DEBUG: -
+  --         TODO: -
+  -----------------------------------
+  
   return mGetXScript(scrName)
 end
@@ -32 +86 @@
 
 on mGetXScript scrName
+  -----------------------------------
+  --         CREATED: 11.02.2008
+  --         ACTION: Description
+  --         INPUT: -
+  --         RETURNS: -
+  --         CALLER: -
+  --         DEBUG: -
+  --         TODO: -
+  -----------------------------------
+  
+  alextras = mGetAleXtras()
+  scrName = string(scrName)
+  if length(scrName) < 1 then return alextras
+  if scrName = "commonMovieScript" then return alextras
+  
+  inst = alextras.mGetInstance(scrName, 1)
+  if ilk(inst) <> #instance then
+    if the runmode contains "aut" then
+      put "Script" && QUOTE & scrName & QUOTE && "is missing! This may cause unwanted behavior"
+    end if
+      inst = []
+    end if
+  return inst
+  ----------------------
+  
+  
   scrName = symbol(scrName)
   if ilk(scrName) <> #symbol then scrName = #commonmoviescript
@@ -61 +141 @@
 
 on mLoadScripts cls
+  -----------------------------------
+  --         CREATED: 11.02.2008
+  --         ACTION: Description
+  --         INPUT: -
+  --         RETURNS: -
+  --         CALLER: -
+  --         DEBUG: -
+  --         TODO: -
+  -----------------------------------
+  exit
+  
   
   mediaList = mGetAleXtras()
@@ -106 +197 @@
 on mLoadXScript whichName
   
+  exit
+  
+  
   whichName = string(whichName)
   if length(whichName) < 1 then return 0
@@ -130 +224 @@
 
 on mLoadScriptsFromLDM whichSprite
+  
+  includes = [:] 
+  
+  tell sprite(whichSprite)
+    cl = the number of castlibs
+    repeat with n = 1 to cl
+      num = the number of members of castlib cl
+      repeat with m = 1 to num
+        mem = member(m,n)
+        if length(mem.name) > 0 then
+          if mem.type = #script then
+            includes.setaProp(symbol(mem.name), rawNew(mem.script))
+          end if
+        end if
+      end repeat
+    end repeat
+  end tell
+  
+  cms = includes.getaprop(#commonMovieScript)
+  if not(objectP(cms)) then
+    cms = member("commonMovieScript")
+    if ilk(cms) <> #member then
+      alert "Script commonMovieScript missing, can't proceed"
+      halt
+    end if
+    if cms.type <> #script then
+      alert "Script commonMovieScript missing, can't proceed"
+      halt
+    end if
+    cms = rawnew(cms.script)
+  end if
+  
+  (script "aleXtrasMovieScript").pAleXtras = cms
+  
+  globs = cms.mGetGlobalList()
+  incl = globs[#gParentScriptInstances]
+  if not(objectP(incl)) then
+    incl = [:]
+    globs[#gParentScriptInstances] = incl
+  end if
+  
+  repeat with n = count(incl) down to 1
+    includes.setaprop(incl.getPropAt(n), incl[n])
+  end repeat
+  includes.deleteOne(#commonMovieScript)
+    globs[#gParentScriptInstances] = includes
+  
+  exit
+  ------------------------------
   
   mediaList = mGetAleXtras()
@@ -166 +309 @@
 
 on mListAleXtras
+  put "Handler mListAleXtras deprecated"
+  exit
+  
   alextras = (script "aleXtrasMovieScript").pAleXtras
   if voidP(alextras) then mLoadScripts
@@ -215 +361 @@
   sel = the selection of castlib cl
   
-  delim = the last char of the applicationpath
+  
+  mp = the moviepath
+  if length(mp) < 1 then
+    if the runmode contains "plug" then
+      mp = "/"
+    else
+      mp = the applicationpath
+    end if
+  end if
+  delim = the last char of mp
   
   the itemdelimiter = "/"