home *** CD-ROM | disk | FTP | other *** search
/ PC Open 10 / pcopen10.iso / aaron / dida / osserva.dxr / 00044_5.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 > 104) and (larghezza < 215) and (altezza > 47) and (altezza < 171) then
  10.       set pOggetti to "piano"
  11.       set indovinato to 0
  12.     end if
  13.     if (larghezza > 355) and (larghezza < 436) and (altezza > 51) and (altezza < 155) then
  14.       set pOggetti to "pallonc"
  15.       set indovinato to 0
  16.     end if
  17.     if (larghezza > 194) and (larghezza < 349) and (altezza > 167) and (altezza < 234) then
  18.       set pOggetti to "treno"
  19.       set indovinato to 1
  20.       set oksuono to 1
  21.     end if
  22.     if (larghezza > 117) and (larghezza < 197) and (altezza > 254) and (altezza < 334) then
  23.       set pOggetti to "bicch"
  24.       set indovinato to 0
  25.     end if
  26.     if (larghezza > 374) and (larghezza < 448) and (altezza > 232) and (altezza < 331) then
  27.       set pOggetti to "cane"
  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.