home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / zarnak / zarnac2.dxr / 00097_LEAVECOMIC.ls < prev    next >
Encoding:
Text File  |  1996-12-06  |  491 b   |  24 lines
  1. on LEAVECOMIC
  2.   global leaveNow
  3.   if the mouseDown then
  4.     set leaveNow to 1
  5.   end if
  6.   if the mouseDown and (leaveNow = 1) then
  7.     set leaveNow to 0
  8.     set the volume of sound 1 to 255
  9.     set the volume of sound 2 to 255
  10.     sound stop 1
  11.     sound stop 2
  12.     updateStage()
  13.     repeat with t = 1 to 11
  14.       puppetSprite(t, 1)
  15.     end repeat
  16.     updateStage()
  17.     repeat with t = 1 to 11
  18.       set the locH of sprite t to 2000
  19.     end repeat
  20.     updateStage()
  21.     play done
  22.   end if
  23. end
  24.