home *** CD-ROM | disk | FTP | other *** search
/ PC Open 10 / pcopen10.iso / aaron / dida / osserva.dxr / 00028_barche.ls < prev    next >
Encoding:
Text File  |  1997-09-24  |  1.8 KB  |  66 lines
  1. on mouseUp
  2.   global altezza, larghezza, trova, nalleluia
  3.   if soundBusy(1) then
  4.     sound stop 1
  5.   end if
  6.   crocitazze()
  7.   if nalleluia = 0 then
  8.     set p to point(larghezza, altezza)
  9.     set d1 to rect(433, 71, 453, 97)
  10.     set d2 to rect(399, 61, 419, 87)
  11.     set d3 to rect(384, 92, 404, 118)
  12.     set d4 to rect(420, 165, 440, 191)
  13.     set d5 to rect(356, 250, 376, 276)
  14.     set d6 to rect(321, 200, 341, 226)
  15.     set d7 to rect(307, 257, 327, 283)
  16.     set d8 to rect(423, 61, 443, 87)
  17.     if inside(p, d1) and not (the visible of sprite 28) then
  18.       giusto()
  19.       set the visible of sprite 28 to 1
  20.       setAt(trova, 1, 1)
  21.     end if
  22.     if inside(p, d2) and not (the visible of sprite 29) then
  23.       giusto()
  24.       set the visible of sprite 29 to 1
  25.       setAt(trova, 2, 1)
  26.     end if
  27.     if inside(p, d3) and not (the visible of sprite 30) then
  28.       giusto()
  29.       set the visible of sprite 30 to 1
  30.       setAt(trova, 3, 1)
  31.     end if
  32.     if inside(p, d4) and not (the visible of sprite 31) then
  33.       giusto()
  34.       set the visible of sprite 31 to 1
  35.       setAt(trova, 4, 1)
  36.     end if
  37.     if inside(p, d5) and not (the visible of sprite 32) then
  38.       giusto()
  39.       set the visible of sprite 32 to 1
  40.       setAt(trova, 5, 1)
  41.     end if
  42.     if inside(p, d6) and not (the visible of sprite 33) then
  43.       giusto()
  44.       set the visible of sprite 33 to 1
  45.       setAt(trova, 6, 1)
  46.     end if
  47.     if inside(p, d7) and not (the visible of sprite 34) then
  48.       giusto()
  49.       set the visible of sprite 34 to 1
  50.       setAt(trova, 7, 1)
  51.     end if
  52.     if inside(p, d8) and not (the visible of sprite 35) then
  53.       giusto()
  54.       set the visible of sprite 35 to 1
  55.       setAt(trova, 8, 1)
  56.     end if
  57.     if trova = list(1, 1, 1, 1, 1, 1, 1, 1) then
  58.       repeat while soundBusy(1)
  59.         nothing()
  60.       end repeat
  61.       alleluia()
  62.       set nalleluia to 1
  63.     end if
  64.   end if
  65. end
  66.