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