home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / MenuSong.dxr / 00026.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  764 b   |  21 lines
  1. on mouseUp
  2.   global gSong, gPath, gBlue, gNetDati, gClickDati, gLine, netLibraryList
  3.   clearCache()
  4.   set the visible of sprite 50 to 0
  5.   set the visible of sprite 51 to 0
  6.   set gSong to EMPTY
  7.   set the foreColor of field "fieldElencoSongNet" to 0
  8.   set pos to the mouseLine
  9.   set song to line pos of field "fieldElencoSongNet"
  10.   set the foreColor of line pos of field "fieldElencoSongNet" to gBlue
  11.   stop(member "preview")
  12.   set gNetDati to getNetText("http://www.groovemaker.com/songpreview/" & getAt(netLibraryList, pos) & ".txt")
  13.   set gClickDati to 1
  14.   set gLine to pos
  15.   put EMPTY into field "fieldDescription"
  16.   put EMPTY into field "fieldLibrary"
  17.   put EMPTY into field "fieldTitle"
  18.   put EMPTY into field "fieldCopy"
  19.   put EMPTY into field "fieldLic"
  20. end
  21.