home *** CD-ROM | disk | FTP | other *** search
/ PC Creation 3 / PCCREATION3.iso / Pc_creation / somm.dxr / 00025.ls < prev    next >
Encoding:
Text File  |  2001-12-13  |  1.5 KB  |  44 lines
  1. global imporjpg, total_teme, theme, soustheme1, soustheme2, n, dossier
  2.  
  3. on mouseEnter me
  4.   sprite(the currentSpriteNum).blend = 50
  5.   cursor(280)
  6. end
  7.  
  8. on mouseLeave me
  9.   sprite(the currentSpriteNum).blend = 100
  10. end
  11.  
  12. on mouseUp me
  13.   num_sprite = 5
  14.   num_member = 45
  15.   if imporjpg < total_teme then
  16.     imporjpg = imporjpg + 1
  17.     if soustheme2 = EMPTY then
  18.       n = getNthFileNameInFolder(the moviePath & dossier & "\" & theme & "\" & soustheme1, imporjpg)
  19.     else
  20.       if soustheme1 = EMPTY then
  21.         n = getNthFileNameInFolder(the moviePath & dossier & "\" & theme & "\" & soustheme2, imporjpg)
  22.       else
  23.         n = getNthFileNameInFolder(the moviePath & dossier & "\" & theme & "\" & soustheme1 & "\" & soustheme2, imporjpg)
  24.       end if
  25.     end if
  26.     if (n contains ".jpg") or (n contains ".bmp") then
  27.       sprite(num_sprite).visible = 0
  28.       if soustheme2 = EMPTY then
  29.         importFileInto(member(num_member, 1), the moviePath & dossier & "\" & theme & "\" & soustheme1 & "\" & n)
  30.       else
  31.         if soustheme1 = EMPTY then
  32.           importFileInto(member(num_member, 1), the moviePath & dossier & "\" & theme & "\" & soustheme2 & "\" & n)
  33.         else
  34.           importFileInto(member(num_member, 1), the moviePath & dossier & "\" & theme & "\" & soustheme1 & "\" & soustheme2 & "\" & n)
  35.         end if
  36.       end if
  37.       set the text of field "total" to imporjpg & "/" & total_teme
  38.       resize(num_sprite, num_member, 196, 192)
  39.       member(num_member).centerRegPoint = 1
  40.       sprite(num_sprite).visible = 1
  41.     end if
  42.   end if
  43. end
  44.