home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / oddech / bechpack / bechpack.exe / scripts / frame_1089 / DoAction.as
Encoding:
Text File  |  2002-10-29  |  1013 b   |  26 lines
  1. i = 1;
  2. while(Number(i) < Number(level * 3))
  3. {
  4.    duplicateMovieClip("/stoun","s" add i,16384 + (1000 + Number(i)));
  5.    x = Number(random(18) * 15) + 67.5;
  6.    y = Number(random(28) * 15) + 22.5;
  7.    if(Number(x) == Number(getProperty("/1", _X)))
  8.    {
  9.       x -= 30;
  10.    }
  11.    setProperty("/s" add i, _X, x);
  12.    setProperty("/s" add i, _Y, y);
  13.    setProperty("/s" add i, _rotation, random(4) * 90);
  14.    i = Number(i) + 1;
  15.    duplicateMovieClip("stoun","s" add i,16384 + (1000 + Number(i)));
  16.    setProperty("/s" add i, _X, getProperty("/s" add (i - 1), _X));
  17.    setProperty("/s" add i, _Y, getProperty("/s" add (i - 1), _Y) + 15);
  18.    setProperty("/s" add i, _rotation, random(4) * 90);
  19.    i = Number(i) + 1;
  20.    duplicateMovieClip("stoun","s" add i,16384 + (1000 + Number(i)));
  21.    setProperty("/s" add i, _X, getProperty("/s" add (i - 1), _X));
  22.    setProperty("/s" add i, _Y, getProperty("/s" add (i - 1), _Y) + 15);
  23.    setProperty("/s" add i, _rotation, random(4) * 90);
  24.    i = Number(i) + 1;
  25. }
  26.