home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / shared.cst / 00968_Script_spkNome < prev    next >
Text File  |  1987-04-12  |  378b  |  18 lines
  1. on mouseUp
  2.   cambiocast
  3.   put the frameLabel into L
  4.   put chars(L, 1, (length(L)-3)) & "aif" into L
  5.   put "@:spkNome:" & L into L
  6.   
  7.   if the machinetype=256 then
  8.     set the volume of sound 2 to 140
  9.   else
  10.     set the volume of sound 2 to 60
  11.   end if
  12.   
  13.   sound playFile 3, L
  14.   repeat while soundBusy(3) = 1
  15.   end repeat
  16.   set the volume of sound 2 to 255
  17. end
  18.