ロックマン from ニコニコモンズ

forked:3
favorite:8
lines:323
license : All rights reserved
modified : 2008-12-25 03:18:49

Embed: Tweet

package
{
    import flash.display.*;
    import flash.events.Event;
    import flash.text.*;

[SWF(width="320", height="240", backgroundColor="0x000000", frameRate="30")] 
    public class MegaManTest extends Sprite
    {
        private var megaman:MegaMan;
        private var count:int = 100;
        private var test_col:TestCollision = new TestCollision();

function MegaManTest()
        {
            var tx:TextField = new TextField();
            tx.width = 320;
            tx.text = " Sprite pattern of MegaMan is distributed under niconi-commons\n"+
                "license by CAPCOM Co., Ltd.\n"+
                "* DO NOT USE FOR COMMERCIAL PURPOSE *";
            tx.textColor = 0xffffff;
            addChild(tx);

megaman = new MegaMan();
            megaman.collision = test_col;
            megaman.y = -80;
            megaman.x = 160;
            megaman.dir = MegaMan.D_LEFT;
            megaman.jump();
            megaman.run();
            addChild(megaman);

var preview:Bitmap = new Bitmap(megaman.sprite.pool);
            addChild(preview);
            preview.y = 100;
            preview.x = 20;
            preview.scaleX = 0.3;
            preview.scaleY = 0.3;

addEventListener(Event.ENTER_FRAME, onEnterFrame);
        }

private function onEnterFrame(e:Event):void
        {

if (count == 50) {
                megaman.dir = MegaMan.D_LEFT;
                megaman.run();
            } else if (count == 200){
                megaman.dir = MegaMan.D_RIGHT;
                megaman.run();
            } else if (count == 0 || count == 150) {
                megaman.stand();
            }

if (count == 90 || count == 240 || count == 280)
                megaman.jump();

megaman.tick();
            count = (count+1) % 300;
        }
    }
}

interface ICollision
{
    function checkFloor(x1:Number, y1:Number, x2:Number, y2:Number):CollisionResult;
}

class TestCollision implements ICollision
{
    public function checkFloor(x1:Number, y1:Number, x2:Number, y2:Number):CollisionResult
    {
        if (y1 < y2 && y2 > 100) {
            var r:CollisionResult = new CollisionResult();
            r.py = y2 -= 100;
            return r;
        }

return null;
    }
}

class CollisionResult
{
    public var px:Number = 0, py:Number = 0;
}

