home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / events / gento / Panachan.dcr / 00052.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  356 b   |  10 lines
  1. on exitFrame
  2.   global pananowh, pananowv, panah, panav, panadir, defsphanaback
  3.   puppetSprite(1, 1)
  4.   set the foreColor of sprite 1 to 245
  5.   set i to (22 * 8 * (panadir - 1)) + 1
  6.   set pananowh to the locH of sprite defsphanaback - getAt(panah, i)
  7.   set pananowv to the locV of sprite defsphanaback - getAt(panav, i)
  8.   movelochv(1, pananowh, pananowv)
  9. end
  10.