home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Interactive: Demo Special / CDROM_0995.iso / mac / Wings / WINGS.EXE / WINGS_1.DXR / 00039.ls < prev    next >
Encoding:
Text File  |  1995-04-21  |  545 b   |  23 lines
  1. on mouseUp
  2.   global i, k, j
  3.   if k = 0 then
  4.     set k to k + 1
  5.     set i to (j * 60) + 1260
  6.     set the movieTime of sprite 2 to i
  7.     set the movieRate of sprite 2 to 1
  8.     puppetSprite(8, 1)
  9.     set the immediate of sprite 8 to 1
  10.     set the castNum of sprite 8 to 118
  11.     updateStage()
  12.   else
  13.     set k to k - 1
  14.     set i to j * 60
  15.     set the movieTime of sprite 2 to i
  16.     set the movieRate of sprite 2 to 1
  17.     puppetSprite(8, 1)
  18.     set the immediate of sprite 8 to 1
  19.     set the castNum of sprite 8 to 117
  20.     updateStage()
  21.   end if
  22. end
  23.