home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / studiosw / source / shokcats.dir / 00081_nDigit.ls < prev    next >
Encoding:
Text File  |  1996-05-10  |  530 b   |  25 lines
  1. property myCast, mySprite
  2.  
  3. on birth me, aSprite
  4.   set myCast to 1
  5.   set mySprite to aSprite
  6.   puppetSprite(mySprite, 1)
  7.   set the castNum of sprite mySprite to myCast
  8.   return me
  9. end
  10.  
  11. on upDateDigit me, aDigit
  12.   if (aDigit >= 0) and (aDigit <= 9) then
  13.     set myCast to 1 + aDigit
  14.     set the castNum of sprite mySprite to 23
  15.     updateStage()
  16.     set the castNum of sprite mySprite to myCast
  17.     updateStage()
  18.   end if
  19. end
  20.  
  21. on setPOS me, aH, aV
  22.   set the locV of sprite mySprite to aV
  23.   set the locH of sprite mySprite to aH
  24. end
  25.