home *** CD-ROM | disk | FTP | other *** search
/ IBM CD-ROM Sampler / IBM_CD-ROM_Multimedia_Sampler_IBM_1995.iso / ibmms / shadow / r / r2u.dxr / 00002_R2SO256.PICT.ls next >
Encoding:
Text File  |  1995-06-23  |  652 b   |  25 lines
  1. on mouseDown
  2.   if (the mouseH > 480) and (the mouseH < 512) then
  3.     if (the mouseV > 352) and (the mouseV < 384) then
  4.       sound stop 1
  5.       puppetSprite(19, 1)
  6.       set the locH of sprite 19 to 497
  7.       set the locV of sprite 19 to 369
  8.       updateStage()
  9.       go(the frame + 1)
  10.       play movie "@::S:S1U"
  11.     end if
  12.   end if
  13.   if (the mouseH > 0) and (the mouseH < 33) then
  14.     if (the mouseV > 352) and (the mouseV < 384) then
  15.       sound stop 1
  16.       puppetSprite(20, 1)
  17.       set the locH of sprite 20 to 14
  18.       set the locV of sprite 20 to 369
  19.       updateStage()
  20.       go(the frame + 1)
  21.       play movie "@:R1U"
  22.     end if
  23.   end if
  24. end
  25.