※現在、「wonderfl build flash online」求人コンテンツ制作に関してのアンケートを実施中です！みなさまのお力添えを頂いて、続々とアンケート結果が集まっていますが、まだまだ募集しております。ご協力のほど、どうぞよろしくお願いいたします！

wonderfl運営事務局
→アンケートページ（※ログインしてからお答えいただけるようになっています。）

 notice: Flash editor updated! Join the development! Thanks to MiniBuilder


forked from : ton's ゲームっぽくしてみたforked from: なんとかディウスっぽい背景 [diff(490)]

embed

noswf download fullscreen
flash swf thumbnail play
reload download fullscreen

FORKED
>sort

マルチポー forked from: ゲームっぽくしてみた forked from: マルチポー forked from: ゲームっぽくしてみた [diff(1)]

  1. // forked from gyuque's マルチポー forked from: ゲームっぽくしてみた
  2. // forked from ton's ゲームっぽくしてみたforked from: なんとかディウスっぽい背景
  3. // forked from gyuque's なんとかディウスっぽい背景
  4. // ゲームっぽくしてみた
  5. // 十字キーで移動
  6. //　スペースキーで弾発射
  7. // だれか当たり判定つけて＞＜
  9. package
  10. {
  11.     import flash.display.*;
  12.     import flash.geom.*;
  13.     import flash.events.*;
  14.     import flash.ui.Keyboard;
  16.     [SWF(width="320", height="240", backgroundColor="0x000000", frameRate="30")]  
  17.     public class Nemesis extends Sprite
  18.     {
  19.         public static const W:int = 320;
  20.         public static const H:int = 240;
  22.                 public static var KeyMapping:Object = {};
  24.         private var mScroll:int = 0;
  25.         private var mMyPos:Point;
  26.         private var mBGen:MountainGen = new MountainGen(160);
  27.         private var mTGen:MountainGen = new MountainGen(160, 1);
  28.         private var mBBGen:MountainGen = new MountainGen(180, 1, true);
  30.         private var mBBGScreen:BitmapData = new BitmapData(W, H, true, 0);
  31.         private var mBBGScreenBmp:Bitmap;
  32.         private var mBBGScreenBmp2:Bitmap;
  34.         private var mBGScreen:BitmapData = new BitmapData(W, H, true, 0);
  35.         private var mBGScreenBmp:Bitmap;
  36.         private var mBGScreenBmp2:Bitmap;
  37.         private var mStarbg:StarBG = new StarBG(W, H, 30);
  38.         
  39.         private var ship:Ship = new Ship(0x00ffff, true);
  40.                 private var mKeyState:KeyState = new KeyState();
  42.         function Nemesis()
  43.         {
  44.             mapKey(Keyboard.UP, KeyState.K_UP);
  45.             mapKey(Keyboard.DOWN, KeyState.K_DOWN);
  46.             mapKey(Keyboard.LEFT,KeyState.K_LEFT);
  47.             mapKey(Keyboard.RIGHT, KeyState.K_RIGHT);
  48.             mapKey(Keyboard.SPACE, KeyState.K_TRG1);
  50.                         setupBG();
  51.                         setupShip();
  53.             addEventListener(Event.ENTER_FRAME, tick);
  54.             stage.addEventListener(KeyboardEvent.KEY_DOWN, onKeyDownHandler);
  55.             stage.addEventListener(KeyboardEvent.KEY_UP, onKeyUpHandler);
  56.         }
  58.                 private function setupShip():void {
  59.             ship.x = 40;
  60.             ship.y = H / 2;
  62.                         var m1:Ship = new Multiple();
  63.                         ship.appendMultiple(m1);
  65.                         var m2:Ship = new Multiple();
  66.                         ship.appendMultiple(m2);
  68.                         ship.fillMoveBuffer();           
  70.                         addChild(m1);
  71.                         addChild(m2);
  72.             addChild(ship);
  73.                 }
  75.                 private function setupBG():void {
  76.             addChild(mStarbg);
  78.             mBBGScreenBmp = new Bitmap(mBBGScreen);
  79.             addChild(mBBGScreenBmp);
  80.             mBBGScreenBmp2 = new Bitmap(mBBGScreen);
  81.             addChild(mBBGScreenBmp2);
  83.             mBGScreenBmp = new Bitmap(mBGScreen);
  84.             addChild(mBGScreenBmp);
  85.             mBGScreenBmp2 = new Bitmap(mBGScreen);
  86.             addChild(mBGScreenBmp2);
  88.             var i:int;
  89.             mBGen.step();
  90.             mTGen.step();
  91.             mBBGen.step();
  92.             for (i = 0;i < W;i++) {
  93.                 mBGen.step();
  94.                 mTGen.step();
  95.                 mBGen.draw(mBGScreen, i, 80);
  96.                 mTGen.draw(mBGScreen, i, 0, false);
  98.                 mBBGen.step();
  99.                 mBBGen.draw(mBBGScreen, i, 60);
  100.             }
  101.                 }
  103.                 private static function mapKey(raw:uint, _to:uint):void {
  104.                     KeyMapping[raw] = _to;   
  105.                 }
  106.         
  107.         private var _clrrc:Rectangle = new Rectangle(0, 0, 1, H);
  108.         private function tick(e:Event):void
  109.         {
  110.             
  111.             var ox:int = mScroll % W;
  112.             var ox2:int = int(mScroll/2) % W;
  113.             _clrrc.x = ox;
  114.             mBGScreen.fillRect(_clrrc, 0);
  116.             mStarbg.tick();
  117.             mBGen.step();
  118.             mTGen.step();
  120.             mStarbg.draw();
  121.             mBGen.draw(mBGScreen, ox, 80);
  122.             mTGen.draw(mBGScreen, ox, 0, false);
  124.                         if ((mScroll%2)==1) {
  125.                     _clrrc.x = ox2;
  126.                 mBBGScreen.fillRect(_clrrc, 0);
  127.                     mBBGen.step();
  128.                 mBBGen.draw(mBBGScreen, ox2, 60);
  129.                         }
  131.             mBGScreenBmp.x = -ox;
  132.             mBGScreenBmp2.x = W-ox;
  134.             mBBGScreenBmp.x = -ox2;
  135.             mBBGScreenBmp2.x = W-ox2;
  137.             ship.moveByKeyState(mKeyState.state);
  138.             ship.tick();
  139.                         ship.draw();
  141.             mScroll++;
  142.         }
  143.         
  144.         private function onKeyDownHandler(e:KeyboardEvent):void {
  145.                         if (KeyMapping.hasOwnProperty(e.keyCode))
  146.                             mKeyState.setState(KeyMapping[e.keyCode]);
  147.         }
  148.         private function onKeyUpHandler(e:KeyboardEvent):void 
  149.         {
  150.                         if (KeyMapping.hasOwnProperty(e.keyCode))
  151.                             mKeyState.delState(KeyMapping[e.keyCode]);
  152.         }        
  153.     }
  154. }
  156. import flash.display.*;
  157. import flash.events.Event;
  158. import flash.geom.Point;
  160. class KeyState
  161. {
  162.     public static const K_UP:uint    = 0x01;
  163.     public static const K_DOWN:uint  = 0x02;
  164.     public static const K_LEFT:uint  = 0x04;
  165.     public static const K_RIGHT:uint = 0x08;
  166.     public static const K_TRG1:uint  = 0x10;
  168.     private var mState:uint = 0;
  170.     public function setState(s:uint):void {
  171.         mState |= s;
  172.     }
  174.     public function delState(s:uint):void {
  175.         mState &= ~s;
  176.     }
  178.     public function get state():uint {
  179.         return mState;
  180.     }
  181. }
  183. class Ship extends Sprite
  184. {
  185.     private var speed:int = 4;
  186.         protected var mCount:int = 0;
  187.         private var mMovBuf:PositionRingBuffer;
  188.         private var mMultiples:Array;
  190.     public var color:uint;
  191.     function Ship(color:uint, enable_buf:Boolean = false)
  192.     {
  193.         this.color = color;
  194.             draw();
  196.             if (enable_buf)
  197.                 mMovBuf = new PositionRingBuffer(100);
  198.     }
  200.         public function fillMoveBuffer():void {
  201.             for (var i:int = 0;i < 100;i++)
  202.                 mMovBuf.push(x, y, false);
  203.         }
  205.         public function appendMultiple(m:Ship):void
  206.         {
  207.             if (!mMultiples) mMultiples = [];
  209.             mMultiples.push(m);
  210.         }
  212.         public function draw():void
  213.         {
  214.             var g:Graphics = graphics;
  215.             g.clear();
  216.         g.lineStyle(0, color);
  217.         g.lineTo( -30, -10);
  218.         g.lineTo( -30, 10);
  219.         g.lineTo(0, 0);
  220.         g.endFill();
  222.             if (mMultiples) {
  223.                 for each(var m:Ship in mMultiples)
  224.                     m.draw();
  225.             }
  226.         }
  228.         public function moveByKeyState(s:uint):void
  229.         {
  230.         if (s&KeyState.K_UP)         y -= speed;
  231.         else if (s&KeyState.K_DOWN)  y += speed;
  232.         if (s&KeyState.K_LEFT)       x -= speed;
  233.         else if (s&KeyState.K_RIGHT) x += speed;
  235.         if (s&KeyState.K_TRG1)
  236.                     fireShot();
  238.         if (x - width< 0) x = width;
  239.             else if (x > Nemesis.W) x = Nemesis.W;
  241.         if (y - height/2 < 0) y = height/2;
  242.             else if (y + height/2 > Nemesis.H) y = Nemesis.H - height/2; 
  245.                 mMovBuf.push(x, y);
  246.         }
  248.         public function tick():void {
  249.             if (mMultiples) {
  250.                 var len:int = mMultiples.length;
  251.                 for (var i:int = 0;i < len;i++) {
  252.                     mMultiples[i].x = mMovBuf.getX((i+1)*8) - 10;
  253.                     mMultiples[i].y = mMovBuf.getY((i+1)*8);
  254.                 }
  256.                 for each(var m:Ship in mMultiples)
  257.                     m.tick();
  258.             }
  260.             mCount++;
  261.          }
  263.         public function fireShot():void {
  264.         if (!(mCount%5)) {
  265.             var bullet:Bullet = new Bullet();
  266.             bullet.x = x;
  267.             bullet.y = y;
  268.             parent.addChild(bullet);
  269.         }
  271.             if (mMultiples) {
  272.                 for each(var m:Ship in mMultiples)
  273.                     m.fireShot();
  274.             }
  275.         }
  276. }
  278. class Multiple extends Ship
  279. {
  280.     import flash.geom.Matrix;
  282.     public static const GRAD_COLORS:Array = [0xffba33, 0xaa0000];
  283.     public static const GRAD_ALPHAS:Array = [1, 1];
  284.     public static const GRAD_RATIOS:Array = [100, 255];
  285.     private var mGradTrans:Matrix = new Matrix();
  287.     function Multiple()
  288.     {
  289.         super(0);
  290.     }
  292.     public override function draw():void
  293.     {
  294.         var g:Graphics = graphics;
  295.         var r:Number = Math.sin(mCount*0.9)*0.7 + 9;
  297.         mGradTrans.createGradientBox(r*2, r*1.8,0 , -r*1.1, -r*0.9);
  298.         g.clear();
  299.         g.beginGradientFill(GradientType.RADIAL, GRAD_COLORS, GRAD_ALPHAS, GRAD_RATIOS, mGradTrans);
  300.         g.drawEllipse(-r, -r*0.8, r*2, r*1.6);
  301.     g.endFill();
  302.     }
  303. }
  304. class PositionRingBuffer
  305. {
  306.     private var xs:Array;
  307.     private var ys:Array;
  308.     private var length:uint;
  309.     private var pos:int = 0;
  311.     function PositionRingBuffer(len:uint)
  312.     {
  313.         length = len;
  314.         xs = new Array(len);
  315.         ys = new Array(len);
  316.     }
  318.     
  320.     public function push(x:int, y:int, chk:Boolean = true):void {
  321.         var i:int = (pos + length - 1) % length;
  322.         if (chk) {
  323.             if (xs[i] == x && ys[i] == y) return;
  324.         }
  326.         xs[pos] = x;
  327.         ys[pos] = y;
  329.         pos = ++pos % length;
  330.     }
  332.     public function getX(i:int):int {
  333.         i = (pos - i + length) % length;
  334.         return xs[i];
  335.     }
  337.     public function getY(i:int):int {
  338.         i = (pos - i + length) % length;
  339.         return ys[i];
  340.     }
  341. }
  343. class Bullet extends Sprite
  344. {
  345.     public var color:uint;
  346.     public var size:uint;
  347.     public var speed:uint;
  348.     function Bullet(color:uint = 0xeeddaa, size:uint = 3, speed:uint = 20)
  349.     {
  350.         this.color = color;
  351.         this.size = size;
  352.         this.speed = speed;
  353.         
  354.         this.graphics.beginFill(color);
  355.         this.graphics.drawEllipse(-size, -size/2, size*1.8, size);
  356.         this.graphics.drawCircle(-size*1.3, 0, size/2);
  357.         this.graphics.drawCircle(-size*1.8, 0, size/3);
  358.         this.graphics.endFill();
  359.         
  360.         addEventListener(Event.ENTER_FRAME, updateHandler);
  361.     }
  362.     
  363.     private function updateHandler(e:Event):void 
  364.     {
  365.         this.x += speed;
  366.         
  367.         if (this.x + size / 2 > Nemesis.W) {
  368.             this.parent.removeChild(this);
  369.             removeEventListener(Event.ENTER_FRAME, updateHandler);
  370.         }
  371.     }
  372. }
  375. class MountainGen
  376. {
  377.     private var mPrevBuffer:Array;
  378.     private var mHeight:int;
  379.     private var mCount:int = 0;
  381.     private var tmpBuffer:Array;
  382.     private var mGenFunc:Function;
  383.         private var mDark:Boolean;
  384.     function MountainGen(h:int, generator:int = 0, dark:Boolean = false)
  385.     {
  386.                 mDark = dark;
  387.         mHeight = h;
  388.         mGenFunc = generator ? genWav2 : genWav;
  389.         mPrevBuffer = new Array(h);
  390.         tmpBuffer   = new Array(h);
  391.     }
  393.     public function draw(b:BitmapData, x:int, y:int, rev:Boolean = true):void
  394.     {
  395.         var i:int;
  396.         for (i = 0;i < mHeight;i++) {
  397.             if (tmpBuffer[i]) {
  398.                 var c:int = tmpBuffer[i];
  399.                 b.setPixel32(x, rev ? (y+mHeight-i) : (y+i), makeColor(c));
  400.             }
  402.         }        
  403.     }
  405.         private function makeColor(c:int):uint
  406.         {
  407.             if (mDark)
  408.                 return 0xff000000 | (c/7+5) | ((c/7 + 80)<<16) | ((c/6+50) << 8);
  409.             return 0xff000000 | (c/3+11) | ((c/5 + 170)<<16) | ((c/2+60) << 8);
  410.         }
  412.     public function step():void
  413.     {
  414.         var t:Number = Number(mCount) * 0.02;
  415.         var h:int = mGenFunc(t) * mHeight;
  416.         var i:int, k:int, m:int;
  418.         for (i = 0;i < mHeight;i++) {
  419.             mPrevBuffer[i] = tmpBuffer[i];
  420.         }
  421.         
  422.         for (i = 0;i < mHeight;i++) {
  423.             tmpBuffer[i] = (i < h) ? (Math.random()*80 + 80) : 0;
  425.             if (tmpBuffer[i]) {
  426.                 if (mPrevBuffer[i])
  427.                     tmpBuffer[i] = (tmpBuffer[i] + mPrevBuffer[i]*7)/8;
  429.                 if (mPrevBuffer[i] == 0 || i == (h-1)) {
  430.                     m = 50;
  431.                     for (k = i;k >= 0 && m > 0;k--, m-=4) {
  432.                         if (m > 33) m--;
  433.                         tmpBuffer[k] += m;
  435.                         m += Math.random()*7;
  436.                     }
  437.                 }
  439.                 if (mPrevBuffer[i+1] && i == (h-1)) {
  440.                     m = -48;
  441.                     for (k = i;k >= 0 && m < 0;k--, m++) {
  442.                         tmpBuffer[k] += m;
  443.                         if (tmpBuffer[k]<1) tmpBuffer[k] = 1;
  444.                     }
  445.                 }
  447.            }
  448.         }
  450.        for (i = 0;i < mHeight;i++)
  451.             tmpBuffer[i] = (tmpBuffer[i] < 0) ? 0 : (tmpBuffer[i] > 255) ? 255 : tmpBuffer[i];
  453.         mCount++;
  454.     }
  456.     private static function genWav(t:Number, nest:int = 0):Number
  457.     {
  458.         var v:Number = Math.sin(t);
  459.         v += Math.sin(t*3) * 0.1;
  460.         v += Math.cos(0.1 + t*10) * 0.02;
  461.         v *= Math.sin(t*0.1);
  463.         if (nest < 5)
  464.             v += genWav2(t*2.0, 1+nest)*0.5;
  466.         v = v*0.2 + 0.22;
  468.         return (v<0) ? 0 : (v>1) ? 1 : v;
  469.     }
  471.     private static function genWav2(t:Number, nest:int = 0):Number
  472.     {
  473.         var v:Number = Math.sin(t);
  474.         v += Math.cos(t*3) * 0.1;
  475.         v += Math.cos(0.1 + t*9) * 0.02;
  476.         v *= Math.cos(0.2 + t*0.15);
  478.         if (nest < 5)
  479.             v += genWav2(t*2.0, 1+nest)*0.5;
  481.         v = v*0.2 + 0.23;
  483.         return (v<0) ? 0 : (v>1) ? 1 : v;
  484.     }
  485. }
  487. class StarBG extends Sprite
  488. {
  489.     private var mWidth:int;
  490.     private var mHeight:int;
  492.     private var mStars:Array;
  493.     private var mStarVs:Array;
  494.     private var mN:int;
  496.     function StarBG(w:int, h:int, n:int)
  497.     {
  498.         mWidth = w;
  499.         mHeight = h;
  500.         mN = n;
  502.         mStars  = new Array(n);
  503.         mStarVs = new Array(n);
  504.         for (var i:int = 0;i < n;i++) {
  505.             mStars[i] = new Point(int( Math.random()*w ), int( Math.random()*h ));
  506.             mStarVs[i] = Math.random() + 0.2;
  507.         }
  508.     }
  510.     public function tick():void
  511.     {
  512.         var n:int = mN;
  514.         for (var i:int = 0;i < n;i++) {
  515.             mStars[i].x -= Number(mStarVs[i]);
  517.             if (mStars[i].x < 0) {
  518.                 mStars[i].x += mWidth;
  519.                 mStars[i].y = int( Math.random()*mHeight );
  520.             }
  521.         }
  522.     }
  524.     public function draw():void
  525.     {
  526.         var g:Graphics = graphics;
  527.         var n:int = mN;
  529.         g.clear();
  530.         for (var i:int = 0;i < n;i++) {
  531.             g.beginFill(0xffffff);
  532.             g.drawCircle( mStars[i].x, mStars[i].y , 0.4);
  533.         }   
  534.     }
  535. }
