home *** CD-ROM | disk | FTP | other *** search
/ PC Creation 3 / PCCREATION3.iso / Pc_creation / somm.dxr / 00016.ls < prev    next >
Encoding:
Text File  |  2001-12-13  |  3.4 KB  |  104 lines
  1. global line_select, line_select2, passe, forcolor, forroll, forselect, theme, soustheme1, soustheme2, forchoix, rollchoix, selectchoix, forchoix2, rollchoix2, selectchoix2, dossier, Nivel_dos
  2.  
  3. on mouseEnter
  4.   if passe <> the currentSpriteNum then
  5.     if member(the memberNum of sprite the currentSpriteNum).type = #text then
  6.       member(the memberNum of sprite the currentSpriteNum).foreColor = forroll
  7.     end if
  8.     cursor(280)
  9.   else
  10.     cursor(-1)
  11.   end if
  12. end
  13.  
  14. on mouseLeave
  15.   cursor(-1)
  16.   if the currentSpriteNum <> passe then
  17.     if member(the memberNum of sprite the currentSpriteNum).type = #text then
  18.       member(the memberNum of sprite the currentSpriteNum).foreColor = forcolor
  19.     end if
  20.   end if
  21. end
  22.  
  23. on mouseUp
  24.   line_select = VOID
  25.   line_select2 = VOID
  26.   cursor(-1)
  27.   if the currentSpriteNum <> passe then
  28.     if passe <> 0 then
  29.       if member(the memberNum of sprite passe).type = #text then
  30.         member(the memberNum of sprite passe).foreColor = forcolor
  31.       end if
  32.     end if
  33.     passe = the currentSpriteNum
  34.     if member(the memberNum of sprite the currentSpriteNum).type = #text then
  35.       member(the memberNum of sprite the currentSpriteNum).foreColor = forselect
  36.     end if
  37.     theme = EMPTY & member(dossier, "utile").line[the currentSpriteNum - 9]
  38.     choixTeme = dossier & " " & member(dossier, "utile").line[the currentSpriteNum - 9]
  39.     soustheme1 = EMPTY
  40.     soustheme2 = EMPTY
  41.     set the text of field "total" to EMPTY
  42.     Nivel_dos = member(dossier & "_NbNivo", "utile").line[the currentSpriteNum - 9]
  43.     sprite(43).visible = 0
  44.     repeat with i = 44 to 48
  45.       sprite(i).visible = 0
  46.     end repeat
  47.     j = the currentSpriteNum + 34
  48.     sprite(j).visible = 1
  49.     case Nivel_dos of
  50.       "0":
  51.         repeat with i = 21 to 23
  52.           sprite(i).visible = 0
  53.         end repeat
  54.         case testMedia(dossier & " " & theme) of
  55.           "logiciel":
  56.             capture = theme
  57.             member("install").text = "Installer"
  58.             Un_champs(choixTeme & "_NOSCN")
  59.           "Image":
  60.             sprite(22).visible = 0
  61.             member("install").text = "Copier l'image"
  62.             go("images")
  63.           "Gif":
  64.             sprite(22).visible = 0
  65.             member("install").text = "Copier l'image"
  66.             go("gif")
  67.           "Video":
  68.             member("install").text = "Copier la vid├⌐o"
  69.             capture = theme
  70.             Nbre_video = cherche_video(dossier, theme, 1)
  71.             if Nbre_video <> "plusieurs_Film" then
  72.               go("video")
  73.             else
  74.               Un_champs(choixTeme & "_NOSCN")
  75.             end if
  76.           "Quicktime":
  77.             member("install").text = "Copier la vid├⌐o"
  78.             capture = theme
  79.             Nbre_video = cherche_video(dossier, theme, 1)
  80.             if theme = "Bandes-Annonces" then
  81.               sprite(43).visible = 1
  82.             end if
  83.             if Nbre_video <> "plusieurs_Film" then
  84.               go("mov")
  85.             else
  86.               Un_champs(choixTeme & "_NOSCN")
  87.             end if
  88.           "son":
  89.             member("install").text = "Copier le son"
  90.             capture = theme
  91.             Un_champs(choixTeme & "_NOSCN")
  92.           "police":
  93.             capture = theme
  94.             member("install").text = "Copier sur le disque"
  95.             Un_champs(choixTeme & "_NOSCN")
  96.         end case
  97.       "1":
  98.         Un_champs(choixTeme & "_SCN")
  99.       otherwise:
  100.         Deux_champs(choixTeme & "_SCN")
  101.     end case
  102.   end if
  103. end
  104.