home *** CD-ROM | disk | FTP | other *** search
/ PC Open 10 / pcopen10.iso / aaron / dida / osserva.dxr / 00132.ls < prev    next >
Encoding:
Text File  |  1997-09-24  |  1.9 KB  |  73 lines
  1. on mouseDown
  2.   global altezza, larghezza, animale, ambiente, esatto, acceso
  3.   if acceso = 1 then
  4.     set pippo to 42
  5.     if soundBusy(1) then
  6.       sound stop 1
  7.     end if
  8.     set K1 to 107
  9.     set k2 to 89
  10.     puppetSprite(pippo, 1)
  11.     set animale to 1
  12.     set the constraint of sprite pippo to 27
  13.     set the visible of sprite pippo to 1
  14.     updateStage()
  15.     pigia()
  16.   end if
  17. end
  18.  
  19. on mouseUp
  20.   global altezza, larghezza, animale, ambiente, esatto, acceso
  21.   set pippo to 42
  22.   if the moveableSprite of sprite pippo then
  23.     if soundBusy(1) then
  24.       sound stop 1
  25.     end if
  26.     set K1 to 107
  27.     set k2 to 89
  28.     puppetSprite(21, 1)
  29.     puppetSprite(22, 1)
  30.     if sprite pippo intersects sprite(20) then
  31.       if (larghezza > 98) and (larghezza < (98 + K1)) and (altezza > 151) and (altezza < (151 + k2)) then
  32.         set ambiente to 1
  33.         set the memberNum of sprite 21 to 80
  34.         set the loc of sprite 21 to point(151, 194)
  35.         set the visible of sprite 21 to 1
  36.         updateStage()
  37.         pigia()
  38.         set the loc of sprite 42 to point(277, 195)
  39.         set the moveableSprite of sprite pippo to 0
  40.         setAt(esatto, animale, 1)
  41.         set animale to 0
  42.         set ambiente to 0
  43.         updateStage()
  44.         giusto()
  45.       else
  46.         Sbagliato()
  47.         set the loc of sprite pippo to point(402, 291)
  48.         set the visible of sprite 21 to 0
  49.         set the visible of sprite 22 to 0
  50.         set animale to 0
  51.         set ambiente to 0
  52.       end if
  53.     else
  54.       Sbagliato()
  55.       set the loc of sprite pippo to point(413, 291)
  56.       set the visible of sprite 21 to 0
  57.       set the visible of sprite 22 to 0
  58.       set animale to 0
  59.       set ambiente to 0
  60.     end if
  61.     if esatto = list(1, 1, 1) then
  62.       tieni()
  63.       alleluia()
  64.       tieni()
  65.       set esatto to list(0, 0, 0)
  66.       repeat with pippo = 40 to 42
  67.         puppetSprite(pippo, 0)
  68.       end repeat
  69.       nascondi()
  70.     end if
  71.   end if
  72. end
  73.