home *** CD-ROM | disk | FTP | other *** search
/ Stickerpedia Stickerbook / Stickerbook.iso / pc / DATA / objects.cxt / 00021_Script_oSpr < prev    next >
Text File  |  2003-03-19  |  1KB  |  71 lines
  1. --¨
  2. oSpr
  3.  
  4.  
  5.  
  6. -- sprite manager
  7.  
  8. global oHQ, oSpr
  9.  
  10.  
  11. property  pListOfStates
  12.  
  13. on new me
  14.   --  addObject me
  15.   pListOfStates = [#std, #hiL, #dwn, #sel, #ict, #vtd]
  16.   
  17.   -- updateProgressBar ("Object loading", oSpr && "status #ok")
  18.   
  19.   return me  
  20. end 
  21.  
  22.  
  23.  
  24.  
  25.  
  26. on modify me, spr, action
  27.   lib = sprite(spr).castlibNum  
  28.   numStr = string(sprite(spr).membernum)
  29.   originalState = numStr.char [length(numStr)]
  30.   put "1" into numStr.char [length(numStr)]
  31.   set stdNum = value(numStr)  
  32.   
  33.   case action of
  34.     #std:
  35.       set modMember = stdNum
  36.     #hiL:
  37.       set modMember = stdNum + 1
  38.     #dwn:
  39.       set modMember = stdNum + 2
  40.     #sel:
  41.       set modMember = stdNum + 3
  42.     #ict:
  43.       set modMember = stdNum + 4
  44.     #vtd:
  45.       set modMember = stdNum + 5
  46.       
  47.     #none:
  48.       set modMember = stdNum + originalState - 1
  49.     otherwise
  50.       set modMember = stdNum
  51.       
  52.   end case
  53.   
  54.   sprite(spr).member = member modMember of castlib lib
  55.   return originalState
  56. end
  57.  
  58.  
  59. on getState me, spr
  60.   lib = sprite(spr).castlibNum  
  61.   numStr = string(sprite(spr).membernum)
  62.   originalState = numStr.char [length(numStr)]
  63.   return pListOfStates[value(originalState)]
  64. end
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.