home *** CD-ROM | disk | FTP | other *** search
/ Chip 26 / Chip_26_1997.iso / A.DXR / 00015.ls < prev    next >
Encoding:
Text File  |  1997-11-24  |  352 b   |  14 lines
  1. on exitFrame
  2.   set the visible of sprite 12 to 0
  3.   set the text of cast 28 to EMPTY
  4.   repeat with i = 1 to the maxinteger
  5.     set n to getNthFileNameInFolder(the pathName & "sounds", i)
  6.     if n = EMPTY then
  7.       exit repeat
  8.     end if
  9.     put n into line i of field 28
  10.   end repeat
  11.   put EMPTY before field 28
  12.   set the visible of sprite 12 to 1
  13. end
  14.