home *** CD-ROM | disk | FTP | other *** search
/ The VPRO Digital Guide 1994 / vpro.iso / vpro1 / jg.dir / 00043.ls < prev    next >
Encoding:
Text File  |  1994-08-28  |  513 b   |  26 lines
  1. on mouseDown
  2.   global gLastSound
  3.   set wanneer to random(4)
  4.   repeat while the stillDown
  5.     put wanneer
  6.     if wanneer = 3 then
  7.       if the clickOn = 28 then
  8.         set newSound to "Klap"
  9.       else
  10.         set newSound to 0
  11.       end if
  12.       if newSound <> gLastSound then
  13.         set gLastSound to newSound
  14.         puppetSound(newSound)
  15.       end if
  16.       set the castNum of sprite 28 to 12
  17.       updateStage()
  18.     end if
  19.   end repeat
  20. end
  21.  
  22. on mouseUp
  23.   set the castNum of sprite 28 to 8
  24.   updateStage()
  25. end
  26.