flash on 2016-4-4

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

package {
    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);} }

            
            myAct = new xAct();
            myAct.cx=230; myAct.cy=230;
            
            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 var myAct:xAct;
        
        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;
            a = myAct;
            a.update();
            graphics.drawCircle(a.cx,a.cy,8);

            if (mbutton>0) { a.cx=stage.mouseX; a.cy=stage.mouseY; a.vx=0; a.vy=-1; }            
        }//onenter
        
        
    }//classend
}


 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 

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 update():void 
  {
      vy+=0.2;
      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;} } }

      update2();
      
  }//update    

  public var moveDir:int = 0;

  public function update2():void
  {
    if (moveDir == 0) {vx =2;} else {vx=-2;}  
    
    if (isWall(cx+12,cy)) {moveDir = 1; }
    else if (isWall(cx-12,cy)) {moveDir = 0; }  
      
  }//update


    
}//xact