home *** CD-ROM | disk | FTP | other *** search
/ Samuko Hentai / samuko.iso / pc / SAMUKO / SOMM.DXR / 00016.ls < prev    next >
Encoding:
Text File  |  2002-08-06  |  3.9 KB  |  123 lines
  1. global line_select, line_select2, passe, forcolor, forroll, forselect, theme, soustheme1, soustheme2, forchoix, rollchoix, selectchoix, forchoix2, rollchoix2, selectchoix2, dossier, Nivel_dos, Le_media, capture
  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.     else
  8.       sprite(41).visible = 1
  9.     end if
  10.     cursor(280)
  11.   else
  12.     cursor(-1)
  13.   end if
  14. end
  15.  
  16. on mouseLeave
  17.   cursor(-1)
  18.   if the currentSpriteNum <> passe then
  19.     if member(the memberNum of sprite the currentSpriteNum).type = #text then
  20.       member(the memberNum of sprite the currentSpriteNum).foreColor = forcolor
  21.     else
  22.       sprite(41).visible = 0
  23.     end if
  24.   end if
  25. end
  26.  
  27. on mouseUp
  28.   line_select = VOID
  29.   line_select2 = VOID
  30.   cursor(-1)
  31.   if soundBusy(3) then
  32.     sound(3).stop()
  33.   end if
  34.   if the currentSpriteNum <> passe then
  35.     if passe <> 0 then
  36.       if member(the memberNum of sprite passe).type = #text then
  37.         member(the memberNum of sprite passe).foreColor = forcolor
  38.       else
  39.         sprite(41).visible = 0
  40.       end if
  41.     end if
  42.     passe = the currentSpriteNum
  43.     if member(the memberNum of sprite the currentSpriteNum).type = #text then
  44.       member(the memberNum of sprite the currentSpriteNum).foreColor = forselect
  45.     end if
  46.     theme = EMPTY & member(dossier, "utile").line[the currentSpriteNum - 9]
  47.     choixTeme = dossier & " " & member(dossier, "utile").line[the currentSpriteNum - 9]
  48.     soustheme1 = EMPTY
  49.     soustheme2 = EMPTY
  50.     set the text of field "total" to EMPTY
  51.     Nivel_dos = member(dossier & "_NbNivo", "utile").line[the currentSpriteNum - 9]
  52.     sprite(43).visible = 0
  53.     case Nivel_dos of
  54.       "0":
  55.         repeat with i = 21 to 23
  56.           sprite(i).visible = 0
  57.         end repeat
  58.         Le_media = testMedia(dossier & " " & theme)
  59.         case Le_media of
  60.           "logiciel":
  61.             capture = theme
  62.             member("install").text = "Installa"
  63.             Un_champs(choixTeme & "_NOSCN")
  64.           "Image":
  65.             sprite(22).visible = 0
  66.             member("install").text = "Copia..."
  67.             go("images")
  68.           "Gif":
  69.             sprite(22).visible = 0
  70.             member("install").text = "Copia"
  71.             go("gif")
  72.           "Video":
  73.             member("install").text = EMPTY
  74.             capture = theme
  75.             extension = list(".mpg", ".mpeg", ".avi")
  76.             Nbre_video = cherche_media(dossier, theme, 1, extension)
  77.             if Nbre_video <> "plusieurs_ﾃｩlﾃｩmts" then
  78.               capture = Nbre_video
  79.               go("video")
  80.             else
  81.               Un_champs(choixTeme & "_NOSCN")
  82.             end if
  83.           "Quicktime":
  84.             member("install").text = EMPTY
  85.             capture = theme
  86.             extension = list(".mov", ".qt")
  87.             Nbre_video = cherche_media(dossier, theme, 1, extension)
  88.             if theme = "Bandes-Annonces" then
  89.               sprite(43).visible = 1
  90.             end if
  91.             if Nbre_video <> "plusieurs_ﾃｩlﾃｩmts" then
  92.               capture = Nbre_video
  93.               go("mov")
  94.             else
  95.               Un_champs(choixTeme & "_NOSCN")
  96.             end if
  97.           "son":
  98.             member("install").text = "Copia"
  99.             capture = theme
  100.             extension = list(".wav", ".aif", ".mp3")
  101.             Nbre_son = cherche_media(dossier, theme, 1, extension)
  102.             if Nbre_son <> "plusieurs_ﾃｩlﾃｩmts" then
  103.               go("son")
  104.             else
  105.               Un_champs(choixTeme & "_NOSCN")
  106.             end if
  107.           "police":
  108.             capture = theme
  109.             member("install").text = "Copia"
  110.             Un_champs(choixTeme & "_NOSCN")
  111.         end case
  112.       "1":
  113.         if theme = "Samples et Musique" then
  114.           Deux_champs(choixTeme & "_SCN")
  115.         else
  116.           Un_champs(choixTeme & "_SCN")
  117.         end if
  118.       otherwise:
  119.         Deux_champs(choixTeme & "_SCN")
  120.     end case
  121.   end if
  122. end
  123.