作者hmml (hmml)
看板mud_sanc
标题[心得] MushClient 挂角色图档
时间Sat Sep 14 14:55:06 2013
挂角色图档，纯粹自己看的。感觉上也不错。结果像这样
http://ppt.cc/EO4y
--==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--
<aliases>
<alias
match="^shoimg(
0*)$"
enabled="y"
echo_alias="y"
regexp="y"
send_to="12"
keep_evaluating="y"
sequence="100"
>
<send>
--设定迷你视窗ID到imgchar
imgchar = 'img'..GetAlphaOption("name")
--建立角色图的迷你视窗
WindowCreate (imgchar
, --迷你视窗ID
739
, 23
, 204
, 303
, --位置，左，上，宽，高。
6
, --因下个参数的设定，无效。
3
, --以座标值为位置设定，并置於最底。
ColourNameToRGB("black"
)) --视窗底色。
--图档路径，设定上同角色档案同目录。
imgpatch =
GetInfo (67
)
--载入图档，套上 Note 和 ErrorDesc，方便除错。
--显示 执行结果 载入图档
Note (ErrorDesc(WindowLoadImage (imgchar, --迷你视窗名称
"im"
, --物件ID
imgpatch..
string.lower(GetAlphaOption("player"
))..".bmp"
))) --图档目录
--目录 ..转换小写 抓取角色名 ..副档名
-嵌入图片
--显示 执行结果 载入图档
Note (ErrorDesc(WindowImageOp (imgchar, --迷你视窗名称
miniwin.image_fill_rectangle
, --矩形
4
, 4
, 200
, 400
, --位置，左，上，右，下。
ColourNameToRGB("lime"
), --外框线条颜色
miniwin.pen_null
, --外框线条常数：无框
1
, --外框线条粗细
ColourNameToRGB("cyan"
), --底色
"im"
, --图档ID
20
, 20
))) --圆角矩形才有用。
--用来显示或隐藏图片
if tonumber('
%1') == 0 then
WindowShow (imgchar, false)
else
WindowShow (imgchar, true)
end --if
</send>
</alias>
</aliases>
<script>
<![CDATA[
--侦测Plugin Reinstall，只要plugin被载入就执行以下内容。
function OnPluginInstall ()
ReWorld =
GetWorld(GetAlphaOption("player"
)) --载入角色名
ReWorld:
Execute('shoimg'
) --执行别名shoing。
end -- function
]]>
</script>
--==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.132.196.45