您现在的位置是： 软件 > 设计在线 > 网页陶吧 > 技术平台 > HTML学习 > 正文


T O P 排 行
-Win xp中的多种网络
-试验试验试验试验
-用Freehand实现位图矢量化
-网络电话面面观

模拟dos中输入字符的效果
2000-08-03· ·黄振雄··Yesky

∏肟醋詈笮Ч�

　　

　　1。建立文件框

1） 按Ctrl+F8新建一个电影文件（movie clip），取名为“character”；

2）选择“文字”工具（Text Tools），在“文字”工具的属性设置栏中设置好字符的颜色，大小，字体，字形等属性，并点选“文本框”属性按钮；

3）在场景中用鼠标拖动创建一个固定宽度的文本框，如图所示；



4）选中目标文本框后，选择菜单命令“Modify$#@62;Text field”（或对着文本框按右键，然后选“properties”选项；

5）在弹出的“Text Field Properties”对话框中，将“Variable”设为“text”，选择“Options”中的“Disable editing”和“Disable selection”两项；及“Outlines”中的“Include all font outlines”，如图所示；



　　2。制作光标

1）按Ctrl+F8新建一个电影文件（movie clip），取名为“cursor”；

2）选中编辑层的第1帧，选择矩形工具“Rectangle”并在场景中创建一个无边框矩形；

3）分别在第4帧和第7帧按快捷键$#@60;F6$#@62;插入关键帧，然后将第4帧和第7帧中的矩形删除，如图所示；



4）双击时间编辑栏中的第7帧，在弹出的“Frame Properties”对话框中选“Actions”项，设置脚本为：
Go to and play(1)
如图所示；



　　3。完成Actions控制

1）按Ctrl+ 陆ㄒ桓龅缬拔募╩ovie clip），取名为“typer”；

2）选中编辑层的第1帧，选择菜单命令“window$#@62;Library”，在弹出的历史库中将电影文件“cursor”拖到当前场景的中央，然后选中第35帧并按快捷键$#@60;F5$#@62;插入关键帧；

3）选择菜单命令“Insert$#@62;Layer”插入一个新层，命名为“actions”；

4）在“actions”编辑层的第5，6，7，帧和第20，21，22，35帧分别按快捷键$#@60;F6$#@62;插入关键帧；

5）确定当前的编辑层为“actions”层，双击第1帧打开帧属性对话框，在“Lable”设置项中为该帧设置名称为“init”（如图所示）；在“Actions”设置项中设第1帧的Actions为：

Set Variable: "fontwidth" = 9
Set Variable: "fontx" = GetProperty("",_x)
Set Variable: "fonty" = GetProperty("",_x)

注释：“fontwidth”变量是用来描述每个连续字节之间左边缘的距离；而“fontx”和“fonty”是用来测试光标的当前位置。

如图所示；




6）根据步骤5）的操作，将第5帧的Actions设为：

Set Variable: "n" = 1
Set Variable: "text" = "This is a DOS text typer effect."
Comment: ----------------------------------------------
Comment: clear out old text (NOTE: the first time you do this, there isnt any text to clear out! I just keep the code here because it doesnt do any harm.)
Comment: ----------------------------------------------
Set Variable: "c" = 1
Loop While (c$#@60;=100)
Remove Movie Clip ("../font"&c)
Set Variable: "c" = c+1
End Loop

　　注释：变量“n”用来保持目前字节的轨迹。因为第2关键帧和第3关键帧两者间相互循环，如果“n”变量都设为1，那么他们就可以各自重新排列，所以这里“n”的值设为1。“c”变量是一个简单的计数器，这里假定计数器的值在不超过100个字节的范围内浮动，如果你需要设为大于100时，可更改这个数值。

如图所示；


7）将第6帧的Actions设为：

Set Variable: "length" = Length(text)
If (n$#@60;=length)
Comment: ----------------------------------------------
Comment: move cursor
Comment: ----------------------------------------------
Set Property ("", X Position) = fontx+(fontwidth*(n))
End If

注释：这里光标移动n次，n是文字串中字节的数量。因使用了变量“fontwidth”，所以所有字节间有相同的空间，不要忘记，“font”是用来测试光标的初始位置。


如图所示；


8）将第7帧的Actions设为：

If (n$#@60;=length)
Comment: ----------------------------------------------
Comment: type new character
Comment: ----------------------------------------------
Duplicate Movie Clip ("../original", "font"&n, n)
Set Variable: "../font"&n&":text" = Substring(text,n,1)
Set Property ("../font"&n, X Position) = fontx+(fontwidth*(n-1))
Set Property ("../font"&n, X Position) = GetProperty("../cursor",_x)-fontwidth
Set Property ("../font"&n, Y Position) = GetProperty("../cursor",_y)
Set Variable: "n" = n+1
Go to and Play (_currentframe-1)
End If

　　注释：这里再次使用“n”为计数器变量。开始时先复制空的文本框，并命名为“ongunal”。他会返回时间层的前一步，其脚本为：“../original”。把“font”的新名字留空，为了保持他们的轨迹不变，我们将“n”的数值加到“font”后面，以此作为新电影文件的名称，如“font1，font2，font3”。文本框变量在“original”电影文件中被命名为“text”，我们设置“../font(n)：text”与文字串的“n”字节相等。增加“n”的值，使指针指向文字串的下一个字节，当到达最后那个字节时停止循环。

如图所示；


9）将第20帧的Actions设为：

Set Variable: "n" = 1
Set Variable: "text" = "It is really easy to use."
Comment: ----------------------------------------------
Comment: clear out old text (NOTE: the first time you do this, there isnt any text to clear out! I just keep the code here because it doesnt do any harm.)
Comment: ----------------------------------------------
Set Variable: "c" = 1
Loop While (c$#@60;=100)
Remove Movie Clip ("../font"&c)
Set Variable: "c" = c+1
End Loop

如图所示；


10）将第21帧的Actions设为：

Set Variable: "length" = Length(text)
If (n$#@60;=length)
Comment: ----------------------------------------------
Comment: move cursor
Comment: ----------------------------------------------
Set Property ("", X Position) = fontx+(fontwidth*(n))
End If

如图所示；


11）将第22帧的Actions设为：

If (n$#@60;=length)
Comment: ----------------------------------------------
Comment: type new character
Comment: ----------------------------------------------
Duplicate Movie Clip ("../original", "font"&n, n)
Set Variable: "../font"&n&":text" = Substring(text,n,1)
Set Property ("../font"&n, X Position) = fontx+(fontwidth*(n-1))
Set Property ("../font"&n, X Position) = GetProperty("../cursor",_x)-fontwidth
Set Property ("../font"&n, Y Position) = GetProperty("../cursor",_y)
Set Variable: "n" = n+1
Go to and Play (_currentframe-1)
End If

如图所示；


12）第35帧的Actions设为：

Go to and play(5)

如图所示；


　　4。后期处理

1）返回scene1；

2）选择菜单命令“window$#@62;library”，在历史库中将电影文件“typer”拖到当前场景中；

3）在历史库中将电影文件“character”拖到当前场景中，并放置在“typer”的下方，如图所示；



这样，模拟dos输入字符的效果制作完成。可按Ctrl+Enter测试作品。
■ 相关内容
感谢 访问天极网，如果您觉得该文章涉及版权问题，请看这里！