flash on 2016-4-10

/**
 * Copyright mutantleg ( http://wonderfl.net/user/mutantleg )
 * MIT License ( http://www.opensource.org/licenses/mit-license.php )
 * Downloaded from: http://wonderfl.net/c/iLmk
 */

package {
    
    import flash.ui.Keyboard;
    import flash.events.KeyboardEvent;
    import flash.events.MouseEvent;
    import flash.events.Event;
    import flash.display.Sprite;
    public class FlashTest extends Sprite {
        public function FlashTest() {
            
            initEmpty(16,16);
            var i:int;
            
            for (i=0;i<16;i+=1)  { setTile(i, 14, 1); }
            for (i=0;i<16;i+=1)  { setTile(0, i, 1); }
            for (i=0;i<16;i+=1)  { setTile(14, i, 1); }
            
            for (i=0;i<16;i+=1)  { if(Math.random()<0.75) { setTile(i, 4, 1);} }
            for (i=0;i<16;i+=1)  { if(Math.random()<0.75) { setTile(i, 7, 1);} }
            for (i=0;i<16;i+=1)  { if(Math.random()<0.75) { setTile(i, 10, 1);} }            
            for (i=0;i<16;i+=1)  { if(Math.random()<0.75) { setTile(i, 13, 1);} }

            for (i=0;i<16;i+=1)  { if(Math.random()<0.5) { setTile(5, i, 1);} }
            for (i=0;i<16;i+=1)  { if(Math.random()<0.5) { setTile(10, i, 1);} }

            
            var a:xAct;
            a = new xAct();
            a.cx=230; a.cy=230;
            vecAct.push(a);
            
            a = new xAct();
            a.cx = 130; a.cy= 230;
            vecAct.push(a);
            
            a = new xAct();
            a.cx =330; a.cy=230;
            vecAct.push(a);
            
            curAct = vecAct[0];
            
            for (i=0;i<512;i+=1) {vecKey[i]=0;}
            
            stage.addEventListener(KeyboardEvent.KEY_DOWN, onKdown);
            stage.addEventListener(KeyboardEvent.KEY_UP, onKup);
            stage.addEventListener(MouseEvent.MOUSE_DOWN, onMdown);
            stage.addEventListener(MouseEvent.MOUSE_UP, onMup);
            stage.addEventListener(Event.ENTER_FRAME, onEnter);
        }//ctor
        
        public var mbutton:int = 0;
        public function onMdown(e:MouseEvent):void { mbutton = 1; }
        public function onMup(e:MouseEvent):void { mbutton  =0; }
        public function onKdown(e:KeyboardEvent):void { vecKey[e.keyCode] += 1; }
        public function onKup(e:KeyboardEvent):void { vecKey[e.keyCode] = 0; }       

        public var curAct:xAct = null;
        
        public function onEnter(e:Event):void
        {
            graphics.clear();
            graphics.lineStyle(2,0);
            
            var ax:Number; var ay:Number;
            var i:int; var k:int; var yt:int; var t:int;
            for (i=0;i<mh;i+=1)
            {
             yt = i * mw;
             for (k=0;k<mw;k+=1)
             {
               t = vecGrid[k+yt];
               if (t<=0) { continue; }
               ax=k*cw;ay=i*ch; 
                 graphics.beginFill(0x404040, 1); 
                     graphics.drawRect(ax,ay,cw,ch);           
                 graphics.endFill();  

              continue;
             }//nextk
            }//nexti  
     
     
            var a:xAct; var num:int; var vec:Vector.<xAct>;
            vec= vecAct;    num = vec.length;
            
            if (isKeyDown(49)) { changeAct(0); }
            if (isKeyDown(50)) { changeAct(1); }
            if (isKeyDown(51)) { changeAct(2); }
            
            if (curAct != null) { curAct.onMove(); }
            
            for (i=0;i<num;i+=1)
            {
             a =  vecAct[i]; 
             a.update();
             graphics.drawCircle(a.cx,a.cy,8);
             if (a == curAct) { graphics.drawCircle(a.cx,a.cy-24,4); }
            }//nexti
            
            if (curAct != null)
            if (mbutton>0) { a = curAct; a.cx=stage.mouseX; a.cy=stage.mouseY; a.vx=0; a.vy=-1; }            
        }//onenter
        
      
        public function changeAct(i:int):void
        {
            var a:xAct;
          if (i<0||i>vecAct.length){return;}
            a = vecAct[i]; if (a==curAct){return;}
            curAct.vx=0; curAct=a;
            
        }//changeact
        
        
    }//classend
}
import flash.ui.Keyboard;

 var vecGrid:Vector.<int>;
 var mw:int = 0;          var mh:int = 0;
 var cw:Number = 32;      var ch:Number = 32;

 function initEmpty(aw:int, ah:int):void
{ mw=aw; mh=ah; vecGrid = new Vector.<int>(aw*ah, false); }

 function setTile(ax:int, ay:int, t:int):void
{ if (ax<0||ax>=mw||ay<0||ay>=mh) {return;} vecGrid[ay*mw+ax]=t; }

 function getTile(ax:int, ay:int ):int
{ if (ax<0||ax>=mw||ay<0||ay>=mh) {return 0;}  return vecGrid[ay*mw+ax]; } 

function isWall(ax:Number,ay:Number):Boolean
{
   if (getTile(ax/cw,ay/ch)>0){return true;}
  return (ax<0||ay<0||ax>=465||ay>=465);  
}//iswall 


var vecAct:Vector.<xAct> = new Vector.<xAct>(0,false);

//var vecKey:Vector.<Boolean> = new Vector.<Boolean>(512,false);
//function isKeyDown(k:int):Boolean { return vecKey[k] == true; }

var vecKey:Vector.<int> = new Vector.<int>(512,false);
function isKeyDown(k:int):Boolean { return vecKey[k] > 0; }
function isKeyPress(k:int):Boolean { return vecKey[k] == 1; }


internal class xAct
{
  public var cx:Number = 0;
  public var cy:Number = 0;
  public var vx:Number = 0;
  public var vy:Number = 0;


  public function onMove():void
  {
    if (isKeyDown(Keyboard.LEFT)) { vx-=0.2; }
    if (isKeyDown(Keyboard.RIGHT)) { vx+=0.2; }      
    if (isKeyPress(Keyboard.UP)) { vy=-3; }
    if ((isKeyDown(Keyboard.LEFT) || isKeyDown(Keyboard.RIGHT))==false)  { vx*=0.9; }
  }//onmove
  
  public function update():void 
  {
      vy+=0.2; vx*=0.97;
      if (vx>0&&isWall(cx+8,cy)) { vx=0;}
      else if (vx<0&&isWall(cx-8,cy)) { vx=0;}
      if (vy>0&&isWall(cx,cy+8+vy)) { vy=0; }
      else if (vy<0&&isWall(cx,cy-8)) { vy=0;}
      
      cx+=vx;cy+=vy;
      
      var i:int;
      if (isWall(cx,cy+8)) { cy= Math.floor(cy); cy-=1; }
      else  { if (vy>=0&&vy<1&&isWall(cx,cy+9)==false) {  cy+=1; } }
    //  else  { for(i=0;i<8;i+=1) {if (vy>=0&&vy<1&&isWall(cx,cy+9)==false) {  cy+=1; }else {break;} } }
      
  }//update    


    
}//xact