home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 9 / cybernetinteractivo09.ISO / demos / kids / ggmd / instrum.dxr / 00242_Trombone.ls < prev    next >
Encoding:
Text File  |  1996-02-02  |  362 b   |  19 lines
  1. on mouseDown
  2.   global instrument, reject
  3.   hilite("trombone")
  4.   if reject then
  5.     if instrument = "Trom1" then
  6.       set reject to 0
  7.       play frame "Trom1"
  8.     else
  9.       if instrument = "Trom2" then
  10.         set reject to 0
  11.         play frame "Trom2"
  12.       else
  13.         set reject to 1
  14.         play frame "Reject General"
  15.       end if
  16.     end if
  17.   end if
  18. end
  19.