home *** CD-ROM | disk | FTP | other *** search
/ Net Power 2000 #2 / NetCD1.iso / NetCD1.exe / NetCD1.dxr / 00017.ls < prev    next >
Encoding:
Text File  |  1999-12-31  |  330 b   |  23 lines
  1. on mouseWithin
  2.   cursor(280)
  3. end
  4.  
  5. on mouseLeave
  6.   cursor(-1)
  7. end
  8.  
  9. on mouseUp
  10.   if sprite(6).memberNum = 18 then
  11.     sprite(6).memberNum = 16
  12.   else
  13.     if sprite(6).memberNum = 16 then
  14.       sprite(6).memberNum = 18
  15.     end if
  16.   end if
  17.   if soundBusy(1) then
  18.     sound stop 1
  19.   else
  20.     puppetSound(1, "techno_loop")
  21.   end if
  22. end
  23.