Hi,
I've created simple behavior (below) to controll video sprite. I put
members for buttons in external cast. In the same cast I put this
behavior. Over and Down button state I create by:
on beginSprite me
pNormalState = sprite(me.SpriteNum).member
pOverState = sprite(pNormalState.number + 1)
pDownState = sprite(pNormalState.number + 2)
end
Unfortunatelly for Over and Down state Director uses members from
Internal cast not from External. The number of member is ok but cast is
different. Somebody know why?
Dir 8.0, win 98
thanks
Kamil
property pNormalState
property pOverState
property pDownState
property pAction
property pStop
on getPropertyDescriptionList me
list = [:]
addProp list, #pAction, [#comment: "Action", #format: #integer,
#default: 0, #range: [#min: -3, #max: 3]]
addProp list, #pStop, [#comment: "Stop?", #format: #boolean, #default:
false]
return list
end
on beginSprite me
pNormalState = sprite(me.SpriteNum).member
pOverState = sprite(pNormalState.number + 1)
pDownState = sprite(pNormalState.number + 2)
end
on GetMovieRate me, pMovieRate, pAction, pMovieTime
if pAction then
if pMovieRate = pAction then
sprite(me.SpriteNum).member = pDownState
else if rollOver(me.spriteNum) then
sprite(me.spriteNum).member = pOverState
else
sprite(me.SpriteNum).member = pNormalState
end if
end if
if pAction = 0 and pStop = false then
if pMovieRate = 0 then
sprite(me.SpriteNum).member = pDownState
else if rollOver(me.spriteNum) then
sprite(me.spriteNum).member = pOverState
else
sprite(me.SpriteNum).member = pNormalState
end if
end if
end
on MouseDown me
if pStop then
sprite(1).movietime = 0
sprite(1).movierate = pAction
else
sprite(1).movierate = pAction
end if
end
--
Kamil Dabkowski
Geometrek
http://stop.at/kamil
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
