home *** CD-ROM | disk | FTP | other *** search
/ PC Open 10 / pcopen10.iso / aaron / dida / componi.dxr / 00032_SACCO.ls < prev    next >
Encoding:
Text File  |  1997-09-24  |  803 b   |  31 lines
  1. on mouseUp
  2.   global altezza, larghezza, messi1, DOVE
  3.   if (larghezza < 99) or (larghezza > 444) or (altezza < 78) or (altezza > 342) then
  4.     if (larghezza > 17) and (larghezza < 204) and (altezza > 369) and (altezza < 480) then
  5.       set the visible of sprite 14 to 0
  6.       Buttare()
  7.       set c to getPos(messi1, 14)
  8.       if c <> 0 then
  9.         deleteAt(messi1, c)
  10.       end if
  11.       set the loc of sprite 14 to point(536, 197)
  12.     else
  13.       set the loc of sprite 14 to DOVE
  14.       if getPos(messi1, 14) = 0 then
  15.         append(messi1, 14)
  16.       end if
  17.     end if
  18.   else
  19.     if getPos(messi1, 14) = 0 then
  20.       append(messi1, 14)
  21.     end if
  22.   end if
  23. end
  24.  
  25. on mouseDown
  26.   global DOVE, larghezza, altezza
  27.   set larghezza to the mouseH
  28.   set altezza to the mouseV
  29.   set DOVE to the loc of sprite 14
  30. end
  31.