home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / ChipCD_1.03.iso / oddech / bechpack / bechpack.exe / scripts / DefineSprite_600 / frame_5 / DoAction.as
Encoding:
Text File  |  2002-10-29  |  574 b   |  30 lines
  1. if(Number(key) == 4)
  2. {
  3.    _X = _X - 15;
  4. }
  5. else if(Number(key) == 6)
  6. {
  7.    _X = Number(_X) + 15;
  8. }
  9. else if(Number(key) == 2)
  10. {
  11.    _Y = Number(_Y) + 15;
  12. }
  13. else
  14. {
  15.    _Y = _Y - 15;
  16. }
  17. if(_X == getProperty("/" add eval("/:count"), _X) and _Y == getProperty("/" add eval("/:count"), _Y))
  18. {
  19.    tellTarget("/" add eval("/:count"))
  20.    {
  21.       gotoAndPlay(5);
  22.    }
  23.    set("/:point",Number(eval("/:point")) + Number(eval("/:level")));
  24.    call("/:Add");
  25. }
  26. if(Number(_X) < 60 or 330 < Number(_X) or Number(_Y) < 15 or 465 < Number(_Y))
  27. {
  28.    call("/:Clear");
  29. }
  30.