home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / optimus / agata / home.dir / 00025_kitchenSpark.ls < prev    next >
Encoding:
Text File  |  1997-02-20  |  387 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 [134, 135, 136, 137, 138, 139, 140, 141, 142, 143]
  8.   set the colList of me to [72, 53, 79, 75, 71, 75, 79, 63, 71, 85]
  9.   set the maxFrames of me to count(the castList of me)
  10.   return me
  11. end
  12.