home *** CD-ROM | disk | FTP | other *** search
/ The Princeton Review - Science Smart / SCIENCE.iso / pc / science / files / cad.dir / 04365_pfoward.ls < prev    next >
Encoding:
Text File  |  1996-01-26  |  937 b   |  36 lines
  1. on mouseUp
  2.   global codelist
  3.   sresp(40)
  4.   set temp to line the frame - 843 of the text of cast 4138
  5.   set c1 to value(item 1 of temp)
  6.   set c2 to value(item 2 of temp)
  7.   set c3 to value(item 3 of temp)
  8.   set butnum to value(item 4 of temp)
  9.   set bpage to the frame - c3
  10.   set bchannel to 20 + butnum
  11.   set whichcast to the castNum of sprite bchannel
  12.   if (whichcast = 0) and (butnum <> 0) then
  13.     set the visible of sprite 21 to 1
  14.     set the visible of sprite 22 to 1
  15.     updateStage()
  16.     puppetSprite(21, 0)
  17.     puppetSprite(22, 0)
  18.     go(the frame + 1)
  19.     exit
  20.   end if
  21.   if (the puppet of sprite bchannel = 1) and (c2 > 1) then
  22.     go(the frame + 1)
  23.   else
  24.     if (butnum = 0) and (c2 = 0) then
  25.       go(the frame + 1)
  26.     else
  27.       set the visible of sprite 21 to 1
  28.       set the visible of sprite 22 to 1
  29.       updateStage()
  30.       puppetSprite(21, 0)
  31.       puppetSprite(22, 0)
  32.       go(the frame + c2)
  33.     end if
  34.   end if
  35. end
  36.