home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / optimus / agata / home.dir / 00023_bedSpark.ls < prev    next >
Encoding:
Text File  |  1997-02-20  |  438 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 [110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124]
  8.   set the colList of me to [51, 113, 25, 151, 78, 28, 151, 20, 51, 78, 97, 149, 233, 245, 20]
  9.   set the maxFrames of me to count(the castList of me)
  10.   return me
  11. end
  12.