世界上很多大公司都使用 Director 制作自己的多媒体教学光盘。
拼图制作三
函数 inList（） 代码如下：
on inList cnt
set countnum = count(M)
repeat with x = 1 to countnum
if cnt = getAt(M,x) then
return TRUE
exit repeat
end if
end repeat
end
其中M 为当前可移动通道号列表，首先函数使用count()函数计算列表 M 中成员的个数，并将其赋予变量 countnum，变量 countnum 为循环检测的终止变量。循环语句中，判定 inList（） 的参数 cnt 是否在列表 M 中。如果在其中，则返回 TRUE，并退出循环。
另外一个函数是 move()，它将返回当前可移动通道列表。
on move sth
return getAt(mList,sth)
end
它根据空白所在通道号来返回当前可移动拼图通道号列表。这里我使用了一个二维列表 mList = [m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,m11,m12,m13,m14,m15,m16]，其中 m1,m2,m3,……为空白在 1,2，3,4,5,…..时，可移动通道号列表。举例，如第一张图，当空白处为 16 号通道，可以移动的通道为 12 和 15 ，即，m16 = [12,15]。所有这些列表将在on startmovie 事件句柄中初始化。具体代码如下：
on startMovie
global gEmpty,randomList,First,Finish,Tmp,m1,m2,m3,m4,m5,
m6,m7,m8,m9,m10,m11,m12,m13,m14,m15,m16,mList,M
set M = []
set Tmp = []
set Finish = [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16]
set m1 = [2,5]
set m2 = [1,3,6]
set m3 = [2,4,7]
set m4 = [3,8]
set m5 = [1,6,9]
set m6 = [2,5,7,10]
set m7 = [3,6,8,11]
set m8 = [4,7,12]
set m9 = [5,10,13]
set m10 = [6,9,11,14]
set m11 = [7,10,12,15]
set m12 = [8,11,16]
set m13 = [9,14]
set m14 = [10,13,15]
set m15 = [11,14,16]
set m16 = [12,15]
set mList = [m1,m2,m3,m4,m5,m6,m7,m8,
m9,m10,m11,m12,m13,m14,m15,m16]
set First = 0
generateList
set gEmpty = getOne(randomList,16)
repeat with i = 1 to 16
puppetsprite i,TRUE
end repeat
end startMovie
网友评论