home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Interactive 11 / CDROM11.iso / pc / fishwish / data / p4 / p4play.dir / 00013_romeoAndJuliet.ls < prev    next >
Encoding:
Text File  |  1995-05-31  |  4.3 KB  |  54 lines
  1. property myChan1, myChan2, myChan3, maxFrames, currFrame, cast1List, x1List, y1List, cast2List, x2List, y2List, cast3List, x3List, y3List, cast1Index, cast2Index, cast3Index
  2. global theCoord
  3.  
  4. on birth me, chan1, chan2, chan3
  5.   set cast1List to [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 115, 115, 115, 115, 113, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 113, 114, 113, 114, 113, 114, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 115, 115, 115, 114, 113, 114, 115, 115, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
  6.   set x1List to [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 95, 103, 110, 118, 126, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 260, 269, 275, 282, 290, 300, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 417, 429, 439, 450, 462, 476, 492, 508, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
  7.   set y1List to [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 238, 225, 208, 192, 177, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 227, 216, 204, 191, 180, 172, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 215, 202, 187, 173, 161, 152, 149, 152, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
  8.   set cast2List to [0, 110, 111, 110, 111, 110, 111, 110, 111, 110, 111, 110, 111, 110, 111, 110, 111, 110, 111, 110, 111, 110, 111, 110, 111, 110, 112, 112, 112, 112, 112, 112, 110, 111, 110, 110, 112, 112, 112, 110, 110, 110, 112, 112, 112, 110, 111, 110, 111, 110, 111, 110, 111, 110, 112, 112, 112, 112, 112, 112, 112, 110, 110, 112, 112, 110, 0]
  9.   set x2List to [0, 97, 105, 113, 122, 132, 142, 153, 166, 179, 191, 199, 205, 211, 216, 223, 232, 245, 259, 271, 282, 292, 302, 313, 326, 341, 356, 367, 376, 383, 391, 399, 408, 421, 433, 442, 449, 454, 460, 468, 479, 493, 508, 522, 534, 545, 557, 569, 584, 601, 618, 631, 642, 652, 661, 671, 682, 695, 709, 720, 729, 737, 743, 749, 755, 761, 0]
  10.   set y2List to [0, 191, 187, 182, 176, 170, 164, 160, 158, 159, 163, 171, 181, 191, 202, 210, 216, 217, 213, 205, 193, 181, 168, 157, 150, 148, 152, 161, 174, 189, 203, 215, 224, 227, 224, 215, 203, 189, 174, 161, 151, 146, 147, 152, 161, 172, 183, 193, 200, 203, 201, 196, 188, 179, 169, 160, 152, 147, 145, 145, 147, 150, 154, 158, 162, 164, 0]
  11.   set cast3List to [0, 113, 114, 115, 115, 115, 115, 115, 115, 115, 115, 0, 0, 0, 0, 0, 114, 113, 114, 113, 114, 113, 114, 113, 114, 113, 114, 0, 0, 0, 0, 0, 0, 113, 114, 115, 115, 115, 115, 115, 115, 115, 115, 0, 0, 0, 0, 0, 0, 0, 0, 115, 115, 115, 115, 115, 114, 113, 114, 113, 114, 113, 114, 113, 114, 113, 0]
  12.   set x3List to [0, -20, -11, -2, 7, 18, 29, 41, 55, 70, 84, 0, 0, 0, 0, 0, 136, 150, 164, 176, 185, 194, 203, 212, 223, 237, 250, 0, 0, 0, 0, 0, 0, 312, 324, 334, 341, 348, 355, 363, 374, 389, 404, 0, 0, 0, 0, 0, 0, 0, 0, 520, 530, 539, 547, 557, 568, 582, 597, 610, 621, 631, 640, 648, 655, 663, 0]
  13.   set y3List to [0, 137, 150, 165, 183, 201, 218, 233, 244, 249, 247, 0, 0, 0, 0, 0, 166, 161, 163, 171, 183, 197, 211, 224, 233, 237, 235, 0, 0, 0, 0, 0, 0, 168, 170, 178, 188, 200, 212, 222, 229, 230, 225, 0, 0, 0, 0, 0, 0, 0, 0, 160, 171, 184, 198, 212, 224, 233, 239, 241, 240, 238, 235, 232, 229, 228, 0]
  14.   set myChan1 to chan1
  15.   set myChan2 to chan2
  16.   set myChan3 to chan3
  17.   puppetSprite(myChan1, 1)
  18.   puppetSprite(myChan2, 1)
  19.   puppetSprite(myChan3, 1)
  20.   set the stretch of sprite myChan1 to 0
  21.   set the stretch of sprite myChan2 to 0
  22.   set the stretch of sprite myChan3 to 0
  23.   set maxFrames to 67
  24.   return me
  25. end
  26.  
  27. on startAnimation me
  28.   set currFrame to 1
  29. end
  30.  
  31. on Animate me
  32.   if currFrame <= maxFrames then
  33.     set cast1Index to getAt(cast1List, currFrame)
  34.     set cast2Index to getAt(cast2List, currFrame)
  35.     set cast3Index to getAt(cast3List, currFrame)
  36.     set the locH of sprite myChan1 to getAt(x1List, currFrame)
  37.     set the locV of sprite myChan1 to getAt(y1List, currFrame)
  38.     set the castNum of sprite myChan1 to cast1Index
  39.     set the locH of sprite myChan2 to getAt(x2List, currFrame)
  40.     set the locV of sprite myChan2 to getAt(y2List, currFrame)
  41.     set the castNum of sprite myChan2 to cast2Index
  42.     set the locH of sprite myChan3 to getAt(x3List, currFrame)
  43.     set the locV of sprite myChan3 to getAt(y3List, currFrame)
  44.     set the castNum of sprite myChan3 to cast3Index
  45.   end if
  46.   if currFrame > maxFrames then
  47.     set the castNum of sprite myChan1 to the dummyCast of theCoord
  48.     set the castNum of sprite myChan2 to the dummyCast of theCoord
  49.     set the castNum of sprite myChan3 to the dummyCast of theCoord
  50.     RemoveBOL(theCoord, me)
  51.   end if
  52.   set currFrame to currFrame + 1
  53. end
  54.