Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Japan/Panasonic-/time_capsule/emaki/m0.dcr/00015.ls

Text File | 2017-09-21 | 847 b | 27 lines

on dragsprite
  puppetSprite(clickOn(), 1)
  set mh to mouseH() - the locH of sprite clickOn()
  if the locH of sprite 1 = 1314 then
    set the locH of sprite 1 to 1313
  else
    nothing()
  end if
  repeat while stillDown()
    if (the locH of sprite 1 < 1314) and (the locH of sprite 1 > -1151) then
      set the castNum of sprite 5 to the number of cast "bow"
      set the locH of sprite clickOn() to mouseH() - mh
      updateStage()
      next repeat
    end if
    if (the locH of sprite 1 = 1314) or (the locH of sprite 1 > 1314) then
      set the locH of sprite 1 to 1314
      puppetSprite(5, 1)
      set the castNum of sprite 5 to the number of cast "bowb"
      next repeat
    end if
    if (the locH of sprite 1 = -1151) or (the locH of sprite 1 < -1151) then
      set the locH of sprite 1 to -1151
    end if
  end repeat
end