home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 46 / Mobiclic46.iso / pc / DATA / somR.cst / 00013_Script_BOUTON_TEXTES_COPIES < prev    next >
Text File  |  2002-08-21  |  1KB  |  53 lines
  1. -- Bouton Cyberbib
  2. property pisteUtil, acteur
  3. global choix,chemin, cheminTextes
  4.  
  5. on mouseUp me
  6.  if the frameLabel = "B" then
  7.     cursor -1
  8.     coupeSon 3
  9.     s = the currentSpriteNum
  10.     choix = field("sonsAssocies").Line[6].word[3]
  11.     put choix
  12.     go to "clicRubrique"
  13.     -- affichage de l'animation saut associΘe
  14.     case acteur of
  15.       "Ratonic" : -- saut Ratonic
  16.         masquerPistes 39,42,43
  17.         afficherPistes 40,41
  18.       "Ratibelle" : -- saut Ratibelle
  19.         masquerPistes 40,41
  20.         afficherPistes 39,42
  21.     end case
  22.   end if
  23. end
  24.  
  25. on mouseEnter me
  26.   if the frameLabel = "B" then
  27.     cursor 280
  28.     s = the currentSpriteNum
  29.     -- gestion du commentaire associΘ
  30.     son = field("sonsAssocies").Line[s-23].word[2]
  31.     acteur = field("sonsAssocies").Line[s-23].word[1]
  32.     joueson son
  33.     -- affichage de la boucle parole associΘe
  34.     case acteur of
  35.       "Ratonic" : -- boucle Ratonic
  36.         masquerPistes 39,42
  37.         afficherPistes 40,41
  38.       "Ratibelle" : -- boucle Ratibelle
  39.         masquerPistes 40,41
  40.         afficherPistes 39,42
  41.     end case
  42.   end if
  43. end
  44. --------------
  45.  
  46. on mouseLeave me
  47.   cursor -1
  48.   if the frameLabel = "B" then
  49.     coupeSon 3
  50.     masquerPistes 41,42
  51.     afficherPistes 39,40
  52.   end if
  53. end