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

Timestamp:

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

Author:

alex

Message:

incorporated changes to library scripts

File:

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

trunk/lingosource/castlib2/commonMovieScript.ls

@@ -1 +1 @@
 -- commonMovieScript
--- was anderes
 -----------------------------------
 -- CREATED:
@@ -6 +5 @@
 --
 -- DESCRIPTION:      
---              Shared Global Handlers ©03 Alex da Franca -- alex@farbflash.de
+--              Shared Global Handlers c03 Alex da Franca -- alex@farbflash.de
 --              -------------------------------------------------------------------
---              these handlers are shared between all of my scripts Alex da Franca ©2003 alex@farbflash.de
+--              these handlers are shared between all of my scripts Alex da Franca c2003 alex@farbflash.de
 --              for private use of my scripts -> poor documentation -> use at own risk ;-)
 
@@ -1203 +1202 @@
 on mGetInstance me, instName, useRawNew
   
+  if ilk(instName) = #string then instName = symbol(instName)
+  
   theGlobs = mGetGlobalList(me)
   gParentScriptInstances = theGlobs.getaprop(#gParentScriptInstances)
@@ -1214 +1215 @@
   if ilk(saveScr) = #instance then return saveScr
   
-  if mGetMemType(me, member(instName)) = #script then
-    if useRawNew = 1 then saveScr = rawnew(script instName)
-    else saveScr = new(script instName)
+  if mGetMemType(me, member(string(instName))) = #script then
+    if useRawNew = 1 then saveScr = rawnew(script string(instName))
+    else saveScr = new(script string(instName))
     gParentScriptInstances.setaprop(instName, saveScr)
     return saveScr
@@ -1223 +1224 @@
   if saveScr = -1 then return 0
   gParentScriptInstances.setaprop(instName, -1)
-  inst = mGetXScript(symbol(instName))
+  inst = mGetXScript(instName)
   if not(listP(inst)) then
     if ilk(inst) = #instance then inst = inst.script
@@ -1255 +1256 @@
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--- xxxxxxxxxxxxxxxxxx reload a stored script instance:
-
-on mReloadInstance me, instName
+-- xxxxxxxxxxxxxxxxxx delete a stored script instance:
+
+on mDeleteInstance me, instName, dontCallDestroyHandler
   theGlobs = mGetGlobalList(me)
   gParentScriptInstances = theGlobs.getaprop(#gParentScriptInstances)
-  
   if ilk(gParentScriptInstances) <> #proplist then exit
-  
+  if dontCallDestroyHandler <> 1 then
+    saveScr = gParentScriptInstances.getaprop(instName)
+    if ilk(saveScr) = #instance then call(#mDestroy, [saveScr])
+  end if
   gParentScriptInstances.deleteprop(instName)
+end
+
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+-- xxxxxxxxxxxxxxxxxx reload a stored script instance:
+
+on mReloadInstance me, instName, useRawNew, dontCallDestroyHandler
+  mDeleteInstance me, instName, dontCallDestroyHandler
+  return mGetInstance(me, instName, useRawNew)
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+-- xxxxxxxxxxxxxxxxxx replace a stored script instance:
+
+on mReplaceInstance me, instName, scriptInstance, dontCallDestroyHandler
+  if not(objectP(scriptInstance)) then exit
+  theGlobs = mGetGlobalList(me)
+  gParentScriptInstances = theGlobs.getaprop(#gParentScriptInstances)
+  if ilk(gParentScriptInstances) <> #proplist then exit
+  if dontCallDestroyHandler <> 1 then
+    saveScr = gParentScriptInstances.getaprop(instName)
+    if ilk(saveScr) = #instance then call(#mDestroy, [saveScr])
+  end if
+  gParentScriptInstances.setaprop(instName, scriptInstance)
 end
 
@@ -1860 +1887 @@
 end
 
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+-- the naming convention used throughout all my movies for names, filename etc.:
+-- Names must be only alphanumeric chars and the underscore and should not start with a number
+-- As a rule of thumb: every string which can be made into a symbol is valid.
+
+on mValidateName me, str
+  if ilk(str) <> #string then return 0
+  if length(str) < 1 then return 0
+  if "0123456789" contains char 1 of str then return 0
+  return string(symbol(str)) = str
+end
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
@@ -1957 +1995 @@
 end
 
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mFormatdate me, theFormat, theDate
+  theFormat = string(theFormat)
+  if length(theFormat) < 1 then theFormat = "yyyy/mm/dd"
+  if ilk(theDate) <> #date then theDate = the systemdate
+  
+  offs = offset("y", theFormat)
+  if offs > 0 then
+    ende = offs+1
+    repeat while char ende of theFormat = "y"
+      if ende > length(theFormat) then exit repeat
+      ende = ende+1
+    end repeat
+    len = ende - offs
+    if len < 3 then theYear = char 3 to 4 of string(theDate.year)
+    else theYear = string(theDate.year)
+    put theYear into char offs to offs + len -1 of theFormat
+  end if
+  
+  theFormat = mReplaceCharWithNumber(me, theFormat, "m", theDate.month)
+  
+  theFormat = mReplaceCharWithNumber(me, theFormat, "d", theDate.day)
+  
+  return theFormat
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mReplaceCharWithNumber me, theString, theChar, theNumber
+  offs = offset(theChar, theString)
+  if offs > 0 then
+    ende = offs+1
+    repeat while char ende of theString = theChar
+      if ende > length(theString) then exit repeat
+      ende = ende+1
+    end repeat
+    len = ende - offs
+    theNumber = string(theNumber)
+    repeat while length(theNumber) < len
+      put "0" before theNumber
+    end repeat
+    put theNumber into char offs to offs + len -1 of theString
+  end if
+  return theString
+end
+
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx