home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Classicos / flashbox.swf / scripts / DefineSprite_140 / frame_17 / DoAction.as
Encoding:
Text File  |  2006-09-05  |  517 b   |  25 lines
  1. NumPieceTypes = "7";
  2. NextPieceType = int(random(NumPieceTypes));
  3. Score = "0";
  4. Lines = "0";
  5. NumBlocks = "0";
  6. PitWidth = "11";
  7. PitHeight = "18";
  8. PieceStartX = int(PitWidth / "2");
  9. PieceStartY = "0";
  10. Inited = "1";
  11. Dropping = "0";
  12. Running = "1";
  13. if(eval("/:skiplevel") >= "1" and "10" >= eval("/:skiplevel"))
  14. {
  15.    Level = eval("/:skiplevel");
  16.    MoveDuration = "500" - eval("/:skiplevel") * "35";
  17.    set("/:skiplevel","0");
  18. }
  19. else
  20. {
  21.    Level = "0";
  22.    MoveDuration = "500";
  23. }
  24. call("CreatePiece");
  25.