home *** CD-ROM | disk | FTP | other *** search
/ PC Open 10 / pcopen10.iso / aaron / dida / osserva.dxr / 00042_3.ls < prev    next >
Encoding:
Text File  |  1997-09-24  |  1.2 KB  |  41 lines
  1. on mouseDown
  2.   global altezza, larghezza, oksuono, Pcasse, pOggetti
  3.   set larghezza to the mouseH
  4.   set altezza to the mouseV
  5.   if soundBusy(1) then
  6.     sound stop 1
  7.   end if
  8.   if oksuono = 0 then
  9.     if (larghezza > 327) and (larghezza < 430) and (altezza > 69) and (altezza < 126) then
  10.       set pOggetti to "cavallo"
  11.       set indovinato to 0
  12.     end if
  13.     if (larghezza > 122) and (larghezza < 181) and (altezza > 57) and (altezza < 170) then
  14.       set pOggetti to "bimba"
  15.       set oksuono to 1
  16.       set indovinato to 1
  17.     end if
  18.     if (larghezza > 200) and (larghezza < 353) and (altezza > 148) and (altezza < 227) then
  19.       set pOggetti to "moto"
  20.       set indovinato to 0
  21.     end if
  22.     if (larghezza > 120) and (larghezza < 225) and (altezza > 236) and (altezza < 323) then
  23.       set pOggetti to "chitarra"
  24.       set indovinato to 0
  25.     end if
  26.     if (larghezza > 307) and (larghezza < 437) and (altezza > 248) and (altezza < 311) then
  27.       set pOggetti to "gabbiano"
  28.       set indovinato to 0
  29.     end if
  30.     sound playFile 1, Pcasse & pOggetti & ".aif"
  31.     tieni()
  32.     set pOggetti to EMPTY
  33.     if indovinato = 1 then
  34.       giusto()
  35.     end if
  36.     if indovinato = 0 then
  37.       Sbagliato()
  38.     end if
  39.   end if
  40. end
  41.