マウス座標スライド

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

package{
	import flash.display.MovieClip;
	import flash.display.Sprite;
	import flash.events.Event;
	import flash.events.MouseEvent;
	import flash.geom.Point;
	import flash.display.Stage;
	

    
	public class Scrl2 extends Sprite {
		
		public var vscrl:Sprite = new Sprite();
		public var vmouseY:Number;
		public var vstageH:Number;
		public var vscrlH:Number;
		public var vscrlY:Number;
		
		public function Scrl2() {
			
			vscrl.graphics.lineStyle(10, 0x000000);
			vscrl.graphics.beginFill(0xFF0000);
			vscrl.graphics.drawRect(0, 0, 100, 500);
			vscrl.graphics.endFill();
			addChild(vscrl);
		
			vscrl.addEventListener(Event.ENTER_FRAME, scrlEf);
		
		}
		
		public function scrlEf(event:Event):void {
			
			vmouseY = stage.mouseY;
			vstageH = stage.stageHeight;
			vscrlH = vscrl.height;
			vscrlY = vscrl.y;
			vscrl.y += (vmouseY * (vstageH - vscrlH) / vstageH - vscrlY) * 0.1;
		}
		
		//スクロールさせたい対象がステージよりもはみだしていないとダメな感じ。
		
	}
}