作者hmml (hmml)
看板mud_sanc
標題Re: [心得] MushClient 掛角色圖檔
時間Sat Sep 21 01:58:13 2013
改成由 MUSHclient 自己去所設定的目錄（這裡是角色檔存放目錄）下尋找
符合命名條件的檔名（本篇格式為"角色小寫ID-三位數.bmp"，如：hmml-001.bmp
），並存成一個表，遍歷表的內容以得到可用的檔案總數；接著用隨機數去選擇
檔案，再將選中的圖檔載入掛上。
使用者只要將圖檔丟到設定的目錄下，取個符合格式的檔名就可以了！
由於隨機亂數並非真正的亂數，使用的種子是系統時間，精度只到整數秒，
故刷新換圖的時候，頻率不要低於一秒，否則容易得到相同的結果。
shoimg 更新迷你視窗，shoimg0 隱藏迷你視窗。
--
==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--
<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"
)
--取得角色名稱，並變換小寫
Char_Name =
string.lower(GetAlphaOption("player"
))
--取得圖檔目錄下符合條件的檔名列表。
bmpall =
utils.readdir (GetInfo(67
)..
Char_Name.."-*.bmp"
)
--圖檔數量先設為零
bmpall_n = 0
--如果有找到符合條件的檔案
if
bmpall ~= nil then
--計算這個表的檔名數量，這個表是字典型態，所以不能用table.getn()
for k, v in pairs (
bmpall) do
bmpall_n =
bmpall_n + 1
end --for
end --if
--觀測訊息用，減輕 debug 時洗畫面的情況。
InfoClear()
Info ("圖片數量："..
bmpall_n)
--製造隨機數，改用 MUSHclient 所附的梅森旋轉演算法函數，期望效果會較好。
--隨機種子。將系統時間數值顛倒後取前七位數。
MtSrand (tostring(os.time()):
reverse():
sub(1, 7
))
--隨機得出不大於bmpall_n的三位元長度的數字。
img_choice =
string.format("%%03d
",math.floor (MtRand () *
bmpall_n)+1
)
-- └───────────────────┐
--將路徑和檔名組合。 ↓
imgpatch = GetInfo(67)..
Char_Name..'-'..bmp_choice..".bmp"
--建立角色圖的迷你視窗
WindowCreate (imgchar, --迷你視窗ID
739
, 23
, 204
, 303
, --位置，左，上，寬，高。
6
, --因下個參數的設定，無效。
3
, --以座標值為位置設定，並置於最底。
ColourNameToRGB("black"
)) --視窗底色。
--載入圖檔，套上 Note 和 ErrorDesc，方便除錯。
--顯示 執行結果 載入圖檔
Note (ErrorDesc(WindowLoadImage (imgchar, --迷你視窗名稱
"im"
, --物件ID
imgpatch))) --圖檔目錄
-嵌入圖片
--顯示 執行結果 載入圖檔
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>
--==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--==-==--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.132.196.45