另外在請教一下 他支持%SystemRoot% ，%windir% 之類的系統變量嗎，支持的話應該怎么寫（好像有點太貪心
ps換裝辭書寫好啦，需要的可以隨便拿去用喔^^
複製內容到剪貼板
代碼:
///////////////////////////////////////////
////////// 换装辞书
////////// written by forjane 2009.09.11
///////////////////////////////////////////
OnClothesList //入口函式
{
_txt = "让我来看看衣柜里有哪些衣服……\n[150]\_q";
_name = GetShellNames;
_newline = 0;
foreach _name; _i {
_txt += "\_l[%(_newline % 3 * 74)]\q[%(_i),OnChangeClothes,%(_i)]";
_newline ++;
if _newline % 3 == 0 {
_txt += "\n";
}
}
_txt;
}
OnChangeClothes
{
case reference0 {
when "预设","預設" {
"还是穿平时的比较好吗？"
--
"\s[-1]\w9\w9\![change,shell,%(reference0)]\e"
}
//此處可以添加不同衣著的特殊對話喔
//---------------------------------
others {
"请稍等喔…\w9…\w9\s[-1]\w9\w9\![change,shell,%(reference0)]\e"
}
}
}
GetShellNames
{
_root = "..\\..\\shell"
_tmp = FENUM(_root);
_path = IARRAY;
_num = 0;
foreach _tmp; _i {
_path[_num] = _root + '\' + _i + '\\';
_num ++;
}
_name = IARRAY;
for _i = 0; _i < _num; _i ++ {
_charset = 1;
_file = _path[_i] + 'descript.txt';
if FOPEN(_file,"r") {
for _buff = FREAD(_file); _buff != -1 && _buff[0] != "charset"; _buff = FREAD(_file) {
}
if _buff[0] == "charset" && "Shift_JIS" _in_ _buff[1] {
_charset = 0;
}
}
FCLOSE(_file);
FCHARSET(_charset);
if FOPEN(_file,"r") {
for _buff = FREAD(_file); _buff != -1 && _buff[0] != "name"; _buff = FREAD(_file) {
}
if _buff[0] == "name" {
_name[_i] = _buff[1];
}
}
FCLOSE(_file);
FCHARSET(127);
}
_name;
}[
本帖最後由 forjanezz 於 2009-9-11 18:45 編輯 ]
