home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 41 / MOBICLIC41.ISO / pc / Data / Sommaire.dir / 00013_Script_13 < prev    next >
Text File  |  2002-02-07  |  2KB  |  59 lines
  1. -- Bouton textes
  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.     -- copie des textes sur le disque dur
  11.     -- repΘrage du chemin d'accΦs au bureau (nΘcessite buddy API)
  12.     disque=baSysFolder("desktop")
  13.     -- crΘation d'un dossier sur le bureau (nΘcessite filextra)
  14.     if the machineType<>256 then
  15.       -- sur Mac
  16.       nom = disque & "textesMobiclic:"
  17.       createdirectory nom
  18.     else
  19.       if the platform="Windows,32" then
  20.         -- sous Windows 95 et 98
  21.         nom = disque & "textesMobiclic\"
  22.         createdirectory nom
  23.       end if
  24.     end if
  25.     -- copie des textes sur le disque dur
  26.     XcopyDirectory cheminTextes, nom
  27.     -- affichage des boucles attente Rato et Rati
  28.     afficherPistes 39,40
  29.     masquerPistes 41,42
  30.     go to "CopTextes"
  31.   end if
  32. end
  33.  
  34. on mouseEnter me
  35.   if the frameLabel = "B" then
  36.     s = the currentSpriteNum
  37.     -- gestion du commentaire associΘ
  38.     son = field("sonsAssocies").Line[s-23].word[2]
  39.     acteur = field("sonsAssocies").Line[s-23].word[1]
  40.     joueson son
  41.     -- affichage de la boucle parole associΘe
  42.     case acteur of
  43.       "Ratonic" : -- boucle Ratonic
  44.         masquerPistes 39,42
  45.         afficherPistes 40,41
  46.       "Ratibelle" : -- boucle Ratibelle
  47.         masquerPistes 40,41
  48.         afficherPistes 39,42
  49.     end case
  50.   end if
  51. end
  52.  
  53. on mouseLeave me
  54.   if the frameLabel = "B" then
  55.     coupeSon 3
  56.     masquerPistes 41,42
  57.     afficherPistes 39,40
  58.   end if
  59. end