http://mediamacros.com/list/type-6/

espero les sirva, saludos a todos.

Osmel Lazo

property fileloc –file location
property loadtext –text displayed while loading

on beginsprite me
mymember = the member of sprite the spritenum of me
the text of member mymember = loadtext
mynet = getNetText (fileloc)
end

on exitframe me
if updated = false then
if netdone(mynet) then
the text of member mymember = netTextResult(mynet)
updated = true
end if
end if
end

on getPropertyDescriptionList me
set pdlist to [:]
addprop pdlist, #fileloc, [#comment:"text file location", #format:#string,#default:"http://myserver.com/text.txt"]
addprop pdlist, #loadtext, [#comment:"text to display while loading",#format:#string, #default:"Downloading, Please wait."]
return pdlist
end getPropertyDescriptionList

on getBehaviorDescription
return “Update a text cast member from a remote file on the internet.” &return & return &”Created by Brent Moseley” & return & “brentmoseley@yahoo.com”
end

——— SPRITEXPANDER _____________________________________________________________________
–___________________________________________________________________________________________
–
– this behavior expands the size of a vector, or bitmap-sprite when the mousecursor
– is over this sprite. It can be used as RollOver-Expander in a single frame.
–
– 11/04/2000 D 7 , D 8
–
– Kurt Koenig * Belgium
–
–____________________________________________________________________________________________

———————————————————————————————-

property pTheWidth
property pTheHeight
property pLargeWidth
property pLargeHeight
property pExSpeed

on getPropertyDescriptionList
desclist = [:]
addprop desclist, #pLargeWidth,[#comment:\
"The size (Width) in pixels when the mouse is over this sprite:",format: #integer , default: "20"]
addprop desclist, #pLargeHeight,[#comment:\
"The size (Height) in pixels when the mouse is over this sprite:",format: #integer , default: "20"]
addprop desclist, #pExSpeed, [ #comment: "The speed when the sprite's expanding:",#format: #integer, #range:[#min: 1, #max: 10],#default: “10″]
return desclist
end getPropertyDescriptionList

on getBehaviorDescription
return ” This behavior expands the size of a sprite on”&return&” \
mousewithin,With parameters to change the width, “&return&”\
height, and expanding speed. Use this behavior”&return&” \
on a bitmap, or vectorshape-sprite Kurt * Belgium”
end getBehaviorDescription

on getBehaviorTooltip me
return “Increase the size of a sprite”&return&”\
on RollOver in a single frame.”
end getBehaviorTooltip

on beginsprite me
pTheWidth = sprite (me. spritenum) . width
pTheHeight = sprite (me. spritenum) . height
end beginsprite

on mousewithin me
if sprite(me.spriteNum).width <= pLargeWidth – pExSpeed then
sprite(me.spriteNum).width = sprite(me.spriteNum).width + pExSpeed
end if
if sprite(me.spriteNum).height <= pLargeHeight – pExSpeed then
sprite(me.spriteNum).height = sprite(me.spriteNum).height + pExSpeed
end if
cursor 200
end mousewithin

on mouseleave me
sprite(me.spriteNum).width = pTheWidth
sprite(me.spriteNum).height = pTheHeight
cursor 0
end

property pControl, pRange, pSpeed, spritenum

on exitframe me
Case (pControl) of
“Move horizontally”:
sprite(me.spritenum).loch = sprite(me.spritenum).loch + pRange
“Move vertically” :
sprite(me.spritenum).locv = sprite(me.spritenum).locv + pRange
“Rotate”:
sprite(me.spritenum).rotation = sprite(me.spritenum).rotation + pRange
“Zoom”:
the Width of sprite(me.spritenum) = the Width of sprite(me.spritenum )+ (the Width of sprite(me.spritenum )* (pSpeed/100.0))
the Height of sprite(me.spritenum) = the Height of sprite(me.spritenum) + (the Height of sprite(me.spritenum) * (pSpeed/100.0))
end case
end

on getPropertyDescriptionList
description =[:]
addProp description, #pControl,[#comment: "Select your option:", #format:#String,#range:["Move horizontally", "Move vertically", "Rotate", "Zoom"], #default:”Move horizontally”]
addProp description, #pRange, [#comment: "Speed for rotate and move:", #format:#Integer, #range:[#min:-30,#Max:30],#default:1]
addprop description, #pSpeed,[#comment:"Speed to zoom (- to zoom in, + to zoom out):",#format:#integer, #default: -10, #range:[#min:-30,#max:30]]
return description
end

