home *** CD-ROM | disk | FTP | other *** search
/ The Princeton Review - Science Smart / SCIENCE.iso / pc / science / files / cad.dir / 00003_subsublist.ls < prev    next >
Encoding:
Text File  |  1996-01-26  |  634 b   |  23 lines
  1. on mouseUp
  2.   global gsublist, gsubsublist, gsectlist
  3.   set num to the mouseLine
  4.   if the number of words in line num of the text of field 3 < 1 then
  5.     exit
  6.   end if
  7.   set tprob to gsectlist mod 2
  8.   set the foreColor of field 3 to 255
  9.   set the foreColor of line num of field 3 to 215
  10.   if tprob = 1 then
  11.     set frameref to line num of the text of field 3 & " (1)"
  12.     set the visible of sprite 42 to 1
  13.   else
  14.     set frameref to line num of the text of field 3 & " (P1)"
  15.     set the visible of sprite 42 to 0
  16.   end if
  17.   set frameref to frametonum(frameref)
  18.   puppetSprite(11, 0)
  19.   puppetSprite(12, 0)
  20.   unLoad()
  21.   go(frameref)
  22. end
  23.