home *** CD-ROM | disk | FTP | other *** search
/ PC Open 10 / pcopen10.iso / aaron / dida / osserva.dxr / 00054_latte.ls < prev    next >
Encoding:
Text File  |  1997-09-24  |  1.3 KB  |  46 lines
  1. on mouseUp
  2.   global altezza, larghezza, QEsercizio
  3.   set Bingo to 25
  4.   set p to point(larghezza, altezza)
  5.   if QEsercizio = 1 then
  6.     set ellisse to rect(193, 127, 405, 220)
  7.     if inside(p, ellisse) then
  8.       if the moveableSprite of sprite Bingo then
  9.         giusto()
  10.       end if
  11.       if the moveableSprite of sprite Bingo then
  12.         set the loc of sprite Bingo to point(277, 158)
  13.       end if
  14.       set the moveableSprite of sprite Bingo to 0
  15.     else
  16.       Sbagliato()
  17.       set the loc of sprite Bingo to point(372, 305)
  18.     end if
  19.   else
  20.     set ellisse to rect(202, 248, 283, 350)
  21.     set ellisse2 to rect(302, 258, 359, 328)
  22.     if inside(p, ellisse) then
  23.       if the moveableSprite of sprite Bingo then
  24.         giusto()
  25.       end if
  26.       if the moveableSprite of sprite Bingo then
  27.         set the loc of sprite Bingo to point(larghezza, 300)
  28.       end if
  29.       set the moveableSprite of sprite Bingo to 0
  30.     else
  31.       if inside(p, ellisse2) then
  32.         if the moveableSprite of sprite Bingo then
  33.           giusto()
  34.         end if
  35.         if the moveableSprite of sprite Bingo then
  36.           set the loc of sprite Bingo to point(336, 295)
  37.         end if
  38.         set the moveableSprite of sprite Bingo to 0
  39.       else
  40.         Sbagliato()
  41.         set the loc of sprite Bingo to point(372, 305)
  42.       end if
  43.     end if
  44.   end if
  45. end
  46.