home *** CD-ROM | disk | FTP | other *** search
/ PC Accelerator 10 / HOMEWRLD.bin / BEHAV.CXT / 00011_Script_scroll < prev    next >
Text File  |  1999-03-23  |  2KB  |  57 lines
  1. property myDirection, mySprite, myMember, memberHeight, spriteHeight, ScrollTabSprite
  2.  
  3.  
  4. on beginSprite me
  5.   set mymember = the member of sprite mySprite
  6.   set memberHeight = the height of member myMember
  7.   set spriteHeight = the height of sprite mySprite
  8.   
  9. end
  10.  
  11. on mouseDown me
  12.   
  13.   case (myDirection) of
  14.     #Down:
  15.       repeat while the stillDown
  16.         if the scrolltop of member myMember >= (the height of member myMember - the height of sprite mySprite) then 
  17.           exit repeat
  18.         end if
  19.         sendSprite(5,#enterFrame)
  20.         set the scrolltop of member myMember = the scrollTOp of member myMember +10
  21.         updateScrolltab me
  22.       end repeat
  23.     #UP:
  24.       repeat while the stillDown
  25.         if the scrolltop of member myMember <= 4 then 
  26.           exit repeat
  27.         end if
  28.              sendSprite(5,#enterFrame)
  29.         set the scrolltop of member myMember = the scrollTop of member myMember -10
  30.         updateScrolltab me
  31.       end repeat
  32.       
  33.   end case
  34.   
  35. end
  36.  
  37.  
  38. on updateScrolltab me
  39.   sendSprite( ScrollTabSprite,#updateScrollTab) 
  40. end
  41.  
  42. on getPropertyDescriptionList
  43.   set p_list = [ ¼
  44.     #mySprite: [ #comment:   "Text sprite to scroll:", ¼
  45.                     #format:   #Integer, ¼
  46.                    #default:  1 ], ¼
  47. #ScrollTabSprite: [ #comment:   "Sprite of scrollTab:", ¼
  48.                     #format:   #Integer, ¼
  49.                    #default:  1 ], ¼
  50.   #myDirection : [ #comment:   "Up or Down:", ¼
  51.                     #format:   #symbol, ¼
  52.                      #range: [ #UP, #DOWN], ¼
  53.                    #default:   #UP ]¼
  54.   ]
  55.   return p_list
  56. end
  57.