- UID
- 23309
- 帖子
- 700
- 精华
- 0
- 贡献
- 0
- 推广
- 0
- 有效BUG
- 0
- 注册时间
- 2006-10-16
|
本帖最后由 OrochiZ 于 2010-5-7 05:15 编辑
易语言随便写写
- .版本 2
- .程序集 窗口程序集1
- .子程序 __启动窗口_创建完毕
- .局部变量 TW目录, 文本型
- .局部变量 皮肤目录, 文本型
- .局部变量 皮肤列表, 文本型, , "0"
- .局部变量 皮肤数量, 整数型
- .局部变量 皮肤编号, 整数型
- .局部变量 TW配置, 文本型
- .局部变量 TW程序, 文本型
- ' TW目录 = “C:\Program Files\TheWorld” ' 指定TW目录
- ' 编辑框1.加入文本 (“指定的TW目录” + 字符 (#Tab键) + TW目录 + #换行符)
- TW目录 = 取当前目录 () ' 必须放于TW目录运行才会正常
- 编辑框1.加入文本 (“当前TW目录” + 字符 (#Tab键) + TW目录 + #换行符)
- 皮肤目录 = 寻找文件 (TW目录 + “\Skin” + “\*.*”, #子目录)
- .判断循环首 (皮肤目录 ≠ “”)
- .如果真 (皮肤目录 ≠ “.” 且 皮肤目录 ≠ “..”)
- 加入成员 (皮肤列表, 皮肤目录)
- 编辑框1.加入文本 (“皮肤目录” + 字符 (#Tab键) + 皮肤目录 + #换行符)
- .如果真结束
- 皮肤目录 = 寻找文件 (, #子目录)
- .判断循环尾 ()
- 皮肤数量 = 取数组成员数 (皮肤列表)
- .如果 (皮肤数量 < 1)
- ' 编辑框1.加入文本 (“没有发现皮肤,指定正确的TW目录” + #换行符 + “程序终止” + #换行符)
- 编辑框1.加入文本 (“没有发现皮肤,把本程序放入TW目录运行” + #换行符 + “程序终止” + #换行符)
- .否则
- 编辑框1.加入文本 (“皮肤数量” + 字符 (#Tab键) + 到文本 (皮肤数量) + #换行符)
- 置随机数种子 ()
- 皮肤编号 = 取随机数 (1, 皮肤数量)
- 编辑框1.加入文本 (“随机皮肤” + 字符 (#Tab键) + 皮肤列表 [皮肤编号] + #换行符)
- TW配置 = TW目录 + “\TheWorld.ini”
- 写配置项 (TW配置, “Main”, “UseSkin”, “1”)
- 写配置项 (TW配置, “Path”, “Skin”, 皮肤列表 [皮肤编号])
- 编辑框1.加入文本 (“写入配置” + #换行符)
- TW程序 = TW目录 + “\TheWorld.exe”
- 运行 (TW程序, 假, )
- 编辑框1.加入文本 (“启动TW” + #换行符)
- 定时退出.时钟周期 = 8000
- 编辑框1.加入文本 (“延时” + 到文本 (定时退出.时钟周期) + “毫秒后退出” + #换行符)
- .如果结束
- .子程序 _定时退出_周期事件
- 结束 ()
复制代码 |
-
1
评分人数
-
|