home *** CD-ROM | disk | FTP | other *** search
/ L'Encyclopedie Des Jeux Video 8 / EJV8_CD1.ISO / ejv8-cd1 / somm.dxr / 00074.ls < prev    next >
Encoding:
Text File  |  2003-10-24  |  1.3 KB  |  39 lines
  1. global imporjpg, total_teme, theme, soustheme1, soustheme2, n, dossier, gversionos
  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.   cursor(-1)
  11. end
  12.  
  13. on mouseUp me
  14.   num_sprite = 5
  15.   num_member = 72
  16.   if imporjpg > 1 then
  17.     imporjpg = imporjpg - 1
  18.     if soustheme2 = EMPTY then
  19.       n = getNthFileNameInFolder(the moviePath & dossier & gversionos & theme & gversionos & soustheme1, imporjpg)
  20.     else
  21.       n = getNthFileNameInFolder(the moviePath & dossier & gversionos & theme & gversionos & soustheme1 & gversionos & soustheme2, imporjpg)
  22.     end if
  23.     if n contains ".gif" then
  24.       sprite(num_sprite).visible = 0
  25.       if soustheme2 = EMPTY then
  26.         member(num_member).fileName = the moviePath & dossier & gversionos & theme & gversionos & soustheme1 & gversionos & n
  27.       else
  28.         member(num_member).fileName = the moviePath & dossier & gversionos & theme & gversionos & soustheme1 & gversionos & soustheme2 & gversionos & n
  29.       end if
  30.       set the text of field "total" to imporjpg & "/" & total_teme
  31.       REPROPORTION_GIF(num_sprite, num_member)
  32.       if member(72, 1).type = #bitmap then
  33.         member(num_member).centerRegPoint = 1
  34.       end if
  35.       sprite(num_sprite).visible = 1
  36.     end if
  37.   end if
  38. end
  39.