noswf

マルチポー forked from: ゲームっぽくしてみた wonderflで音楽♪SandStorm+うろおぼえVicViper from:from:なんとかディウス [diff(696)]

  1. // forked from gyuque's マルチポー forked from: ゲームっぽくしてみた
  2. // forked from ton's ゲームっぽくしてみたforked from: なんとかディウスっぽい背景
  3. // forked from gyuque's なんとかディウスっぽい背景
  4. // ゲームっぽくしてみた
  5. // 十字キーで移動
  6. // スペースキーで弾発射
  7. //   -> すいません．．Shiftに変更させてもらいました．keim_at_Si
  8. // だれか当たり判定つけて＞＜
  10. package
  11. {
  12.     import flash.display.*;
  13.     import flash.geom.*;
  14.     import flash.events.*;
  15.     import flash.ui.Keyboard;
  16.     import flash.media.Sound;
  18.     [SWF(width="320", height="240", backgroundColor="0x000000", frameRate="30")]  
  19.     public class Nemesis extends Sprite
  20.     {
  21.         public static const W:int = 320;
  22.         public static const H:int = 240;
  23.         
  24.         public static var KeyMapping:Object = {};
  26.         private var mScroll:int = 0;
  27.         private var mMyPos:Point;
  28.         private var mBGen:MountainGen = new MountainGen(160);
  29.         private var mTGen:MountainGen = new MountainGen(160, 1);
  30.         private var mBBGen:MountainGen = new MountainGen(180, 1, true);
  32.         private var mBBGScreen:BitmapData = new BitmapData(W, H, true, 0);
  33.         private var mBBGScreenBmp:Bitmap;
  34.         private var mBBGScreenBmp2:Bitmap;
  36.         private var mBGScreen:BitmapData = new BitmapData(W, H, true, 0);
  37.         private var mBGScreenBmp:Bitmap;
  38.         private var mBGScreenBmp2:Bitmap;
  39.         private var mStarbg:StarBG = new StarBG(W, H, 30);
  40.         
  41.         private var ship:Ship = new Ship(0xffffff, true);
  42.         private var mKeyState:KeyState = new KeyState();
  44.         function Nemesis()
  45.         {
  46.             mapKey(Keyboard.UP, KeyState.K_UP);
  47.             mapKey(Keyboard.DOWN, KeyState.K_DOWN);
  48.             mapKey(Keyboard.LEFT,KeyState.K_LEFT);
  49.             mapKey(Keyboard.RIGHT, KeyState.K_RIGHT);
  50.             mapKey(Keyboard.SHIFT, KeyState.K_TRG1);
  52.             setupBG();
  53.             setupShip();
  55.             addEventListener(Event.ENTER_FRAME, tick);
  56.             stage.addEventListener(KeyboardEvent.KEY_DOWN, onKeyDownHandler);
  57.             stage.addEventListener(KeyboardEvent.KEY_UP, onKeyUpHandler);
  59.             _initializeSound();
  60.         }
  62.         private function setupShip():void {
  63.             ship.x = 40;
  64.             ship.y = H / 2;
  66.             var m1:Ship = new Multiple();
  67.             ship.appendMultiple(m1);
  69.             var m2:Ship = new Multiple();
  70.             ship.appendMultiple(m2);
  72.             ship.fillMoveBuffer();           
  74.             addChild(m1);
  75.             addChild(m2);
  76.             addChild(ship);
  77.         }
  79.         private function setupBG():void {
  80.             addChild(mStarbg);
  82.             mBBGScreenBmp = new Bitmap(mBBGScreen);
  83.             addChild(mBBGScreenBmp);
  84.             mBBGScreenBmp2 = new Bitmap(mBBGScreen);
  85.             addChild(mBBGScreenBmp2);
  87.             mBGScreenBmp = new Bitmap(mBGScreen);
  88.             addChild(mBGScreenBmp);
  89.             mBGScreenBmp2 = new Bitmap(mBGScreen);
  90.             addChild(mBGScreenBmp2);
  92.             var i:int;
  93.             mBGen.step();
  94.             mTGen.step();
  95.             mBBGen.step();
  96.             for (i = 0;i < W;i++) {
  97.                 mBGen.step();
  98.                 mTGen.step();
  99.                 mBGen.draw(mBGScreen, i, 80);
  100.                 mTGen.draw(mBGScreen, i, 0, false);
  102.                 mBBGen.step();
  103.                 mBBGen.draw(mBBGScreen, i, 60);
  104.             }
  105.         }
  107.         private static function mapKey(raw:uint, _to:uint):void {
  108.             KeyMapping[raw] = _to;   
  109.         }
  110.         
  111.         private var _clrrc:Rectangle = new Rectangle(0, 0, 1, H);
  112.         private function tick(e:Event):void
  113.         {
  114.             var ox:int = mScroll % W;
  115.             var ox2:int = int(mScroll/2) % W;
  116.             _clrrc.x = ox;
  117.             mBGScreen.fillRect(_clrrc, 0);
  119.             mStarbg.tick();
  120.             mBGen.step();
  121.             mTGen.step();
  123.             mStarbg.draw();
  124.             mBGen.draw(mBGScreen, ox, 80);
  125.             mTGen.draw(mBGScreen, ox, 0, false);
  127.             if ((mScroll%2)==1) {
  128.                 _clrrc.x = ox2;
  129.                 mBBGScreen.fillRect(_clrrc, 0);
  130.                 mBBGen.step();
  131.                 mBBGen.draw(mBBGScreen, ox2, 60);
  132.             }
  134.             mBGScreenBmp.x = -ox;
  135.             mBGScreenBmp2.x = W-ox;
  137.             mBBGScreenBmp.x = -ox2;
  138.             mBBGScreenBmp2.x = W-ox2;
  140.             ship.moveByKeyState(mKeyState.state);
  141.             ship.tick();
  142.             ship.draw();
  144.             mScroll++;
  145.         }
  146.         
  147.         private function onKeyDownHandler(e:KeyboardEvent):void {
  148.             if (KeyMapping.hasOwnProperty(e.keyCode))
  149.                 mKeyState.setState(KeyMapping[e.keyCode]);
  150.         }
  151.         private function onKeyUpHandler(e:KeyboardEvent):void {
  152.             if (KeyMapping.hasOwnProperty(e.keyCode))
  153.                 mKeyState.delState(KeyMapping[e.keyCode]);
  154.         }       
  157.     // Sound
  158.     //------------------------------------------------------------
  159.         private function _initializeSound() : void {
  160.             var A:String = "$v12@0s32w24o4l1[[4cr|crrc]cgfe[crcrrc]|[crcrrc]]v6<gggeeeccc>ggg";
  161.             A+="v12[8crcrrccrcrcc] [v12[3crcrcccccrcc]|v6<gggeeeccc>ggg] crcrcccccrcc [4crcr3]";
  162.             A+="[v12[5crcrrc]|[crcrrc]v8<ggeecc>]v8c<g>c<g>c<ggc>g<gc>g<ggec>gc";
  163.             var B:String = "$v14@3s32o0k4l3[14rc]l1[12c]";
  164.             B+="l3[14rc]rl1r[8c] [l3[6rc]|l1[12c]]rcrcl1[3r3ccc][6c] [l3[4rc]|[3rc]l1[6c]]l1[6c][3rc][12c]";
  165.             var C1:String = "@3o0l1@o0v8s4 [d21v12s32cccv8s4d24]";
  166.             var C2:String = "p6l2[8ee1e1e1eeee1]";
  167.             var C3:String = "p4@o0@3o0k8v3s1[8c12]v6s6l6k0[4d] d48d24d24";
  168.             var C4:String = "p4@i0@3o0k0v6s1r96l6s32[4c] r96";
  169.             var Cm:String = "$"+C1+"@2v10s4o6k123@o1"+C2+C3;
  170.             var Cc:String = "$"+"r96@0v3s20o5@i5"+C2+C4;
  171.             var D:String = "$l1[8g2gggggggg<d>g]";
  172.             D+="[16g2gg<d>g] <[c2[8c]gc>b2[8b]<f+>b|a2[8a]<e>a<[7d]c>b<c>ba<]<d+2[8d+]a+d+f2[8f]<c>f";
  173.             D+="g2gg>g<gf2ff>f<fe2ee>e<edc>b<c>ba";
  174.             D+="[g2[5g]<d>ggb<d>f+2[5f+]<d>f+f+a<d>e2[5e]beegb<c2cc>g<cd>a<d>a<cd>]";
  175.             var Dl:String = "@0v6s64o7k80@o1"+D;
  176.             var Dm:String = "@2v7s8o3@i1@o1"+D;
  177.             var Dc:String = "@0v6s16o4@i3"+D;
  178.             var E:String = "l1g9gb<dg12>a9a<cfa12>b9b<dgb12c9cfa<c12>>"
  179.             E+="l2[g6<d12|dc>b<c6g18>]c>b<c>a20<cd"
  180.             E+="e8f+gd8c>ba8g4l1gab<cdef+gab<cd>l2e8f+gd8f+4g8aa+aa+<c6>a+1<c1d24>>"
  181.             E+="l1g9gag<d8c2>b2g9gag<g6f+2d2>a2g9gag<d8c2>b2g8<l2egf+ga8"
  182.             var Ea:String="p5$@1v8s4o6k0"+E, Eb:String="p4$@2v12s2o5k2"+E, Ed:String="p2r2$@1v2s2o5"+E;
  183.             var F:String = "$@1p2v4s2o4 l12[g<g>f<f>]"
  184.             F+="v3s1l2[g18gab|f9l1v4s24fffv3s1f8l2ef]<c12> @2s16v8l1fa<c>a<cfcfafa<c"
  185.             F+="@1v4o4l12s1c>ba<dc>b<d+f v8s4l6gfed v4o4l12s1[gf+ec6d6]";
  186.             var G:String = "$@1p6v4s2o4 l12[b<b>a<a>]"
  187.             G+="v3s1l2[b18b<cd>|a9l1v4s24aaas1v3a8l2ga]<f12 @2k2s16v8l1fa<c>a<cfcfafa<c"
  188.             G+="@1v4o4l12s1gf+eagf+a+<c v8s4l6dc>ba v4o5l12s1[dd>bg6a6]";
  189.             var H:String = "$@1p4v4s2o5 l12[d<d>c<c>] r96 s1edcdedd+f v8s8l6gfed v4o5l12s1[bage6f+6]"
  190.             var I:String = "$@1v2s32o7 l1[[4gd>bgb<d]|[4fc>afa<c]][fc>afa<c]fdecd>b<c>abgaf"
  191.             I+="o6s0[[4gbg<d>b<c>][4faf<c>ab]]";
  192.             I+="o7v4s32[[bgeceg][af+d>b<df+]|[gec>a<ce]>def+gab<cdef+ga][gd+>a+ga+<d+][afc>a<cf]";
  193.             I+="bgege>b<afcfc>a<ge>b<e>bg<f+d>a<d>af+"
  194.             I+="o6[[gb<d>ab<g>][a<df+>a<da>][b<eg>b<gb>]<cegcg<c>df+ada<d>>]";
  195.             _module = new TinySiOPM(2048, 1024, _onSoundFrame);
  196.             _sequencer = new Sequencer(5, [A,B,Cm,Cc,Dl,Dm,Dc,Ea,Eb,Ed,F,G,H,I]);
  197.             _sound = new Sound();
  198.             _sound.addEventListener("sampleData", _onStream);
  199.             _sound.play();
  200.         }
  201.         
  202.         private function _onSoundFrame() : void {
  203.             if (_sequencer.onSoundFrame()) {
  204.             }
  205.         }
  206.         
  207.         private function _onStream(e:SampleDataEvent) : void {
  208.             var moduleOut:Vector.<Number> = _module.render();
  209.             for (var i:int = 0; i<4096; i++) {
  210.                 e.data.writeFloat(moduleOut[i]);
  211.             }
  212.         }
  213.     }
  214. }
  217. import flash.display.*;
  218. import flash.events.Event;
  219. import flash.geom.Point;
  220. import flash.media.Sound;
  222. var _sound:Sound;
  223. var _module:TinySiOPM;
  224. var _sequencer:Sequencer;
  227. class KeyState
  228. {
  229.     public static const K_UP:uint    = 0x01;
  230.     public static const K_DOWN:uint  = 0x02;
  231.     public static const K_LEFT:uint  = 0x04;
  232.     public static const K_RIGHT:uint = 0x08;
  233.     public static const K_TRG1:uint  = 0x10;
  234.     public static const K_TRG2:uint  = 0x20;
  236.     private var mState:uint = 0;
  238.     public function setState(s:uint):void {
  239.         mState |= s;
  240.     }
  242.     public function delState(s:uint):void {
  243.         mState &= ~s;
  244.     }
  246.     public function get state():uint {
  247.         return mState;
  248.     }
  249. }
  251. class Ship extends Sprite
  252. {
  253.     private var speed:int = 4;
  254.     protected var mCount:int = 0;
  255.     private var mMovBuf:PositionRingBuffer;
  256.     private var mMultiples:Array;
  257.     private var _shotCount:int;
  259.     public var color:uint;
  260.     function Ship(color:uint, enable_buf:Boolean = false)
  261.     {
  262.         this.color = color;
  263.         draw();
  265.         _shotCount = 0;
  266.         if (enable_buf)
  267.             mMovBuf = new PositionRingBuffer(100);
  268.     }
  270.     public function fillMoveBuffer():void {
  271.         for (var i:int = 0;i < 100;i++)
  272.             mMovBuf.push(x, y, false);
  273.     }
  275.     public function appendMultiple(m:Ship):void
  276.     {
  277.         if (!mMultiples) mMultiples = [];
  278.         mMultiples.push(m);
  279.     }
  281.     public function draw():void
  282.     {
  283.         var g:Graphics = graphics;
  284.         g.clear();
  285. /*
  286.         g.lineStyle(0, color);
  287.         g.lineTo( -30, -10);
  288.         g.lineTo( -30, 10);
  289.         g.lineTo(0, 0);
  290.         g.endFill();
  291. */
  292.         g.beginFill(0xc0c0c0);
  293.         g.drawPath(Vector.<int>([1,2,2,2,2,2]),
  294.             Vector.<Number>([16,-2,-10,-4,-15,-3,-25,5,-20,5,-10,1]));
  295.         g.endFill();
  296.         g.beginFill(0x808080);
  297.         g.drawPath(Vector.<int>([1,2,2,2]),
  298.             Vector.<Number>([-15,-2,-15,2,-20,2,-20,-2]));
  299.         g.endFill();
  300.         g.beginFill(0x80a0f0);
  301.         g.drawPath(Vector.<int>([1,2,2,2]),
  302.             Vector.<Number>([-8,-4,-2,-3,5,0,-15,0]));
  303.         g.endFill();
  304.         g.beginFill(0xffffff);
  305.         g.drawPath(Vector.<int>([1,2,2,2]),
  306.             Vector.<Number>([-8,-1,-18,-7,-22,-7,-15,0]));
  307.         g.endFill();
  308.         g.beginFill(0xe0e0e0);
  309.         g.drawPath(Vector.<int>([1,2,2,2,2,2]),
  310.             Vector.<Number>([16,1,-10,-1,-15,0,-25,8,-20,8,-10,4]));
  311.         g.endFill();
  312.                 
  313.         if (mMultiples) {
  314.             for each(var m:Ship in mMultiples)
  315.                 m.draw();
  316.         }
  317.     }
  319.     public function moveByKeyState(s:uint):void
  320.     {
  321.              if (s&KeyState.K_UP)    y -= speed;
  322.         else if (s&KeyState.K_DOWN)  y += speed;
  323.              if (s&KeyState.K_LEFT)  x -= speed;
  324.         else if (s&KeyState.K_RIGHT) x += speed;
  326.         if (s&KeyState.K_TRG1) 
  327.             fireShot();
  329.              if (x - width< 0) x = width;
  330.         else if (x > Nemesis.W) x = Nemesis.W;
  332.              if (y - height/2 < 0) y = height/2;
  333.         else if (y + height/2 > Nemesis.H) y = Nemesis.H - height/2; 
  335.         mMovBuf.push(x, y);
  336.     }
  338.     public function tick():void {
  339.         if (mMultiples) {
  340.             var len:int = mMultiples.length;
  341.             for (var i:int = 0;i < len;i++) {
  342.                 mMultiples[i].x = mMovBuf.getX((i+1)*8) - 10;
  343.                 mMultiples[i].y = mMovBuf.getY((i+1)*8);
  344.             }
  346.             for each(var m:Ship in mMultiples)
  347.                 m.tick();
  348.         }
  349.         mCount++;
  350.      }
  352.     public function fireShot():void {
  353.         if (!(mCount%5) && _shotCount<2) {
  354.             var bullet:Bullet = new Bullet(this);
  355.             bullet.x = x;
  356.             bullet.y = y;
  357.             parent.addChild(bullet);
  358.             _shotCount++;
  359.             if (mMultiples) // = if player...('A`)
  360.                 _module.noteOn(1440,0,0.5,11,64,-256);
  361.         }
  363.         if (mMultiples) {
  364.             for each(var m:Ship in mMultiples)
  365.                 m.fireShot();
  366.         }
  367.     }
  369.     public function onShotRemoved() : void {
  370.         _shotCount--;
  371.     }
  372. }
  374. class Multiple extends Ship
  375. {
  376.     import flash.geom.Matrix;
  378.     public static const GRAD_COLORS:Array = [0xffba33, 0xaa0000];
  379.     public static const GRAD_ALPHAS:Array = [1, 1];
  380.     public static const GRAD_RATIOS:Array = [100, 255];
  381.     private var mGradTrans:Matrix = new Matrix();
  383.     function Multiple()
  384.     {
  385.         super(0);
  386.     }
  388.     public override function draw():void
  389.     {
  390.         var g:Graphics = graphics;
  391.         var r:Number = Math.sin(mCount*0.9)*0.7 + 9;
  393.         mGradTrans.createGradientBox(r*2, r*1.8,0 , -r*1.1, -r*0.9);
  394.         g.clear();
  395.         g.beginGradientFill(GradientType.RADIAL, GRAD_COLORS, GRAD_ALPHAS, GRAD_RATIOS, mGradTrans);
  396.         g.drawEllipse(-r, -r*0.8, r*2, r*1.6);
  397.         g.endFill();
  398.     }
  399. }
  401. class PositionRingBuffer
  402. {
  403.     private var xs:Array;
  404.     private var ys:Array;
  405.     private var length:uint;
  406.     private var pos:int = 0;
  408.     function PositionRingBuffer(len:uint)
  409.     {
  410.         length = len;
  411.         xs = new Array(len);
  412.         ys = new Array(len);
  413.     }
  415.     public function push(x:int, y:int, chk:Boolean = true):void {
  416.         var i:int = (pos + length - 1) % length;
  417.         if (chk) {
  418.             if (xs[i] == x && ys[i] == y) return;
  419.         }
  421.         xs[pos] = x;
  422.         ys[pos] = y;
  424.         pos = ++pos % length;
  425.     }
  427.     public function getX(i:int):int {
  428.         i = (pos - i + length) % length;
  429.         return xs[i];
  430.     }
  432.     public function getY(i:int):int {
  433.         i = (pos - i + length) % length;
  434.         return ys[i];
  435.     }
  436. }
  438. class Bullet extends Sprite
  439. {
  440.     public var color:uint;
  441.     public var size:uint;
  442.     public var speed:uint;
  443.     private var _ship:Ship;
  445.     function Bullet(ship:Ship, color:uint = 0xeeddaa, size:uint = 3, speed:uint = 20)
  446.     {
  447.         this._ship = ship;
  448.         this.color = color;
  449.         this.size = size;
  450.         this.speed = speed;
  451.         
  452.         this.graphics.beginFill(color);
  453.         this.graphics.drawEllipse(-size, -size/2, size*1.8, size);
  454.         this.graphics.drawCircle(-size*1.3, 0, size/2);
  455.         this.graphics.drawCircle(-size*1.8, 0, size/3);
  456.         this.graphics.endFill();
  457.         
  458.         addEventListener(Event.ENTER_FRAME, updateHandler);
  459.     }
  460.     
  461.     private function updateHandler(e:Event):void 
  462.     {
  463.         this.x += speed;
  464.         
  465.         if (this.x + size / 2 > Nemesis.W) {
  466.             this.parent.removeChild(this);
  467.             removeEventListener(Event.ENTER_FRAME, updateHandler);
  468.             _ship.onShotRemoved();
  469.         }
  470.     }
  471. }
  474. class MountainGen
  475. {
  476.     private var mPrevBuffer:Array;
  477.     private var mHeight:int;
  478.     private var mCount:int = 0;
  480.     private var tmpBuffer:Array;
  481.     private var mGenFunc:Function;
  482.     private var mDark:Boolean;
  483.     
  484.     function MountainGen(h:int, generator:int = 0, dark:Boolean = false)
  485.     {
  486.                 mDark = dark;
  487.         mHeight = h;
  488.         mGenFunc = generator ? genWav2 : genWav;
  489.         mPrevBuffer = new Array(h);
  490.         tmpBuffer   = new Array(h);
  491.     }
  493.     public function draw(b:BitmapData, x:int, y:int, rev:Boolean = true):void
  494.     {
  495.         var i:int;
  496.         for (i = 0;i < mHeight;i++) {
  497.             if (tmpBuffer[i]) {
  498.                 var c:int = tmpBuffer[i];
  499.                 b.setPixel32(x, rev ? (y+mHeight-i) : (y+i), makeColor(c));
  500.             }
  501.         }
  502.     }
  504.     private function makeColor(c:int):uint
  505.     {
  506.         if (mDark)
  507.             return 0xff000000 | (c/7+5) | ((c/7 + 80)<<16) | ((c/6+50) << 8);
  508.         return 0xff000000 | (c/3+11) | ((c/5 + 170)<<16) | ((c/2+60) << 8);
  509.     }
  511.     public function step():void
  512.     {
  513.         var t:Number = Number(mCount) * 0.02;
  514.         var h:int = mGenFunc(t) * mHeight;
  515.         var i:int, k:int, m:int;
  517.         for (i = 0;i < mHeight;i++) {
  518.             mPrevBuffer[i] = tmpBuffer[i];
  519.         }
  520.         
  521.         for (i = 0;i < mHeight;i++) {
  522.             tmpBuffer[i] = (i < h) ? (Math.random()*80 + 80) : 0;
  524.             if (tmpBuffer[i]) {
  525.                 if (mPrevBuffer[i])
  526.                     tmpBuffer[i] = (tmpBuffer[i] + mPrevBuffer[i]*7)/8;
  528.                 if (mPrevBuffer[i] == 0 || i == (h-1)) {
  529.                     m = 50;
  530.                     for (k = i;k >= 0 && m > 0;k--, m-=4) {
  531.                         if (m > 33) m--;
  532.                         tmpBuffer[k] += m;
  534.                         m += Math.random()*7;
  535.                     }
  536.                 }
  538.                 if (mPrevBuffer[i+1] && i == (h-1)) {
  539.                     m = -48;
  540.                     for (k = i;k >= 0 && m < 0;k--, m++) {
  541.                         tmpBuffer[k] += m;
  542.                         if (tmpBuffer[k]<1) tmpBuffer[k] = 1;
  543.                     }
  544.                 }
  546.            }
  547.         }
  549.        for (i = 0;i < mHeight;i++)
  550.             tmpBuffer[i] = (tmpBuffer[i] < 0) ? 0 : (tmpBuffer[i] > 255) ? 255 : tmpBuffer[i];
  552.         mCount++;
  553.     }
  555.     private static function genWav(t:Number, nest:int = 0):Number
  556.     {
  557.         var v:Number = Math.sin(t);
  558.         v += Math.sin(t*3) * 0.1;
  559.         v += Math.cos(0.1 + t*10) * 0.02;
  560.         v *= Math.sin(t*0.1);
  562.         if (nest < 5)
  563.             v += genWav2(t*2.0, 1+nest)*0.5;
  565.         v = v*0.2 + 0.22;
  567.         return (v<0) ? 0 : (v>1) ? 1 : v;
  568.     }
  570.     private static function genWav2(t:Number, nest:int = 0):Number
  571.     {
  572.         var v:Number = Math.sin(t);
  573.         v += Math.cos(t*3) * 0.1;
  574.         v += Math.cos(0.1 + t*9) * 0.02;
  575.         v *= Math.cos(0.2 + t*0.15);
  577.         if (nest < 5)
  578.             v += genWav2(t*2.0, 1+nest)*0.5;
  580.         v = v*0.2 + 0.23;
  582.         return (v<0) ? 0 : (v>1) ? 1 : v;
  583.     }
  584. }
  586. class StarBG extends Sprite
  587. {
  588.     private var mWidth:int;
  589.     private var mHeight:int;
  591.     private var mStars:Array;
  592.     private var mStarVs:Array;
  593.     private var mN:int;
  595.     function StarBG(w:int, h:int, n:int)
  596.     {
  597.         mWidth = w;
  598.         mHeight = h;
  599.         mN = n;
  601.         mStars  = new Array(n);
  602.         mStarVs = new Array(n);
  603.         for (var i:int = 0;i < n;i++) {
  604.             mStars[i] = new Point(int( Math.random()*w ), int( Math.random()*h ));
  605.             mStarVs[i] = Math.random() + 0.2;
  606.         }
  607.     }
  609.     public function tick():void
  610.     {
  611.         var n:int = mN;
  613.         for (var i:int = 0;i < n;i++) {
  614.             mStars[i].x -= Number(mStarVs[i]);
  616.             if (mStars[i].x < 0) {
  617.                 mStars[i].x += mWidth;
  618.                 mStars[i].y = int( Math.random()*mHeight );
  619.             }
  620.         }
  621.     }
  623.     public function draw():void
  624.     {
  625.         var g:Graphics = graphics;
  626.         var n:int = mN;
  628.         g.clear();
  629.         for (var i:int = 0;i < n;i++) {
  630.             g.beginFill(0xffffff);
  631.             g.drawCircle( mStars[i].x, mStars[i].y , 0.4);
  632.         }
  633.     }
  634. }
  637. // MML Sequencer
  638. //   http://wonderfl.kayac.com/user/keim_at_Si
  639. //--------------------------------------------------
  640. class Sequencer {
  641.     private var _tracks:Array, _count:int=Track.speed+1;
  642.     function Sequencer(speed:int, mmls:Array) { Track.speed=speed; mml=mmls; }
  643.     public function onSoundFrame() : Boolean {
  644.         if (++_count == Track.speed) {
  645.             for each (var tr:Track in _tracks) tr.execute();
  646.             _count = 0;
  647.             return true;
  648.         }
  649.         return false;
  650.     }
  651.     public function set mml(list:Array) : void {
  652.         _tracks = [];
  653.         for each (var seq:String in list) _tracks.push(new Track(seq));
  654.         _count = 0;
  655.     }
  656. }
  658. class Track {
  659.     static public var codeA:int="a".charCodeAt(), nt:Array=[9,11,0,2,4,5,7], speed:int=3;
  660.     public var oct:int, len:int, tl:int, dt:int, cnt:int, seq:String, sgn:int, stac:Array, osc:Osc;
  661.     private var _rex:RegExp=/(@i|@o|[a-gkloprsvw<>[|\]$@])([#+])?(\d+)?/g;
  662.     function Track(seq:String) {
  663.         osc = (new Osc()).reset().activate(false);
  664.         reset(seq);
  665.     }
  666.     public function reset(seq_:String) : void {
  667.         seq=seq_; oct=5; len=4; tl=256; dt=0; cnt=0; sgn=0; _rex.lastIndex=0; stac=[];
  668.     }
  669.     public function execute() : void {
  670.         if (--cnt <= 0) {
  671.             for (var i:int=0; i<100; i++) {
  672.                 var res:* = _rex.exec(seq);
  673.                 if (!res) {
  674.                     if (sgn) { _rex.lastIndex = sgn; continue; }
  675.                     else     { cnt = int.MAX_VALUE; break; }
  676.                 }
  677.                 var cmd:int = res[1].charCodeAt();
  678.                 if (cmd>=codeA && cmd<=codeA+6) {
  679.                     cnt = (res[3]) ? int(res[3]) : len;
  680.                     osc.len = cnt * speed;
  681.                     osc.pt = ((nt[cmd-codeA]+oct*12+((res[2])?1:0))<<4) + dt;
  682.                     osc.tl = tl;
  683.                     break;
  684.                 } else if (res[1] == 'r') {
  685.                     cnt = (res[3]) ? int(res[3]) : len;
  686.                     break;
  687.                 } else {
  688.                     switch(res[1]){
  689.                     case 'k': dt    = int(res[3]); break;
  690.                     case 'l': len = int(res[3]); break;
  691.                     case 'o': oct = int(res[3]); break;
  692.                     case 'v': tl    = TinySiOPM.log(int(res[3])*0.0625); break;
  693.                     case '<': oct++; break;
  694.                     case '>': oct--; break;
  695.                     case '@':  osc.ws = int(res[3]);    break;
  696.                     case 's':  osc.dr = int(res[3])<<2; break;
  697.                     case 'w':  osc.sw = -int(res[3]);   break;
  698.                     case 'p':  osc.pan = (int(res[3])<<4)-64; break;
  699.                     case '@i': osc.mod = int(res[3]);   break;
  700.                     case '@o': osc.out = int(res[3]);   break;
  701.                     case '$': sgn = _rex.lastIndex; break;
  702.                     case '[': stac.unshift({p:_rex.lastIndex,c:((res[3])?int(res[3]):2),j:0}); break;
  703.                     case '|': if (stac[0].c == 1) { _rex.lastIndex = stac[0].j; stac.shift(); } break;
  704.                     case ']': 
  705.                         stac[0].j = _rex.lastIndex;
  706.                         if (--stac[0].c == 0) stac.shift();
  707.                         else _rex.lastIndex = stac[0].p;
  708.                         break;
  709.                     }
  710.                 }
  711.             }
  712.         }
  713.     }
  714. }
  716. class TinySiOPM {
  717.     private var _output:Vector.<Number>, _zero:Vector.<int>, _pipe:Vector.<int>;
  718.     private var _pitchTable:Vector.<int> = new Vector.<int>(2048, true);
  719.     private var _logTable:Vector.<int> = new Vector.<int>(6144, true);
  720.     private var _panTable:Vector.<Number> = new Vector.<Number>(129, true);
  721.     private var _bufferSize:int, _callbackFrams:int, _onSoundFrame:Function;
  722.     
  723.     // Pass the buffer size and the function calls in each frame.
  724.     function TinySiOPM(bufferSize:int=2048, callbackFrams:int=1024, onSoundFrame:Function=null) {
  725.         var i:int, j:int, p:Number, v:Number, t:Vector.<int>, ft:Array=[0,1,2,3,4,5,6,7,7,6,5,4,3,2,1,0];
  726.         for (i=0, p=0; i<192; i++, p+=0.00520833333)                            // create pitchTable[128*16]
  727.             for(v=Math.pow(2, p)*12441.464342886, j=i; j<2048; v*=2, j+=192) _pitchTable[j] = int(v);
  728.         for (i=0; i<32; i++) _pitchTable[i] = (i+1)<<6;                         // [0:31] for white noize
  729.         for (i=0, p=0.0078125; i<256; i+=2, p+=0.0078125)                       // create logTable[12*256*2]
  730.             for(v=Math.pow(2, 13-p), j=i; j<3328; v*=0.5, j+=256) _logTable[j+1] = -(_logTable[j]=int(v));
  731.         for (i=3328; i<6144; i++) _logTable[i] = 0;                             // [3328:6144] is 0-fill area
  732.         for (i=0, p=0; i<129; i++, p+=0.01217671571) _panTable[i]=Math.sin(p)*0.5;  // pan table;
  733.         for (t=Osc.createTable(10), i=0, p=0; i<1024; i++, p+=0.00613592315) t[i] = log(Math.sin(p)); // sin=0
  734.         for (t=Osc.createTable(10), i=0, p=0.75; i<1024; i++, p-=0.00146484375) t[i] = log(p);        // saw=1
  735.         for (t=Osc.createTable(5),    i=0; i<16; i++) t[i+16] = (t[i] = log(ft[i]*0.0625)) + 1;       // famtri=2
  736.         for (t=Osc.createTable(15), i=0; i<32768; i++) t[i] = log(Math.random()-0.5);                 // wnoize=3
  737.         for (i=0; i<8; i++) for (t=Osc.createTable(4), j=0; j<16; j++) t[j] = (j<=i) ? 192 : 193;     // pulse=4-11
  738.         _zero = new Vector.<int>(bufferSize, true);                             // allocate zero buffer
  739.         _pipe = new Vector.<int>(bufferSize, true);                             // allocate fm pipe buffer
  740.         _output = new Vector.<Number>(bufferSize*2, true);                      // allocate stereo out
  741.         _bufferSize = bufferSize;
  742.         _callbackFrams = callbackFrams; 
  743.         _onSoundFrame = onSoundFrame;                                           // set parameters
  744.         for (i=0; i<bufferSize; i++) { _pipe[i]=_zero[i]=0; }                   // clear buffers
  745.     }
  746.     
  747.     // calculate index of logTable
  748.     static public function log(n:Number) : int {
  749.         return (n<0) ? ((n<-0.00390625) ? (((int(Math.log(-n) * -184.66496523 + 0.5) + 1) << 1) + 1) : 2047)
  750.                      : ((n> 0.00390625) ? (( int(Math.log( n) * -184.66496523 + 0.5) + 1) << 1)      : 2046);
  751.     }
  752.     
  753.     // Returns stereo output as Vector.<Number>(bufferSize*2).
  754.     public function render() : Vector.<Number> {
  755.         var i:int, j:int, ph:int, dph:int, mod:int, sh:int, tl:int, lout:int, v:int, imax:int, 
  756.             osc:Osc, tm:Osc, l:Number, r:Number, wv:Vector.<int>, fm:Vector.<int>, base:Vector.<int>, 
  757.             out:Vector.<int>=_pipe, lt:Vector.<int>=_logTable, stereoOut:Vector.<Number> = _output;
  758.         imax = _bufferSize<<1;
  759.         for (i=0; i<imax; i++) stereoOut[i] = 0;
  760.         for (imax=_callbackFrams; imax<=_bufferSize; imax+=_callbackFrams) {
  761.             if (_onSoundFrame!=null) _onSoundFrame();
  762.             tm = Osc._tm;
  763.             for (osc=tm.n; osc!=tm; osc=osc.update()) {
  764.                 dph=_pitchTable[osc.pt]; ph=osc.ph; mod=osc.mod+10; sh=osc.sh; tl=osc.tl; wv=osc.wv;
  765.                 fm=(osc.mod==0)?_zero:_pipe; base=(osc.out!=2)?_zero:_pipe;
  766.                 for (i = imax-_callbackFrams; i < imax; i++) {
  767.                     v = ((ph + (fm[i] << mod))& 0x3ffffff) >> sh;
  768.                     lout = wv[v] + tl;
  769.                     out[i] = lt[lout] + base[i];
  770.                     ph = (ph + dph) & 0x3ffffff;
  771.                 }
  772.                 osc.ph = ph;
  773.                 if (osc.out==0) {
  774.                     l = _panTable[64-osc.pan] * 0.0001220703125;
  775.                     r = _panTable[64+osc.pan] * 0.0001220703125;
  776.                     for (i=imax-_callbackFrams, j=i*2; i<imax; i++) {
  777.                         stereoOut[j] += out[i]*l; j++;
  778.                         stereoOut[j] += out[i]*r; j++;
  779.                     }
  780.                 }
  781.             }
  782.         }
  783.         return stereoOut;
  784.     }
  785.     
  786.     // note on
  787.     public function noteOn(pitch:int, length:int=0, vol:Number=0.5, wave:int=0, decay:int=6, sweep:int=0, pan:int=0) : Osc {
  788.         var osc:Osc = Osc.alloc().reset();
  789.         osc.pt = pitch;
  790.         osc.len = length;
  791.         osc.tl = log(vol);
  792.         osc.ws = wave;
  793.         osc.dr = decay<<2;
  794.         osc.sw = sweep; 
  795.         osc.pan = pan;
  796.         return osc.activate(true);
  797.     }
  798. }
  800. class Osc {
  801.     // create new wave table and you can refer the table by '@' command.
  802.     static public function createTable(b:int) : Vector.<int> {
  803.         _w.push(new Vector.<int>(1<<b,true)); _s.push(26-b);
  804.         return _w[_w.length-1];
  805.     }
  806.     static public var _w:Array=[], _s:Array=[], _fl:Osc=new Osc(), _tm:Osc=new Osc();
  807.     static public function alloc():Osc{ if(_fl.p==_fl)return new Osc();var r:Osc=_fl.p;_fl.p=r.p;r.p.n=_fl;return r; }
  808.     public function into(x:Osc):Osc{ p=x.p;n=x;p.n=this;n.p=this;return this; }
  809.     public var p:Osc, n:Osc, fl:Osc, pt:int, len:int, ph:int;
  810.     public var tl:int, sw:int, dr:int, wv:Vector.<int>, sh:int, mod:int, out:int, pan:int;
  811.     public function set ws(t:int) : void { wv=_w[t]; sh=_s[t]; }
  812.     public function Osc() { p = n = this; }
  813.     public function update() : Osc { tl+=dr; pt+=sw; pt&=2047; return (--len==0||tl>3328) ? (inactivate().n) : n; }
  814.     public function reset() : Osc { ph=0; pt=0; len=0; tl=3328; sw=0; dr=24; pan=0; ws=0; mod=0; out=0; return this; }
  815.     public function activate(autoFree:Boolean=false) : Osc { into(_tm); fl=(autoFree)?_fl:null; return this; }
  816.     public function inactivate() : Osc { tl=3328; if(!fl)return this; var r:Osc=p; p.n=n; n.p=p; into(fl); return r; }
  817.     public function isActive() : Boolean { return (tl<3328); }
  818. }
noswf
Get Adobe Flash Player