home *** CD-ROM | disk | FTP | other *** search
/ Champak 110 / jogo-disk-110.iso / Games / steppenwolf_2_chapter_8.swf / scripts / DefineSprite_1660 / frame_2 / DoAction.as
Text File  |  2008-11-12  |  596b  |  23 lines
  1. i = 1;
  2. while(eval("/Variables:InvNb") >= i and eval("/Variables:InvObjet" + i) != eval("/Variables:ObjetRemove"))
  3. {
  4.    if(eval("/Variables:InvObjet" + i) != eval("/Variables:ObjetRemove"))
  5.    {
  6.       i += 1;
  7.    }
  8. }
  9. k = i;
  10. while(eval("/Variables:InvNb") >= k)
  11. {
  12.    set("/Variables:InvObjet" + k,eval("/Variables:InvObjet" + (k + 1)));
  13.    k += 1;
  14. }
  15. set("/Variables:InvObjet" + eval("/Variables:InvNb"),0);
  16. set("/Variables:ObjetSelect",0);
  17. tellTarget("_root.Inventaire.ObjetAffiche")
  18. {
  19.    gotoAndStop(1);
  20. }
  21. set("/Variables:InvNb",eval("/Variables:InvNb") - 1);
  22. gotoAndStop(1);
  23.