Farbflash projects: Imaging lingo table | 3-D scene list | Find all | Handler menu | Lingo message window

Ignore:
Timestamp:
02/18/08 06:02:53 (4 years ago)
Author:
alex
Message:

update library scripts

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/lingosource/castlib2/aleXtrasMovieScript.ls

    r63 r150  
    11-- LDM Xtras Moviescript -- ©05 Alex da Franca -- alex@farbflash.de 
    22--------------------------------------------------------------------- 
    3  
    4 -- Requires: 
    5 -- nothing 
    6  
    7 -- Purpose: 
     3-- CREATED: 
     4--              2005 
     5-- 
     6-- DESCRIPTION: 
    87-- store instances of scripts and bitmaps in a 'global' list (-> property pAleXtras) 
    98-- and provide access to them for all scripts 
    10  
    11 -- Usage: 
     9-- 
     10-- REQUIRES: 
     11--              NONE 
     12-- 
     13-- USAGE: 
    1214-- put it in one of your castlib, DON'T RENAME MEMBER !! 
     15-- 
     16-- TODO: 
     17--              - 
     18----------------------------------- 
     19 
    1320 
    1421property pAleXtras 
    1522 
    1623on mGetAleXtras 
     24   
     25   
    1726  alextras = (script "aleXtrasMovieScript").pAleXtras 
    1827  if voidP(alextras) then 
    … …  
    2635 
    2736on xscr scrName 
     37  ----------------------------------- 
     38  --         CREATED: 11.02.2008 
     39  --         ACTION: Description 
     40  --         INPUT: - 
     41  --         RETURNS: - 
     42  --         CALLER: - 
     43  --         DEBUG: - 
     44  --         TODO: - 
     45  ----------------------------------- 
     46   
    2847  return mGetXScript(scrName) 
    2948end 
    … …  
    3251 
    3352on mGetXScript scrName 
     53  ----------------------------------- 
     54  --         CREATED: 11.02.2008 
     55  --         ACTION: Description 
     56  --         INPUT: - 
     57  --         RETURNS: - 
     58  --         CALLER: - 
     59  --         DEBUG: - 
     60  --         TODO: - 
     61  ----------------------------------- 
     62   
    3463  scrName = symbol(scrName) 
    3564  if ilk(scrName) <> #symbol then scrName = #commonmoviescript 
    … …  
    5483on mCallDestroy 
    5584  call(#mCallDestroy, mGetXScript()) 
    56  -- call(#mDestroy, the actorlist) 
     85  -- call(#mDestroy, the actorlist) 
    5786end 
    5887 
    … …  
    6190 
    6291on mLoadScripts cls 
     92  ----------------------------------- 
     93  --         CREATED: 11.02.2008 
     94  --         ACTION: Description 
     95  --         INPUT: - 
     96  --         RETURNS: - 
     97  --         CALLER: - 
     98  --         DEBUG: - 
     99  --         TODO: - 
     100  ----------------------------------- 
    63101   
    64102  mediaList = mGetAleXtras() 
Note: See TracChangeset for help on using the changeset viewer.