SetMouseXtra 的试用报告
xtra SetMouseXtra -- Version 1.0

SetMouseXtra 的功能较为单一,就是可以把鼠标定位在屏幕的任何位置。

使用方法：
通过 Lingo 调用函数 setmouse
语法：SetMouse x,y
说明：x,y 是一个整数，也是要设定的鼠在屏幕上的坐标。
注意：SetMouse 是以屏幕的分辩率相配的，它可以把鼠标光标移到屏幕的任意位置，
这一点与 Director 中的 mouseH、mouseV 不同。使用中请注意。
the mouseH = x - the stageLeft
the MouseV = y - the stageTop
比如，一个角色在 Stage 中的位置是 100,200 那么要用 SetMouse 移动鼠标
指向时可以写成：
set x = the stageLeft + 100
set y = the stageTop + 200
SetMouse x,y
或者
set x = the stageLeft + the locH of sprite 通道号
set y = the stageTop + the locV of sprite 通道号
SetMouse x,y

还要注意的是 SetMouseXtra 的载入，请使用以下方法载入 SetMouseXtra 插件。
把下面的一段程序做为一个 Script角色放到 Internal 角色表中。

global gFound

on startMovie
--影片开始时执行
put the number of xtras into x
set gFound=0
--搜索 SetMouseXtra 插件
repeat with i=1 to x
if the name of xtra i = "SetMouseXtra" then
set gFound=1
exit repeat
end if
end repeat

--打开找到的 SetMouseXtra 插件

if not gFound then
if the machineType=256 then
openXLib the pathname & "SMXtra"
else
openXLib the pathname & "SMXtra.Fat"
end if
end if
end

on stopMovie
--影片结束时关闭 SetMouseXtra 插件

if not gFound then
if the machineType=256 then
closeXLib the pathname & "SMXtra"
else
closeXLib the pathname & "SMXtra.Fat"
end if
end if
end

最后是打包时的注意事项：SetMouseXtra 插件不会自动地链接进 Projector 。
你要手动把它链接进去，方法是： 条开菜单 modify/movie/Xtra... 然后在对话
框中打选中 SetMouseXtra 的插件文件--"Smxtra.x32"或"Smxtra.x16"，这样打包
后就可以处处运行了。如果你没有进行这一步，也可以，不过要在发布影片时别忘
了在同一目录上放一个 SetMouseXtra 的插件文件--"Smxtra.x32"或"Smxtra.x16"。

以上就是我对 "SetMouseXtra" 的试用报告，第一次写这些东西，请各位高手指点指点。谢谢

东影默
2000年10月29日