home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / optimus / agata / home.dir / 00029_smoke.ls < prev    next >
Encoding:
Text File  |  1997-02-20  |  595 b   |  27 lines
  1. property ancestor
  2.  
  3. on birth me, chan1
  4.   set ancestor to birth(script "1 chan", chan1)
  5.   return me
  6. end
  7.  
  8. on startAnimation me
  9.   set var to random(2)
  10.   do("var" & var & " me")
  11.   startAnimation(ancestor)
  12. end
  13.  
  14. on var1 me
  15.   set the locH of sprite the myChan of me to 531
  16.   set the locV of sprite the myChan of me to 36
  17.   set the castList of me to [209, 210, 211, 212]
  18.   set the maxFrames of me to 4
  19. end
  20.  
  21. on var2 me
  22.   set the locH of sprite the myChan of me to 530
  23.   set the locV of sprite the myChan of me to 49
  24.   set the castList of me to [213, 214, 215, 216, 217]
  25.   set the maxFrames of me to 5
  26. end
  27.