home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 December / PCWorld_2002-12_cd.bin / Software / Komercni / Krtek / MOVIE / ROZDILY.DXR / Internal_11_Motyl Leti.ls < prev    next >
Encoding:
Text File  |  2002-10-07  |  440 b   |  24 lines
  1. property pFrames, pStartFrame
  2. global gMotylLeti
  3.  
  4. on new me
  5.   pFrames = 90
  6.   sprite(28).visible = 0
  7.   sprite(29).visible = 0
  8.   sprite(90).visible = 1
  9.   (the actorList).add(me)
  10.   pStartFrame = 0
  11.   return me
  12. end
  13.  
  14. on stepFrame me
  15.   pStartFrame = pStartFrame + 1
  16.   if pStartFrame = pFrames then
  17.     sprite(90).visible = 0
  18.     sprite(28).visible = 1
  19.     sprite(29).visible = 1
  20.     (the actorList).deleteOne(me)
  21.     gMotylLeti = VOID
  22.   end if
  23. end
  24.