home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / optimus / agata / home.dir / 00024_bathroomSpark.ls < prev    next >
Encoding:
Text File  |  1997-02-20  |  382 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 [125, 126, 127, 128, 129, 130, 131, 132, 133]
  8.   set the colList of me to [28, 63, 73, 87, 121, 103, 243, 233, 28]
  9.   set the maxFrames of me to count(the castList of me)
  10.   return me
  11. end
  12.