home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / time_capsule / emaki / m2.dcr / 00018.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  920 b   |  30 lines
  1. on dragsprite
  2.   puppetSprite(clickOn(), 1)
  3.   set mh to mouseH() - the locH of sprite clickOn()
  4.   if the locH of sprite 1 = 1598 then
  5.     set the locH of sprite 1 to 1597
  6.   else
  7.     nothing()
  8.   end if
  9.   puppetSprite(12, 1)
  10.   set the locV of sprite 12 to 500
  11.   updateStage()
  12.   repeat while stillDown()
  13.     if (the locH of sprite 1 < 1598) and (the locH of sprite 1 > -1434) then
  14.       set the castNum of sprite 5 to the number of cast "bow"
  15.       set the locH of sprite clickOn() to mouseH() - mh
  16.       updateStage()
  17.       next repeat
  18.     end if
  19.     if (the locH of sprite 1 = 1598) or (the locH of sprite 1 > 1598) then
  20.       set the locH of sprite 1 to 1598
  21.       puppetSprite(5, 1)
  22.       set the castNum of sprite 5 to the number of cast "bowb"
  23.       next repeat
  24.     end if
  25.     if (the locH of sprite 1 = -1434) or (the locH of sprite 1 < -1434) then
  26.       set the locH of sprite 1 to -1434
  27.     end if
  28.   end repeat
  29. end
  30.