用Flash和Director实现简单的AI

软件世界

宿海成

在Flash流行的今天，很多人已经可以用其内部的Action做出一定功能的应用程序动画，他们也时常想利用外部的一些程序来弥补Flash的不足。本文就是通过Flash与Director的交互控制，以实例介绍Director 8.5对Flash5的控制和简单的AI制作。文中涉及的AI（Artificial与Intelligence 人工智能）属于Expert级模式，该模式通过分层判断加上概率算法实现。

制作过程

本文使用一个婴儿图片，并对背景稍加装饰了下，我将Flash和Director分成两部分功能模块，以Director为主程序，Flash为扩展AI程序库。
思路：做一个会和人“交谈”的婴儿(下称“Flactor”)，利用的AI范畴属于Expert专家模式判断，把婴儿的年龄和问题的判断程序加在Flash内，需要时通过Director主程序激活。

Flash部分

在Flash 5内新建一个文件，取名flactor_function.fla。
1.首先设置环境，Modify菜单下的Movie，设置Dimensions的width和height为50px×30px；设置同级菜单Scene的名称为flactor_function。
2.用Tools工具箱的“text tool”工具在主场景中央划出一块Text区，这时按“Ctrl+T”打开文本属性面板，设置成Dynamic Text，同时设置变量“myAge”。
3.按“Ctrl+E”返回主场景，然后新建一个Movieclip 取名为“age”，用于控制“Flactor”的年龄myAge，在MC内部第36帧的位置(3秒刷新一次)按F6插入关键帧，并按“Ctrl+Alt+A”写入Action:_parent.myAge++；
4.新建一个Movieclip “AI”，用来判断主程序呼叫的问题并产生答案。
5.在“AI”内部的第1帧插入关键帧并加入Action:stop 说明初始状态是停止的；接着，在第2帧也插入关键帧，并输入Action：
// ai expert mode
myAge=_parent.myAge；
if (qst ne "") {
asw=""；
if (qst eq "hi") {
if (myAge<5) {
asw="a..ha......"；
} else if (myAge<10) {
asw="Hello~."；
} else {
asw="What's up，my friend?"；
}
} else if (qst eq "what's your name?" or qst eq "what is your name?") {
asw="I am flactor."；
} else if (qst eq "how old are you?") {
asw="I am "+myAge+"."；
} else {
asw="... ..."；
}
qst=""；
}
// ai end
当这段程序被呼叫时。首先，获取到“Flactor”的年龄，根据问题变量qst的状态来产生几个分支，这个分支按照一定的概率排列先后顺序，例如“hi”一般放在前列；在判断问题的分支层的下层也可能有些特别处理，例如根据年龄的不同而说出不同的话来，这需要对myAge进行判断，甚至可以随机说出不同的话(Random和数组的应用)。
当准备好了模块，就可以放在主场景内实际测试了，按“Ctrl+L”打开库，把刚做好的“ai”和“age”从库中拉出并放入场景的适当位置，然后按“Ctrl+I”依次名“ai”和“age”(（图1）)。

Director部分

新建一个文件，取名为“Flactor.dir”。
设置环境，按“Ctrl+Alt+S”打开Property Inspector，设置长宽为500×330。
1.首先，设计好背景，并排列好布局，这时，按“Ctrl+7”打开“Tool Palette”，用Field工具做两个文本区分别放在场景上下，上面的要拉大一些，并在Property Inspector内的field窗口内的“formatting”选项选择“fixed”，并激活“Wrap”，最后设置Information窗口内的member name为“spr_answer”；第二个文本用于用户输入问题，所以field窗口内的“editable”要选中，并给与member name为“spr_question”。
2.文本框做好之后，还需要一个按钮。用tool palette的Button工具画一个按钮，并写入按钮文字为“Ask”，member name为“btnAsk”(（图2）)。