home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / optimus / agata / home.dir / 00021_bird1.ls < prev    next >
Encoding:
Text File  |  1997-02-20  |  3.2 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 [599, 593, 588, 584, 581, 577, 574, 571, 569, 568, 567, 567, 567, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 566, 565, 564, 562, 559, 555, 554, 554, 554, 553, 553, 553, 553, 553, 553, 555, 560, 565, 569, 571, 572, 573, 574, 574, 574, 574, 574, 574, 574, 574, 574, 574, 574, 574, 576, 583, 587, 592, 596, 601, 604, 607, 610, 613, 616, 619, 621, 622, 623, 624, 624, 624, 624, 624, 624, 618, 610, 604, 600, 595, 591, 587, 583, 577, 570, 562, 557, 551, 548, 545, 543, 542, 540, 539, 539, 538, 538, 538, 538, 538, 538, 538, 538, 538, 538, 538, 538, 538, 535, 532, 526, 520, 512, 506, 498, 493, 490, 487, 483, 474, 471, 474, 479, 481, 481, 476, 472, 472, 475, 475, 471, 465, 460, 457, 453, 449, 448, 445, 441, 438, 434, 431, 428, 415, 396, 372, 351, 332, 326, 324, 323, 320, 318, 316, 315, 314, 314, 313, 313, 313, 313, 313, 313, 313, 313, 313, 307, 302, 297, 293, 287, 281, 278, 277, 275, 275, 274, 274, 274, 274, 274, 274, 274, 274, 274, 272, 270, 267, 265, 262, 260, 260, 260, 258, 255, 253, 252]
  6.   set the yList of me to [6, 6, 7, 10, 12, 14, 17, 20, 22, 23, 23, 24, 24, 24, 24, 24, 24, 25, 25, 25, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 23, 19, 13, 7, 8, 12, 17, 19, 21, 21, 22, 22, 21, 22, 17, 14, 15, 18, 23, 25, 29, 31, 32, 35, 36, 36, 37, 37, 35, 35, 35, 35, 35, 35, 31, 26, 22, 18, 16, 16, 16, 16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 17, 17, 17, 17, 14, 12, 11, 9, 8, 7, 6, 5, 5, 5, 6, 7, 10, 15, 20, 23, 26, 28, 29, 30, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 30, 25, 20, 15, 11, 9, 9, 11, 12, 14, 17, 18, 20, 17, 13, 13, 17, 20, 19, 13, 9, 10, 15, 17, 13, 10, 7, 8, 16, 20, 16, 9, 1, -6, -12, -15, -19, -23, -26, -21, -7, -3, 1, 3, 6, 9, 14, 15, 16, 17, 18, 18, 18, 18, 17, 17, 17, 17, 17, 15, 13, 9, 7, 9, 14, 16, 18, 20, 21, 22, 22, 20, 20, 20, 20, 20, 20, 20, 20, 18, 16, 14, 11, 9, 3, -2, -4, -8, -13, -16]
  7.   set the castList of me to [586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 587, 587, 588, 588, 588, 588, 588, 588, 588, 588, 588, 588, 588, 588, 588, 588, 588, 588, 588, 588, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 587, 587, 587, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 587, 587, 587, 587, 587, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 587, 587, 588, 588, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 588, 588, 588, 588, 588, 588, 588, 588, 588, 588, 588, 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, 588, 588, 588, 588, 588, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 587, 587, 587, 587, 588, 588, 588, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585, 586, 585]
  8.   set the maxFrames of me to count(the xList of me)
  9.   return me
  10. end
  11.