home *** CD-ROM | disk | FTP | other *** search
/ PC Open 10 / pcopen10.iso / aaron / dida / osserva.dxr / 00116_differenze.ls < prev    next >
Encoding:
Text File  |  1997-09-24  |  610 b   |  24 lines
  1. on mouseDown
  2.   global diffdisegni, trova, nalleluia, Posserva, altezza, larghezza
  3.   set altezza to the mouseV
  4.   set larghezza to the mouseH
  5.   pigia()
  6.   nascondi()
  7.   set the visible of sprite 5 to 1
  8.   set trova to list(0, 0, 0, 0, 0, 0, 0, 0)
  9.   set nalleluia to 0
  10.   set x to random(5)
  11.   repeat while x = diffdisegni
  12.     set x to random(5)
  13.   end repeat
  14.   set diffdisegni to x
  15.   puppetSprite(19, 1)
  16.   set the memberNum of sprite 19 to 27 + diffdisegni
  17.   set the visible of sprite 19 to 1
  18.   updateStage()
  19.   repeat with i = 28 to 35
  20.     puppetSprite(i, 0)
  21.   end repeat
  22.   sound playFile 1, Posserva & "diff.aif"
  23. end
  24.