AS滚动文本（带缓动效果）

//在做滚动文本之前，我们得想好这个滚动文本的基本属性
Start_x = 10;
Start_y = 10;
//这是滚动文本的位置
Bar_Width = 15;
//这是滚动条的宽
TeBaD = 2;
//这是滚动条与文本之间的间隔
Matter = "
朦胧诗一

嘻嘻朋兄，笑我痴种。
回探心中，满怀虚若空。
朦朦胧胧，笑我懵懂。
醉入花丛，自恨太无用。
意有所钟，愿得伊人相从，从一而终。
微冻，醒来一场梦，一晃无影踪，两眼只朦胧！
倚窗问东风，花落谁人梦？


朦胧诗二

朦朦胧胧也朦胧，
懵懵懂懂亦懵懂。
莞笑无语应有意，
究竟花落谁人梦。


当年你决定向南而去

是否你将要向北远行，
那我便放弃向南的决定。
你将去哪座茫茫城市，
我终究抱着跟随的心。
时光这样的飞逝，
我们也许没有相聚的日子。
我愿珍惜这一份情，
直到回忆化成灰烬。
愿和我一起走吗？
走过会了却心中无际的牵挂。
把世上恩怨都抛下，
世事无常中渐渐长大。
和我一起走好吗？
不要让思绪在冷风里挣扎。
跟随我吧！
你不会害怕，
一起营造那温馨的家。
";
New_Width = 450;
New_Height = 280;
//这是文本的宽以及初始高度
RollBarFCol = 0x000000;
RollBarLCol = 0xFF0000;
BGLCol = 0x000000;
BGFCol = 0x333333;
//滚动条及背景色彩
tempVar0 = Start_x+New_Width;
tempVar1 = Start_y+New_Height;
//一些临时变量
//——————————————————————————————————————
//现在我们可以开始了，首先需要一个文本：
this.createEmptyMovieClip("Text_mc", 1);
//我先做了一个名为的影片剪辑方便存放文本
Text_Width = New_Width-Bar_Width-TeBaD;
Text_mc.createTextField("NewText_txt", 0, Start_x, Start_y, Text_Width, New_Height);
//创建一个实例名为的空白文本
with (Text_mc) {
NewText_txt.autoSize = true;
//自动调整文本的高度
NewText_txt.multiline = true;
//设置多行文本
NewText_txt.wordWrap = true;
//设置自动换行
NewText_txt.html = true;
//采用HTML表示形式
NewText_txt.htmlText = Matter;
//内容
var format:TextFormat = new TextFormat();
format.align = "center";
NewText_txt.setTextFormat(format);
//居中
}
//——————————————————————————————————————
//接下来的就是一个滚动条的制作了：
ratio = New_Height/Text_mc._height;
if (Text_mc._height>New_Height) {
RBHeight = New_Height*ratio;
} else {
RBHeight = New_Height;
}
this.createEmptyMovieClip("RollBar_mc", 2);
with (RollBar_mc) {
beginFill(RollBarFCol, 100);
lineStyle(2, RollBarLCol, 70);
moveTo(tempVar0-Bar_Width, Start_y);
lineTo(tempVar0, Start_y);
lineTo(tempVar0, Start_y+RBHeight);
lineTo(tempVar0-Bar_Width, Start_y+RBHeight);
lineTo(tempVar0-Bar_Width, Start_y);
endFill();
}
//——————————————————————————————————————
//我们现在还要加一个遮罩层才行：
this.createEmptyMovieClip("Mask_mc", 3);
with (Mask_mc) {
beginFill(0xFF0000, 30);
moveTo(Start_x, Start_y);
lineTo(Start_x+Text_Width, Start_y);
lineTo(Start_x+Text_Width, tempVar1);
lineTo(Start_x, tempVar1);
lineTo(Start_x, Start_y);
endFill();
}
Text_mc.setMask(Mask_mc);
//——————————————————————————————————————
//然后就是画一个背景了：
this.createEmptyMovieClip("BG_mc", 0);
with (BG_mc) {
Dst1 = 7;
//加个Dst变量控制背景边缘与文本的距离，免得背景的边缘紧贴文本
beginFill(BGFCol, 100);
lineStyle(3, BGLCol, 30);
moveTo(Start_x-Dst1, Start_y-Dst1);
lineTo(Start_x-Dst1, tempVar1+Dst1);
lineTo(tempVar0+Dst1, tempVar1+Dst1);
lineTo(tempVar0+Dst1, Start_y-Dst1);
lineTo(Start_x-Dst1, Start_y-Dst1);
Dst2 = 2;
moveTo(tempVar0-Bar_Width-Dst2, Start_y-Dst2);
lineTo(tempVar0+Dst2, Start_y-Dst2);
lineTo(tempVar0+Dst2, tempVar1+Dst2);
lineTo(tempVar0-Bar_Width-Dst2, tempVar1+Dst2);
lineTo(tempVar0-Bar_Width-Dst2, Start_y+Dst2);
endFill();
}
//——————————————————————————————————————
//最后让滚动条及文本都动起来:
RollBar_mc.onPress = function() {
this.startDrag(false, 0, 0, 0, New_Height-RBHeight);
Move = true;
};
RollBar_mc.onMouseUp = function() {
this.stopDrag();
Move = false;
};
Text_mc.onEnterFrame = function() {
if (Move) {
  TEndY = -RollBar_mc._y/ratio;
}
this._y -= (this._y-TEndY)/8;
};