home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 45 / cda45.iso / intro.dxr / scripts_14_ClickListaProgramas.ls < prev    next >
Encoding:
Text File  |  2000-04-18  |  602 b   |  24 lines
  1. global gListaProgramas, gEsMusica, listaFotos
  2.  
  3. on mouseUp me
  4.   numProg = PointToLine(sprite(me.spriteNum), the mouseLoc)
  5.   if numProg = -1 then
  6.     exit
  7.   end if
  8.   if sprite(me.spriteNum).member.text.line[numProg] = EMPTY then
  9.     exit
  10.   end if
  11.   if gEsMusica then
  12.     sound playFile 1, the moviePath & gListaProgramas[numProg][#ruta]
  13.     member("nombre").text = gListaProgramas[numProg][#nombre]
  14.     member("ruta").text = gListaProgramas[numProg][#ruta]
  15.   else
  16.     actualizarDatos(numProg)
  17.     if listaFotos = [] then
  18.       mostrarPrograma(0)
  19.     else
  20.       mostrarPrograma(1)
  21.     end if
  22.   end if
  23. end
  24.