home *** CD-ROM | disk | FTP | other *** search
/ Mac Action 1996 January / mac-action-07.iso / mac / Inside Action / Beatrix Potter / Peter Rabbit / MOSAIC.DXR / 00009.ls < prev    next >
Encoding:
Text File  |  1995-07-13  |  575 b   |  17 lines
  1. on exitFrame
  2.   global gMosaicMap, gMosaicCount, gMosaicX, gMosaicY, gHalfTileSizeX, gHalfTileSizeY
  3.   set gMosaicMap to "CBEDAX"
  4.   set gMosaicCount to 6
  5.   set gMosaicX to 2
  6.   set gMosaicY to 3
  7.   set gHalfTileSizeX to 48
  8.   set gHalfTileSizeY to 38
  9.   repeat with s = 1 to gMosaicCount - 1
  10.     puppetSprite(s + 20, 1)
  11.     set spriteToMove to charToNum(char s of gMosaicMap) - 64 + 20
  12.     set tileToMatch to 10 + s
  13.     set the locH of sprite spriteToMove to the locH of sprite tileToMatch
  14.     set the locV of sprite spriteToMove to the locV of sprite tileToMatch
  15.   end repeat
  16. end
  17.