home *** CD-ROM | disk | FTP | other *** search
/ Media Gallery 1995 June / MG6.ISO / mg.dig / 00214.ls < prev    next >
Encoding:
Text File  |  1995-04-20  |  498 b   |  20 lines
  1. on mouseUp
  2.   global selectedproducts
  3.   if (the mouseV < the bottom of sprite 14) and (the mouseV > the top of sprite 14) then
  4.     set foo to the mouseV
  5.     set Artikel to ((foo - the locV of sprite 14) / 52) + 1
  6.     set a to getPos(selectedproducts, Artikel)
  7.     if a > 0 then
  8.       ProductHilite(0)
  9.       UebersichtHilite(0)
  10.       deleteAt(selectedproducts, a)
  11.     else
  12.       append(selectedproducts, Artikel)
  13.     end if
  14.     UebersichtHilite(1)
  15.     ProductHilite(1)
  16.   else
  17.     beep()
  18.   end if
  19. end
  20.