home *** CD-ROM | disk | FTP | other *** search
/ The Princeton Review - Science Smart / SCIENCE.iso / mac / files / CAD.DiR / 01742.ls < prev    next >
Encoding:
Text File  |  1995-12-08  |  789 b   |  31 lines
  1. on mouseUp
  2.   global log1, log2
  3.   set temp to the mouseWord
  4.   set tp to the frame + 104
  5.   set theword to word temp of field tp
  6.   set wdnumx to the number of words in field tp
  7.   set theword to stripparts(theword)
  8.   if (theword = EMPTY) or (temp > wdnumx) or (temp < 1) then
  9.     exit
  10.   end if
  11.   cursor(4)
  12.   hilite word temp of field tp
  13.   put theword into field 7766
  14.   puppetSprite(42, 0)
  15.   set the visible of sprite 43 to 0
  16.   cunload()
  17.   go("clearcard")
  18.   set the hilite of cast 7758 to 1
  19.   set the hilite of cast 7759 to 0
  20.   set the hilite of cast 7760 to 0
  21.   set the hilite of cast 7761 to 1
  22.   set the hilite of cast 7762 to 0
  23.   set the hilite of cast 7763 to 0
  24.   set log1 to "land"
  25.   set log2 to "land"
  26.   put EMPTY into field 7757
  27.   put EMPTY into field 7756
  28.   scardok()
  29.   go("scard")
  30. end
  31.