home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 November / CHIP_CD_2003-11.iso / software / animfx / setupanimfx.exe / #setuppath# / beetles.swf / scripts / frame_11 / DoAction.as
Encoding:
Text File  |  2003-09-25  |  1.2 KB  |  39 lines
  1. kerning = kerningbasis * (s2 / 100);
  2. kerningvar = s2 / 100;
  3. if(1 < line2.length)
  4. {
  5.    gotoAndPlay(11);
  6. }
  7. else
  8. {
  9.    gotoAndPlay(7);
  10. }
  11. if(playsound eq "")
  12. {
  13.    soundholder.gotoAndPlay(2);
  14.    playsound = "1";
  15. }
  16. setProperty("letter", _Y, yposstart);
  17. setProperty("letter", _yscale, s2);
  18. setProperty("letter", _xscale, s2);
  19. setProperty("letter", _visible, false);
  20. if(i < line2.length + 1)
  21. {
  22.    duplicateMovieClip("letter","letterb" add i,16384 + i);
  23.    set("letterb" add i add ".font.fontfinal.letterfield",line2.substr(i,1));
  24.    setProperty("letterb" add i, _X, xposstart + i * kerning);
  25. }
  26. i += 1;
  27. if(line2.length + 1 < i and eval("letterb" + line2.length)._currentframe == 90 or line2.length + 1 < i and eval("letterb" + line2.length)._currentframe == 180 or line2.length + 1 < i and eval("letterb" + line2.length)._currentframe == 270 or line2.length + 1 < i and eval("letterb" + line2.length)._currentframe == 360 or line2.length + 1 < i and eval("letterb" + line2.length)._currentframe == 450 or line2.length + 1 < i and eval("letterb" + line2.length)._currentframe == 540)
  28. {
  29.    r = 0;
  30.    do
  31.    {
  32.       removeMovieClip("letterb" add r);
  33.       r += 1;
  34.    }
  35.    while(r < line2.length);
  36.    
  37.    gotoAndPlay(13);
  38. }
  39.