home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Interactive: Demo Special / CDROM_0995.iso / pc / wingdemo / wings / wings.exe / WINGS_1.DXR / 00042.ls < prev    next >
Encoding:
Text File  |  1995-04-21  |  676 b   |  30 lines
  1. on mouseUp
  2.   global i, j, k
  3.   if k = 0 then
  4.     if j = 0 then
  5.       set j to 20
  6.       set i to j * 60
  7.       set the movieTime of sprite 2 to i
  8.       set the movieRate of sprite 2 to 1
  9.     else
  10.       set j to j - 1
  11.       set i to j * 60
  12.       set the movieTime of sprite 2 to i
  13.       set the movieRate of sprite 2 to 1
  14.     end if
  15.   else
  16.     if j = 0 then
  17.       set j to 20
  18.       set i to (j * 60) + 1260
  19.       set the movieTime of sprite 2 to i
  20.       set the movieRate of sprite 2 to 1
  21.     else
  22.       set j to j - 1
  23.       set i to (j * 60) + 1260
  24.       set the movieTime of sprite 2 to i
  25.       set the movieRate of sprite 2 to 1
  26.     end if
  27.   end if
  28.   myPuppet(7, 122, 121)
  29. end
  30.