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

Timestamp:

04/06/08 11:11:43 (4 years ago)

Author:

alex

Message:

now with version checking

File:

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

trunk/lingosource/castlib2/aleXtrasMovieScript.ls

@@ -18 +18 @@
 -----------------------------------
 
-
 property pAleXtras
 
 on mGetAleXtras
   
+  alextras = (script "aleXtrasMovieScript").pAleXtras
+  if not(objectP(alextras)) then
+    alextras = new(script "commonMovieScript")
+    if ilk(alextras) <> #instance then
+      alert "HandlerMenu: 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
@@ -61 +71 @@
   -----------------------------------
   
+  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 "HandlerMenu: 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
@@ -99 +125 @@
   --         TODO: -
   -----------------------------------
+  exit
+  
   
   mediaList = mGetAleXtras()
@@ -144 +172 @@
 on mLoadXScript whichName
   
+  exit
+  
+  
   whichName = string(whichName)
   if length(whichName) < 1 then return 0
@@ -168 +199 @@
 
 on mLoadScriptsFromLDM whichSprite
+  
+  cms = xscr()
+  globs = cms.mGetGlobalList()
+  includes = globs[#gParentScriptInstances]
+  if not(objectP(includes)) then
+    includes = [:]
+    globs[#gParentScriptInstances] = includes
+  end if
+  
+  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(mem.name, mem.script)
+          end if
+        end if
+      end repeat
+    end repeat
+  end tell
+  
+  exit
+  ------------------------------
   
   mediaList = mGetAleXtras()
@@ -204 +261 @@
 
 on mListAleXtras
+  put "Handler mListAleXtras deprecated"
+  exit
+  
   alextras = (script "aleXtrasMovieScript").pAleXtras
   if voidP(alextras) then mLoadScripts
@@ -253 +313 @@
   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 = "/"