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

Text File | 2017-09-21 | 548 b | 21 lines

on dragspriteex
  puppetSprite(clickOn(), 1)
  set mh to mouseH() - the locH of sprite clickOn()
  set mv to mouseV() - the locV of sprite clickOn()
  repeat while stillDown()
    set the locH of sprite clickOn() to mouseH() - mh
    set the locV of sprite clickOn() to mouseV() - mv
    updateStage()
  end repeat
end

on wait n
  set startticks to the timer
  set nowticks to the timer
  set waitticks to nowticks - startticks
  repeat while waitticks < n
    set nowticks to the timer
    set waitticks to nowticks - startticks
  end repeat
end