home *** CD-ROM | disk | FTP | other *** search
/ VCD Film, Television & An…on Creation Encyclopedia / mycd.iso / Direct5 / DATA.Z / MECH.DIR / 00098_aPart.ls < prev    next >
Encoding:
Text File  |  1996-03-15  |  394 b   |  21 lines
  1. property mySprite, touchingMe, myID
  2. global gHandCursor
  3.  
  4. on new me, aSprite, thePartID, theCastNumber
  5.   set myID to thePartID
  6.   set touchingMe to 0
  7.   set mySprite to aSprite
  8.   puppetSprite(mySprite, 1)
  9.   set the castNum of sprite mySprite to theCastNumber
  10.   set the cursor of sprite mySprite to gHandCursor
  11.   return me
  12. end
  13.  
  14. on mGetID me
  15.   return myID
  16. end
  17.  
  18. on mGetSprite me
  19.   return mySprite
  20. end
  21.