ZGTSB-Bitmap Slider Scroll

 

Compatibilities:

This item has not yet been rated

This applies to slider sprite of the 'Ziggi Generic Text Scrolling Behaviours' set and brings the slider ability to scroll. The slider graphics must be of bitmap type. For shapes use another behaviour.

Download PC Source    Download Mac Source

-- ZIGGI GENERIC TEXT SCROLLING BEHAVIOURS -- -- (C) 2001 Zbigniew Szczesny property pMaskMemberNum, pMeCastLibNum, pMeOrigRegPoint, pMeHeight, pMeStep, pTextSpriteNum, pShift on getBehaviorDescription   return "This applies to slider sprite of the 'Ziggi Generic Text Scrolling Behaviours' set and brings the slider ability to scroll. The slider graphics must be of bitmap type. For shapes use another behaviour." end on isOKtoAttach me, spriteType, spriteNum   case spriteType of     #graphic:       meType = sprite(spriteNum).member.type       return meType = #bitmap     #script:       return FALSE   end case end on beginSprite me   pTextSpriteNum = 1 -- the number of the refering scrolled text/field sprite   pMaskMemberNum = sprite(me.spriteNum).memberNum + 1   pMeCastLibNum = sprite(me.spriteNum).castLibNum   pMeOrigRegPoint = (sprite(me.spriteNum).member).regPoint   member(pMaskMemberNum, pMeCastLibNum).regPoint = pMeOrigRegPoint   pMeHeight = (sprite(me.spriteNum).member).height   pMeStep = pMeHeight.float / sprite(pTextSpriteNum).pMeBottom end on prepareFrame me   pShift = sprite(pTextSpriteNum).member.scrollTop * pMeStep   member(pMaskMemberNum, pMeCastLibNum).regPoint = pMeOrigRegPoint - [0, pShift] end

Upload Provided by ABCUpload ASP