class MegaMan extends flash.display.Sprite
{
    import flash.display.*;
    import flash.geom.*;
    public static const S_STAND:uint = 0x01;
    public static const S_RUN:uint   = 0x02;
    public static const S_JUMP:uint  = 0x04;

public static const D_LEFT:uint  = 1;
    public static const D_RIGHT:uint = 2;

private static const RUN_PTN:Array = [20, 21, 22, 23];
    private static const STD_PTN:Array = [0, 0, 0, 1, 0, 0];

private static const FOOT_Y:int = 33;

private var mSpr:IndexedSprite;
    private var mState:uint;
    private var mDir:uint;
    private var mV:Point = new Point(0, 0);
    private var mVfix:Point = new Point(0, 0);
    private var mRunSpeed:int = 3;

private var mAnimationCount:int;
    private var mCollision:ICollision = null;

function MegaMan()
    {
        mDir = D_RIGHT;
        mState = S_STAND;
        mAnimationCount = 0;

var pool:SpritePool = new SpritePool(MegaManPatternData);
        mSpr = new IndexedSprite(
                pool,
                MegaManPatternData.CELL_WIDTH,
                MegaManPatternData.CELL_HEIGHT,
                MegaManPatternData.CELL_COLS
        );

addChild(mSpr);
    }

public function set collision(c:ICollision):void {
        mCollision = c;
    }

public function set dir(d:uint):void {
        mDir = d;
    }

private function ifChangeState(s:uint):void
    {
        if (mState != s) {
            mState = s;
            mAnimationCount = 0;
        }
    }

public function run():void {
        if (mState != S_JUMP)
            ifChangeState(S_RUN);
        mV.x = mRunSpeed * ((mDir==D_LEFT) ? -1 : 1);
    }

public function stand():void {
        if (mState != S_JUMP)
            ifChangeState(S_STAND);
        mV.x = 0;
    }

public function get sprite():IndexedSprite
    {
        return mSpr;
    }

public function jump():void
    {
        if (mState != S_JUMP) {
            mAnimationCount = 0;
            mV.y = -5;
            mState = S_JUMP;
        }
    }

private function land():void
    {
        mState = (mV.x!=0) ? S_RUN : S_STAND;
    }

public function tick():void
    {
        checkFloorCollosion();

switch(mState) {
        case S_STAND:
            mSpr.index = STD_PTN[ int(mAnimationCount/6)%6 ];
            break; 
        case S_RUN:
            mSpr.index = RUN_PTN[ int(mAnimationCount/4)%4 ];
            break; 
        case S_JUMP:
            if (mAnimationCount > 5) {
                mV.y += 1;
                if (mV.y > 8) mV.y = 8;
            }
            mSpr.index = 10;
            break; 
        }

mSpr.scaleX = (mDir == D_RIGHT) ? -1 : 1;
        mSpr.x = -32 * mSpr.scaleX;
        mAnimationCount++;

updatePosition();
    }

private static const FOOT_W:int = 3;
    private function checkFloorCollosion():void
    {
        if (!mCollision) return;

var r:CollisionResult;
        if (mState == S_JUMP) {
            r = mCollision.checkFloor(x-FOOT_W, y + FOOT_Y, x-FOOT_W+mV.x, y + FOOT_Y+mV.y);
            if (!r)
                r = mCollision.checkFloor(x+FOOT_W, y + FOOT_Y, x+mV.x+FOOT_W, y + FOOT_Y+mV.y);

if (r) {
                land();
                mV.y -= r.py;
                mVfix.y = -mV.y;
            }
        }
    }

private function updatePosition():void
    {
        x += mV.x;
        y += mV.y;

mV.x += mVfix.x;
        mV.y += mVfix.y;
        mVfix.x = 0;
        mVfix.y = 0;
    }
}

class IndexedSprite extends flash.display.Sprite
{
    import flash.display.*;
    import flash.geom.*;

private var mPool:BitmapData;
    private var mCellWidth:uint;
    private var mCellHeight:uint;
    private var mCols:uint = 0;

private var mBmp:Bitmap;
    private var mBuf:BitmapData;
    private var mRc:Rectangle;
    private var mPt:Point = new Point(0, 0);
    function IndexedSprite(pool:BitmapData, cw:uint, ch:uint, cols:uint)
    {
        mPool = pool;
        mCellWidth = cw;
        mCellHeight = ch;
        mCols = cols;

mBuf = new BitmapData(cw, ch);
        mBmp = new Bitmap(mBuf);
        addChild(mBmp);
        mRc = new Rectangle(0, 0, cw, ch);

this.index = 0;
    }

public function set index(i:int):void
    {
        mRc.x = (i%mCols) * mCellWidth;
        mRc.y = int(i/mCols) * mCellHeight;
        mBuf.copyPixels(mPool, mRc, mPt);
    }

public function get pool():BitmapData
    {
        return mPool;
    }
}

class SpritePool extends flash.display.BitmapData
{
    import flash.utils.ByteArray;

function SpritePool(src:*)
    {
        var ba:ByteArray = B64.decode(src.DATA);
        ba.uncompress();

var w:int = ba.readUnsignedShort();
        var h:int = ba.readUnsignedShort();

super(w, h, true, 0);

var pal_length:int = ba.readUnsignedByte();
        var pal:Array = new Array(pal_length);
        for (var i:int = 0;i < pal_length;i++) {
            pal[i] = ba.readUnsignedInt();
        }

lock();
        var x:int, y:int, k:uint;
        for (y = 0;y < h;y++) {
            for (x = 0;x < w;x += 2) {
                k = ba.readUnsignedByte();
                setPixel32(x  , y, uint(pal[k&0x0f]));
                setPixel32(x+1, y, uint(pal[(k&0xf0)>>4]));
            }
        }
        unlock();
    }
}

