home *** CD-ROM | disk | FTP | other *** search
/ PC Open 10 / pcopen10.iso / aaron / dida / osserva.dxr / 00125.ls < prev    next >
Encoding:
Text File  |  1997-09-24  |  1.8 KB  |  70 lines

  1. on mouseDown
  2.   global altezza, larghezza, animale, ambiente, esatto, acceso
  3.   if acceso = 1 then
  4.     set pippo to 41
  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 3
  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 41
  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 41 intersects sprite(20) then
  31.       if (larghezza > 98) and (larghezza < (98 + K1)) and (altezza > 54) and (altezza < (54 + k2)) then
  32.         set ambiente to 2
  33.         set the memberNum of sprite 21 to 67
  34.         set the loc of sprite 21 to point(151, 97)
  35.         set the visible of sprite 21 to 1
  36.         pigia()
  37.         set the loc of sprite pippo to point(277, 100)
  38.         set the moveableSprite of sprite 41 to 0
  39.         setAt(esatto, animale, 1)
  40.         updateStage()
  41.         giusto()
  42.       else
  43.         Sbagliato()
  44.         set the loc of sprite pippo to point(402, 195)
  45.         set the visible of sprite 21 to 0
  46.         set the visible of sprite 22 to 0
  47.         set animale to 0
  48.         set ambiente to 0
  49.       end if
  50.     else
  51.       Sbagliato()
  52.       set the loc of sprite pippo to point(402, 195)
  53.       set the visible of sprite 21 to 0
  54.       set the visible of sprite 22 to 0
  55.       set animale to 0
  56.       set ambiente to 0
  57.     end if
  58.     if esatto = list(1, 1, 1) then
  59.       tieni()
  60.       alleluia()
  61.       tieni()
  62.       set esatto to list(0, 0, 0)
  63.       repeat with pippo = 40 to 42
  64.         puppetSprite(pippo, 0)
  65.       end repeat
  66.       nascondi()
  67.     end if
  68.   end if
  69. end
  70.