www.pconline.com.cn/pcedu/sj/jq/10131a.htm
我还是第一次看到有教程连AS都翻译的，真是。。。。。

如果 (Number<6)
设定变数: "Number" = (Number+1)
否则
设定变数: "Number" = 1
结束如果
设定变数: "NewX" = GetProperty ("/tracer",_x)
设定变数: "NewY" = GetProperty ("/tracer",_y)
设定变数: "XScale" = (NewX-OldX)
设定变数: "YScale" = (NewY-OldY)
如果 (XScale= 0)
设定变数: "XScale" = .1
结束如果
如果 (YScale= 0)
设定变数: "YScale" = .1
结束如果
如果 (XScale<0)
设定变数: "XScale" = 0-XScale
设定变数: "X" = -1
否则
设定变数: "X" = 1
结束如果
如果 (YScale<0)
设定变数: "YScale" = 0-YScale
设定变数: "Y" = -1
否则
设定变数: "Y" = 1
结束如果
如果 ((X = 1) AND (Y= 1))
设定内容 ("/Line"&Number，旋转) = 0
结束如果
如果 ((X = -1) AND (Y = -1))
设定内容 ("/Line"&Number，旋转) = 180
结束如果
如果 ((X = 1) AND (Y = -1))
设定内容 ("/Line"&Number，旋转) = 270
设定变数: "Temp" = YScale
设定变数: "YScale" = XScale
设定变数: "XScale" = Temp
结束如果
如果 ((X = -1) AND (Y= 1))
设定内容 ("/Line"&Number，旋转) = 90
设定变数: "Temp" = YScale
设定变数: "YScale" = XScale
设定变数: "XScale" = Temp
结束如果
设定内容 ("/line"&Number，X 位置) = OldX
设定内容 ("/line"&Number，Y 位置) = OldY
设定内容 ("/line"&Number，X 缩放) = XScale
设定内容 ("/line"&Number，Y 缩放) = YScale
开始告知目标 ("/line"&Number)
前往并播放 (1)
结束告知目标
设定变数: "OldX" = NewX
设定变数: "OldY" = NewY

Shit! 看着好别扭！

这可能是中文版的。

if (Number<6) {
Number = (Number+1);
} else {
Number = 1;
}
NewX = _root.tracer._x;
NewY = _root.tracer._y;
XScale = (NewX-OldX);
YScale = (NewY-OldY);
if (XScale=0) {
XScale = .1;
}
if (YScale=0) {
YScale = .1;
}
if (XScale<0) {
XScale = 0-XScale;
X = -1;
} else {
X = 1;
}
if (YScale<0) {
YScale = 0-YScale;
Y = -1;
} else {
Y = 1;
}
if ((X == 1) and (Y == 1)) {
_root["Line" & Number]._rotation = 0;
}
if ((X == -1) and (Y == -1)) {
_root["Line" & Number]._rotation = 180;
}
if ((X == 1) and (Y == -1)) {
_root["Line" & Number]._rotation = 270;
Temp = YScale;
YScale = XScale;
XScale = Temp;
}
if ((X == -1) and (Y == 1)) {
_root["Line" & Number]._rotation = 90;
Temp = YScale;
YScale = XScale;
XScale = Temp;
}
_root["line" & Number]._x = OldX;
_root["line" & Number]._y = OldY;
_root["line" & Number]._xscale = XScale;
_root["line" & Number]._yscale = YScale;
_root["line" & Number].gotoAndPlay(1);
OldX = NewX;
OldY = NewY;


还有，第一行里的Number变量名最好换一个；