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

Timestamp:

09/17/08 20:50:38 (4 years ago)

Author:

alex

Message:

incorporated changes to 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
 ---------------------------------------------------------------------
 -- 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
 --
 -- REQUIRES:
---              NONE
+--            script "commonmoviescript"
 --
 -- USAGE:
--- put it in one of your castlib, DON'T RENAME MEMBER !!
+--            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:
@@ -24 +39 @@
   alextras = (script "aleXtrasMovieScript").pAleXtras
   if not(objectP(alextras)) then
-    alextras = new(script "commonMovieScript")
+    
+    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 "HandlerMenu: Script" & QUOTE & "commonMovieScript" & QUOTE && "is missing. This movie can't proceed!"
+      alert "Script" & QUOTE & "commonMovieScript" & QUOTE && "is missing. This movie can't proceed!"
       halt
     end if
@@ -79 +104 @@
   if ilk(inst) <> #instance then
     if the runmode contains "aut" then
-      put "HandlerMenu: Script" && QUOTE & scrName & QUOTE && "is missing! This may cause unwanted behavior"
+      put "Script" && QUOTE & scrName & QUOTE && "is missing! This may cause unwanted behavior"
     end if
       inst = []
@@ -200 +225 @@
 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)
@@ -216 +235 @@
         if length(mem.name) > 0 then
           if mem.type = #script then
-            includes.setaProp(mem.name, mem.script)
+            includes.setaProp(symbol(mem.name), rawNew(mem.script))
           end if
         end if
@@ -222 +241 @@
     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
@@ -287 +335 @@
       memref = member(m, cl)
       if memref.type = #script then
-        put "Membername:" && memref.name & TAB & "(" & line 1 of memref.comments & ")" & Return after str
+        put "Membername:" && memref.name & TAB & "("&memref.comments&")" & Return after str
       end if
     end repeat
@@ -335 +383 @@
       if memref.type = #script then
         memname = memref.name
-        comm = line 1 of memref.comments
+        comm = memref.comments
         if comm.length then