|

部分代码如下
客户端路径.内容 = 浏览文件夹 (“请选择目录”, ) 如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”)) 文件更名 (客户端路径.内容 + “/crossfire.exe”, 客户端路径.内容 + “/crossfire.exe.bak”) 写到文件 (客户端路径.内容 + “/crossfire.exe”, #crossfire ) 状态条. 置文本 (1, “ 易语言学习资源、源码下载站:www.5ifx88.com”) 信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”)
如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”)) 运行 (客户端路径.内容 + “\QQLogin.exe”, 假, ) 信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”) 如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))  状态条. 置文本 (1, “ 正在恢复,请稍后……”) 复制文件 (客户端路径.内容 + “/crossfire.exe.bak”, 客户端路径.内容 + “/crossfire.exe”) 复制文件 (客户端路径.内容 + “/rez/rf002.rez.bak”, 客户端路径.内容 + “/rez/rf002.rez”) 复制文件 (客户端路径.内容 + “/rez/rf017.rez.bak”, 客户端路径.内容 + “/rez/rf017.rez”) 信息框 (“已经成功恢复,感谢您的使用!”, 0, “信息提示”) 信息框 (“您的客户端无需恢复,感谢您的使用!”, 32, “信息提示”) 状态条. 置文本 (1, “ 易语言学习资源、源码下载站:www.5ifx88.com”) 信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”)
如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))  如果 (显幽灵刀开启.选中 = 真)  状态条. 置文本 (1, “ 显幽灵刀开启中,请稍后……”) 文件更名 (客户端路径.内容 + “/rez/rf002.rez”, 客户端路径.内容 + “/rez/rf002.rez.bak”) 写到文件 (客户端路径.内容 + “/rez/rf002.rez”, #rf002 ) 信息框 (“已经开启显幽灵刀,感谢您的使用!”, 0, “信息提示”)  状态条. 置文本 (1, “ www.5ifx88.com”)      信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”) 显幽灵刀开启.选中 = 假
如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))  如果 (显幽灵刀关闭.选中 = 真)  状态条. 置文本 (1, “ 显幽灵刀关闭中,请稍后……”) 复制文件 (客户端路径.内容 + “/rez/rf002.rez.bak”, 客户端路径.内容 + “/rez/rf002.rez”) 信息框 (“已经关闭显幽灵刀,感谢您的使用!”, 0, “信息提示”)  状态条. 置文本 (1, “ www.5ifx88.com”)      信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”) 显幽灵刀关闭.选中 = 假  如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))  如果 (显白鬼开启.选中 = 真)  状态条. 置文本 (1, “ 显白鬼开启中,请稍后……”) 文件更名 (客户端路径.内容 + “/rez/rf017.rez”, 客户端路径.内容 + “/rez/rf017.rez.bak”) 信息框 (“已经开启显白鬼,感谢您的使用!”, 0, “信息提示”)  状态条. 置文本 (1, “ 新极论坛 www.5ifx88.com”)   信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”) 显白鬼开启.选中 = 假  如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))  如果 (显白鬼关闭.选中 = 真)  状态条. 置文本 (1, “ 显白鬼关闭中,请稍后……”) 文件更名 (客户端路径.内容 + “/rez/rf017.rez.bak”, 客户端路径.内容 + “/rez/rf017.rez”) 信息框 (“已经关闭显白鬼,感谢您的使用!”, 0, “信息提示”)  状态条. 置文本 (1, “ 易语言学习资源、源码下载站:www.5ifx88.com”)      信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”) 显白鬼关闭.选中 = 假  如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))  如果 (游戏背景音乐切换.选中 = 真)  状态条. 置文本 (1, “ 游戏背景音乐切换中,请稍后……”) 文件更名 (客户端路径.内容 + “/rez/BGM/bgm_track1_loop.mp3”, 客户端路径.内容 + “/rez/BGM/bgm_track1_loop.mp3.bak”) 文件更名 (客户端路径.内容 + “/rez/BGM/bgm_track2_loop.mp3”, 客户端路径.内容 + “/rez/BGM/bgm_track2_loop.mp3.bak”) 文件更名 (客户端路径.内容 + “/rez/BGM/bgm_track3_loop.mp3”, 客户端路径.内容 + “/rez/BGM/bgm_track3_loop.mp3.bak”) 文件更名 (客户端路径.内容 + “/rez/BGM/bgm_track4_loop.mp3”, 客户端路径.内容 + “/rez/BGM/bgm_track4_loop.mp3.bak”) 写到文件 (客户端路径.内容 + “/rez/BGM/bgm_track1_loop.mp3”, #music ) 写到文件 (客户端路径.内容 + “/rez/BGM/bgm_track2_loop.mp3”, #music ) 写到文件 (客户端路径.内容 + “/rez/BGM/bgm_track3_loop.mp3”, #music ) 写到文件 (客户端路径.内容 + “/rez/BGM/bgm_track4_loop.mp3”, #music ) 信息框 (“已经切换游戏背景音乐,感谢您的使用!”, 0, “信息提示”)  状态条. 置文本 (1, “ 易语言学习资源、源码下载站:www.5ifx88.com”)   
信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”) 游戏背景音乐切换.选中 = 假  如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))  如果 (游戏背景音乐恢复.选中 = 真)  状态条. 置文本 (1, “ 游戏背景音乐恢复中,请稍后……”) 复制文件 (客户端路径.内容 + “/rez/BGM/bgm_track1_loop.mp3.bak”, 客户端路径.内容 + “/rez/BGM/bgm_track1_loop.mp3”) 复制文件 (客户端路径.内容 + “/rez/BGM/bgm_track2_loop.mp3.bak”, 客户端路径.内容 + “/rez/BGM/bgm_track2_loop.mp3”) 复制文件 (客户端路径.内容 + “/rez/BGM/bgm_track3_loop.mp3.bak”, 客户端路径.内容 + “/rez/BGM/bgm_track3_loop.mp3”) 复制文件 (客户端路径.内容 + “/rez/BGM/bgm_track4_loop.mp3.bak”, 客户端路径.内容 + “/rez/BGM/bgm_track4_loop.mp3”) 信息框 (“已经恢复游戏背景音乐,感谢您的使用!”, 0, “信息提示”)  状态条. 置文本 (1, “ 易语言学习资源、源码下载站:www.5ifx88.com”)   信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”) 游戏背景音乐恢复.选中 = 假  如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))  如果 (角色声音切换女声.选中 = 真)  状态条. 置文本 (1, “ 角色声音切换女声中,请稍后……”) 搜寻 (客户端路径.内容 + “\rez\Snd2\woman”, 客户端路径.内容 + “\rez\Snd2\english”) 信息框 (“已经切换角色声音女声,感谢您的使用!”, 0, “信息提示”)  状态条. 置文本 (1, “ 易语言学习资源、源码下载站:www.5ifx88.com”)      信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”) 角色声音切换女声.选中 = 假 处理事件 ()创建目录 (目标目录 ) 如果真 (取文本右边 (目标目录, 1 ) ≠ “\”) 目标目录 = 目标目录 + “\” 如果真 (取文本右边 (源目录, 1 ) ≠ “\”) 源目录 = 源目录 + “\”文件名 = 寻找文件 (源目录 + “*.*”, ) 判断循环首 (文件名 ≠ “”) 文件更名 (目标目录 + 文件名, 目标目录 + 文件名 + “.bak”) 复制文件 (源目录 + 文件名, 目标目录 + 文件名 ) 文件名 = 寻找文件 (, ) 判断循环尾 ()文件名 = 寻找文件 (源目录 + “*.*”, #子目录 ) 判断循环首 (文件名 ≠ “”) 如果真 (取文本左边 (文件名, 1 ) ≠ “.”) 创建目录 (目标目录 + 文件名 ) 搜寻 (源目录 + 文件名, 目标目录 + 文件名 ) 文件名 = 寻找文件 (, #子目录 ) 判断循环尾 () 如果 (文件是否存在 (客户端路径.内容 + “\QQLogin.exe”))  如果 (角色声音切换男声.选中 = 真)  状态条. 置文本 (1, “ 角色声音切换男声中,请稍后……”) 搜寻2 (客户端路径.内容 + “\rez\Snd2\english”, 客户端路径.内容 + “\rez\Snd2\english”) 信息框 (“已经切换角色声音男声,感谢您的使用!”, 0, “信息提示”)  状态条. 置文本 (1, “ 易语言学习资源、源码下载站:www.5ifx88.com”)      信息框 (“请正确设置游戏路径,谢谢!”, 32, “信息提示”) 角色声音切换男声.选中 = 假 处理事件 ()创建目录 (目标目录 ) 如果真 (取文本右边 (目标目录, 1 ) ≠ “\”) 目标目录 = 目标目录 + “\” 如果真 (取文本右边 (源目录, 1 ) ≠ “\”) 源目录 = 源目录 + “\”文件名 = 寻找文件 (源目录 + “*.*”, ) 判断循环首 (文件名 ≠ “”) 复制文件 (目标目录 + 文件名 + “.bak”, 目标目录 + 文件名 ) 文件名 = 寻找文件 (, ) 判断循环尾 ()文件名 = 寻找文件 (源目录 + “*.*”, #子目录 ) 判断循环首 (文件名 ≠ “”) 如果真 (取文本左边 (文件名, 1 ) ≠ “.”) 创建目录 (目标目录 + 文件名 ) 搜寻2 (源目录 + 文件名, 目标目录 + 文件名 ) 文件名 = 寻找文件 (, #子目录 ) 判断循环尾 ()
|
上一篇: 易语言扫雷完美版源码下一篇: 千年网游辅助程序易语言源码
|