home *** CD-ROM | disk | FTP | other *** search
/ PC Format (UK) 162 / PCF162_1_06_04.ISO / shared.cst / 00035_Script_scrolltextRight < prev    next >
Text File  |  2004-04-27  |  973b  |  49 lines
  1. property StartSprite
  2. property LastSprite
  3. property Speed
  4. property leftPos
  5. property rightPos
  6.  
  7.  
  8. on mousedown me
  9.  
  10.  
  11.     repeat with i = StartSprite to LastSprite
  12.       
  13.       
  14.       sprite(i).Loch = (sprite(i).LocH+Speed)
  15.       
  16.       
  17.       if sprite(i).loch > RightPos then 
  18.         sprite(i).locH = LeftPos 
  19.         
  20.       end if
  21.       
  22.       
  23.     end repeat  
  24.     
  25.     
  26.  
  27.  
  28. end if
  29.  
  30. end
  31.  
  32.  
  33.  
  34.  
  35. on getpropertydescriptionlist me
  36.   list = [:]
  37.   
  38.   addprop list, #StartSprite,[ #default:1, #format:#integer, #comment:"Enter First Nav Sprite"]
  39.   addprop list, #LastSprite, [ #default:2, #format:#integer, #comment:"Enter Last Nav Sprite"]
  40.   addprop list, #Speed, [ #default:0, #format:#integer, #comment:"Enter Sprite Speed"]
  41.   addprop list, #leftPos, [ #default:0, #format:#integer, #comment:"Enter Left Position"]
  42.   addprop list, #rightPos, [ #default:240, #format:#integer, #comment:"Enter Right Position"]
  43.   
  44.   return list
  45. end 
  46.  
  47.  
  48.  
  49.