home *** CD-ROM | disk | FTP | other *** search
/ Buffalo Sabres 2001-2002 Promotional CD / Sabres.iso / pc / game.dxr / 00017_movetooth.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  826 b   |  44 lines
  1. property S, locy, origin
  2. global movefactor
  3.  
  4. on getPropertyDescriptionList
  5.   description = [:]
  6.   addProp(description, #locy, [#default: 1, #format: #integer, #comment: "locy"])
  7.   return description
  8. end
  9.  
  10. on beginSprite me
  11.   S = me.spriteNum
  12.   origin = the locV of sprite S
  13. end
  14.  
  15. on slideup me
  16.   set the locV of sprite S to origin
  17.   y = origin
  18.   thestop = locy + movefactor
  19.   repeat while y > thestop
  20.     y = y - movefactor
  21.     set the locV of sprite S to y
  22.     updateStage()
  23.   end repeat
  24. end
  25.  
  26. on slidedown me
  27.   y = the locV of sprite S
  28.   repeat while y < origin
  29.     y = y + movefactor
  30.     set the locV of sprite S to y
  31.     updateStage()
  32.   end repeat
  33. end
  34.  
  35. on transon me
  36.   set the locV of sprite S to locy
  37.   puppetTransition(27, 3, 1, 1)
  38. end
  39.  
  40. on transoff me
  41.   set the locV of sprite S to origin
  42.   puppetTransition(27, 3, 1, 1)
  43. end
  44.