Changeset 18 for trunk/lingosource/castlib2/aleXtraLoader.ls
- Timestamp:
- 10/24/08 12:12:09 (4 years ago)
- File:
-
- 1 edited
-
trunk/lingosource/castlib2/aleXtraLoader.ls (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/lingosource/castlib2/aleXtraLoader.ls
r14 r18 68 68 else 69 69 70 mediaList = mGetAleXtras() 71 72 theScripts = mediaList.getaprop(#scripts) 73 if ilk(theScripts) <> #proplist then 74 theScripts = [:] 75 mediaList.setaprop(#scripts, theScripts) 76 end if 77 78 theBitmaps = mediaList.getaprop(#bitmaps) 79 if ilk(theBitmaps) <> #proplist then 80 theBitmaps = [:] 81 mediaList.setaprop(#bitmaps, theBitmaps) 82 end if 83 84 tell sprite(me.spritenum) 85 cl = the number of castlibs 86 repeat with n = 1 to cl 87 num = the number of members of castlib cl 88 repeat with m = 1 to num 89 mem = member(m,n) 90 if length(mem.name) > 0 then 91 if mem.type = #script then 92 theScripts.setaProp(symbol(mem.name), mem.script) 93 else if mem.type = #bitmap then 94 theBitmaps.setaProp(symbol(mem.name), mem.image.duplicate()) 95 end if 96 end if 97 end repeat 98 end repeat 99 end tell 100 101 -- ----------------------------------------------------------- 102 -- -- -- -- Debugging mode: 103 -- 104 -- mLoadScripts 105 -- 106 -- -- // Debugging mode 107 -- ----------------------------------------------------------- 70 mLoadScriptsFromLDM me.spritenum 108 71 109 72 pLoaded = 1 110 111 112 73 113 74 end if
Note: See TracChangeset
for help on using the changeset viewer.
