Mobiclic 46/Mobiclic46.iso/pc/DATA/SHARED/COMMUNS.CST/00201_Script_201

Text File | 2002-07-12 | 730b | 39 lines

--bouton precedent

property pMySprite
global ValidNav

on beginSprite me
  pMySprite = me.spriteNum
end

on mouseUp
  if ValidNav[1] = 1 then
    precedent
    cursor -1
    sprite(pMySprite).member = member("precedent")
  end if
end

on mouseEnter
  if ValidNav[1] = 1 then
    cursor 280
    sprite(pMySprite).member = member("precedent roll")
  end if
end

on mouseLeave
  if ValidNav[1] = 1 then
    cursor -1
    sprite(pMySprite).member = member("precedent")
  end if
end

on mouseWithin
  if ValidNav[1] = 1 then
    if sprite(pMySprite).member <> member("precedent roll") then
      cursor 280
      sprite(pMySprite).member = member("precedent roll")
    end if
  end if
end