home *** CD-ROM | disk | FTP | other *** search
/ PC Play 1 / PCPLAY1.ISO / intro.dxr / 00018_Inv2Obj.ls < prev    next >
Encoding:
Text File  |  1996-08-29  |  336 b   |  22 lines
  1. property ancestor, isCrash
  2.  
  3. on new me, s
  4.   set the ancestor of me to new(script "InvaderObj", s, s + 1, 7, 48)
  5.   put "DID"
  6.   return me
  7. end
  8.  
  9. on play me
  10.   play(ancestor)
  11.   if isCrash then
  12.     if objectp(gMovieList) then
  13.       GoForward(gMovieList)
  14.     end if
  15.   end if
  16. end
  17.  
  18. on MoveX me
  19.   MoveX(ancestor)
  20.   puppetSound("InvaderSound1")
  21. end
  22.