home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / optimus / agata / home.dir / 00026_attickSpark.ls < prev    next >
Encoding:
Text File  |  1997-02-20  |  396 b   |  12 lines
  1. property ancestor
  2.  
  3. on birth me, loc, chan
  4.   set ancestor to birth(script "sparkle ancestor", chan)
  5.   set the x of me to getAt(loc, 1)
  6.   set the y of me to getAt(loc, 2)
  7.   set the castList of me to [144, 145, 146, 147, 148, 149, 150, 151, 152, 153]
  8.   set the colList of me to [97, 115, 103, 138, 107, 123, 121, 115, 113, 113]
  9.   set the maxFrames of me to count(the castList of me)
  10.   return me
  11. end
  12.