動(dòng)畫精靈制作實(shí)例介紹如下。

一、我們根據(jù)前面講過的內(nèi)容做一個(gè)控制精靈的實(shí)例，程序的效果圖如圖5-7所示。

圖5-7  精靈實(shí)例效果圖

二、程序的流程圖如圖5-8所示，交互有8個(gè)交互按鈕，分別實(shí)現(xiàn)對(duì)精靈的各種控制。

圖5-8  精靈實(shí)例流程圖（一）

三、“setup”和“裝載精靈”計(jì)算圖標(biāo)的內(nèi)容如下。

1）在“setup”計(jì)算圖標(biāo)中輸入：

string:="第一次運(yùn)行此程序需要安裝msagent2.0服

務(wù)驅(qū)動(dòng)程序和語音驅(qū)動(dòng)程序,確認(rèn)嗎?"

result:=messagebox( windowhandle, string, "三石工

作室", 49)

if result=1 then

 jumpoutreturn(filelocation^"msagent2.0.exe" , "" , "")

    jumpoutreturn(filelocation^"speak.exe","","")

else

    goto(iconid@"裝載精靈")

end if

要求用戶在第一次運(yùn)行程序是詢問是否要安裝動(dòng)畫精靈的驅(qū)動(dòng)程序。

2）在“裝載精靈”計(jì)算圖標(biāo)中輸入：

maremove(id)

id:=maload(filelocation^"genie.acs")

卸載掉之前出現(xiàn)的動(dòng)畫精靈，再裝載新的精靈“genie.acs”。

四、八個(gè)交互計(jì)算圖標(biāo)內(nèi)容的設(shè)置。

1）在“顯示精靈”計(jì)算圖標(biāo)內(nèi)輸入：

mashow(id,100,100,1,0)

2）在“隱藏精靈”計(jì)算圖標(biāo)內(nèi)輸入：

mahide(id)

3）在“移動(dòng)精靈”計(jì)算圖標(biāo)內(nèi)輸入：

mamove(id,50,60)

4）在“朗讀英文”計(jì)算圖標(biāo)內(nèi)輸入：

maspeak(id,"how are you","")

5）在“招手動(dòng)作”計(jì)算圖標(biāo)內(nèi)輸入：

magesture(id,120,130)

6）在“施展魔法”計(jì)算圖標(biāo)內(nèi)輸入：

maplay(id,"domagic2")

7）在“停止動(dòng)作”計(jì)算圖標(biāo)內(nèi)輸入：

mastopall(id)

8）在“清除精靈”計(jì)算圖標(biāo)內(nèi)輸入：

maremove(id)

后面的幾個(gè)按鈕如圖5-9所示。

圖5-9  精靈實(shí)例流程圖（二）