home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / optimus / agata / home.dir / 00028_bird3.ls < prev    next >
Encoding:
Text File  |  1997-02-20  |  2.3 KB  |  11 lines
  1. property ancestor
  2.  
  3. on birth me, chan1
  4.   set ancestor to birth(script "1 chan mov", chan1)
  5.   set the xList of me to [2, 2, 6, 8, 16, 22, 27, 28, 30, 32, 34, 35, 40, 47, 50, 52, 51, 44, 44, 48, 54, 54, 50, 41, 36, 34, 27, 18, 14, 14, 23, 28, 35, 33, 24, 17, 5, -5, -9, -13, -17, -19, -13, -5, 1, 7, 14, 21, 26, 28, 33, 39, 43, 45, 47, 48, 48, 49, 48, 48, 47, 45, 36, 33, 29, 25, 21, 15, 8, -2, -12, -19, -27, -21, -4, 6, 15, 25, 30, 34, 31, 23, 16, 10, 5, 1, -5, -8, -13, -12, -6, -2, 1, 4, 8, 9, 10, 15, 21, 26, 28, 32, 36, 41, 44, 47, 49, 51, 48, 43, 42, 33, 29, 27, 28, 30, 36, 39, 43, 50, 54, 59, 62, 65, 67, 68, 68, 64, 56, 48, 44, 41, 37, 32, 28, 35, 43, 50, 56, 59, 61, 66, 64, 55, 43, 35, 29, 22, 19, 16, 12, 7, 3, -1, -6, -11, -15, -19]
  6.   set the yList of me to [1, 1, 2, 3, 8, 13, 20, 22, 25, 28, 35, 33, 25, 26, 31, 35, 37, 39, 42, 45, 54, 59, 60, 58, 67, 74, 77, 72, 82, 86, 83, 83, 89, 94, 92, 90, 85, 87, 90, 88, 91, 98, 104, 110, 111, 110, 110, 112, 114, 118, 114, 111, 109, 115, 119, 124, 124, 112, 116, 122, 127, 128, 125, 126, 132, 135, 135, 134, 138, 141, 143, 148, 159, 162, 166, 169, 171, 175, 177, 182, 186, 189, 193, 194, 196, 201, 205, 210, 216, 226, 256, 263, 257, 262, 267, 271, 273, 271, 269, 270, 270, 265, 266, 268, 270, 274, 274, 269, 262, 258, 252, 258, 262, 259, 250, 247, 246, 243, 238, 239, 243, 239, 238, 240, 237, 230, 223, 220, 221, 226, 231, 228, 224, 226, 235, 238, 238, 238, 234, 235, 235, 226, 222, 216, 219, 221, 218, 213, 206, 201, 196, 189, 188, 188, 183, 180, 177, 176]
  7.   set the castList of me to [585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586]
  8.   set the maxFrames of me to count(the xList of me)
  9.   return me
  10. end
  11.