class B64
{
    import flash.utils.ByteArray;
    public static function decode(raw:String):ByteArray
    {
        var res:ByteArray = new ByteArray();
        
        var d1:int, d2:int, d3:int, d4:int;
        var len:int = raw.length;
        for (var i:int = 0;i < len;i += 4) {
            d1 = v(raw.charCodeAt(i  )); d2 = v(raw.charCodeAt(i+1));
            d3 = v(raw.charCodeAt(i+2)); d4 = v(raw.charCodeAt(i+3));
              
            if (d2 == 64) break;
            res.writeByte( (d1 << 2) + ((d2 & 0x30) >> 4) );

if (d3 == 64) break;
            res.writeByte( ((d2 & 0x0f) << 4) + ((d3 & 0x3c) >> 2) );

if (d4 == 64) break;
            res.writeByte( ((d3 & 0x03) << 6) + d4 );
        }
        
        res.position = 0;
        return res;
    }

public static function v(c:int):int {
        return (c==61) ? 64 : (c>=65 && c<=90) ? (c-65) : (c>=97 && c <= 122) ? (c-71) : (c>=48) ? (c+4) : (c==43) ? 62 : 63;
    }
}

class MegaManPatternData
{
    public static const CELL_WIDTH:int  = 64;
    public static const CELL_HEIGHT:int = 64;
    public static const CELL_COLS:int   = 10;
    public static const DATA:String = 
    'eNrtnU2W27oRhUWfPhmjiKe5AbYXAOJpkJnaphcgW1xJNvA2k2VkPRlmCQ4AynYGQpUO0Ax/dL8X9yAlkMRl4Vfi5Ye/Pvz1t0PgR/z393/9+HH4x39+JP79zwMAAAAAAHhmqJkzLpVef/0FlOUPUBeXSi9P7RWa1uv54lLp5am8QkXO+2auuFR6BelXeYXO8uXr4lLp'+
    'VINF9X3kCtny5L1v54pLpacGREvq98AVcrz54cqVv/hx5OJ8+SlKfP/tlmzhUv1E/S40nDj9xnHk4nz5KWo5ASkkwIJDjFS/h/Rj7j9diLh4vrwK84IUNdbmD6C6tkY/Vdv2pfqJ+l+H64mE+0MF5RV5TSka9MsLpHTov7viCkidpzi3k+on3r8jXXS+gZXHjbHh/09R'+
    'k08wRafv46krncJKnac4OZbqJw/f4QYY2zfvHnfOa5uirc7qp0wb7v/YmbZMQKnzlCbH6uf1lwroupbI2uxNLI/H9mttjDqdLx4+cKRR276oC5Q6T3Fy7Lydrr9wCqB8F3qnfAOriYfxgyhGXT79fJfyL+iXqYCw9k6dJxVPjpV3t+t3ulC/VENyep546IBCDubTz2tz'+
    'ocvJtBmNKaYH5XvfP78Mp85kRZ4mx5SNqzDEpesnX6qfTuXz+VUXDz1QaByUbz6NCtU72kbdPYIK1Y+5mVMg9v7XzvQ6E58mxzYbj2eN1585/UP6hQz3nD5V8ShRvgWFLjJ0PnQxuQqEwmOY/vShed29B+qP49s19LK5+DQ5zsdj9zBdYOkEgJpUPlu8Nn4wzPLSBeFt'+
    'F1t4pqNz/vs4HmP96e5NUF+/DqPOxyl1Dvm4dIMfmkH1oROfLZ7CueVHvHTbhx48L/D34zHql+sff+qTiaf8Y+IP1E+eAFpjmRsgxVXHxl1nKbv8iN1b12ub00+1Sb8wibOZaQqF9AxjTC6u4tyIiT9QPyn9nG9Vn+/hpXgawnpuhAg9dDYeEpBa1+Vmr2H1EPQLI2So'+
    'ob87xTRxdGbiIQGZ+CP1E+XzqQulsvj0AaZ8HFlimlF2/KOYghl5jXFjOHis/705eAy1bFwTMfEH6ie1Xn8rn8lgKT6FysuHKXZowtm2pY07xikM9drd109TRfyB+onrxzi1mv6WxKdQRfmYm9ktgJA8348peYnUnQ/F41JF/IHrWzsqZgfTu9Kv5QflU6AqvnE2e+cB'+
    'AAAAAAAAAAAAAAAAAAAAAAAAAABYBy+QoE49CAiWw36ABhV8tEFAtODi3s9a30GHivTrvf9whhBFnA990g9KlNLHR2ssdCjlc3SogX7l+kWHFVszAFf6/ynavn6l/V+07posPvImXlJ8Wfuq2uHj8C061NjCNVy0LZgsPvL+CUJctK96SZe53unLkS6dLRNQed9MFh8q'+
    '+wCdFBftq8J1DeuVr7ffxtHavmgEUV43k8WHyiaREBccWM6H8xD+97LWBVLvbaJwCui0niw+XLZ9CnHBvur8EsQbhpfzKvV7+ej7btKv78oS0E8OffnnX/m4ZF91Hs5D4GVYZ/599JN8aQ1ccomumxz67jfBXw50ORcp0b4qqZcUXKt+h6jeh4+FewjKTg599x9ujw50'+
    'THxyv+Lsq4b/YZUC2g+hC4ydny3cQjCTQ99dA4zkQMfEZfuq82/51piA52kIqdk/UG3Kn7u1Tw50TFy2rzqsPP3O0/5VZ8vnqIbokkuv5ECXj4v2Vavv/9L+Sxw9yhMwLL+OWf8aaoiLR/04+6rV51+cQHsb/5U34Kh/UxaPWweGsa9af/59TJunfcUOYI1+KX9t1n5p'+
    '9fl3vg0e6W9ZB6iI10eKE6vf+ucvcfJ3+1vW/cXta2YDRYhH9zJu/bv6/q8S5ZMATWncdZbVb/3j76Fqey3MgIMAtimNOy/Y553XLd/5l3qF3Z+PDpqcfnzcTQasjdiA190MizMwrRsMqw8XT9uqKu+uvRX9yptv2pvn9GHjyT1PMf3jJvq/Kv0oLSMK4yE9m4Pjxt+X'+
    'Sb7zThMwertx+SPE4wYhm34vh2n/+XDe7y+cJO9oIa5478bb9x87pl6/7X7/tgL9DiTqd4Z+rIDP7SBZrd+zU/sCUQAAAAAAAAAAAAAAAAAAAAAAAACAJ2eA+VoN5wECVqXfbn/d/v9KP/sZCViRfq/WIgGL0+8V+lXqZ4N+aMDF3Z8drtCvQr8LDZ/m1K/217vr/vXv'+
    'Tb/5TjDZ/y1Xfm79rtfh+qlmBihUz7TS4x+V5Zee/R3p8rliCi3kx2T/N2P5hWd/r8N1HMMcsLgHFPJjsv+bsfzCsxc7PR9aPAWU8mOy/5uv/MLpZ18/T/q9Fq7hpPyY7P/mK7+0fp9vz3eXroGn/Mg76E72f01xfknlt67flB+W2Pqbtji/pPKLD7+hCwyd37l0AJ7y'+
    'w7pchkz2f3mDial8Pn+l8ksn4MukX+EmNDW3/MiOoSpMjzTj0DSVz+evVH55BYfX0IjLGq/y+mYvmR8DLuNo2nz9Y/ljzn7ygfIr2H+Jvd9Qqt+UH03eYoOIOIfxWN6aPj8HFMov3gHGGWD8V6ififnB6KeiAyVn0HEZO9vmH+GXyi++/oiDx2vpDqDzoe5k+yb7EgXl'+
    'Q+POm+OHO0Chd8s/oi6UX379cdPPFiZg19rYe+UHUCLN+rN5b3XfUFNWfvn5SzL3Kf4OznWNCRIQ5wDomPSJ+vXGE/MRtvzyo+9P/QpHYIr2X5qzYDKGWz6E4SF0b8z4LZTfPsb21HNNlJndHSYHyugRqAvLbx3V2TCAaKYBCxssobyx3BCx6g3Aev1C7UxPxH5Cc0O4'+
    'PqheM5uoksHTtqFogk18H8nUfwoKW9A71k95MTvY9ue82Dp33X5VHECFDOU+EIs3FeUBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWJZ9+//Nzs79/2bPr337/82eXzv3/6vnqf3/3iH9ntr/r57n9v97B/0Y/z8VerYa/79Hym8dxv8vPndPFf5/D5Xfdt/X'+
    'cP5/xlhtOf++3+XvjyxS+c3L9zs/7o2hznlt27x/3+/y99WRym9+5vI7P+76B0V9rM379/0qf8zfH6785oeO3/lx378utM9oD5Hz7/tVPtc6hfJ7aL9TfnD+iSrr35fKT/5/7Ppkzf5/teMHkeb9/9ICI2POFL1PJv8/YYHjdrwCVoL/3+Eh/z/VlJXfwzDyzP5/75KA'+
    '8P+ryj/4/1WlH/z/6vSD/18V8P+rTT/4/1XNoeH/BwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHYO9/zWe7jPqZ0/QOO4B8yrn10jcrt+AP1AvH6VyRP9EXatH1nmAUnnqe7xZ9V73+3aQMJzTz87HcI12RPtFbzesX7Oc0/fOx/Cuurw+9ZPJYGyDi4myVuR'+
    'gG64+l7v1wEw9E+ifl2FfhcaPtn96qfoEf345/Pzg3cot3P9nO5j/8TpJ4yfKuvvkgzuLsP11O9ZvyiQyadQG+V1rAFHbnxJBnctXbjjb16/Lgik8/6QKvrDml5z02ObmSEmgzv77cQdf/P6hcoT509qWgoS5d2FbKLJtd8pvN/h1+Sr/78CtYz+kZzBXUNGOP7m9TPZ'+
    '9verfTL+m87H9RlnsGP5429dvzbo57n+zwf98g08rO8CjtfP7zcBVfS/1vn8MnH88Pn5X/LP9sQ7BOodd4CxfobTr2UdmijND5kGKhx/D+s3ze8fOHb9FvVjxmfp+NvXz7aONzjVrH24ifaJbP/X7tpAzMX68f5+hkmv2MCJM6iTjr+DBYji9Wu45UfUL25SFx9/8/qF'+
    'tsUubzX/HVJs3FyCScffvn6a2YFKu1NC+25Yhz/p+HvQr+Yj0neTbt+v33oH/fST6yc2LlWn375fn/dI385uP0v67Tv9Hurb2fFF0E899+svZQgCAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKtD4QHAKky7sIDbvn9KL/yEvbKbFvDN0bDoI/am3bRD'+
    'wtuFhtOC+qloILrhBHy7DtfTgvZozm7bHutCNPol9YsOeNu1t1M0jidargdXKf/azSags8T6684+ejj6cvXtVhNQ+S76xy5ncmPe/DCcTN9sVT8y3ne0lMuN6sL4f9V2u/ol/3ZaagqmfDuOR2O3OgUM+tne23Y5/UL3ayxt1uWJyNuu10sNwDH/re1ps0sQCr1f6AF1'+
    's9j9i+/PaGmz/V/QLv1Z7Pw23MF+q/nniFxz+7vI+YN4LVm/1SWcorj2oLyBqYoRRVRxAq68Sovf8GerbxiQ6ifpKy7PBH1q78/O2/fW2+e7jC9UPr5sfXxYfH6z8fnJ3PNr+tU/NvucH8+8vnP+Nj74Jrs/Ed/f455XP3Z/QRpfVRw+iOzz5l96wUw+f1R8v4LNT9/S'+
    '9rLf7P7eOywQ4v4g8xWxs71jtu9cfDku6efVr0vvd8vXX6XxNZ/A6fWGO35/rdSAO/79edSkwSM/PzFJv+f9iU16v2X2+zF5/3rS72nlOxjiVr8qvh3JWl4/emb9lOdWb/L8TvGvb316/dL3n4Z9AdLzzl6m+mtm8+X2/lVGIUU7fn3oIwnIvh5Y1i8c4HB4bgE5cUxa'+
    'nz25RDXqul2/33fh8QWI80PoB/0W1o+gX03/99Tr23fQjyyeYKpZn5gWKtRMr5F+lQJCAwAAAAAA8EzzX379IP04WVq+8eVV/seDP8sLy5vaeK16fAUa4cfjDdmquNPWsb++V1a4AYL/xMz+FMT+vuAmb/4K5Hj6gikf96b1nquhEfwRJP+Jmf0piBdQPaZvcdxpIq+J'+
    'ax+O3d9O8aY8/i7Nl0kQQV85boX7YwWBrWN//Sv5T8zsT6HoQsfwnxBn2++c8YOjkKEdF2d/f5ji3YwblG/jcOXqN8Xz+l7GcayJC8c/vPkQZ/SLcU6/GLdz6nehgbv/UnzSpzz+yPmPHR/n/Gti/NPM+o1UHg/t+1ITf+T8RyHO+Scl/Wbc4b1chyt3/WJ8jAlWEX/g'+
    '/EchfhLiM+qnQt9zOVradFwL8Xa+H+g4GxLE5H9/tvd4tX7x+SBrszOkvcdrm6/w+9u9x+v143//vfd4vX788wd7j7+DfvzzlTuP12+/CM9f7T1en4G2Z9fXe4/XTwCt4Yb3vcdr08/5VvX5DfS9x+vl45+/33m8uvUK/g97j1cPv4L/yN7jAAAAAAAAAAAAAAAAAAAA'+
    'AAAAAAAAAAAAAAAAAAAAYP+s219v9aj82wVv8UX99VaPsbw91ML+eutPvwDnn2cX9dfbQvqx+pll/fW2oV/LNk/RX88/8QtA3izvjxfjkr/eU+sn+OM94q93enL9TlQZf+L+7xH/vJr43qcvj/jnVcT3ztr99Vav37r99VbffFfur7d+/dbtr7d+/dbtr7cB/dbtr7d2'+
    'Vu+vt/oMXLm/3vongKv211t9+q3bX28D8q3aX2/1rXfl/nqrH37hrwcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB2jvDoiyLh2SyqPICiZc9fieTf51h7sXD5gv+dch1/ANOy9TOWf7hOWcHAcGZ3EMG/T7X8w+Wq977jrs8J/mLRIK/hj88+XGek43tNMz6f'+
    'LPn3Jf+1hr98TmAlxMMJXE35FOduYKietvMloOTfR8LDla6yfqpr2fIP3R/pAmd8ulHy74un7zQb73q2fh1bPxUNKBh9Y5TXz/LH7/ysT9dK/n1vX4ZTy+k7XHvDtU/X9mz9hPwM+rVc/6869234kzl+238dvsyon+DfR8e3K6dfKL60fp//uHD6fRvoOLN+zcz61Y0P'+
    'q9ZP8u97+zqcuOHtMlw7dn5FxrP+vsbanpvgmb5ju39nvw9XdoLwdfg6m36if9+FLifi8oNGdn6vOk1MeRVmz0TM+VUo3rETULocmQsI49NIl9n0E/371DgSN4FX45Fdfzje3zeFLXd+Ppz808cjd/72wsVr9ZP8+1QMc9dP/Ppo0q8p1o8k/cIRiA+38y2AZf++6E/H'+
    'rvD49VdYPYXju6b4/E46v/OmPQjnn23+LPr3qXj6lrP3M5ZY/YjXT/IPTPpx53faWOn8rZ5NP8G/b9KPXWDV5Z/kH/hI/lnp/HPqx/v3KR2nZ/z1C/p5xt1J9g+MDlHV59ez2ROK/n1xecyuv53XXPdMxC4/Zf/AqB+xL4CQ9z/0fPNn0d+v98L+aGf594P07PZS2t9r'+
    '+f09dvtJOn+s4Iz7f7K/X8vv3yojVc9wFXS2d+z8UiifBjC+gu2MG9Cif1/oXNj94XiEhu9hFdN9qTABVdwOvVA+XSGvn1SBSvl4/76wfA+n5/oPvvsJJwj1zx9ePD9f/tYBC5fnZrO3Ff37XDo9m0CeHx1T/ZnDi+fnyt82cIiNNvO9IUf074uRGGaGPy6aDq3Yw4vn'+
    '58qLF6BuFYA9IQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwL/8F3q662w==';
}

Code Fullscreen

Preview Fullscreen