– gerry orkin
–gorkin@coombs.anu.edu.au
–if you use this let me know and acknowledge in your credits
–if you improve it, send me a copy
– initial blend for the sprite
property startBlend

– how far away should the fade begin?
property StartFadePoint

– how far away should the fade stop
– (at which point the blend should = 100) ?

property EndFadePoint

on beginSprite me — sets initial blend
puppetsprite the spriteNum of me, 1
set the blend of sprite the spriteNum of me = startBlend
updatestage
end

on exitFrame me — provides the trigger for the blend updates
sendSprite (the spritenum of me, #blendit)
end

on blendSprite which, what — does the blending
set the blend of sprite which = what
updatestage
end

on blendit me
set dv = abs((the locV of sprite the spriteNum of me) – the mousev)
set dH = abs((the locH of sprite the spriteNum of me) – the mouseh)
set distance = sqrt( dV * dV + dH * dH )
if distance < EndFadePoint then
blendSprite the spriteNum of me,100
exit
end if
if distance < StartFadePoint then
set percentage = (distance*100/StartFadePoint)
set blendToValue = (100-percentage)
if blendToValue < startBlend then set blendToValue = startBlend
blendSprite the spriteNum of me,blendToValue
else
blendSprite the spriteNum of me,startBlend
end if
updatestage
end

on getPropertyDescriptionList
set p_list = [#startBlend: [ #default:0, #format:#integer, #comment:"Initial Blend",#range: [#min:0,#Max:100]] ,\
#StartFadePoint: [ #default:100, #format:#integer, #comment:"Trigger Point", #range:[#min:0,#Max:500]],\
#EndFadePoint: [ #default:0, #format:#integer, #comment:"End Trigger Point", #range:[#min:0,#Max:50]] \
]
return p_list
end

on getBehaviorDescription
return "Creates sprites that fade in and out (using the sprite blend property) depending how far they are from the mouse. " &return&return&\
"Try different inks for your sprites – different images require different settings. Also, there appears to be a bug in Director 6 that prevents sprites with a blend of 0 from being totally hidden. "
end

property spriteNum, spriteRef, TicksForTransition, startTicks, endTicks, sBlend, eBlend, blendChange, holdForCompletion

on beginSprite me
spriteRef = sprite(me.spriteNum)
spriteRef.blend = sBlend
blendChange = eBlend – sBlend
startTicks = the ticks
endTicks = startTicks + TicksForTransition
end

on endSprite me
spriteRef.blend = eBlend
end

on exitframe me
myProgress = (float(the ticks – startTicks)/TicksForTransition)
if myProgress > .95 then myProgress = 1
myBlend = sBlend + integer( blendChange * myProgress )
spriteRef.blend = myBlend
if holdForCompletion and (myProgress 0 then defaultStartBlend = the blend of sprite(the currentSpriteNum)
else defaultStartBlend = 0
defaultEndBlend = 100 – defaultStartBlend
p_list = [:]
addProp p_list, #TicksForTransition, [ #comment: "Number of ticks for the transition:", #format: #integer, #default: 120, #range: [#min:1, #max:1200]]
addProp p_list, #sBlend, [ #comment: "Start blend:", #format: #integer, #default: defaultStartBlend, #range: [#min:0, #max:100]]
addProp p_list, #eBlend, [ #comment: "Ending blend:", #format: #integer, #default: defaultEndBlend, #range: [#min:0, #max:100]]
addProp p_List, #holdForCompletion, [ #comment: "Hold on frame until completion?:", #format: #boolean, #default: 0]
return p_list
end

on getBehaviorDescription
msg = “Fades the sprite in or out using blends over a specified time span. ” & return & return
put ” – Specify the timespan for the transition” & return after msg
put ” – Specify the starting and ending blend values” & return after msg
put ” – Specify whether to hold on the frame until the transition complete” after msg
return msg
end

– SimpleSpriteMover

– This simple behavior moves a sprite
– across the screen either
– left to right – or
– right to left – or
– top to bottom – or
– bottom to top,
– and after the sprite
– vanishes it reappears
– and goes across again;
– ie it “wraps”.

– It moves at
– any “speed” you wish,
– on each enterframe event.

– Attach this behavior to a sprite.

– Hacked by
– Loren Mork 1997
– Seattle, Washington
– LMork@aol.com
– LMork@accessone.com

– properties

property pi_theSprite — Contains the number of the sprite we are moving – integer
property pi_theLocH — Contains the LocH of the sprite we are moving – integer
property pi_theLocV — Contains the LocV of the sprite we are moving – integer
property pi_stageWidth — Contains the width of the stage we are on – integer
property pi_stageHeight — Contains the height of the stage we are on – integer
property pi_AmountToMove — Contains the amount to move each time – integer
property ps_Direction — Contains a string indicating the direction to move in – string

on beginsprite me
set pi_theSprite = the spritenum of me
set pi_theLocH = the loch of sprite the spritenum of me
set pi_theLocV = the locv of sprite the spritenum of me
set pi_stageWidth = the stageright – the stageleft
set pi_stageHeight = the stagebottom – the stagetop

if pi_AmountToMove pi_stageHeight then
set pi_theLocV = -1 * ( the height of sprite pi_theSprite / 2 )
set the locv of sprite pi_theSprite = pi_theLocV
end if
end if

if ps_Direction = “up” then
set pi_theLocV = pi_theLocV + pi_AmountToMove
set the locv of sprite pi_theSprite = pi_theLocV
if the bottom of sprite pi_theSprite pi_stageWidth then
set pi_theLocH = -1 * ( the width of sprite pi_theSprite / 2 )
set the loch of sprite pi_theSprite = pi_theLocH
end if
end if

if ps_Direction = “left” then

set pi_theLocH = pi_theLocH + pi_AmountToMove
set the loch of sprite pi_theSprite = pi_theLocH
if the right of sprite pi_theSprite < 0 then
set pi_theLocH = ( the width of sprite pi_theSprite / 2 ) + pi_stagewidth
set the loch of sprite pi_theSprite = pi_theLocH
end if
end if
end enterframe

on getPropertyDescriptionList me
set pl_proplist = [:]

addProp pl_proplist,#ps_Direction,[#default:"right", #format:#string,#range:["Left","Right", "Up","Down"] ,#comment:"Which direction should the sprite move?"]

addProp pl_proplist,#pi_AmountToMove,[#default:10,#format:#integer,#comment:"Amount of pixels to move each move?"&return&"Note :this should be a positive number "]

return pl_proplist

end getPropertyDescriptionList

on getBehaviorDescription me
set ps_string to "SimpleSpriteMover"&RETURN&"By Loren Mork, LMork@aol.com, LMork@accessone.com, Seattle/ Washington/ USA"&RETURN&"This behavior moves a sprite across the screen left to right – or – right to left – or – top to bottom – or – bottom to top – and after the sprite vanishes it reappears on the other side of the screen and goes across (or up/down ) again; ie it wraps."& RETURN &"It moves at any speed you wish, on each enterframe event." & RETURN &"Parameters are direction and amount to move (speed). Amount to move should be a positive number. A higher number will result in a faster speed"
return ps_string
end getBehaviorDescription

– SIMATRIX MENU Behavior
– the menu voices follow the double_click and slow down

– 01/07/2001
– simatrix@libero.it www.baboni.com
– example shocked movie at http://www.baboni.com/simatrixMenu/simatrixMenu.htm

– Instructions: drop the “Simatrix Menu behavior” to the Menu Label sprite.
– Put the other 3 voices in the right order in the channels below.
– If you want a rollover effect on the Menu Label:
– dispose a rollover member in the slot
– after the one that contains the Menu Label.
– If you do not want a rollover effect on the Menu Label:
– delete the lines of code in the mouseEnter and mouseLeave handler
– For the voices of the menu attach them the behaviors you want,
– such as “rollover member change” of the behavior library/animation/interactive
– and any other navigation behaviors.

property my, myMember, myMemberRollover
property ptempo
property Voice01, voice02, voice03
Property over

on beginSprite me
my = sprite(me.spriteNum)

voice01 = sprite(me.SpriteNum – 1)
voice02 = sprite(me.SpriteNum – 2)
voice03 = sprite(me.SpriteNum – 3)

pTempo = 10

— delete the next 2 line of code if you do not want a rollover effect
myMember = (sprite me.spriteNum).member

myMemberRollover = member(myMember.number + 1)

end

on mouseEnter me
— delete the next line of code if you do not want a rollover effect
(sprite my).member = myMemberRollover
end

on mouseLeave me
— delete the next line of code if you do not want a rollover effect
(sprite my).member = myMember
end

on mouseDOwn me
over = 1
end

on mouseUp me
over = 2
end
on mouseUpOutside me
over = 2
end

on exitFrame me
if the doubleClick then
over = 3
else
my.loc = my.loc

end if
case over of

1: menuDown
2: menuUp
3: start
end case

end

on start

—- The Menu Label goes to the double-click point —-

CurrentLoc = my.loc

speed = ( the clickLoc – currentLoc)/ptempo/0.5

my.loc = my.loc + speed

—- First Voice follows the Menu Label —-

voice01Loc = voice01.loc

speed01 = (the clickLoc – voice01loc)/ptempo*0.6

voice01.loc = voice01.loc + speed01

—- Second Voice follows the first one —-

pLag = (random(2) + 1) * .1

voice02loc = voice02.loc

diff02 = (voice01loc – voice02loc)

voice02.loc = voice02loc + diff02 *pLag

—- Third Voice follows the second one —-

voice03loc = voice03.loc

diff03 = (voice02loc – voice03loc)

voice03.loc = voice03loc + diff03 *pLag

end

on menuDown

— vertical distance between the voices
distance = 22 — change this value if needed

—————- voice 01 goes down ———

if voice01.locV < my.locV + distance then
voice01.locV = voice01.locV + pTempo*0.5
end if

if voice02.locV < voice01.locV + distance then
voice02.locV = voice02.locV + pTempo*0.4
end if
if voice03.locV my.locH then
voice01.locH = voice01.locH – pTempo*0.4
end if

if voice01.locH my.locV then
voice01.locV = voice01.locV – pTempo*0.5
end if

if voice01.locV my.locH then
voice02.locH = voice02.locH – pTempo*0.4
end if

if voice02.locH my.locV then
voice02.locV = voice02.locV – pTempo*0.4
end if

if voice02.locV my.locH then
voice03.locH = voice03.locH – pTempo*0.4
end if

if voice03.locH my.locV then
voice03.locV = voice03.locV – pTempo*0.3
end if

if voice03.locV < my.locV then
voice03.locV = voice03.locV + pTempo*0.3
end if

end

– Page Turn Behaviour (using sprite quad property)

– Julian de Saxe
– catchTheBaddies@mothcity.com
– Sorry the documentation is so sparse.

– Planned for next time I visit this script:
– Add function to turn the page back again.

– Add functionality to animate on mouseUp;
– (detecting which corner of the sprite was closest to the mouse event and
– calculating the lead-in distance based on the distance from the vertical centre of the sprite)
– ie. The closer to the middle of the page the less the lead-in.

– Add isOkToAttach handler.

– This behaviour doesn’t work on Flash sprites.
– But wouldn’t it be so cool to do this with an animated flash movie.
– Dream up a whole children’s story book with every page a lushman’s Flash movie
– sitting in a .dxr on a web page with narration and a soundtrack. Click on the corner to turn the page.
– Write to Macromedia and beg them to support the quad property of a Flash sprite in their next version of Director!

—————————————————————————————————-
on getBehaviorTooltip
return “This behavior makes a sprite animate” & RETURN & ¬
“in a simulated page turn (left or right).”
end getBehaviorTooltip

—————————————————————————————————-
on getBehaviorDescription
vDesc = “PAGE TURN”&RETURN&RETURN
vDesc = vDesc &”A bitmap sprite with this behavior attached will”
vDesc = vDesc &RETURN& “be animated to simulate a page turning.”
vDesc = vDesc &RETURN& “Drop it on a sprite and indicate the direction”
vDesc = vDesc &RETURN& “you wish the page to turn (left to right OR”
vDesc = vDesc &RETURN& “right to left).”
vDesc = vDesc &RETURN& “Then choose the corner that should begin turning first (TOP or BOTTOM).”
vDesc = vDesc &RETURN& “This gives the animation the appearance of being turned from”
vDesc = vDesc &RETURN& “one of the corners.”
vDesc = vDesc &RETURN& “Select the distance that this corner will travel before the other”
vDesc = vDesc &RETURN& “corner begins to turn.”
vDesc = vDesc &RETURN& “This is expressed as a percentage of the total width of”
vDesc = vDesc &RETURN& “the sprite.”
vDesc = vDesc &RETURN& “Choose the amplitude of the arc of the curve for the top and bottom”
vDesc = vDesc &RETURN& “of the page.”
vDesc = vDesc &RETURN& “ie. how high or low the locus of the corner rises or falls below the top or bottom.”
vDesc = vDesc &RETURN& “of the page.”
vDesc = vDesc &RETURN& “The higher the value the further the page appears to rise out of the stage (towards your nose).”
vDesc = vDesc &RETURN& “Select the speed of the animation.”
vDesc = vDesc &RETURN& “This will vary according to whether you choose to play the animation in a frame”
vDesc = vDesc &RETURN& “based animation or a repeat loop.”
vDesc = vDesc &RETURN& “If you wish to change castmembers half way through the animation”
vDesc = vDesc &RETURN& “check the box and select a bitmap castmember from the pop-up menu.”
vDesc = vDesc &RETURN& “NB. This is useful to have the page look as though the other side of the page”
vDesc = vDesc &RETURN& “is authentic. However, the image of the castmember needs to be reversed in the vertical axis”
vDesc = vDesc &RETURN& “because the quad property of the sprite at this stage in the animation will reverse the image.”
vDesc = vDesc &RETURN& “back to it’s proper appearance.”
vDesc = vDesc &RETURN& “Choose whether you want the animation to be frame based or occur in a repeat loop.”
vDesc = vDesc &RETURN& “Choosing repeat loop makes the animation much faster and smoother and is more consistent”
vDesc = vDesc &RETURN& “over a range of machines.”
vDesc = vDesc &RETURN& “ps. This behaviour contains no error checking.”
return vDesc
end getBehaviorDescription

—————————————————————————————————-
property pSprite — sprite object reference
property pSpriteRect — original rect of sprite

property pCurrentQuad — quad point reference
property pOrigQuad — original sprite quad values

property pSwitch — initially FALSE. Set to TRUE to begin animation
property pFrameOrRpt — allows designer to decide to execute animation in repeat loop or frame based
property pMyAnimFactor — factor of pi to calculate quad points

property pTurnPage — left to right or right to left?
property pLeadCorner — leading corner is th corner that starts turning first (top or bottom?)
property pTurnDirection

property pTotalX

property pLeadInTime — distance that the first corner travels before the second corner begins to animate.

property pSpeed — number of steps
property pTotalDistance — the counter ( = 2 * sprite.width)
property pDistance

property pTopAmplitude — height (amplitude) of curve (top of page)
property pBottomAmplitude — height (amplitude) of curve (bottom of page)

property pOtherPage
property pChangeMember
property pAdvanceWhenFinished

—————————————————————————————————-
on getPropertyDescriptionList me

if the currentSpriteNum = 0 then exit
theMember = sprite(the currentSpriteNum).member
theMemberNumber = theMember.number

vPDList = [:]
setaProp vPDList, #pTurnDirection, [#comment: "direction of page turn : ", #format: #string, #range:["LeftToRight","RightToLeft"], #default: “LeftToRight”]
addProp vPDList, #pLeadCorner, [#comment: "leading corner : ", #format: #string, #range:["Top","Bottom"], #default: “top”]
addProp vPDList, #pLeadInTime, [#comment: "lead in time : ", #format: #float, #range:[#min:0,#max:1], #default: 0.25]
addProp vPDList, #pTopAmplitude, [#comment: "amplitude of top curve : ", #format: #float, #range:[#min:0.0000,#max:1.000], #default: 0.07]
addProp vPDList, #pBottomAmplitude, [#comment: "amplitude of bottom curve : ", #format: #float, #range:[#min:0,#max:1], #default: 0.22]
addProp vPDList, #pSpeed, [#comment: "speed of animation : ", #format: #integer, #range:[#min:1,#max:150], #default: 1]
addProp vPDList, #pChangeMember, [#comment: "change member half way ? ", #format: #boolean, #default: 0]
addProp vPDList, #pOtherPage, [#comment: "other side of page (image) : ", #format: #graphic, #default: theMemberNumber+1]
addProp vPDList, #pFrameOrRpt, [#comment: "how do you want to execute the animation : ", #format: #string, #range:["frame based", "repeat loop"], #default: “frame based”]
addProp vPDList, #pAdvanceWhenFinished, [#comment: "advance to the next frame when finished : ", #format: #boolean, #default: TRUE]
return vPDList
end getPropertyDescriptionList

—————————————————————————————————-
on beginSprite me

mInitialise(me)
end

———————————————-
on enterFrame me

if pSwitch then

if pDistance = pTotalDistance then
set pDistance = pTotalDistance
do pTurnPage
pSprite.quad = pCurrentQuad — draw sprite
updateStage
if pAdvanceWhenFinished then
go to the frame + 1
end if
pSwitch = FALSE
end if

if pChangeMember then
if pDistance > pTotalDistance/2 then
pSprite.member = pOtherPage
pChangeMember = FALSE
end if
end if
end if
end enterFrame

———————————————-
on endSprite me

puppetSprite pSprite.spriteNum, FALSE
updateStage
end

———————————————-
on mLeftToRightBottom me

vTopPoint = pOrigQuad[1]
vBottomPoint = pOrigQuad[4]
— move bottom point
if pDistance pTotalX then
vXb = pTotalX
vYb = pBottomAmplitude*sin((vXb-pTotalX)*pMyAnimFactor)
vBottomPoint.locH = pSpriteRect.left + abs(vXb)
vBottomPoint.locV = pSpriteRect.bottom + vYb — change operator to alter view.
end if

— move top point
if pDistance >= pLeadInTime AND pDistance <= pTotalDistance then
set vXt = pDistance – pLeadInTime
vYt = pTopAmplitude*sin((vXt-pTotalX)*pMyAnimFactor)
vTopPoint.locH = pSpriteRect.left + abs(vXt)
vTopPoint.locV = pSpriteRect.top + vYt — change operator to alter view.
end if

pCurrentQuad[1] = vTopPoint
pCurrentQuad[4] = vBottomPoint

end

———————————————-
on mLeftToRightTop me

vTopPoint = pOrigQuad[1]
vBottomPoint = pOrigQuad[4]
— move top point
if pDistance pTotalX then
vXt = pTotalX
vYt = pTopAmplitude*sin((vXt-pTotalX)*pMyAnimFactor)
vTopPoint.locH = pSpriteRect.left + abs(vXt)
vTopPoint.locV = pSpriteRect.top + vYt — change operator to alter view.
end if

— move bottom point
if pDistance >= pLeadInTime AND pDistance <= pTotalDistance then
vXb = pDistance – pLeadInTime
vYb = pBottomAmplitude*sin((vXb-pTotalX)*pMyAnimFactor)
vBottomPoint.locH = pSpriteRect.left + abs(vXb)
vBottomPoint.locV = pSpriteRect.bottom + vYb — change operator to alter view.
end if

pCurrentQuad[1] = vTopPoint
pCurrentQuad[4] = vBottomPoint

end

———————————————-
on mRightToLeftTop me

vTopPoint = pOrigQuad[2]
vBottomPoint = pOrigQuad[3]
— move top point
if pDistance pTotalX then
vXt = pTotalX
vYt = pTopAmplitude*sin(pMyAnimFactor*(vXt-pTotalX))
vTopPoint.locH = pSpriteRect.right – abs(vXt)
vTopPoint.locV = pSpriteRect.top + vYt — change operator to alter view.
end if

— move bottom point
if pDistance >= pLeadInTime AND pDistance <= pTotalDistance then
vXb = pDistance – pLeadInTime
vYb = pBottomAmplitude*sin(pMyAnimFactor*(vXb-pTotalX))
vBottomPoint.locH = pSpriteRect.right – abs(vXb)
vBottomPoint.locV = pSpriteRect.bottom + vYb — change operator to alter view.
end if

pCurrentQuad[2] = vTopPoint
pCurrentQuad[3] = vBottomPoint

end

———————————————-
on mRightToLeftBottom me

vTopPoint = pOrigQuad[2]
vBottomPoint = pOrigQuad[3]
— move bottom point
if pDistance pTotalX then
vXb = pTotalX
vYb = pBottomAmplitude*sin((vXb-pTotalX)*pMyAnimFactor)
vBottomPoint.locH = pSpriteRect.right – abs(vXb)
vBottomPoint.locV = pSpriteRect.bottom + vYb — change operator to alter view.
end if

— move top point
if pDistance >= pLeadInTime AND pDistance <= pTotalDistance then
vXt = pDistance – pLeadInTime
vYt = pTopAmplitude*sin((vXt-pTotalX)*pMyAnimFactor)
vTopPoint.locH = pSpriteRect.right – abs(vXt)
vTopPoint.locV = pSpriteRect.top + vYt — change operator to alter view.
— test else
else if pDistance = pTotalDistance then
vXt = pTotalDistance
vYt = pTopAmplitude*sin((vXt-pTotalX)*pMyAnimFactor)
vTopPoint.locH = pSpriteRect.right – abs(vXt)
vTopPoint.locV = pSpriteRect.top + vYt — change operator to alter view.
end if

pCurrentQuad[2] = vTopPoint
pCurrentQuad[3] = vBottomPoint

end

———————————————-
on mInitialise me

pSprite = sprite (me.spriteNum)
pSpriteRect = pSprite.rect

pOrigQuad = duplicate(pSprite.quad)
pCurrentQuad = duplicate(pOrigQuad)

pTotalX = (pSprite.right – pSprite.left)*2 — twice the width of the sprite (ie total distance travelled in x)

pLeadInTime = integer(pLeadInTime * pSprite.width) — the 'lead-in' is expressed as a percentage of sprite.width

pTotalDistance = pTotalX + pLeadInTime — total number of pixels in x (top and bottom)
pDistance = 0
pMyAnimFactor = pi/(pTotalX)

pTopAmplitude = integer(pSprite.height * pTopAmplitude) — amplitude of top corner arc
pBottomAmplitude = integer(pSprite.height * pBottomAmplitude) — amplitude of bottom corner arc

pTurnPage = "m"&pTurnDirection&pLeadCorner&&"me" — handler defined by author parameters
pSwitch = FALSE
end

———————————————-
on animate me

if pSwitch then
repeat while pDistance pTotalDistance/2 then
pSprite.member = pOtherPage
updateStage
pChangeMember = FALSE
end if
end if
end repeat

repeat while pDistance >= pTotalDistance
set pDistance = pTotalDistance
do pTurnPage
pSprite.quad = pCurrentQuad — draw sprite
updateStage
if pAdvanceWhenFinished then
go to the frame + 1
end if
pSwitch = FALSE
exit repeat
end repeat
end if
return
end

on turnPage me

case pFrameOrRpt of
“frame based”:
pSwitch = TRUE
“repeat loop”:
pSwitch = TRUE
animate me
end case
end turnPage

property pMarkerBoolean, pMarker, pCursorBoolean, pCursorSprite, pNormalCursor
property pHideSpriteBoolean, pHideSprite, pShowSpriteBoolean, pShowSpriteLocBoolean
property pShowSprite, pShowSpriteX, pShowSpriteY, pHideSpriteLoc, pAlreadyDown, pMouseDownCursor
—————————————————
on getPropertyDescriptionList

set pdlist = [:]

addprop pdlist, #pMarkerBoolean, [#comment: "Go to a marker on mouseDown", #format: #boolean, #default: FALSE]
addprop pdlist, #pMarker, [#comment: "Marker to go to:", #format: #marker, #default: 1]
addprop pdlist, #pCursorSprite, [#comment: "Custom cursor sprite (0 = none):", #format: #integer, #range: [#min:0, #max:120], #default: 0]
addprop pdlist, #pNormalCursor, [#comment: "Normal cursor for roll-OFF:", #format: #cursor, #default: 0]
addprop pdlist, #pMouseDownCursor, [#comment: "Cursor for after mouseDown:", #format: #cursor, #default: 200]
addprop pdlist, #pHideSprite, [#comment: "Hide sprite on rollover (0 = none):", #format: #integer, #range: [#min:0, #max:120], #default: 0]
addprop pdlist, #pShowSprite, [#comment: "Show sprite on rollover (0 = none):", #format: #integer, #range: [#min:0, #max:120], #default: 0]
addprop pdlist, #pShowSpriteLocBoolean, [#comment: "Show sprite in same location as hide sprite", #format: #boolean, #default: FALSE]
addprop pdlist, #pShowSpriteX, [#comment: "Show sprite X location:", #format: #integer, default: 416]
addprop pdlist, #pShowSpriteY, [#comment: "Show sprite Y location:", #format: #integer, default: 312]

return pdlist

end getPropertyDescriptionList
—————————————————
on beginSprite me
— check to see if the user has kept holding the mouse button down from a previous screen:
if the mouseDown then
startTimer — we’ll fix the user in the mouseDown handler. Just you wait…
end if
–make sure the show sprite is visible if the mouse is already over this sprite
if (rollover(the currentSpriteNum)) then
— Show the Show Sprite
if (pShowSprite > 0) then
puppetSprite pShowSprite, TRUE
— Either in same location as Hide Sprite:
if pShowSpriteLocBoolean then
set the loc of sprite pShowSprite = pHideSpriteLoc
updateStage
— or in custom location:
else
set the loc of sprite pShowSprite = point( pShowSpriteX, pShowSpriteY)
updateStage
end if
end if
end if –end of making sure the show sprite is visible if the mouse is already over this sprite
end beginSprite
—————————————————
on mouseEnter me
— Show the Custom Cursor:
if (pCursorSprite > 0) then
cursor 200
puppetSprite pCursorSprite, TRUE
set the loc of sprite pCursorSprite to point( the mouseH, the mouseV )
end if
— Prevent user from hiding the main sprite itself, to avoid blinking.
if (pHideSprite = (the currentSpriteNum)) then
alert “You cannot hide the sprite that contains the ‘newRollOverJB’ behavior! Please select a different sprite to hide, or apply this behavior to an invisible shape instead.”
exit
end if
— Hide the Hide Sprite by pushing it off the stage:
if (pHideSprite > 0) then
puppetSprite pHideSprite, TRUE
set pHideSpriteLoc = the loc of sprite pHideSprite
set the loc of sprite pHideSprite to point( 2222, 2222 )
end if
— Show the Show Sprite
if (pShowSprite > 0) then
puppetSprite pShowSprite, TRUE
— Either in same location as Hide Sprite:
if pShowSpriteLocBoolean then
set the loc of sprite pShowSprite = pHideSpriteLoc
— or in custom location:
else
set the loc of sprite pShowSprite = point( pShowSpriteX, pShowSpriteY)
end if
end if
updateStage — make it so
end mouseEnter
————————————————
on mouseWithin me
— Keep showing the Custom Cursor:
if (pCursorSprite > 0) then
cursor 200
puppetSprite pCursorSprite, true
set the loc of sprite pCursorSprite to point( the mouseH, the mouseV )
end if
— Hide the Hide Sprite by pushing it off the stage:
if (pHideSprite > 0) AND (the loc of sprite pHideSprite point(2222, 2222)) then
puppetSprite pHideSprite, TRUE
set pHideSpriteLoc = the loc of sprite pHideSprite
set the loc of sprite pHideSprite to point( 2222, 2222 )
end if
— Show the Show Sprite
if (pShowSprite > 0) then
puppetSprite pShowSprite, TRUE
— Either in same location as Hide Sprite:
if pShowSpriteLocBoolean then
set the loc of sprite pShowSprite = pHideSpriteLoc
— or in custom location:
else
set the loc of sprite pShowSprite = point( pShowSpriteX, pShowSpriteY)
end if
end if
updateStage — make it so
end mouseWithin
—————————————————
on mouseLeave me
— Turn off the Custom Cursor:
if (pCursorSprite > 0) then
cursor pNormalCursor
puppetSprite pCursorSprite, true
set the loc of sprite pCursorSprite to point( 2222, 2222 )
puppetSprite pCursorSprite, FALSE
end if
— Show the Hide Sprite by returning it to the stage:
if (pHideSprite > 0) then
puppetSprite pHideSprite, TRUE
set the loc of sprite pHideSprite = pHideSpriteLoc
puppetSprite pHideSprite, FALSE
end if
— Hide the Show Sprite
if (pShowSprite > 0) then
puppetSprite pShowSprite, TRUE
set the loc of sprite pShowSprite = point( 2222, 2222 )
puppetSprite pShowSprite, FALSE
end if
updateStage — make it so
end mouseLeave
—————————————————
on mouseDown me
— if the mouse is already down from another screen, then get the hell out of this handler!!!
if the timer 0) then
puppetSprite pCursorSprite, TRUE
set the loc of sprite pCursorSprite to point( 2222, 2222 )
cursor pMouseDownCursor
puppetSprite pCursorSprite, FALSE
updateStage
end if
— Show the Hide Sprite by returning it to the stage:
if (pHideSprite > 0) then
— puppetSprite pHideSprite, TRUE
— set the loc of sprite pHideSprite = pHideSpriteLoc
puppetSprite pHideSprite, FALSE
end if
— Hide the Show Sprite
if (pShowSprite > 0) then
puppetSprite pShowSprite, TRUE
set the loc of sprite pShowSprite = point( 2222, 2222 )
puppetSprite pShowSprite, FALSE
end if
go to pMarker
updatestage — make it so
end if

end mouseDown
————————————-

on getBehaviorDescription
return “This button behavior can do 4 different things, all optional:” & RETURN & “1) Go to a marker on mouse click. 2) Show a custom cursor while rolling over the sprite that contains this behavior. 3) Hide a second sprite 4) Show a third sprite.” & RETURN & “Make sure you put the custom cursor image (and/or the third sprite to be shown) OFF the stage somewhere. You can choose the cursor to replace the custom cursor when the user rolls OFF the sprite. If you have not selected a custom cursor sprite, you do not need to set the normal cursor. You can also choose the cursor for after the user has clicked the mouse to go to another marker. This would usually be set to a BLANK cursor if there is another button in the same position on the next screen. Make sure that the screen to which to are going has a ‘cursorWithinJB’ behavior on an invisible sprite on every empty area of the screen, otherwise the cursor may disappear!” & RETURN & RETURN & “Joseph Brabet, 22/5/99.” & RETURN & “joseph@zkm.de” & RETURN & “josephbrabet@hotmail.com”
end getBehaviorDescription