home *** CD-ROM | disk | FTP | other *** search
/ The Princeton Review - Science Smart / SCIENCE.iso / pc / science / files / cad.dir / 05147.ls < prev    next >
Encoding:
Text File  |  1996-01-26  |  405 b   |  16 lines
  1. on mouseUp
  2.   set x to value((the mouseH - 102) / 39)
  3.   set y to value((the mouseV - 116) / 48)
  4.   if (x = 3) and (y = 4) then
  5.     exit
  6.   end if
  7.   puppetSprite(4, 1)
  8.   set nx to value(118 + (39 * x))
  9.   set ny to value(137 + (48 * y))
  10.   set the locH of sprite 4 to nx
  11.   set the locV of sprite 4 to ny
  12.   set offset to x + 1 + (4 * y)
  13.   put the text of cast (5169 + offset) into field 5168
  14.   updateStage()
  15. end
  16.