Mobiclic 51/Mobiclic51.iso/mac/DATA/COMMUNS/MOBICLIC_MENUS.CST/00042_Script_INITIALISATION_PISTE_AIDE

Text File | 2003-01-30 | 399b | 29 lines

-- initialisation piste aide

global pisteAideRub, aideRub

on beginSprite
  set s = the currentSpriteNum
  masquerPistes s,s+1
  set pisteAideRub = s
  set aideRub=0
end

on mouseUp
  if aideRub=1 then
    do "aideRub"
    cursor -1
  end if
end

on mouseEnter
  if aideRub=1 then
    cursor 280
  end if
end

on mouseLeave
  if aideRub=1 then
    cursor -1
  end if
end