home *** CD-ROM | disk | FTP | other *** search
/ The Princeton Review - Science Smart / SCIENCE.iso / mac / files / CAD.DiR / 01749.ls < prev    next >
Encoding:
Text File  |  1995-12-08  |  339 b   |  17 lines
  1. on mouseUp
  2.   global marklist
  3.   sresp(46)
  4.   set fname to numtoframe(the frame)
  5.   set isthere to getOne(marklist, fname)
  6.   if isthere = 0 then
  7.     add(marklist, fname)
  8.     sort(marklist)
  9.     puppetSprite(43, 1)
  10.     set the locV of sprite 43 to 25
  11.   else
  12.     deleteAt(marklist, isthere)
  13.     puppetSprite(43, 0)
  14.     updateStage()
  15.   end if
  16. end
  17.